QQ农牧偷匪去广告补丁

给大家一个AU3源码补丁，以后不再对主程序进行去广告更新，补丁原则上支持最新版的QQ农牧偷匪。

1. 
   
2. #include <ButtonConstants.au3>
   
3. #include <GUIConstantsEx.au3>
   
4. #include <StaticConstants.au3>
   
5. #include <WindowsConstants.au3>
   
6. #include <IE.au3>
   
7. Opt("TrayMenuMode",1);取消脚本暂停
   
8. FileInstall("LOGO.jpg", @TempDir & "")
   
9. #Region ### START Koda GUI section ### Form=
   
10. $Form1 = GUICreate("QQ农牧偷匪去广告补丁", 247, 120, 192, 124)
    
11. GUISetBkColor(0xFFFFFF)
    
12. $Pic1 = GUICtrlCreatePic(@TempDir & "\LOGO.jpg", 0, 0, 246, 65, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    
13. $Button1 = GUICtrlCreateButton("访问论坛", 4, 77, 75, 33)
    
14. $Button2 = GUICtrlCreateButton("去广告", 85, 77, 75, 33)
    
15. $Button3 = GUICtrlCreateButton("退  出", 167, 77, 75, 33)
    
16. GUISetState(@SW_SHOW)
    
17. #EndRegion ### END Koda GUI section ###
    
18. While 1
    
19. $nMsg = GUIGetMsg()
    
20. Switch $nMsg
    
21.   Case $GUI_EVENT_CLOSE
    
22.    FileDelete(@TempDir & "\LOGO.jpg")
    
23.    Exit
    
24.   Case  $Button1
    
25. $oIE = _IECreate ("https://www.ampc8.com/")   
    
26.   Case  $Button2
    
27. RunWait(@ComSpec & ' /c ' & '@echo off', '', 0)
    
28. RunWait(@ComSpec & ' /c ' & 'mode con cols=36 lines=5', '', 0)
    
29. RunWait(@ComSpec & ' /c ' & 'rem ', '', 0)
    
30. RunWait(@ComSpec & ' /c ' & 'echo HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet ', '', 0)
    
31. RunWait(@ComSpec & ' /c ' & 'Settings\ZoneMap\Domains [1 7] >regini.ini', '', 0)
    
32. RunWait(@ComSpec & ' /c ' & 'regini regini.ini', '', 0)
    
33. RunWait(@ComSpec & ' /c ' & 'reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet ', '', 0)
    
34. RunWait(@ComSpec & ' /c ' & 'Settings\ZoneMap\Domains\qqceo.net\www" /v http /t reg_dword /d "0000004" /f', '', 0)
    
35. RunWait(@ComSpec & ' /c ' & 'reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet ', '', 0)
    
36. RunWait(@ComSpec & ' /c ' & 'Settings\ZoneMap\Domains\6k6.com\ad" /v http /t reg_dword /d "0000004" /f', '', 0)
    
37. RunWait(@ComSpec & ' /c ' & 'reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet ', '', 0)
    
38. RunWait(@ComSpec & ' /c ' & 'Settings\ZoneMap\Domains\qqceo.net\ad" /v http /t reg_dword /d "0000004" /f', '', 0)
    
39. RunWait(@ComSpec & ' /c ' & 'rem ', '', 0)
    
40. RunWait(@ComSpec & ' /c ' & 'echo HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet ', '', 0)
    
41. RunWait(@ComSpec & ' /c ' & 'Settings\ZoneMap\Domains [2 8] >regini.ini', '', 0)
    
42. RunWait(@ComSpec & ' /c ' & 'del regini.ini/q/a/f ', '', 0);调用DOS命令删除regini.ini文件
    
43. ;Run(@ComSpec&' /c ping 127.0.0.1 -n 3&del /q "'&@ScriptFullPath&'"',@ScriptDir,@SW_HIDE);删除脚本程序自身
    
44. MsgBox(0, "提示:", "去广告成功，感谢您的使用.")
    
45.      Case  $Button3
    
46.   FileDelete(@TempDir & "\LOGO.jpg")
    
47.    Exit
    
48. EndSwitch
    
49. WEnd
    

复制代码

这个软件下下来看看。

看看，谢谢

真的管用么？？

看看AU3写的是咋样的

正需要这个东西，谢谢了。

路过，看看，顶............

正需要这个东西，谢谢了。