作者vernc (cralvin)
看板EZsoft
标题Re: [请益] 拨接到想要的ip
时间Sat Feb 23 02:57:07 2008
改不熟的语言头好痛，花了两小时终於能用
主要参考cole945大大和另一支自动灌票系统
上来看到219可能进黑名单不敢全放……未来一年的p2p
修改的地方提一下，会的人5min就ok
也只有两个地方
If IPConfig.IPAddress(0)<>"192.168.0.4" Then '区域网路ip
'$1=连线名 $2=username $3=password
Act.run "rasdial $1 $2 $3", 0, True
另外这个记录连线，真要命127次才拿到ip
Const FileName = "iplog.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(FileName, ForAppending, True)
objTextFile.WriteLine IPAddress &","& Now
objTextFile.Close
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.62.183.55