| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 501 人关注过本帖
标题:看看我的第一个程序,不完善,大家指点
只看楼主 加入收藏
iamdigger
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2005-11-17
收藏
 问题点数: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地址 
2005-11-20 11:20
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
网卡IP?

快上课了……
2005-11-20 11:52
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分: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。
2005-11-20 12:08
iamdigger
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2005-11-17
收藏
得分: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

2005-11-22 23:13
快速回复:看看我的第一个程序,不完善,大家指点
数据加载中...
 
   



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

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