酷狗2015简单粗暴安装脚本，但实用
本帖最后由 ila 于 2015-2-12 23:01 编辑大家新年好，我来发帖弄点金币升级。
If Run(@ScriptDir & "\kugou7680.1422496759.exe") Then
Dim $hwnd = WinWait("酷狗音乐安装程序")
WinActivate($hwnd)
WinWaitActive($hwnd)
Opt('MouseCoordMode', 2)
$a = ControlGetPos($hwnd,"","")
Sleep(1000)
MouseClick('left',$a+503,$a+360,1,10);自定义安装按钮相对坐标
Sleep(500)
MouseClick('left',$a+178,$a+319,1,10)
Sleep(500)
MouseClick('left',$a+285,$a+316,1,10)
Sleep(500)
MouseClick('left',$a+386,$a+353,1,10);立即安装
Sleep(500)
While 1
IfPixelGetColor($b+46,$b+219)=16777215 Then
Sleep(100)
ExitLoop
EndIf
WEnd
MouseClick('left',$a+31,$a+232,1,10)
Sleep(500)
MouseClick('left',$a+31,$a+262,1,10)
Sleep(500)
MouseClick('left',$a+31,$a+292,1,10)
Sleep(500)
MouseClick('left',$a+360,$a+332,1,10)
Sleep(500)
Else
MsgBox(0,"安装出错","找不到安装文件kugou7680.1422496759.exe，请把安装文件放在本程序同个文件夹",3)
EndIf 隐约想起，简单粗暴，还不带套。 支持..................
页:
[1]