用vb.net實現(xiàn)網絡通信

用 vb.net socket通信

創(chuàng)新互聯(lián)公司成立與2013年，公司自成立以來始終致力于為企業(yè)提供官網建設、移動互聯(lián)網業(yè)務開發(fā)（成都微信小程序、手機網站建設、成都app軟件開發(fā)等），并且包含互聯(lián)網基礎服務（域名、主機服務、企業(yè)郵箱、網絡營銷等）應用服務；以先進完善的建站體系及不斷開拓創(chuàng)新的精神理念，幫助企業(yè)客戶實現(xiàn)互聯(lián)網業(yè)務，嚴格把控項目進度與質量監(jiān)控加上過硬的技術實力獲得客戶的一致贊譽。

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

3

4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))

6 th.Start()

7 End Sub

8

9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)

10 Try

11 If IP "" Then

12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)

13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream

14 Dim reqStream As New IO.StreamWriter(tcpStream)

15 reqStream.Write(SendMsg)

16 reqStream.Flush()

17 tcpStream.Close()

18 tcpc.Close()

19 End If

20 Catch ex As Exception

21 MsgBox(ex.Message.ToString)

22 End Try

23 End Sub

24 Private Sub MyListen()Sub MyListen()

25 Try

26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)

27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)

28 tcpl.Start()

29 While True

30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()

31 Dim MyBuffer(1024) As Byte

32 Dim i As Integer

33 i = s.Receive(MyBuffer)

34 If i 0 Then

35 Dim lstrRec As String

36 Dim j As Integer

37 For j = 0 To i - 1

38 TextBox1.Text += Chr(MyBuffer(j)) ","

39 Next

40 End If

41 End While

42 Catch ex As Exception

43 MsgBox(ex.Message.ToString)

44 End Try

45 End Sub

46

47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

48 SendMessage("192.168.0.61", TextBox2.Text)

49 End Sub

VB.net 數(shù)據(jù)庫連接問題

我 看了一下應該是你第一次連接上后，cnn.open就打開并持續(xù)開著，并沒有關閉，所以，你斷網后，第二次連接，他依然是打開的。

另外：

我個人建議你要學會用vb.net的組件，自己連太麻煩，他有現(xiàn)成的，你直接在數(shù)據(jù)庫里選擇添加新數(shù)據(jù)源，按照提示把數(shù)據(jù)庫添加上，然后，你會看到你的程序下面會多了個數(shù)據(jù)集(dataset).

最后要做的就是使用這些數(shù)據(jù)集了。以form1為例，你添加一個datagridview,然后在他的數(shù)據(jù)源上選擇剛才添加的項數(shù)據(jù)集中的某個數(shù)據(jù)表，然后你會看到，在form1中多了一個dataadapter,sqlconn,datset,并且在form1的load事件中，你會發(fā)現(xiàn)多了一條語句，dataadapet.fill(dataset)。

當你運行程序并更改了datagridview后，想要更新數(shù)據(jù)，只需要在后面，增加一個button,并設置他的click事件為：dataadapter.update(dataset)

怎么樣，是不是還有一個問題想問？就是如何更改數(shù)據(jù)源，很簡單，在form1的load事件中，dataadapter.fill(dataset)這條語句之前，再增加一條，sqlconn.ConnectionString = "server=**;database=**;uid=**;pwd=**;Connect TimeOut=2"這個就是你的數(shù)據(jù)源。

希望我的答案能令你滿意。

在vb中連接網絡

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

新建一個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中寫入以下代碼把當前可用的撥號連接名稱加進去，這里我們使用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)在你就可以運行一下了，ListBox中應該把當前所有的撥號連接名稱都顯示出來了。

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

Private Sub Command1_Click()

Dim cmd As String

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

Shell cmd$, vbNormalFocus

End Sub

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

DoEvents:SendKeys "{enter}", True

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

如何掛斷當前的連接

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

再向Form1添加一個按鈕Command2，Caption設為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

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

如何判斷當前是否連接到Internet

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

再向Form1添加一個按鈕Command3，Caption設為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當前選中的連接是否已經連接成功或者正在連接之中，并給出相應的信息。

vb.net 獲取指定網卡的網絡連接狀態(tài)

.net不能獲得【指定】網卡的信息，給個思路，先遍歷所有網卡，然后找到你需要的的那個網卡的信息。

標題名稱：vb.net啟用網絡連接,vbnet怎么打開
新聞來源：http://aaarwkj.com/article28/dsiecjp.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供網站維護、ChatGPT、手機網站建設、企業(yè)建站、服務器托管、網站導航

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)