返回列表 回复 发帖
似水年华

D8站长

Rank: 9Rank: 9Rank: 9
1#
打印
tT
发表于 2007-4-22 06:08 PM | 只看该作者

已知病毒免疫工具(autoit3)

免疫, 工具

  2. #NoTrayIcon
  3. #include <GuiConstants.au3>
  4. #include<process.au3>
  5. FileInstall("pic.jpg",@TempDir & "\pic.jpg")
  6. GuiCreate("要病毒免疫工具", 392, 350)
  7. $Pic_1 = GuiCtrlCreatePic(@TempDir & "\pic.jpg", 0, 0, 400, 80,$SS_BLACKRECT)
  8. $Group_1 = GuiCtrlCreateGroup("请输入病毒的程序全名（包括后辍 如：Logo1_.exe）", 0, 110, 392, 185)
  9. $Label_1 = GUICtrlCreateInput("已知病毒免疫工具,提示:本程序只能免疫10个病毒，也可禁用其它程序。", 0, 82, 392, 17,-1,$WS_EX_STATICEDGE)
  10. GUICtrlSetState(-1, $GUI_DISABLE)
  11. GUICtrlCreateLabel("一.",10,145,15,15)
  12. GUICtrlSetFont(-1,10)
  13. $Input_1 = GuiCtrlCreateInput("", 30, 140, 150, 20,-1,$WS_EX_STATICEDGE)
  14. GUICtrlCreateLabel("二.",200,145,15,15)
  15. GUICtrlSetFont(-1,10)
  16. $Input_2 = GuiCtrlCreateInput("", 220, 140, 150, 20,-1,$WS_EX_STATICEDGE)
  17. GUICtrlCreateLabel("三.",10,175,15,15)
  18. GUICtrlSetFont(-1,10)
  19. $Input_3 = GuiCtrlCreateInput("", 30, 170, 150, 20,-1,$WS_EX_STATICEDGE)
  20. GUICtrlCreateLabel("四.",200,175,15,15)
  21. GUICtrlSetFont(-1,10)
  22. $Input_4 = GuiCtrlCreateInput("", 220, 170, 150, 20,-1,$WS_EX_STATICEDGE)
  23. GUICtrlCreateLabel("五.",10,205,15,15)
  24. GUICtrlSetFont(-1,10)
  25. $Input_5 = GuiCtrlCreateInput("", 30, 200, 150, 20,-1,$WS_EX_STATICEDGE)
  26. GUICtrlCreateLabel("六.",200,205,15,15)
  27. GUICtrlSetFont(-1,10)
  28. $Input_6 = GuiCtrlCreateInput("", 220, 200, 150, 20,-1,$WS_EX_STATICEDGE)
  29. GUICtrlCreateLabel("七.",10,235,15,15)
  30. GUICtrlSetFont(-1,10)
  31. $Input_7 = GuiCtrlCreateInput("", 30, 230, 150, 20,-1,$WS_EX_STATICEDGE)
  32. GUICtrlCreateLabel("八.",200,235,15,15)
  33. GUICtrlSetFont(-1,10)
  34. $Input_8 = GuiCtrlCreateInput("", 220, 230, 150, 20,-1,$WS_EX_STATICEDGE)
  35. GUICtrlCreateLabel("九.",10,265,15,15)
  36. GUICtrlSetFont(-1,10)
  37. $Input_9 = GuiCtrlCreateInput("", 30, 260, 150, 20,-1,$WS_EX_STATICEDGE)
  38. GUICtrlCreateLabel("十.",200,265,15,15)
  39. GUICtrlSetFont(-1,10)
  40. $Input_10 = GuiCtrlCreateInput("", 220, 260, 150, 20,-1,$WS_EX_STATICEDGE)
  41. $button_1=GUICtrlCreateButton("禁用以上程序",40,300,80,25,$BS_DEFPUSHBUTTON)
  42. $button_2=GUICtrlCreateButton("启用以上程序",130,300,80,25,$BS_DEFPUSHBUTTON)
  43. $button_3=GUICtrlCreateButton("清空以上内容",220,300,80,25,$BS_DEFPUSHBUTTON)
  44. $button_4=GUICtrlCreateButton("退出程序",310,300,80,25,$BS_DEFPUSHBUTTON)
  45. $about=GUICtrlCreateLabel('---关于我们',10,333)
  46. GUICtrlSetColor(-1,0x6600FF)
  47. GUICtrlSetCursor(-1,0)
  48. GuiSetState()
  49. load_data()
  50. While 1

  52. $1=GUICtrlRead($Input_1)
  53. $2=GUICtrlRead($Input_2)
  54. $3=GUICtrlRead($Input_3)
  55. $4=GUICtrlRead($Input_4)
  56. $5=GUICtrlRead($Input_5)
  57. $6=GUICtrlRead($Input_6)
  58. $7=GUICtrlRead($Input_7)
  59. $8=GUICtrlRead($Input_8)
  60. $9=GUICtrlRead($Input_9)
  61. $10=GUICtrlRead($Input_10)

  63. $msg = GuiGetMsg()
  64. Select
  65. Case $msg = $GUI_EVENT_CLOSE or $msg=$button_4
  66.   ExitLoop
  67. case $msg=$button_1
  68.   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","DisallowRun","REG_DWORD","00000001")
  69.   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","1","REG_SZ",$1)
  70.   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","2","REG_SZ",$2)
  71.   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","3","REG_SZ",$3)
  72.   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","4","REG_SZ",$4)
  73.   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","5","REG_SZ",$5)
  74.   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","6","REG_SZ",$6)
  75.   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","7","REG_SZ",$7)
  76.   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","8","REG_SZ",$8)
  77.   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","9","REG_SZ",$9)
  78.   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","10","REG_SZ",$10)
  79.   _RunDOS("ecedit /refreshpolicy machine_policy /enforce")
  80.   MsgBox(48,"提示","恭喜！你所填写的已知病毒全部免疫成功。")
  81. case $msg=$button_2
  82.   RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","DisallowRun")
  83.   RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun")
  84.   MsgBox(48,"提示","已经解除病毒免疫功能！")
  85. case $msg=$button_3
  86.   GUICtrlSetData($Input_1,"")
  87.   GUICtrlSetData($Input_2,"")
  88.   GUICtrlSetData($Input_3,"")
  89.   GUICtrlSetData($Input_4,"")
  90.   GUICtrlSetData($Input_5,"")
  91.   GUICtrlSetData($Input_6,"")
  92.   GUICtrlSetData($Input_7,"")
  93.   GUICtrlSetData($Input_8,"")
  94.   GUICtrlSetData($Input_9,"")
  95.   GUICtrlSetData($Input_10,"")
  96. Case $msg=$about
  97.   Set_About()
  98. EndSelect
  99. WEnd
  100. Exit

  102. Func load_data()
  103. $a=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","1")
  104. $b=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","2")
  105. $c=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","3")
  106. $d=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","4")
  107. $e=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","5")
  108. $f=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","6")
  109. $g=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","7")
  110. $h=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","8")
  111. $i=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","9")
  112. $j=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","10")
  113.         GUICtrlSetData($Input_1,$a)
  114.   GUICtrlSetData($Input_2,$b)
  115.   GUICtrlSetData($Input_3,$c)
  116.   GUICtrlSetData($Input_4,$d)
  117.   GUICtrlSetData($Input_5,$e)
  118.   GUICtrlSetData($Input_6,$f)
  119.   GUICtrlSetData($Input_7,$g)
  120.   GUICtrlSetData($Input_8,$h)
  121.   GUICtrlSetData($Input_9,$i)
  122.   GUICtrlSetData($Input_10,$j)
  123. endfunc

  125. Func Set_About()
  126.      $GUI_About = GUICreate ("关于我们", 310, 90, Default, Default, $WS_CAPTION, $WS_EX_TOPMOST)
  127.     GUICtrlCreateLabel ("冰心痴工作室”一个致力于网吧服务的团队！" & @CRLF & @CRLF & "   冰心痴 制作 QQ：48983200 65363256", 60, 10)
  128.     GUICtrlCreateIcon ("shell32.dll", 221, 10, 10)
  129.     $GUI_About_OK = GUICtrlCreateButton ("确 定", 135, 60, 75, 23,$BS_FLAT)
  130.     GUISetState ()
  131.     While 1
  132.         $msg = GUIGetMsg ()
  133.         Select
  134.             Case  $msg=$GUI_EVENT_CLOSE OR  $msg=$GUI_About_OK
  135.                 GUIDelete ($GUI_About)
  136.                 ExitLoop
  137.         EndSelect      
  138.     WEnd  
  139. EndFunc
复制代码
收藏 分享 评分
感谢Baidu,Google,Dreams8给我这次机会!
还要感谢我的爸爸妈妈!
HOHO
回复 引用

订阅 TOP

返回列表