在vb.net应用程序中编写一个visual basic脚本。
问题描述：
在我的应用程序创建，我需要它来写一个Visual Basic脚本来改变IP地址在vb.net应用程序中编写一个visual basic脚本。
的脚本如下...
Dim strIPAddress
Dim strSubnetMask
Dim strGateway
Dim intGatewayMetric
Dim strDns1
Dim strDns2
strIPAddress = "192.168.1.211"
strSubnetMask = "255.255.255.0"
strGateway = "192.168.0.11"
intGatewayMetric = 1
strDns1 = "8.8.8.8"
strDns2 = "4.4.4.4"
Set objShell = WScript.CreateObject("Wscript.Shell")
objShell.Run "netsh interface ip set address name=""Local Area Connection"" static " & strIPAddress & " " & strSubnetMask & " " & strGateway & " " & intGatewayMetric, 0, True
objShell.Run "netsh interface ip set dns name=""Local Area Connection"" static "& strDns1, 0, True
objShell.Run "netsh interface ip add dns name=""Local Area Connection"" addr="& strDns2, 0, True
Set objShell = Nothing
WScript.Quit
的方式，我想写这是像下面..
Directory.CreateDirectory("C:\SpecMee\IPChanger\")
Dim objwriter As New System.IO.StreamWriter("C:\SpecMee\IPChanger\IpChanger.vbs")
objwriter.WriteLine("Dim strIPAddress" & Environment.NewLine & "Dim strSubnetMask" & Environment.NewLine & "Dim strGateWay" & Environment.NewLine & "Dim intGatewayMetric" & Environment.NewLine & "Dim strDns1" & Environment.NewLine & "Dim strDns2" & Environment.NewLine & "strIPAddress = """ & Environment.NewLine & TB_IPAddress & Environment.NewLine &)
objwriter.Close()
MessageBox.Show("Created")
我遇到的问题是，它正在和两个时代，如何将我包括“”中的脚本。
我不介意花时间在这，我只是不知道我是否会以正确的方式进行。
任何帮助，将不胜感激。
感谢 克里斯
答
两连胜引号使得一个输出。
“他说：‘’塔尔她吹！”“”
（你在一个有两个问题，即不考虑＃2善良风俗。）
答
添加脚本为文本文件资源你的项目。在脚本与一些已知值更换IP地址的所有实例，然后使用与string.replace：
Const ipPlaceHolder As String = "##IP##"
Dim scriptContent As String = My.Resources.script.Replace(ipPlaceHolder, myTextBox.Text)
IO.File.WriteAllText("C:\SpecMee\IPChanger\IpChanger.vbs", scriptContent)
凡myTextBox包含用户输入和文本文件资源被命名为“脚本”
为什么你以编程方式编写它？ – 2012-07-10 21:22:07
我需要在应用程序内部编写它，因为我需要允许用户更改脚本中的IP地址，所以它对它更有用。 – user1244772 2012-07-10 21:24:44
和史蒂夫，谢谢你的建议。迪丹特知道我可以..会做到这一点。谢谢 – user1244772 2012-07-10 21:25:30