360杀毒自动安装(支持完成后关闭确定窗口和主窗口)

121044246 · 发表于 2010-9-14 23:24:29

本帖最后由 121044246 于 2010-9-17 20:26 编辑

因为集成了QMDispatch.dll 导致装完以后脚本被360误杀，只好把QMDispatch.dll 跟脚本分开，下载附件中的QMDispatch.rar解压到脚本同目录即可解决360误杀的问题

$title= " 360 杀毒"
WinWait($title,"欢迎使用")
Sleep(100)
ControlClick($title,"欢迎使用","下一步(&N) >")

WinWait($title,"许可证协议")
Sleep(100)
ControlClick($title,"许可证协议","我接受(&I)")

WinWait($title,"选择安装位置")
Sleep(100)
;ControlSetText ($title,"请选择安装位置","Edit1","d:\Program Files\360\360safe")
ControlClick($title,"选择安装位置","下一步(&N) >")

WinWait($title,"选择“开始菜单”文件夹")
Sleep(100)
ControlClick($title,"选择“开始菜单”文件夹","安装(&I)")
;WinWait($title,"360安全浏览器安装设置")
;Sleep(100)
;ControlClick($title,"360安全浏览器安装设置","安装360安全浏览器3.0正式版本 （2.6M）")
;ControlClick($title,"360安全浏览器安装设置","下一步(&N) >")
WinWait($title,"正在完成")
Sleep(100)
;~ ControlClick($title,"正在完成","运行 360杀毒(&R)")
;~ Sleep(100)
ControlClick($title,"正在完成","完成(&F)")
Sleep(1500)
ShellExecuteWait("QMDispatch.exe");将QMDispatch.exe与脚本放在同一个目录
ShellExecute("regsvr32.exe",@SystemDir&"\QMDispatch.dll /s")
findImage()
FileDelete(@SystemDir&"\360.bmp")
FileDelete(@SystemDir&"\close.bmp")

Func findImage()
        $pos = _FindPic(0, 0, @DesktopWidth, @DesktopHeight, @SystemDir&"\360.bmp",1)
                MouseClick("left",$pos[0], $pos[1],1,0)
                Sleep(1000)
                $pos1 = _FindPic(0, 0, @DesktopWidth, @DesktopHeight, @SystemDir&"\close.bmp",1)
                MouseClick("left",$pos1[0], $pos1[1],1,0)
EndFunc   ;==>findImage

        
Func _FindPic($iLeft, $iTop, $iRight, $iBottom, $szFileName, $fSimilar)
        Dim $pos[2]
        $obj = ObjCreate("QMDispatch.QMFunction")
        $foundpixel = $obj.FindPic($iLeft, $iTop, $iRight, $iBottom, $szFileName, $fSimilar)
        $pos[0] = Int($foundpixel / 8192)
        $pos[1] = Mod($foundpixel, 8192)
        Return $pos
EndFunc   ;==>FindPic

bsyr2009 · 发表于 2010-9-19 09:00:28

竟然没人顶，我来看一下。

adddddddd · 发表于 2010-9-20 12:09:07

竟然没人顶，我来看一下

kunersc · 发表于 2010-9-23 11:15:19

谢谢楼主,支持一下

w1314ich · 发表于 2010-9-25 11:04:49

学习了 ~~~~

6678720 · 发表于 2010-9-25 11:49:07

感谢楼主分享，学习了。

dnvplj · 发表于 2010-9-26 17:51:48

您的代码和标题不相符？

zhqh · 发表于 2010-9-30 11:35:17

还不错.谢谢楼主

zhqh · 发表于 2010-9-30 11:44:23

看看好不好用.谢谢

yanjun1368 · 发表于 2010-10-21 00:19:34

回复 1# 121044246

哦为了下啊

yanjun1368 · 发表于 2010-10-21 00:20:06

不回没钱下

yanjun1368 · 发表于 2010-10-21 00:20:17

不回没钱下

再来句

yanjun1368 · 发表于 2010-10-21 00:20:48

不回没钱下

再来句

再来句吧

5238869 · 发表于 2010-10-21 03:15:33

竟然没人顶，我来看一下

yanjun1368 · 发表于 2010-10-21 07:18:32

项啊，正在找360杀毒，自己做的不知道为啥不能用。

		自动登录	找回密码
密码			加入

[原创] 360杀毒自动安装(支持完成后关闭确定窗口和主窗口)

本帖子中包含更多资源