1,502
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim NetName As String
NetName = "本地连接"
Shell "cmd /c netsh interface ip set address """ & NetName & """ dhcp"
Shell "cmd /c netsh interface ip set dns """ & NetName & """ dhcp"
End Sub