看看我的第一个程序，不完善，大家指点 - VB6论坛

问题点数：0 回复次数：3

看看我的第一个程序，不完善，大家指点

我要编一个修改本机ip地址的程序，可是不太会，只是刚刚把界面编出来了，核心的东西：修改ip地址以及得到本机ip地址的代码真的一窍不通，请大家给个指点吧。

Public pc_no As String '定义字符型变量：机器号，就是每台电脑的ip地址的最后一个数字。
Option Explicit

Private Sub Command1_Click()
Dim test_pc_ip As Integer '测试一下输入的是不是2到253间的整数
test_pc_ip = CInt(pc_ip.Text)
If test_pc_ip < 2 Or test_pc_ip > 253 Then
MsgBox ("请输入2到253之间的整数！！")
Else
pc_no = pc_ip.Text '把客户输入的数字赋值给变量pc_no：机器号
End If
End Sub

Private Sub wtcmd_Click()
Label1.Caption = "本地IP是：192.168.0." + pc_no
End Sub

Private Sub ttcmd_Click()
Label1.Caption = "本地IP是：192.168.1." + pc_no
End Sub

Private Sub dxcmd_Click()
Label1.Caption = "本地IP是：192.168.2." + pc_no
End Sub

另外，下面这段代码是判定客户输入的数字必须在2到253之间，可是当客户输入字母的时候这代码无法判定，需要添加怎么样的代码才能判定呢？
如下：
Private Sub Command1_Click()
Dim test_pc_ip As Integer '测试一下输入的是不是2到253间的整数
test_pc_ip = CInt(pc_ip.Text)
If test_pc_ip < 2 Or test_pc_ip > 253 Then
MsgBox ("请输入2到253之间的整数！！")
Else
pc_no = pc_ip.Text '把客户输入的数字赋值给变量pc_no：机器号
End If
End Sub

[此贴子已经被作者于2005-11-20 11:21:28编辑过]

搜索更多相关主题的帖子: 测试　一窍不通　台电脑　 ip地址　

第 2 楼

得分:0

网卡IP?

快上课了……

第 3 楼

得分:0

netsh interface ip set address name="本地连接" static [a] [b] [c] 1

[a] 是 IP 地址，[b] 是子网掩码，[c] 是网关，[b] [c] 参照你在 Windows TCP/IP 的设置。
注意: [a] [b] [c] 1 之间各有一个空格。

在 VB 中用:
Shell "netsh interface ip set address name=""本地连接"" static [a] [b] [c] 1", vbNormalFocus
如果你希望使用者能看到设置 IP 成功的信息，就不要去掉 , vbNormalFocus。

第 4 楼

得分:0

以下是引用leon2在2005-11-20 12:08:00的发言：
netsh interface ip set address name="本地连接" static [a] [b] [c] 1

[a] 是 IP 地址，[b] 是子网掩码，[c] 是网关，[b] [c] 参照你在 Windows TCP/IP 的设置。
注意: [a] [b] [c] 1 之间各有一个空格。

在 VB 中用:
Shell "netsh interface ip set address name=""本地连接"" static [a] [b] [c] 1", vbNormalFocus
如果你希望使用者能看到设置 IP 成功的信息，就不要去掉 , vbNormalFocus。

我试了试shell 这个语句，已经成功，可是另外一个问题困扰着我，就是每台机器都有一个ip地址，例如：192.168.1.231，这个231是通过用户界面输入的一个变量，那么怎么才能让231这个变量传递到shell语句之内呢？
thanks a lot