請問[無線網路]如何使用VB6來自動執行[連線]與[斷線].- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
3614

會員總數：246323
討論主題：189853

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> 網管 / 資安 / VM >> 請問[無線網路]如何使用VB6來自動執行[連線]與[斷線].

[]

[我要回覆]

12 最後一頁(2)

請問[無線網路]如何使用VB6來自動執行[連線]與[斷線].
價值 : 100 QP 點閱數:6758 回應數:21

樓主

小雪

100	17
393	102

發送站內信

最近使用[無線網路]來跟自家的[MODEM]+[小型基地台]來連線.使用狀況還滿穩的.想試試如何比照[MODEM]的方式來自動關掉連線.有關資料提供如下.請參考:
[1].軟體如下[wifi無線上網].
D-Link DWL-G122.C1v3.60 S0040 (ML18)
D-Link AirPlus Utility
"C:\Program Files\D-Link\AirPlus XtremeG DWL-G122\AirGCFG.exe"
[2].小電腦系統.
XP . 2003 . IE8
[3].小型基地台:
ASUS RT-N13U Rev.B1
[4].原有VDSL的語法:
Sub VDSL自動斷線()
Shell "cmd.exe /c Rasdial vdsl /disconnect" '//斷線
End Sub
Sub VDSL自動連線()
Shell "cmd.exe /c Rasdial vdsl “帳號” “密碼” '//連線==正確
End Sub
[5].請問如何比照上述來執行[無線網路]的[連線]與[斷線]呢.

搜尋相關Tags的文章： [ 無線網路 ] , [ VB6 ] , [ 自動執行連線斷線 ] ,
本篇文章發表於2011-02-28 16:39

