[求助]自杀的代码(已解决)

czljh · 发表于 2008-9-19 13:21

有"自杀的代码"的EXCEL文件复制到有装卡巴斯杀毒软件的电脑上使用，卡巴斯杀毒软件可以终止你的EXCEL文件“自杀”，继续使用[em03][em03]

lizengyan705 · 发表于 2008-9-23 13:57

马上要用到的东西找到啦！谢谢！

gljzyp · 发表于 2008-9-23 15:37

不管是用C盘或者物理序列号都不成功,能不能把程序和相关的查号程序放在一贴子上!!!

poilkjmnb123 · 发表于 2008-10-5 20:34

好资料，学习了，非常感谢

cnc_w · 发表于 2008-10-26 23:44

解决了吗,怎么没看到结果呢

l5091480 · 发表于 2008-11-8 09:04

谢谢楼主的分享!

l5091480 · 发表于 2008-11-8 09:35

s = Trim(GetObject("winmgmts:").InstancesOf("Win32_PhysicalMedia")("Win32_PhysicalMedia.Tag=""\\\\.\\PHYSICALDRIVE0""").serialnumber)
这一句是指的是什么序列号啊,我把磁盘序列号,CPUID,硬盘序列号分别代入去不行?????

A0101 · 发表于 2008-11-9 21:07

cnc_w · 发表于 2008-11-17 22:34

各位高手,有没有对串口硬盘的呢,用上面的代码只对IDE硬盘有效,对串口硬盘还是一样的提示还有多少天使用期

gunghhtt · 发表于 2008-11-19 13:26

Private Sub Workbook_Open()
Application.DisplayAlerts = False
Dim datee As Date
datee = #12/13/2009# '月，日，年
If Date > datee Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
ElseIf datee - Date <= 30 Then
MsgBox "还剩" & datee - Date & "天使用期请尽快联系鑫和技术支持高林松电话 XXXX 手机XXXX 到期不升级.文件将自动销毁.后果自负!"
End If

End Sub
上面代码是到期自杀加提前提醒,能不能在这个基本上加上复制到别的电脑上,打开他就会跳出 "你是复制版.只能使用10天"这个功能

		自动登录	找回密码
密码			免费注册

[求助]自杀的代码(已解决)

评分