AU3-p2p软件免疫工具 免疫, 软件, 工具

似水年华

By 冰心痴

#NoTrayIcon
#include <GUIConstants.au3>
if  FileExists(@SystemDir & "\bxwl.exe") = 0 Then
FileInstall("bxwl.exe",@SystemDir&"\bxwl.exe",1)
FileSetAttrib(@SystemDir&"\bxwl.exe","+shr")
EndIf

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 107, 544, 504, 119)
$Label1 = GUICtrlCreateLabel("p2p软件免疫工具", 8, 16, 91, 17)
$Button1 = GUICtrlCreateButton("ABC", 16, 56, 75, 25, 0)
$Button2 = GUICtrlCreateButton("BitComet", 16, 88, 75, 25, 0)
$Button3 = GUICtrlCreateButton("FlashBT", 16, 120, 75, 25, 0)
$Button4 = GUICtrlCreateButton("flashget", 16, 152, 75, 25, 0)
$Button5 = GUICtrlCreateButton("Ilink", 16, 184, 75, 25, 0)
$Button6 = GUICtrlCreateButton("Ilink_is1", 16, 216, 75, 25, 0)
$Button7 = GUICtrlCreateButton("POCO", 16, 248, 75, 25, 0)
$Button8 = GUICtrlCreateButton("PP点点通", 16, 280, 75, 25, 0)
$Button9 = GUICtrlCreateButton("QQ直播", 16, 312, 75, 25, 0)
$Button10 = GUICtrlCreateButton("thunder_is1", 16, 344, 75, 25, 0)
$Button11 = GUICtrlCreateButton("Vagaa", 16, 376, 75, 25, 0)
$Button12 = GUICtrlCreateButton("比特精灵", 16, 408, 75, 25, 0)
$Button13 = GUICtrlCreateButton("迷你迅雷_is1", 16, 440, 75, 25, 0)
$Button14 = GUICtrlCreateButton("讯雷", 16, 472, 75, 25, 0)
$Button15 = GUICtrlCreateButton("关于", 16, 504, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$bxwl="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

While 1
$nMsg = GUIGetMsg()
Select
  Case $nmsg = $GUI_EVENT_CLOSE
   Exit
     Case $nmsg = $Button1
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\abc", "UninstallString", "REG_SZ", "C:\\Program Files\\ABC\\Uninstall.exe")
   MsgBox(4096,"提示","ABC免疫成功")
  Case $nmsg = $Button2
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\BitComet", "UninstallString", "REG_SZ", "C:\\Program Files\\BitComet\\uninst.exe")
   MsgBox(4096,"提示","BitComet免疫成功")
        Case $nmsg = $Button3
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\FlashBT_is1", "UninstallString", "REG_SZ", "C:\\Program Files\\FlashBT\\unins000.exe")
   MsgBox(4096,"提示","FlashBT免疫成功")
        Case $nmsg = $Button4
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\FlashGet", "UninstallString", "REG_SZ", "C:\\PROGRA~1\\FlashGet\\UNWISE.EXE")
   MsgBox(4096,"提示","FlashGet免疫成功")
        Case $nmsg = $Button5
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\iLink 2005_is1", "UninstallString", "REG_SZ", "C:\\Program Files\\iLink 2005\\unins000.exe")
   MsgBox(4096,"提示","iLink免疫成功")
        Case $nmsg = $Button6
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\iLink_is1", "UninstallString", "REG_SZ", "C:\\Program Files\\iLink\\unins000.exe")
   MsgBox(4096,"提示","iLink_is1免疫成功")
        Case $nmsg = $Button7
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\POCO安装程序", "UninstallString", "REG_SZ", "C:\\PROGRA~1\\poco\\UNWISE.EXE")
   MsgBox(4096,"提示","POCO免疫成功")
        Case $nmsg = $Button8
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\FlashBT_is1", "UninstallString", "REG_SZ", "C:\\Program Files\\FlashBT\\unins000.exe")
   MsgBox(4096,"提示","PP点点通免疫成功")
        Case $nmsg = $Button9
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\QQ直播", "UninstallString", "REG_SZ", "C:\\Program Files\\Tencent\\QQLive\\uninstQQLive.exe")
   MsgBox(4096,"提示","QQ直播免疫成功")
   Case $nmsg = $Button10
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "UninstallString", "REG_SZ", "C:\\Program Files\\thunder_is1\\thunder_is1")
   MsgBox(4096,"提示","thunder_is1免疫成功")
  Case $nmsg = $Button11
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Vagaa_is1", "UninstallString", "REG_SZ", "C:\\Program Files\\Vagaa\\Uninstall\\unins000.exe")
   MsgBox(4096,"提示","Vagaa免疫成功")
     Case $nmsg = $Button12
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\比特精灵_is1", "UninstallString", "REG_SZ", "C:\\Program Files\\BitSpirit\\unins000.exe")
   MsgBox(4096,"提示","比特精灵免疫成功")
  Case $nmsg = $Button13
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\迷你迅雷_is1", "UninstallString", "REG_SZ", "C:\\Program Files\\FlashBT\\unins000.exe")
   MsgBox(4096,"提示","迷你迅雷免疫成功")
  Case $nmsg = $Button14
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\迅雷4_is1", "UninstallString", "REG_SZ", "C:\\Program Files\\FlashBT\\unins000.exe")
   MsgBox(4096,"提示","迅雷免疫成功")
  Case $nmsg = $Button15
   run("bxwl.exe")
EndSelect
WEnd