1樓回應 Sdany	可以參考這篇的用法 http://www.blueshop.com.tw/board/show.asp?subcde=BRD200908032212578SM 本篇文章回覆於2011-03-01 08:05 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓回應 Sdany	妳只要參考 #1 第 17 樓中的 devcon.exe 本篇文章回覆於2011-03-01 13:38 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓最有價值解答 Sdany	Option Explicit Function Ping(strHost) dim objPing, objRetStatus set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _ ("select * from Win32_PingStatus where address = '" & strHost & "'") for each objRetStatus in objPing if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 then Ping = False else Ping = True end if next End Function dim a,b a = "devcon.exe disable ""@PCI\""" b = "devcon.exe enable ""@PCI\""" dim objShell Set objShell = CreateObject("WScript.Shell") '加迴圈 '指定自己的 IP if ping("192.168.1.222") then '如果網路存在，執行中斷網路的程序 objShell.Run a, 0, False MsgBox "停用無線網路" else objShell.Run b, 0, False MsgBox "啟用無線網路" end if Set objShell = Nothing 本篇文章回覆於2011-03-01 16:18 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
4樓回應 Sdany	devcon.exe 下載，使用方法參考 http://www.pczone.com.tw/vbb3/thread/3/123197/ 載點 http://download.microsoft.com/download/1/1/f/11f7dd10-272d-4cd2-896f-9ce67f3e0240/devcon.exe 解壓縮取出 i386 資料夾中的 devcon.exe 將 xxx.vbs 與 devcon.exe 放置同個資料夾下執行 xxx.vbs 本篇文章回覆於2011-03-01 17:09 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
5樓作者回應小雪	感謝Sdany中級顧問: [1].認真的教導初學者. [2].遵顧問的指示.想盡辦法超越了自我電腦限制.終於完成相關環境的建立.已可以測出有無連線狀態.但是還是會產生以下的訊息.請顧問再幫忙一下囉.謝謝. objShell.Run b, 0, False 執行階段錯誤 '-2147024894(800700002)' Run方法('1 WshShell3'物件)失敗本篇文章回覆於2011-03-01 19:06 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
6樓回應 Sdany	能否請妳，把系統更新到最新 XP SP3 (Fix) 或是使用正常的系統光碟安裝作業系統(XP) 因為我發現妳的電腦似乎不太正常該有的元件，可能會沒有本篇文章回覆於2011-03-01 21:50 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
7樓作者回應小雪	感謝顧問: [1].我發現應該是我的電腦系統問題.可是我連測3部電腦.1個是我.1個是好友.1個是筆電.結果都是一樣.可能都是XP吧. [2].這個IP等同於[定值].可變性等於無. [3].[無線網路]用起來還真是有點不太順暢.不過應急是蠻好的.或是移來移去.很是方便.... [4].我相信[顧問]的說明是確實的.沒關係.我只是剛好遇上[無線網路].有點好奇而已.更何況這題之前就有類似的經驗[題庫].所以就給他圓滿告一段落囉.謝謝. [5].謝謝. 本篇文章回覆於2011-03-01 22:17 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
8樓回應 Sdany	那個錯誤訊息應該是妳的指令有問題本篇文章回覆於2011-03-02 14:35 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
9樓作者回應小雪	感謝顧問: 有空我再核對一下或是把程式碼的資料夾傳給您測測喔謝謝要出去辦事 22:30返本篇文章回覆於2011-03-02 15:03 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
10樓作者回應小雪	顧問好: 檔案已傳送.請幫忙測一下.可能程式[套用]語法有問題.請幫忙指正一下.謝謝. 本篇文章回覆於2011-03-02 22:38 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
11樓回應 Sdany	我之前所提供的資訊是使用 xxx.vbs 的方式而妳是使用 xls vba 所以有些用法需要修改 Sub 無線網路自動開關線測試02() Dim a, b a = ActiveWorkbook.Path & "\devcon.exe" b = """@PCI\...............""" '加迴圈 '指定自己的 IP If Ping("192.168.110.3") Then '如果網路存在，執行中斷網路的程序s Shell a & " disable " & b, vbHide MsgBox "停用無線網路" Else Shell a & " enable " & b, vbHide MsgBox "啟用無線網路" End If End Sub Function Ping(strHost) Dim objPing, objRetStatus Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _ ("select * from Win32_PingStatus where address = '" & strHost & "'") For Each objRetStatus In objPing If IsNull(objRetStatus.StatusCode) Or objRetStatus.StatusCode <> 0 Then Ping = False Else Ping = True End If Next End Function 本篇文章回覆於2011-03-02 23:10 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
12樓作者回應小雪	感謝顧問: 沒當機了.但是無線網路沒關掉.怪哉. 本篇文章回覆於2011-03-02 23:45 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
13樓回應 Sdany	"@PCI\..............." 請確認妳使用的資料是否正確另外，這個資訊也能夠在裝置管理員中取得裝置管理員網路介面卡找到無線網路的裝置內容詳細資料裝置例項識別碼整串就是妳需要用的最前面再加個 @ 即可本篇文章回覆於2011-03-03 10:22 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
14樓作者回應小雪	感謝顧問: [1].真是不好意思.顧問追求真善美的心.真是令小妹折服.加油喔. [2].有進度了. 執行到:Shell a & " disable " & b, vbHide 有看到.網路卡關閉[X].但是網路連線依然如如不動.還必須去重新啟動網路卡.可見網路卡可以控制的. [3].這個網路卡的[裝置例項識別碼].有沒辦法複製與貼上.這麼一大串.打字與核對.真是累死人. 本篇文章回覆於2011-03-03 18:33 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
15樓作者回應小雪	可以用CTRL+C CTRL+V 剛試了一下 PCI\VEN_10EC&DEV_8168&SUBSYS_E0001458&REV_02\4&2182FE78&0&....... 本篇文章回覆於2011-03-03 18:37 == 簽名檔 == --未登入的會員無法查看對方簽名檔--

12 最後一頁(2)

回覆

如要回應,請先登入.

