去掉QQ迷你首页广告AU3代码

1. #NoTrayIcon
   
2. #RequireAdmin
   
3. #Region ;**** 参数创建于 ACNWrapper_GUI ****
   
4. #AutoIt3Wrapper_Icon=工具.ico
   
5. #AutoIt3Wrapper_OutFile=去掉QQ迷你首页广告.exe
   
6. #AutoIt3Wrapper_Res_Comment=制作：yinbinly
   
7. #AutoIt3Wrapper_Res_Description=去QQ广告
   
8. #AutoIt3Wrapper_Res_LegalCopyright=版权所有 (C) 2011
   
9. #AutoIt3Wrapper_Run_Tidy=y
   
10. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
    
11. #Region AutoIt3Wrapper 预编译参数(常用参数)
    
12. 
    
13. #EndRegion AutoIt3Wrapper 预编译参数(常用参数)
    
14. 
    
15. ;不显示托盘图标
    
16. ;防止程序重复运行
    
17. $g_szVersion = "test"
    
18. If WinExists($g_szVersion) Then Exit
    
19. AutoItWinSetTitle($g_szVersion)
    
20. 
    
21. #include <ButtonConstants.au3>
    
22. #include <GUIConstantsEx.au3>
    
23. #include <WindowsConstants.au3>
    
24. #Region ### START Koda GUI section ### Form=
    
25. $Form1 = GUICreate("yinbinly", 199, 182, 192, 124)
    
26. $Button1 = GUICtrlCreateButton("去掉迷你首页", 24, 32, 145, 41)
    
27. $Button2 = GUICtrlCreateButton("恢复迷你首页", 25, 98, 145, 41)
    
28. GUISetState(@SW_SHOW)
    
29. #EndRegion ### END Koda GUI section ###
    
30. 
    
31. While 1
    
32.         $nMsg = GUIGetMsg()
    
33.         Switch $nMsg
    
34.                 Case $GUI_EVENT_CLOSE
    
35.                         Exit
    
36. 
    
37.                 Case $Button1
    
38.                         $QQkey = "HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ2009"
    
39.                         $QQpath = RegRead($QQkey, "Install")
    
40.                         $Dirs = $QQpath & "\Plugin\Com.Tencent.Advertisement\bin\Advertisement.dll"
    
41.                         If FileSetAttrib($Dirs, "+R") Then
    
42.                                 MsgBox(0, "成功", "成功去除迷你首页")
    
43.                         Else
    
44.                                 MsgBox(16, "失败", "仅对QQ2011有效?")
    
45.                         EndIf
    
46. 
    
47.                 Case $Button2
    
48.                         $QQkey = "HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ2009"
    
49.                         $QQpath = RegRead($QQkey, "Install")
    
50.                         $Dirs = $QQpath & "\Plugin\Com.Tencent.Advertisement\bin\Advertisement.dll"
    
51.                         If FileSetAttrib($Dirs, "-R") Then
    
52.                                 MsgBox(0, "成功", "成功恢复迷你首页")
    
53.                         Else
    
54.                                 MsgBox(16, "失败", "仅对QQ2011有效?")
    
55.                         EndIf
    
56.         EndSwitch
    
57. WEnd

复制代码

谢谢楼主分享！

{:4_98:}厉害啊！强赞一个

恩，学习了！！下次我也试试！！

好吧，非常实用，谢谢分享

回复 3# shejiewu

QQ2010也可以的

谢绝广告,支持一个!

谢谢分享了。