模拟鼠标输入一卡通

很简单的一个过程
完全是模拟鼠标运动及输入操作
当发现屏幕变化时
自动运行程序输入计算机名及密码
中间屏蔽了鼠标与键盘输入

#NoTrayIcon
;等待999｜713坐标位置上的象素点的颜色值为黑色
While PixelGetColor ( 999 , 713 )<>0
Sleep(10)
WEnd
;屏蔽鼠标与键盘输入
BlockInput(1)
;设置函数运行方式
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
;运行C:\Program Files\HC\HCard\runme1.exe应用程序
Run('C:\Program Files\HC\HCard\runme1.exe')
;等待Form1窗口出现
WinWait("Form1","关机")
;如果Form1不是当前活动激活为当前活动窗口
If Not WinActive("Form1","关机") Then WinActivate("Form1","关机")
WinWaitActive("Form1","关机")
;移动鼠标指针到406/477位置
MouseMove(406,477,1)
;左击一下
MouseDown("left")
MouseUp("left")
Sleep(10)
;移动鼠标指针到676/366位置
MouseMove(676,366,1)
;左键移动到525/364位置
MouseDown("left")
MouseMove(525,364,1)
MouseUp("left")
Sleep(10)
;读取[url=file://eastv/droom/card.ini]\\eastv\droom\card.ini[/url]文件里面的[card]段里的计算机名字等于的值
$card=IniRead('\\eastv\droom\card.ini','card',@ComputerName,'')
$password='123456'
;发送上面[card]段里的计算机名字等于的值
Send($card)
;移动鼠标指针到609/402位置
MouseMove(609,402,1)
;左击一下
MouseDown("left")
MouseUp("left")
Sleep(10)
;发送$password＝123456并回车一下
Send($password&"{ENTER}")
;允许鼠标与键盘输入
BlockInput(0)