1樓回應 Sdany	可以參考這篇的用法 http://www.blueshop.com.tw/board/show.asp?subcde=BRD200908032212578SM 本篇文章回覆於2011-03-01 08:05 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓回應 Sdany	妳只要參考 #1 第 17 樓中的 devcon.exe 本篇文章回覆於2011-03-01 13:38 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓最有價值解答 Sdany	Option Explicit Function Ping(strHost) dim objPing, objRetStatus set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _ ("select * from Win32_PingStatus where address = '" & strHost & "'") for each objRetStatus in objPing if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 then Ping = False else Ping = True end if next End Function dim a,b a = "devcon.exe disable ""@PCI\""" b = "devcon.exe enable ""@PCI\""" dim objShell Set objShell = CreateObject("WScript.Shell") '加迴圈 '指定自己的 IP if ping("192.168.1.222") then '如果網路存在，執行中斷網路的程序 objShell.Run a, 0, False MsgBox "停用無線網路" else objShell.Run b, 0, False MsgBox "啟用無線網路" end if Set objShell = Nothing 本篇文章回覆於2011-03-01 16:18 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
4樓回應 Sdany	devcon.exe 下載，使用方法參考 http://www.pczone.com.tw/vbb3/thread/3/123197/ 載點 http://download.microsoft.com/download/1/1/f/11f7dd10-272d-4cd2-896f-9ce67f3e0240/devcon.exe 解壓縮取出 i386 資料夾中的 devcon.exe 將 xxx.vbs 與 devcon.exe 放置同個資料夾下執行 xxx.vbs 本篇文章回覆於2011-03-01 17:09 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
5樓作者回應小雪	感謝Sdany中級顧問: [1].認真的教導初學者. [2].遵顧問的指示.想盡辦法超越了自我電腦限制.終於完成相關環境的建立.已可以測出有無連線狀態.但是還是會產生以下的訊息.請顧問再幫忙一下囉.謝謝. objShell.Run b, 0, False 執行階段錯誤 '-2147024894(800700002)' Run方法('1 WshShell3'物件)失敗本篇文章回覆於2011-03-01 19:06 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
6樓回應 Sdany	能否請妳，把系統更新到最新 XP SP3 (Fix) 或是使用正常的系統光碟安裝作業系統(XP) 因為我發現妳的電腦似乎不太正常該有的元件，可能會沒有本篇文章回覆於2011-03-01 21:50 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
7樓作者回應小雪	感謝顧問: [1].我發現應該是我的電腦系統問題.可是我連測3部電腦.1個是我.1個是好友.1個是筆電.結果都是一樣.可能都是XP吧. [2].這個IP等同於[定值].可變性等於無. [3].[無線網路]用起來還真是有點不太順暢.不過應急是蠻好的.或是移來移去.很是方便.... [4].我相信[顧問]的說明是確實的.沒關係.我只是剛好遇上[無線網路].有點好奇而已.更何況這題之前就有類似的經驗[題庫].所以就給他圓滿告一段落囉.謝謝. [5].謝謝. 本篇文章回覆於2011-03-01 22:17 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
8樓回應 Sdany	那個錯誤訊息應該是妳的指令有問題本篇文章回覆於2011-03-02 14:35 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
9樓作者回應小雪	感謝顧問: 有空我再核對一下或是把程式碼的資料夾傳給您測測喔謝謝要出去辦事 22:30返本篇文章回覆於2011-03-02 15:03 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
10樓作者回應小雪	顧問好: 檔案已傳送.請幫忙測一下.可能程式[套用]語法有問題.請幫忙指正一下.謝謝. 本篇文章回覆於2011-03-02 22:38 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
11樓回應 Sdany	我之前所提供的資訊是使用 xxx.vbs 的方式而妳是使用 xls vba 所以有些用法需要修改 Sub 無線網路自動開關線測試02() Dim a, b a = ActiveWorkbook.Path & "\devcon.exe" b = """@PCI\...............""" '加迴圈 '指定自己的 IP If Ping("192.168.110.3") Then '如果網路存在，執行中斷網路的程序s Shell a & " disable " & b, vbHide MsgBox "停用無線網路" Else Shell a & " enable " & b, vbHide MsgBox "啟用無線網路" End If End Sub Function Ping(strHost) Dim objPing, objRetStatus Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _ ("select * from Win32_PingStatus where address = '" & strHost & "'") For Each objRetStatus In objPing If IsNull(objRetStatus.StatusCode) Or objRetStatus.StatusCode <> 0 Then Ping = False Else Ping = True End If Next End Function 本篇文章回覆於2011-03-02 23:10 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
12樓作者回應小雪	感謝顧問: 沒當機了.但是無線網路沒關掉.怪哉. 本篇文章回覆於2011-03-02 23:45 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
13樓回應 Sdany	"@PCI\..............." 請確認妳使用的資料是否正確另外，這個資訊也能夠在裝置管理員中取得裝置管理員網路介面卡找到無線網路的裝置內容詳細資料裝置例項識別碼整串就是妳需要用的最前面再加個 @ 即可本篇文章回覆於2011-03-03 10:22 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
14樓作者回應小雪	感謝顧問: [1].真是不好意思.顧問追求真善美的心.真是令小妹折服.加油喔. [2].有進度了. 執行到:Shell a & " disable " & b, vbHide 有看到.網路卡關閉[X].但是網路連線依然如如不動.還必須去重新啟動網路卡.可見網路卡可以控制的. [3].這個網路卡的[裝置例項識別碼].有沒辦法複製與貼上.這麼一大串.打字與核對.真是累死人. 本篇文章回覆於2011-03-03 18:33 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
15樓作者回應小雪	可以用CTRL+C CTRL+V 剛試了一下 PCI\VEN_10EC&DEV_8168&SUBSYS_E0001458&REV_02\4&2182FE78&0&....... 本篇文章回覆於2011-03-03 18:37 == 簽名檔 == --未登入的會員無法查看對方簽名檔--