Question

按键精灵代码修改成易语言代码

HwndEx = Plugin.Window.Search("ScandAll PRO")
Hwnd = Split(HwndEx, "|")
Window = Plugin.Window.IsWindow(Hwnd(0))
If Window = 1 Then
KeyDown 18, 1
KeyPress 83, 1
KeyUp 18, 1
KeyPress "S", 1
UserVar Var1=0 "等待设置窗口"
Delay Var1
KeyPress "P", 1
KeyDown "Shift", 1
KeyPress "Tab", 1
KeyUp "Shift", 1
KeyPress "Right", 1
KeyPress "Tab", 3
KeyPress "Up", 6
KeyPress "Enter", 1
Delay 50
KeyPress "Enter", 1
End if

如何将这段代码演绎成易语言代码

Answer 1

.版本 2
.程序集 窗口程序集1
.程序集变量 窗口句柄, 整数型
.子程序 _时钟1_周期事件
.局部变量 Var1, 整数型
键盘按下 (窗口句柄, 18, ) ' 等同于 KeyDown 18, 1
键盘模拟 (窗口句柄, 83, 1, ) ' 等同于KeyPress 83, 1
键盘弹起 (窗口句柄, 18, ) ' 等同于KeyUp 18, 1
键盘模拟 (窗口句柄, 83, 1, ) ' 等同于KeyPress "S", 1
Var1 ＝ 0 ' 等同于UserVar Var1=0 "等待设置窗口" 这句话我不太能理解 是不是就是赋值给Var1 值为0的意思
延时 (Var1) ' 等同于Delay Var1
键盘模拟 (窗口句柄, 80, 1, ) ' 等同于KeyPress "P", 1
键盘按下 (窗口句柄, 16, ) ' 等同于KeyDown "Shift", 1
键盘模拟 (窗口句柄, 9, 1, ) ' 等同于KeyPress "Tab", 1
键盘弹起 (窗口句柄, 16, ) ' 等同于KeyUp "Shift", 1
键盘模拟 (窗口句柄, 39, 1, ) ' 等同于KeyPress "Right", 1
键盘模拟 (窗口句柄, 9, 3, ) ' 等同于KeyPress "Tab", 3
键盘模拟 (窗口句柄, 33, 6, ) ' 等同于KeyPress "Up", 6
键盘模拟 (窗口句柄, 13, 1, ) ' 等同于KeyPress "Enter", 1
延时 (50) ' 等同于Delay 50
键盘模拟 (窗口句柄, 13, 1, ) ' 等同于KeyPress "Enter", 1
结束 () ' 等同于End if

.子程序 _按钮1_被单击
窗口句柄 ＝ 取句柄 (编辑框1.内容, 编辑框2.内容)
.如果 (窗口句柄 ＝ -1)
信息框 (“请准确输入进程名或窗口标题。”, 0, “没有获取到句柄”)
.否则
.如果结束
时钟1.时钟周期 ＝ 100 ' 这里的100是毫秒，意思是多长时间循环一次上面的时钟事件
.子程序 _按钮2_被单击
时钟1.时钟周期 ＝ 0 ' 周期为0代表不循环