改不熟的語言頭好痛，花了兩小時終於能用
主要參考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