vb入门级别的问题！

来源：百度知道 编辑：UC知道 时间：2024/07/07 11:19:41
下面是一段vbs的修改计算机和ip的代码

Dim Name
Name="a" '机器名后缀
Dim Num
Num=Inputbox ("雨过天晴整理,勤奋网络专用"+chr(0)&chr(0)+"请输入本机编号:"+chr(0)&chr(0)+"必须是001-244之间的三位'半角'数字！","IP修改器") '输入机器编号.上百台输3位半角数字.不上输1位或2位半角数字.自己决定
Dim Ipnum
Ipnum=0+Num 'IP为机器号+0
Dim SubnetMask
SubnetMask="255.255.255.0" '子网掩码
Dim Gateway
Gateway="192.168.0." '网关前3位
Dim gatewayip
gatewayip="254" '网关最后1位
dim Dns1
Dns1="68.221.147.7" '主DNS
dim Dns2
Dns2="68.221.147.8" '次DNS

Set Sh = CreateObject("WScript.Shell")
Sh.RegWrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName",Num&Name,"REG_SZ"
Sh.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV

这个vbs是通过修改注册表修改计算机名跟ip的，可以直接在vb中修改注册表达到相同的效果，不一定要vbs

建立一个窗口跟一个模块,并放置若干控件(5个label,5个text,1个command)

窗口代码如下:
Private Sub Command1_Click()
Call SetStringValue(HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Control\ComputerName\ComputerName", "ComputerName", Text1.Text)
Call SetStringValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "Hostname", Text2.Text)
Call SetStringValue2(HKEY_LOCAL_MACHINE, "SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{C09A8CD0-2C7A-4866-AAD0-D36CBD733EFC}", "IPAddress", Text3.Text)
Call SetStringValue2(HKEY_LOCAL_MACHINE, "SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{C09A8CD0-2C7A-4866-AAD0-D36CBD733EFC}", "DefaultGateway", Text4.Text)
Call SetStringValue(HKEY_LOCAL_MACHINE, &