Do
k = WaitKey
If k = 17 Then
For 20
KeyDown 17, 1
KeyPress 88, 1
KeyUp 17, 1
Next
End If
Loop
希望对您有帮助。
key = WaitKey
If key = 17 Then
KeyDown “ctrl”, 1
KeyPress “x”, 1
KeyUp "ctrl", 1
KeyDown “ctrl”, 1
KeyPress “x”, 1
KeyUp "ctrl", 1
KeyDown “ctrl”, 1
KeyPress “x”, 1
KeyUp "ctrl", 1
KeyDown “ctrl”, 1
KeyPress “x”, 1
KeyUp "ctrl", 1
KeyDown “ctrl”, 1
KeyPress “x”, 1
KeyUp "ctrl", 1
复制20边