以下是代码
Hwnd = Plugin.Window.Find(0, "*1.txt - 记事本")
Delay 1000
Call Plugin.Window.Restore(Hwnd)
Delay 1000
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(sRect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
do
Rem A
Delay 50
MoveTo 78+Ux, 11+Uy
Delay 50
LeftClick 1
Delay 50
KeyPress "BackSpace", 1
IfColor 9 + Ux, 20 + Uy,"FFFFFF",0 Then
KeyPress "Delete", 1
Delay 50
GOTO A
End If
loop
Sub 最后一次()
do
Delay 50
MoveTo 78+Ux, 11+Uy
Delay 50
LeftClick 1
Delay 50
KeyPress "BackSpace", 1
IfColor 9 + Ux, 20 + Uy,"FFFFFF",0 Then
KeyPress "F12", 1
End If
loop
End Sub