脚本附件:宽带.bmp, 和悦.bmp, 和悦打开.bmp, 电话.bmp
运行环境:分辨率:1024×768 色深: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 开始
按键精灵 拨打电话
按键精灵打电话