酷狗2015简单粗暴安装脚本，但实用

ila

大家新年好，我来发帖弄点金币升级。

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[0]+503,$a[1]+360,1,10);自定义安装按钮相对坐标
Sleep(500)
MouseClick('left',$a[0]+178,$a[1]+319,1,10)
Sleep(500)
MouseClick('left',$a[0]+285,$a[1]+316,1,10)
Sleep(500)
MouseClick('left',$a[0]+386,$a[1]+353,1,10);立即安装
Sleep(500)
While 1
        If  PixelGetColor($b[0]+46,$b[1]+219)=16777215 Then
       Sleep(100)
        ExitLoop
        EndIf
WEnd
    MouseClick('left',$a[0]+31,$a[1]+232,1,10)
        Sleep(500)
        MouseClick('left',$a[0]+31,$a[1]+262,1,10)
        Sleep(500)
        MouseClick('left',$a[0]+31,$a[1]+292,1,10)
        Sleep(500)
    MouseClick('left',$a[0]+360,$a[1]+332,1,10)
        Sleep(500)
Else
MsgBox(0,"安装出错","找不到安装文件kugou7680.1422496759.exe，请把安装文件放在本程序同个文件夹",3)
 EndIf

lpxx

隐约想起，简单粗暴，还不带套。

oanily

支持..................