Dim mc,mo,cnc,cuc,title本地連接ip修改器,mymac,mydns,
cnc = "網通" : ="202.96.64.68"
cuc = "聯通" : ="211.93.80.129"
title = "本地連接DNS修改器"
Set mymac=(":").("")
For Each mydns In mymac
If mydns.=True Then
= mydns.
For i = 0 to ()
= & (i)
next
If = Then
= "當前連接的DNS:"&Chr(10)&Chr(10)&cuc&":"&&Chr(10)&Chr(10)&"是否修改為:"&Chr(10)&Chr(10)&cnc&":"&
msg=(,1+32,title)
If msg = 1 Then
mydns.der Array()
"OK!修改成功!",48,title
End If
= Then
= "當前連接的DNS:"&Chr(10)&Chr(10)&cnc&":"&&Chr(10)&Chr(10)&"是否修改為:"&Chr(10)&Chr(10)&cuc&":"&
msg=(,1+32,title)
If msg = 1 Then
mydns.der Array()
"OK!修改成功!",48本地連接ip修改器,title
End If
End If
Exit For
End If
Next