求各位大神帮我解答。
问题:我想用VB编个SecureCRT5.1脚本,目的是在弹窗中输入设备号就能自动输入相对应的MAC地址。但是我自己编的脚本只在输入设备号为1时,自动输入相对应MAC:031001。但输入2或者3都直接报错"错误的设备号,请核对"。求大神解答
脚本如下:
#$language="VBScript"
#$interface="1.0"
SubMain
OnErrorResumeNext
ConstForReading=1,ForWriting=2,ForAppending=8
Dimfso,MAC1,line,params
DimDeviceNo
Setfso=CreateObject("Scripting.FileSystemObject")
SetMAC1=fso.OpenTextFile("c:\2.ini",Forreading,False)
crt.Screen.Synchronous=True
line=MAC1.ReadLine
params=Split(line)
crt.Screen.WaitForString"或批处理文件。"
DeviceNo=inputbox("请输入设备号","设备号输入对话框")
IfDeviceNo=params(0)Then
crt.Screen.Sendparams(1)&vbcr
Else
MsgBox"错误的设备号,请核对"
EndIf
crt.Screen.Synchronous=False
EndSub
2.ini文件中格式如下:
1031001
2031002
3031003
分 -->
|