vb.net開發(fā)局域網(wǎng) 局域網(wǎng)編程

如何在VB.NET中用Socket類實(shí)現(xiàn)局域網(wǎng)中的通信問題

Private Sub Form_Load()

十載的巢湖網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。全網(wǎng)整合營(yíng)銷推廣的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整巢湖建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)從事“巢湖網(wǎng)站設(shè)計(jì)”,“巢湖網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

With Winsock1

.RemoteHost = "124.135.13.106" '對(duì)方的IP

.RemotePort = 1002 ' 對(duì)方的端口號(hào)

.Bind 1001 ' 本機(jī)的端口號(hào)

End With

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

Winsock1.GetData strData '接收字節(jié)

List1.AddItem strData

End Sub

這個(gè)用UDP進(jìn)行連接的。只不過是對(duì)單個(gè)機(jī)器進(jìn)行的。

VB.net應(yīng)用程序如何在局域網(wǎng)中使用

可以讓將你的數(shù)據(jù)庫放在固定的機(jī)子上,然后讓其它的客戶端來訪問就行了!!

VB.NET 如何實(shí)現(xiàn)局域網(wǎng)內(nèi)即時(shí)會(huì)話

樓主你好,你所指的那個(gè)指令就是"winchat",Windows自帶的局域網(wǎng)聊天工具.使用方法:開始--運(yùn)行--輸入winchat,就可以打開Winchat了.只能實(shí)現(xiàn)很簡(jiǎn)單的功能,并且是中文,沒什么好介紹的,相信你一看就懂,希望可以幫到你!

ps:你所說的電影是杜拉拉升職記吧?貌似那是用的郵件發(fā)的,不小心點(diǎn)成群發(fā)了~嘿嘿..

VB.NET容易做局域網(wǎng)簡(jiǎn)單的聊天工具嗎？用TCP協(xié)議

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

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

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

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建立局域網(wǎng)

很簡(jiǎn)單，你在網(wǎng)上搜索下VB.NET的UDP或者TCP通訊代碼就成了，有很多的，有單對(duì)單或者單對(duì)多

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

用 vb.net socket通信