QQ2008正式版安装脚本为主是中文搜搜的解决办法

shijincun

#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

AutoIt 版本: 3.2.13.7 (第二版)
脚本作者: shijincun
        Email: shijincun@hotmail.com
        QQ/TM: 283433758
脚本版本: 3.2.13.7 (第二版)
脚本功能: 自动安装脚本

#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
#NoTrayIcon ;隐藏托盘图标
BlockInput(1) ;禁止键盘鼠标操作
Run("腾讯QQ2008.exe")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\TBH") ;建个空注册表值来让QQ安装程序认为已经安装了QQSOSO
WinWaitActive("QQ2008 正式版 安装","我同意")
ControlClick("QQ2008 正式版 安装","我同意","Button2")
WinWaitActive("QQ2008 正式版 安装","登录前不查杀")
ControlClick("QQ2008 正式版 安装","登录前不查杀","Button6")
WinWaitActive("QQ2008 正式版 安装","登录前不查杀")
ControlClick("QQ2008 正式版 安装","登录前不查杀","Button10")
WinWaitActive("QQ2008 正式版 安装","登录前不查杀")
ControlClick("QQ2008 正式版 安装","登录前不查杀","Button2")
WinWaitActive("QQ2008 正式版 安装","安装超级旋风")
ControlClick("QQ2008 正式版 安装","安装超级旋风","Button4")
ControlClick("QQ2008 正式版 安装","安装超级旋风","Button6")
ControlClick("QQ2008 正式版 安装","安装超级旋风","Button5")
Sleep(300)
ControlClick("QQ2008 正式版 安装","安装超级旋风","Button2")
WinWaitActive("QQ2008 正式版 安装","将QQ.COM设为首页")
ControlClick("QQ2008 正式版 安装","将QQ.COM设为首页","Button4")
ControlClick("QQ2008 正式版 安装","将QQ.COM设为首页","Button5")
ControlClick("QQ2008 正式版 安装","将QQ.COM设为首页","Button6")
Sleep(300)
ControlClick("QQ2008 正式版 安装","将QQ.COM设为首页","Button2")
FileDelete ("C:\Documents and Settings\Administrator\Application Data\Microsoft\Internet Explorer\Quick Launch\QQ游戏.lnk")
FileDelete ("C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\腾讯QQ.lnk")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\TBH");删除QQSOSO空注册表值
BlockInput (0)


以这样就可以完美的解决QQ原版不可以用AU3点QQ的中文搜搜的问题!以此抛砖引玉!

[ 本帖最后由 shijincun 于 2008-11-16 02:01 编辑 ]

stardust

谁帮忙测试下有没有效果啊.