| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1887 人关注过本帖
标题:求大神解答如何用VB实现根据设备号自动匹配MAC地址
取消只看楼主 加入收藏
george860811
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2016-1-5
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
求大神解答如何用VB实现根据设备号自动匹配MAC地址
求各位大神帮我解答。
问题:我想用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
搜索更多相关主题的帖子: 如何 
2016-01-05 00:49
george860811
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2016-1-5
收藏
得分:0 
回复 2楼 Artless
没懂大神,请问如何解决
2016-01-05 20:02
george860811
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2016-1-5
收藏
得分:0 
谢谢大神
2016-01-05 22:28
快速回复:求大神解答如何用VB实现根据设备号自动匹配MAC地址
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025035 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved