求神解

精於家電維修

[ScriptOption]
Description=未定义脚本
BeginHotkey= 36
BeginHotkeyMod= 0
EndHotKey= 35
EndHotKeyMod= 0
Enable= 1
RunOnce= 0
Type= 2
Number= 2147483647
ScriptFormat= 0
[Comment]
【脚本功能】：
[InitVar]

[VBSScriptCode]
[Main]
Sub Main() '脚本主程序，请在此下写入主程序代码
Dim Atime
Dim Files,Ini
Files = HSys.AppPath & "\配置文件.Ini"
Ini = "变量调用"
Dprint Files
If HFile.dirFile(Files) = "" Then
ERRTXT = 1
Exit Sub
End If
Atime = HFile.ReadINI(Files,Ini,"Atime")
MoveToH 449,91 '从低到高
LeftClickH 1
Delay Atime
MoveToH 476,91 '原来
LeftClickH 1
Delay Atime
FindPic 23,158,164,184,Path & "\bnb\001.bmp",0.9,LeftX,TopY
If LeftX>=0 Then
Delay 50
MoveToH 454,169 '购买
LeftClickH 1
Delay 50
MoveToH 341,429 '确定购买
LeftClickH 1
Delay 50
KeyPressH "Enter",1 '按键<Enter>执行1次
Delay 50
Else
Delay 1
End If
End Sub '脚本主程序结束

[MainEnd]
[VBSLib]

新视达

是什么程序啊，是批处理吗？