跪求IP更换软件,收费的也没问题!

来源：百度知道 编辑：UC知道 时间：2024/05/31 23:20:38
我想要一个可以自己点一下就自动变换不同的IP地址的软件,请各位大虾帮我找下!~收费的也没问题,最主要就是容易用,而且要每点一下IP都要不一样,不能重复哦!~谢谢

你试下IP更换大师,应该能满足你的需求

把以下代码保存成 修改IP.vbs 就可
----------------------------------------
Dim return,return2,AAA,STR,counter
Dim STR_NEWDNS1,STR_NEWDNS2,STR_GATEWAY,arrIPAddress,arrSubnetMask
Set R = CreateObject("WScript.Shell")
return=MsgBox ("网关是 192.168.0.1 吗?",vbyesno+vbexclamation,"网关地址选择")
If return=vbyes Then
STR_GATEWAY = "192.168.0.1"
else
return2=MsgBox ("网关是 192.168.1.1 吗?",vbyesno+vbexclamation,"网关地址选择")
If return2=vbyes Then
STR_GATEWAY = "192.168.1.1"
else
Num=Inputbox ("请输入网关:","修改网关地址")
STR_GATEWAY = Num
if Num="" then wscript.quit
end if
End if

AAA=InStr(STR_GATEWAY,".")
AAA=InStr(AAA+1,STR_GATEWAY,".")
AAA=InStr(AAA+1,STR_GATEWAY,".")
STR=mid(STR_GATEWAY,1,AAA)

Do
Randomize Timer