basketballkun 发表于 2010-8-9 19:54:11

关于最新版360杀毒自动安装脚本

本人写到最后一步，无法确定和把360杀毒的窗口关掉。。
哪位高手能教下呢。。
新手渴望学习{:face (88):}

lzymbz 发表于 2010-8-15 00:11:12

大哥
我服了你
看看我原先发的360杀毒例子吧！

xmzhqw 发表于 2010-8-17 23:25:41

到了最后一步，新版的会复制一个东东，导致窗口无法被激活，等于是动了鼠标或键盘了。我也不知道要怎样解决。

121044246 发表于 2010-9-14 23:12:51

本帖最后由 121044246 于 2010-9-14 23:14 编辑

坤哥..既然你诚心诚意的发问了.那哥哥就大发慈悲的告诉你吧$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,"正在完成")
Sleep(100)
ControlClick($title,"正在完成","完成(&F)")
Sleep(1500)
FileInstall("QMDispatch.dll",@TempDir&"\QMDispatch.dll")
FileInstall("360.bmp",@TempDir&"\360.bmp")
FileInstall("close.bmp",@TempDir&"\close.bmp")
ShellExecute("regsvr32.exe",@TempDir&"\QMDispatch.dll /s")
findImage()
FileDelete(@TempDir&"\QMDispatch.dll")
FileDelete(@TempDir&"\360.bmp")
FileDelete(@TempDir&"\close.bmp")

Func findImage()
      $pos = _FindPic(0, 0, @DesktopWidth, @DesktopHeight, @TempDir&"\360.bmp",1)
                MouseClick("left",$pos, $pos,1,0)
                Sleep(1000)
                $pos1 = _FindPic(0, 0, @DesktopWidth, @DesktopHeight, @TempDir&"\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

kunersc 发表于 2010-9-23 20:45:29

QMDispatch.dll是什么东东？

fuchengwu 发表于 2012-6-7 11:20:12

顶而不懈，遇到好贴决不能放过

ailfawang 发表于 2012-6-7 22:11:35

原来是这样的啊

a7602177 发表于 2012-6-25 15:16:54

应该是用winclose 吧

ldtdn 发表于 2012-7-29 13:36:10

QMDispatch.dll是什么东东？

b05038076 发表于 2013-4-14 17:27:35

QMDispatch.dll是什么东东？

勇者不坏 发表于 2013-6-14 09:58:54

回复 1# basketballkun


    直接杀进程吧
页: [1]
查看完整版本: 关于最新版360杀毒自动安装脚本