按键精灵脚本-提取

Dim a, b, c, d
MessageBox "欢迎使用！确认开始。"
a = InputBox("请输入提取数量", 0, 0)
b = a + 0
c = InputBox("请输入提交延时时间（秒）", 0, 0)
d = (c + 0)*1000
MessageBox "你提取的数量是：" & b & "条" & chr(13) & "你输入的提交延时为：" & c & "秒"
Call Plugin.Office.OpenXls("D:\text.xls")
Delay 1000
For i = 1 to b
id = Plugin.Office.ReadXls(1, i, 1)
tr = Plugin.Office.ReadXls(1, i, 2)
 MoveTo 408, 225
  Delay 200
  RightClick 1
  Delay 200
  MoveTo 606, 477
  LeftDoubleClick 1
  Delay 200
  LeftClick 1
  Delay 200
  SayString id
  Delay 200
   MoveTo 596, 520
   LeftDoubleClick 1
   Delay 200
   LeftClick 1
   Delay 200
   SayString tr
   Delay 200
    MoveTo 1167, 259
    LeftDoubleClick 1
    SayString tr
    Delay 200
     MoveTo 285, 375
     LeftClick 1
    Delay 3500
     MoveTo 1310, 123
     LeftClick 1
    Delay d
Next
Call Plugin.Office.CloseXls()
MessageBox "工作已结束！请检查数据后重新开始。"
ExitScript

完成功能：从xls表格中提取数据，复制到对应的文本框，实现自动填入提交。