→ zop:直接跟isp要ip試試看? 02/22 17:07
→ ilovefaye:我也是61.不過P2P都跑很快哩！ 02/22 21:59
推 Alica:等219.84也被鎖了要怎麼辦.. 換ISP才是一勞永逸 02/23 01:56
→ vernc:不是要換就能換的，像光世代118也進了黑名單@@ 02/23 02:04
> -------------------------------------------------------------------------- <
作者: cole945 (躂躂..) 看板: EZsoft
標題: Re: [請益] 撥接到想要的ip
時間: Fri Feb 22 20:10:11 2008
※ 引述《vernc (cralvin)》之銘言：
: 或那位提供這方面vbs要看那個網頁或那本書
如果你之前沒寫過的話..查網頁查書查到應該是很久以後的事了 ._.
所以直接給你吧~
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\.\root\cimv2")
' 這是例用 Windwos 提供的 WMI 來查網卡的 IP
Set colAdapters = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
' 放網頁資料的 table
Set wshShell = WScript.CreateObject ("WSCript.shell")
While True
tag = 0
For Each objAdapter in colAdapters
If Not IsNull(objAdapter.IPAddress) Then
For i = 0 To UBound(objAdapter.IPAddress)
if InStr(objAdapter.Caption(i),"WAN Miniport") >0 Then
' 你的 ADSL 應該是以 WAN Miniport 表示,
' 如果錯了的話, 你就直接把所有網卡及其對應 IP show 出來看
' 就知道應該要撈哪張卡的 IP了
tag = 1 ' 標記找到你的 ADSl 連線
CurrIP = objAdapter.IPAddress(i)
If Left( CurrIP, 3 ) = "61." Then
' 若 61. 開頭, 利用 rasdial 指令斷線, 停 2000毫秒後
' 重新連線, ADSL 指的是你網頭連線裡的 Sonet連線明稱,
' 請改成你自己的
wshshell.run "rasdial /disconnect", 0, True
set wshshell = nothing
WScript.Sleep 2000
wshshell.run "rasdial -d ADSL", 0, True
set wshshell = nothing
Else
Wscript.Quit
End if
end if
Next
End If
Next
if tag = 0 Then
WScript.Sleep 5000
' 若這次沒找到你的ADSL連線(可能上次還沒連成功)
' 停5秒再繼續搜
End if
Wend
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.139.133.39
→ cole945:呃..對了.因為我是遠端連回家寫,沒測過 @.@ 應該是不會有 02/22 20:11
→ cole945:問題啦囧 怕測完失敗我就連不到我的電腦了..|| 02/22 20:12
→ winkissimo:程式看起來有用到資料庫嗎?因為有看到Select * From... 02/22 21:20
→ cole945:那是 WMI的東西,WMI Query Language. 利用SQL-like的語法 02/22 21:54
→ cole945:查詢或修改windows上相關的管理資訊~ 02/22 21:54
→ HZYSoft:Cool!!! 原 po 真強，完全不知道有這種鬼東西 = = 02/22 22:00
→ cole945:呃..過獎了|| VB算是最試合用來玩WMI的語言之一吧~ 如果對 02/22 22:06
→ cole945:WMI有興趣的話,小推 WMI Explorer這個小工具~可以用來直接 02/22 22:07
→ cole945:瀏覽系統上的WMI資訊~ 02/22 22:07
> -------------------------------------------------------------------------- <
作者: 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