[AL_BRNS]

جرب الكود التالي لتغيير الـــ  IP

PHP كود :

Private Sub Command7_Click()
Text1.Text = "192.168.3.8" ' New IP address
Text2.Text = "255.255.255.0" ' New Mask
Text3.Text = "192.168.3.1" ' New Default gateway
Shell ("cmd.exe /c netsh interface ipv4 set address name=") & _
"Wi-Fi" & " " & " " & ("static" & " " & Text1.Text & " " & Text2.Text & " " & Text3.Text), vbHide
End Sub 


ان لم تكن متصل بشبكة Wi-Fi  فقم بتغيير "Wi-Fi" الي نوع اتصالك  .

بالتوفيق .