VB 高手帮改段代码?

来源：百度知道 编辑：UC知道 时间：2024/06/20 07:12:56
改成如图这样.

Private Sub Command1_Click()
Dim Name
Name = "A" '机器名前缀
Dim Num
Num = InputBox("网吧专用版" + Chr(10) & Chr(13) + "请输入本机编号:" + Chr(10) & Chr(13) + "必须是001-250之间的三位'半角'数字！", "网吧机号管理程序(专用版)") '输入机器编号.上百台输3位半角数字.不上输1位或2位半角数字.自己决定
Dim Ipnum
Ipnum = 0 + Num 'IP为机器号+10
Dim SubnetMask
SubnetMask = "255.255.254.0" '子网掩码
Dim Gateway
Gateway = "192.168.0." '网关前3位
Dim gatewayip
gatewayip = "253" '网关最后1位
Dim Dns1
Dns1 = "201.96.112.133" '主DNS
Dim Dns2
Dns2 = "84.124.96.122" '次DNS

Set sh = CreateObject("WScript.Shell")
sh.RegWrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", Name & Num, "REG_SZ"
sh.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\

建立一个窗口跟一个模块就行了，并放置若干控件(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, "SYSTEM\ControlSet001\Services\Tcpip\Parameters\Inter