求各位大神幫我解答。
問題：我想用VB編個SecureCRT 5.1腳本，目的是在彈窗中輸入設備號就能自動輸入相對應的MAC地址。但是我自己編的腳本只在輸入設備號為1時，自動輸入相對應MAC：031001。但輸入2或者3都直接報錯 "錯誤的設備號，請核對" 。求大神解答
腳本如下：
# $language = "VBScript"
# $interface = "1.0"
Sub Main
On Error Resume Next
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso,MAC1,line,params
Dim DeviceNo
Set fso = CreateObject("Scripting.FileSystemObject")
Set MAC1 = fso.OpenTextFile("c:\2.ini",Forreading, False)
crt.Screen.Synchronous = True
line = MAC1.ReadLine
params = Split (line)
crt.Screen.WaitForString "或批處理檔案。"
DeviceNo = inputbox("請輸入設備號","設備號輸入對話框")
If DeviceNo = params(0) Then
crt.Screen.Send params(1) & vbcr
Else
MsgBox "錯誤的設備號，請核對"
End If
crt.Screen.Synchronous = False
End Sub
2.ini檔案中格式如下：
1 031001
2 031002
3 031003
uj5u.com熱心網友回復：
求大神解答下uj5u.com熱心網友回復：
Split (line)?代碼好像就不對吧
Split (line," ")才行吧.
另外你這個代碼只讀取了第一行
line = MAC1.ReadLine
后面的又沒有繼續讀取下去
當然有問題了.
line2 = reader.ReadLine() '讀第二行
line3 = reader.ReadLine() '讀第三行
然后再比較吧
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/81834.html
標籤：VB基礎類