如何以编程方式自动获取IP地址

Question

Dim args As String
args="netsh wlan interface ip set address """+adptrname+""" dhcp"
Dim proc As New System.Diagnostics.Process()        
proc.StartInfo.FileName = "netsh"
proc.StartInfo.Verb="RunAs"
proc.StartInfo.CreateNoWindow = true
proc.StartInfo.RedirectStandardOutput = True
proc.StartInfo.Arguments = args
proc.StartInfo.UseShellExecute = False
proc.Start()
My.Computer.FileSystem.WriteAllText(MainForm.filePath,proc.StandardOutput.ReadToEnd(), True)
proc.Close()
MsgBox(args)

我编写了上面的代码来更改我的 wlan 适配器以自动获取 ip 地址，但它仍然保留在旧的 ip 配置中，尽管输出表明启用了 dhcp。有人可以告诉我哪里出错了。

Answer 1

好的，我尝试在 cmets 上执行此操作，但我不断发现错误...所以这里是您的代码的更正版本：

'Where does your adptrname come from?
Dim adptrname As String = "wlan0" 'i.E.

Dim args As String
' Note that i removed 'netsh' from args
' And the notation to add the addapter name (in VB we use & instead of +)
args="netsh int ipv4 set address name=""" & adptrname & """ source=dhcp"
Dim proc As New System.Diagnostics.Process()        
proc.StartInfo.FileName = "netsh"
proc.StartInfo.Verb="RunAs"
proc.StartInfo.CreateNoWindow = true
proc.StartInfo.RedirectStandardOutput = True
proc.StartInfo.RedirectStandardError = True ' maybe you want to read this, too
proc.StartInfo.Arguments = args
proc.StartInfo.UseShellExecute = False
proc.Start()

' This is still bad, but we keep it for now
My.Computer.FileSystem.WriteAllText(MainForm.filePath, proc.StandardOutput.ReadToEnd(), True)
My.Computer.FileSystem.WriteAllText(MainForm.filePath, proc.StandardError.ReadToEnd(), True)


' Normally not necessery, but no way we do proc.close() here
proc.WaitForExit()

' ok, this shoud have shown you until now that it didn't work...
MsgBox(args)

阅读 cmets，尝试对您自己的代码进行更正，看看它是否运行。

编辑参数

我也认为它不适用于你的论点......

试试这样吧：

netsh int ipv4 set address name="Wireless Connection" source=dhcp

我根据帮助构建了它，它可以在我的机器上运行 (Win7x64-en_US)