剛開始學習求大神指點一下，運行報錯，無法正常運行
還有如果text1,text2,text3, text4都為空點擊command2，當前網卡為自動獲取，代碼改怎么寫，如果大神有自己的思路和代碼實作最好了
uj5u.com熱心網友回復：
工程檔案下載:https://www.lanzous.com/i92pm3g 密碼:5vf8uj5u.com熱心網友回復：
Private Sub Command2_Click()
'如果Text1.text Text2.text Text3.text Text4.text都為空，則該網卡為DHCP自動獲取'
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
objSWbemObject.EnableStatic
objSWbemObject.SetDNSServerSearchOrder
Next
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/16831.html
標籤：VB基礎類