VB产生2个批处理文件

我想编写个SETUP程序,产生2个BAT文件: 
C:\WINDOWS\IN.BAT   set NIC="本地连接" 
  set IP="32.114.1.41" 
  set MASK="255.255.255.0" 
  set GW="32.114.1.2" 
  set GM=1 
  set DNS="32.114.94.2" 
@netsh interface ip set address name=%NIC% source=static addr=%IP% mask=%MASK% gateway=%GW% gwmetric=%GM% 
@netsh interface ip set dns name=%NIC% source=static addr=%DNS% 
@netsh interface ip set wins name="本地连接" source=static addr=none C:\WINDOWS\OUT.BAT   set NIC="本地连接" 
  set IP="221.230.157.11" 
  set MASK="255.255.255.0" 
  set GW="221.230.157.1" 
  set GM=1 
  set DNS="221.228.255.1" 
@netsh interface ip set address name=%NIC% source=static addr=%IP% mask=%MASK% gateway=%GW% gwmetric=%GM% 
@netsh interface ip set dns name=%NIC% source=static addr=%DNS% 
@netsh interface ip set wins name="本地连接" source=static addr=none 
其中IP,GW和DSN从窗口TEXT中读取,读取前先判断一下IP输入是否正确 
我是新手,编的东西老是通过不了,又找不到原因,不能为继了呀!!!所以请教大家帮帮我.下面是没写完的代码: 
Private Sub Command1_Click() If Dir(App.Path & "c:\windows\in.bat") <> "" Then 
Shell "del c:\windows\in.bat", vbMiniimizednoFocus 
End If If Dir(App.Path & "c:\windows\out.bat") <> "" Then 
Shell "del c:\windows\out.bat", vbMiniimizednoFocus 
End If ip1 = Val("Form2.Text1") 
ip2 = Val("Form2.Text2") 
ip3 = Val("Form2.Text3") 
ip4 = Val("Form2.Text4") 
gateway1 = Val("Form2.Text5") 
gateway2 = Val("Form2.Text6") 
gateway3 = Val("Form2.Text7") 
gateway4 = Val("Form2.Text8") 
dns1 = Val("Form2.Text9") 
dns2 = Val("Form2.Text10") 
dns3 = Val("Form2.Text11") 
dns4 = Val("Form2.Text12") 
ip = ip1 < 1 Or ip1 > 250 Or ip2 < 1 Or ip2 > 255 Or ip3 < 1 Or ip3 > 255 Or ip4 < 1 Or ip4 > 255  '判断IP,网关和DNS输入是否正确 
gateway = gateway1 < 1 Or gateway1 > 250 Or ipgateway2 < 1 Or gateway2 > 255 Or gateway3 < 1 Or gateway3 > 255 Or gateway4 < 1 Or gateway4 > 255 
dns = dns1 < 1 Or dns1 > 250 Or dns2 < 1 Or dns2 > 255 Or dns3 < 1 Or dns3 > 255 Or dns4 < 1 Or dns4 > 255 If ip Then MsgBox ("IP输入错误") 
If gateway Then MsgBox ("网关输入错误") 
If dns Then MsgBox ("DNS输入错误") 
If Not (ip And gateway And dns) Then '如果全部输入正确,则生成批处理OUT.BAT 文件 
' 
' 
' 
' 
'关闭本窗口并激活内网IP输入窗口 
End If 
End Sub Private Sub Form_Load() 
Dim ip1, ip2, ip3, ip4 As Integer 
Dim gateway1, gateway2, gateway3, gateway4 As Integer 
Dim dns1, dns2, dns3, dns4 As Integer 
Dim ip, gateway, dns As Boolean 
End Sub 

解决方案 »

  1.   

    我想编写个SETUP程序,产生2个BAT文件: 
    Open "C:\WINDOWS\IN.BAT " For Output As #1
      Print #1,"""set NIC="本地连接"""
      Print #1,"""set IP="""32.114.1.41"""
      Print #1,"""set MASK="""255.255.255.0"""
        ……………………
       Close #1
      

  2.   

    其中IP,GW和DSN从窗口TEXTBOX中读取,读取前先判断一下IP输入是否正确 拜托了,哪位可以伸出援手噢!