用vb.net實現(xiàn)網(wǎng)絡(luò)通信

用 vb.net socket通信

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

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ù)庫連接問題

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

另外：

我個人建議你要學(xué)會用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)。

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

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

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

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

如果你知道連接的名稱，例如“連接到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中寫入以下代碼把當(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)在你就可以運行一下了，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 獲取指定網(wǎng)卡的網(wǎng)絡(luò)連接狀態(tài)

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

標(biāo)題名稱：vb.net啟用網(wǎng)絡(luò)連接,vbnet怎么打開
新聞來源：http://vcdvsql.cn/article28/dsiecjp.html

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

廣告

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