按键精灵电话完美版脚本源码

脚本附件：宽带.bmp, 和悦.bmp, 和悦打开.bmp, 电话.bmp

运行环境：分辨率：1024x768 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.21.10865

@774006118    2012/10/18

Rem 开始  
Hwnd = Plugin.Window.MousePoint()  
for 22  
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)  
Delay 1000  
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)  
Delay 13000  
Call Plugin.Bkgnd.KeyPress(Hwnd, 27)  
next  
Delay 1000  
VBSBegin   
   Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")  
    Set List = obj.ExecQuery ("Select * from Win32_Process Where Name = 'HeyyoClient.exe'")  
    For Each objProcess in List  
   objProcess.Terminate()  
   Next  
VBSEnd  
Delay 2000  
FindPic 0,0,1024,768,"Attachment:\宽带.bmp",0.9,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX, intY  
    Delay 1000  
    RightClick 1  
    Delay 1000  
    KeyPress "O", 1  
    Delay 2000  
        RightClick 1  
        Delay 1000  
        KeyPress "O", 1  
    Delay 1000  
    KeyPress "Enter", 1  
End If  
Delay 3000  
FindPic 0,0,1024,768,"Attachment:\和悦.bmp",0.9,intX,intY  
If intX > 0 And intY > 0 Then  
    MoveTo intX, intY  
    Delay 1000  
    RightClick 1  
    Delay 1000  
    KeyPress "O", 1  
End If  
  
Delay 8000  
FindPic 0,0,1024,768,"Attachment:\电话.bmp",0.9,intX,intY  
If intX > 0 And intY > 0 Then  
MoveTo intX, intY  
    Delay 1000  
    LeftClick 1  
End If  
Delay 2000  
Goto 开始