在vb中連接網(wǎng)絡(luò)

如果你知道連接的名稱，例如“連接到163”或“ADSL”，那么這段程序就可以運(yùn)行了，不過你可不能保證你的用戶機(jī)器上有同樣的連接名稱，所以還必須要使用一段API函數(shù)來枚舉所有的可用撥號連接名稱才行。

成都創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站設(shè)計、成都網(wǎng)站制作與策劃設(shè)計,富寧網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)十載,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:富寧等地區(qū)。富寧做網(wǎng)站價格咨詢:18980820575

新建一個VB Project，在Form1中做以下聲明：

Private Const RAS_MaxDeviceType = 16

Private Const RAS95_MaxDeviceName = 128

Private Const RAS95_MaxEntryName = 256

Private Type RASCONN95

dwSize As Long

hRasConn As Long

szEntryName(RAS95_MaxEntryName) As Byte

szDeviceType(RAS_MaxDeviceType) As Byte

szDeviceName(RAS95_MaxDeviceName) As Byte

End Type

Private Type RASENTRYNAME95

dwSize As Long

szEntryName(RAS95_MaxEntryName) As Byte

End Type

Private Declare Function RasEnumConnections Lib "RasApi32.DLL" Alias "RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, lpcConnections As Long) As Long

Private Declare Function RasEnumEntries Lib "RasApi32.DLL" Alias "RasEnumEntriesA" (ByVal reserved As String, ByVal lpszPhonebook As String, lprasentryname As Any, lpcb As Long, lpcEntries As Long) As Long

Private Declare Function RasHangUp Lib "rasapi32.dll" Alias _

"RasHangUpA" (ByVal hRasConn As Long) As Long

在Form上放一個ListBox或者ComboBox，然后在Form_Load中寫入以下代碼把當(dāng)前可用的撥號連接名稱加進(jìn)去，這里我們使用ListBox。

Private Sub Form_Load()

Dim s As Long, l As Long, ln As Long, a$

ReDim R(255) As RASENTRYNAME95

R(0).dwSize = 264

s = 256 * R(0).dwSize

l = RasEnumEntries(vbNullString, vbNullString, R(0), s, ln)

For l = 0 To ln - 1

a$ = StrConv(R(l).szEntryName(), vbUnicode)

List1.AddItem Left$(a$, InStr(a$, Chr$(0)) - 1)

Next

List1.ListIndex = 0

End Sub

好，現(xiàn)在你就可以運(yùn)行一下了，ListBox中應(yīng)該把當(dāng)前所有的撥號連接名稱都顯示出來了。

下面再往Form上加一個命令按鈕，Caption設(shè)為“Connect”。輸入以下代碼：

Private Sub Command1_Click()

Dim cmd As String

cmd = "rundll rnaui.dll,RnaDial " List1.List(List1.ListIndex)

Shell cmd$, vbNormalFocus

End Sub

這段程序從ListBox獲得選擇的撥號連接名稱，然后調(diào)用RunDLL建立撥號連接。如果已經(jīng)建立連接，它將顯示撥號連接的狀態(tài)。如果你不想讓對話框出現(xiàn)，再添一行代碼上去：

DoEvents:SendKeys "{enter}", True

它將發(fā)送一個回車鍵到當(dāng)前窗口，相當(dāng)于用戶按了“確認(rèn)”按鈕。

如何掛斷當(dāng)前的連接

我們繼續(xù)在上面的基礎(chǔ)上講解，掛斷連接要用到RasHangUp函數(shù)，我們在上面聲明部分已經(jīng)寫過了。

再向Form1添加一個按鈕Command2，Caption設(shè)為Disconnect，輸入如下的代碼：

Private Sub Command2_Click()

Dim s As Long, l As Long, ln As Long, a$, RasConn As Long, Ret As Long

b$ = List1.List(List1.ListIndex)

ReDim R(255) As RASCONN95

R(0).dwSize = 412

s = 256 * R(0).dwSize

l = RasEnumConnections(R(0), s, ln)

For l = 0 To ln - 1

a$ = StrConv(R(l).szEntryName(), vbUnicode)

a$ = Left$(a$, InStr(a$, Chr$(0)) - 1)

RasConn = R(l).hRasConn

'這里將掛斷連接

Ret = RasHangUp(ByVal RasConn)

Next

End Sub

這段代碼枚舉當(dāng)前所有的連接，并且把它掛斷，如果你有雙貓，三貓（沒有這么好的條件吧），它將把所有連接都掛斷。

如何判斷當(dāng)前是否連接到Internet

以前部分網(wǎng)站介紹過讀取Registry來判斷是否連接到Internet的方法，不過筆者認(rèn)為這種方法不是最健壯，這里還是在上面的基礎(chǔ)上用RasEnumConnections來判斷某個連接是否已經(jīng)連上線了。

再向Form1添加一個按鈕Command3，Caption設(shè)為Status，輸入如下的代碼：

Private Sub Command2_Click()

Dim s As Long, l As Long, ln As Long, a$, b$

b$ = List1.List(List1.ListIndex)

ReDim R(255) As RASCONN95

R(0).dwSize = 412

s = 256 * R(0).dwSize

l = RasEnumConnections(R(0), s, ln)

For l = 0 To ln - 1

a$ = StrConv(R(l).szEntryName(), vbUnicode)

a$ = Left$(a$, InStr(a$, Chr$(0)) - 1)

If a$ = b$ Then MsgBox "Connected (or connecting)!": Exit Sub

Next

MsgBox "Not Connected!"

End Sub

本段代碼判斷ListBox當(dāng)前選中的連接是否已經(jīng)連接成功或者正在連接之中，并給出相應(yīng)的信息。

vb.net 操作路由器 比如登陸到路由器上去！??！然后發(fā)送寬帶賬號和密碼 進(jìn)行撥號?。。?/h2>

不熟，真的愛莫能助啊，自己去網(wǎng)上找教程試試，應(yīng)該是有的。

求vb.net 連接寬帶和斷開的代碼

編寫一個寬帶連接的批處理腳本：

rasdial entryname [unseranamd 12345678]

編寫一個寬帶斷開的批處理腳本：

rasphone -h entryname

在vb中調(diào)用這兩個腳本執(zhí)行就可以了；

求大神指點(diǎn)vb.net 怎么取寬帶連接的賬號呀

.net

取寬帶賬號和密碼的我沒，如果你想實現(xiàn)撥號和斷網(wǎng)的話

，我有現(xiàn)成的模塊