开发一个这样功能
就是如果把启动项的某个文件禁用不启动下次开机进不去系统出现“口口口口” 第二次开机提示lsass.exe错误 再开机 提示系统错误,请重新安装。可以做一下这个吗 第一贴就想害人。。。 是想保护一下产权 好像不是保护了,lsass禁用基本就摊了 保护产权也不需要把别人系统给搞摊了吧~?? 他是想做个病毒??:face (21): ~ 坏蛋 ... 嘿嘿 很多东西得自己研究:face (37): 做坏东西,不支持 我只是想保护我自己的东西 怎么能病毒呢不明白别瞎说 能 . 注意,这种行为是违法的,小心到时吃不了兜着走。著名案例有当年的江民逻辑锁。 保护产权方法很多,何必用这么无聊的一个。 本帖最后由 l4ever 于 2009-8-21 11:13 编辑
代码如下,但是LZ有没想过别人可能不让下面的程序运行
$check = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run","internat")
if $check = "" Then
$count = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt","count")
Select
case $count = "1"
msgbox(32,"第一次警告","请不要删除启动项")
count()
Exit
case $count ="2"
msgbox(32,"第二次警告","请不要删除启动项")
count()
Exit
case $count >"3"
msgbox(32,"最后警告","下面写入关机代码")
count()
Exit
EndSelect
EndIf
func count()
if $count = "" then $count="0"
$countaa = $count + 1
$writecount = Regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt","count","REG_MULTI_SZ",$countaa)
EndFunc
页:
[1]