360杀毒自动安装(支持完成后关闭确定窗口和主窗口)
本帖最后由 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, $pos,1,0)
Sleep(1000)
$pos1 = _FindPic(0, 0, @DesktopWidth, @DesktopHeight, @SystemDir&"\close.bmp",1)
MouseClick("left",$pos1, $pos1,1,0)
EndFunc ;==>findImage
Func _FindPic($iLeft, $iTop, $iRight, $iBottom, $szFileName, $fSimilar)
Dim $pos
$obj = ObjCreate("QMDispatch.QMFunction")
$foundpixel = $obj.FindPic($iLeft, $iTop, $iRight, $iBottom, $szFileName, $fSimilar)
$pos = Int($foundpixel / 8192)
$pos = Mod($foundpixel, 8192)
Return $pos
EndFunc ;==>FindPic 竟然没人顶,我来看一下。 竟然没人顶,我来看一下 谢谢楼主,支持一下 学习了 ~~~~ 感谢楼主分享,学习了。 您的代码和标题不相符? 还不错.谢谢楼主 看看好不好用.谢谢 回复 1# 121044246
哦为 了下啊 不回没钱下 不回没钱下
再来句 不回没钱下
再来句
再来句吧 竟然没人顶,我来看一下 项啊,正在找360杀毒,自己做的不知道为啥不能用。