已知病毒免疫工具(autoit3)
[code]#NoTrayIcon
#include <GuiConstants.au3>
#include<process.au3>
FileInstall("pic.jpg",@TempDir & "\pic.jpg")
GuiCreate("要病毒免疫工具", 392, 350)
$Pic_1 = GuiCtrlCreatePic(@TempDir & "\pic.jpg", 0, 0, 400, 80,$SS_BLACKRECT)
$Group_1 = GuiCtrlCreateGroup("请输入病毒的程序全名（包括后辍 如：Logo1_.exe）", 0, 110, 392, 185)
$Label_1 = GUICtrlCreateInput("已知病毒免疫工具,提示:本程序只能免疫10个病毒，也可禁用其它程序。", 0, 82, 392, 17,-1,$WS_EX_STATICEDGE)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("一.",10,145,15,15)
GUICtrlSetFont(-1,10)
$Input_1 = GuiCtrlCreateInput("", 30, 140, 150, 20,-1,$WS_EX_STATICEDGE)
GUICtrlCreateLabel("二.",200,145,15,15)
GUICtrlSetFont(-1,10)
$Input_2 = GuiCtrlCreateInput("", 220, 140, 150, 20,-1,$WS_EX_STATICEDGE)
GUICtrlCreateLabel("三.",10,175,15,15)
GUICtrlSetFont(-1,10)
$Input_3 = GuiCtrlCreateInput("", 30, 170, 150, 20,-1,$WS_EX_STATICEDGE)
GUICtrlCreateLabel("四.",200,175,15,15)
GUICtrlSetFont(-1,10)
$Input_4 = GuiCtrlCreateInput("", 220, 170, 150, 20,-1,$WS_EX_STATICEDGE)
GUICtrlCreateLabel("五.",10,205,15,15)
GUICtrlSetFont(-1,10)
$Input_5 = GuiCtrlCreateInput("", 30, 200, 150, 20,-1,$WS_EX_STATICEDGE)
GUICtrlCreateLabel("六.",200,205,15,15)
GUICtrlSetFont(-1,10)
$Input_6 = GuiCtrlCreateInput("", 220, 200, 150, 20,-1,$WS_EX_STATICEDGE)
GUICtrlCreateLabel("七.",10,235,15,15)
GUICtrlSetFont(-1,10)
$Input_7 = GuiCtrlCreateInput("", 30, 230, 150, 20,-1,$WS_EX_STATICEDGE)
GUICtrlCreateLabel("八.",200,235,15,15)
GUICtrlSetFont(-1,10)
$Input_8 = GuiCtrlCreateInput("", 220, 230, 150, 20,-1,$WS_EX_STATICEDGE)
GUICtrlCreateLabel("九.",10,265,15,15)
GUICtrlSetFont(-1,10)
$Input_9 = GuiCtrlCreateInput("", 30, 260, 150, 20,-1,$WS_EX_STATICEDGE)
GUICtrlCreateLabel("十.",200,265,15,15)
GUICtrlSetFont(-1,10)
$Input_10 = GuiCtrlCreateInput("", 220, 260, 150, 20,-1,$WS_EX_STATICEDGE)
$button_1=GUICtrlCreateButton("禁用以上程序",40,300,80,25,$BS_DEFPUSHBUTTON)
$button_2=GUICtrlCreateButton("启用以上程序",130,300,80,25,$BS_DEFPUSHBUTTON)
$button_3=GUICtrlCreateButton("清空以上内容",220,300,80,25,$BS_DEFPUSHBUTTON)
$button_4=GUICtrlCreateButton("退出程序",310,300,80,25,$BS_DEFPUSHBUTTON)
$about=GUICtrlCreateLabel('---关于我们',10,333)
GUICtrlSetColor(-1,0x6600FF)
GUICtrlSetCursor(-1,0)
GuiSetState()
load_data()
While 1
$1=GUICtrlRead($Input_1)
$2=GUICtrlRead($Input_2)
$3=GUICtrlRead($Input_3)
$4=GUICtrlRead($Input_4)
$5=GUICtrlRead($Input_5)
$6=GUICtrlRead($Input_6)
$7=GUICtrlRead($Input_7)
$8=GUICtrlRead($Input_8)
$9=GUICtrlRead($Input_9)
$10=GUICtrlRead($Input_10)
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE or $msg=$button_4
ExitLoop
case $msg=$button_1
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","DisallowRun","REG_DWORD","00000001")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","1","REG_SZ",$1)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","2","REG_SZ",$2)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","3","REG_SZ",$3)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","4","REG_SZ",$4)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","5","REG_SZ",$5)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","6","REG_SZ",$6)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","7","REG_SZ",$7)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","8","REG_SZ",$8)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","9","REG_SZ",$9)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","10","REG_SZ",$10)
_RunDOS("ecedit /refreshpolicy machine_policy /enforce")
MsgBox(48,"提示","恭喜！你所填写的已知病毒全部免疫成功。")
case $msg=$button_2
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","DisallowRun")
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun")
MsgBox(48,"提示","已经解除病毒免疫功能！")
case $msg=$button_3
GUICtrlSetData($Input_1,"")
GUICtrlSetData($Input_2,"")
GUICtrlSetData($Input_3,"")
GUICtrlSetData($Input_4,"")
GUICtrlSetData($Input_5,"")
GUICtrlSetData($Input_6,"")
GUICtrlSetData($Input_7,"")
GUICtrlSetData($Input_8,"")
GUICtrlSetData($Input_9,"")
GUICtrlSetData($Input_10,"")
Case $msg=$about
Set_About()
EndSelect
WEnd
Exit
Func load_data()
$a=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","1")
$b=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","2")
$c=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","3")
$d=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","4")
$e=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","5")
$f=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","6")
$g=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","7")
$h=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","8")
$i=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","9")
$j=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","10")
GUICtrlSetData($Input_1,$a)
GUICtrlSetData($Input_2,$b)
GUICtrlSetData($Input_3,$c)
GUICtrlSetData($Input_4,$d)
GUICtrlSetData($Input_5,$e)
GUICtrlSetData($Input_6,$f)
GUICtrlSetData($Input_7,$g)
GUICtrlSetData($Input_8,$h)
GUICtrlSetData($Input_9,$i)
GUICtrlSetData($Input_10,$j)
endfunc
Func Set_About()
$GUI_About = GUICreate ("关于我们", 310, 90, Default, Default, $WS_CAPTION, $WS_EX_TOPMOST)
GUICtrlCreateLabel ("冰心痴工作室”一个致力于网吧服务的团队！" & @CRLF & @CRLF & " 冰心痴 制作 QQ：48983200 65363256", 60, 10)
GUICtrlCreateIcon ("shell32.dll", 221, 10, 10)
$GUI_About_OK = GUICtrlCreateButton ("确 定", 135, 60, 75, 23,$BS_FLAT)
GUISetState ()
While 1
$msg = GUIGetMsg ()
Select
Case $msg=$GUI_EVENT_CLOSE OR $msg=$GUI_About_OK
GUIDelete ($GUI_About)
ExitLoop
EndSelect
WEnd
EndFunc
[/code]
页:
[1]