vb.net 응용 프로그램에서 시각적 기본 스크립트를 작성하십시오. 내 응용 프로그램에서

내가 만든 나는 이것이 쓰기를 시도하고vb.net 응용 프로그램에서 시각적 기본 스크립트를 작성하십시오. 내 응용 프로그램에서

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

방법 ... 그것은 IP 주소

스크립트는 다음과 같다을 변경하는 Visual Basic 스크립트를 작성해야 다음과 같은 ..

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")

오전 데 문제는 내가 스크립트에서 ""포함 할 것입니다 방법, 연령과 두 복용, 하나입니다.

나는 이것에 시간을 보내고 싶지 않다. 나는 이것이 올바른 방향으로 가고 있는지 잘 모른다.

어떤 도움을 주시면 감사하겠습니다. 연속

감사 크리스

출처

2012-07-10 user1244772

는 왜해야합니까 "스크립트"라는 프로그래밍 방식으로 작성 하시겠습니까? –

사용자가 스크립트 내에서 IP 주소를 변경할 수있게해야 응용 프로그램 내부에 쓸 필요가 있기 때문에 스크립트를 쓸 때 유용합니다. – user1244772

스티브, 조언 주셔서 감사합니다. Diidnt 내가 할 수있는 것을 안다. 감사 – user1244772

두 따옴표 출력에 하나 있습니다.
는 타르 그녀는 불어 ""그리고 그는 말했다 "!" ""

이 (당신은 한 두 가지 질문이 있습니다. 유래에 좋은 습관으로 간주되지 않았는지 확인합니다.)

출처

2012-07-10 21:26:59 LosManos

가 텍스트 파일 자원으로 스크립트를 추가 귀하의 프로젝트. 다음 사용, 몇 가지 알려진 값으로 스크립트의 IP 주소의 모든 인스턴스를 교체하려면 string.replace :합니다 MyTextBox 사용자 입력 및 텍스트 파일 자원을 포함

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)

이

출처

2012-07-10 21:37:34

vb.net 응용 프로그램에서 시각적 기본 스크립트를 작성하십시오. 내 응용 프로그램에서

답변

관련 문제