|
本帖最后由 fenhanxue 于 2013-10-17 19:19 编辑 Dim $xy1[2],$xy2[2],$xy3[2],$xy4[2],$xy5[2]
MsgBox(0,"选定鼠标位置","下面开始鼠标位置的初始化设置")
MsgBox(0,"鼠标位置初始化","鼠标移到 位置1,按回车")
$xy1= MouseGetPos()
MsgBox(0,"鼠标位置初始化","鼠标移到 位置2,按回车")
$xy2 = MouseGetPos()
MsgBox(0,"鼠标位置初始化","鼠标移到 位置3,按回车")
$xy3= MouseGetPos()
MsgBox(0,"鼠标位置初始化","鼠标移到 位置4,按回车")
$xy4= MouseGetPos()
MsgBox(0,"鼠标位置初始化","鼠标移到 位置5,按回车")
$xy5 = MouseGetPos()
$fie = FileOpen("location.txt",1)
FileWrite($fie,$xy1[0]&","& $xy1[1]&@CRLF)
FileWrite($fie,$xy2[0]&","& $xy2[1]&@CRLF)
FileWrite($fie,$xy3[0]&","& $xy3[1]&@CRLF)
FileWrite($fie,$xy4[0]&","& $xy4[1]&@CRLF)
FileWrite($fie,$xy5[0]&","& $xy5[1]&@CRLF)
FileClose($fie)
MsgBox(0,"重复移动","下面鼠标将重复刚才选的五个坐标移动")
MouseMove($xy1[0],$xy1[1],10)
MouseMove($xy2[0],$xy2[1],10)
MouseMove($xy3[0],$xy3[1],10)
MouseMove($xy4[0],$xy4[1],10)
MouseMove($xy5[0],$xy5[1],10)
如果用下面的代码,则可以Dim $xy1[2],$xy2[2],$xy3[2],$xy4[2],$xy5[2]
MsgBox(0,"选定鼠标位置","下面开始鼠标位置的初始化设置")
MsgBox(0,"鼠标位置初始化","鼠标移到 位置1,按回车")
$xy1= MouseGetPos()
MsgBox(0,"鼠标位置初始化","鼠标移到 位置2,按回车")
$xy2 = MouseGetPos()
MsgBox(0,"鼠标位置初始化","鼠标移到 位置3,按回车")
$xy3= MouseGetPos()
MsgBox(0,"鼠标位置初始化","鼠标移到 位置4,按回车")
$xy4= MouseGetPos()
MsgBox(0,"鼠标位置初始化","鼠标移到 位置5,按回车")
$xy5 = MouseGetPos()
$fie = FileOpen("location.txt",1)
FileWrite($fie,$xy1[0]&","& $xy1[1]&@CRLF)
FileWrite($fie,$xy2[0]&","& $xy2[1]&@CRLF)
FileWrite($fie,$xy3[0]&","& $xy3[1]&@CRLF)
FileWrite($fie,$xy4[0]&","& $xy4[1]&@CRLF)
FileWrite($fie,$xy5[0]&","& $xy5[1]&@CRLF)
FileClose($fie)
MsgBox(0,"重复移动","下面鼠标将重复刚才选的五个坐标移动")
MouseMove(100,100,10)
MouseMove(200,200,10)
MouseMove(300,300,10)
MouseMove(400,400,10)
MouseMove(500,500,10)
|
|