都可以,可以用winsock,也可以自己重寫SOCKET套接字.建議你如果工期緊,可以先用WINSOCK.當(dāng)然最好是自己學(xué)用SOCKET套接字.這對未來開發(fā)網(wǎng)絡(luò)通訊是很有幫助的.因為用WINSOCK有個毛病就是殺毒軟件總會阻止
創(chuàng)新互聯(lián)公司主要從事網(wǎng)站設(shè)計、成都做網(wǎng)站、網(wǎng)頁設(shè)計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)佳縣,十余年網(wǎng)站建設(shè)經(jīng)驗,價格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):18982081108
一個月。vb.net開發(fā)軟件試用期為一個月。VB.NET是一種簡單,現(xiàn)代面向?qū)ο蟮挠嬎銠C(jī)編程語言,是由微軟開發(fā)。將.NETFramework和公共語言運(yùn)行庫的強(qiáng)大功能相結(jié)合。
與語言沒有關(guān)系, 你需要考慮的是兩個系統(tǒng)直接如何通訊. 選一種通訊協(xié)議(一般用http協(xié)議), 設(shè)計好數(shù)據(jù)結(jié)構(gòu), 可以是xml或json. 假設(shè)選用http協(xié)議傳輸json數(shù)據(jù). 你需要做以下工作:
使用php開發(fā)一個http接口, 根據(jù)參數(shù)查詢數(shù)據(jù)庫, 把結(jié)果轉(zhuǎn)換為json格式后返回. 這是目前最流行的接口格式, 基本上所有語言都可以開發(fā)和請求這樣的接口, 很多開放平臺都是這樣設(shè)計接口的, 例如微信的這個接口,你可以參考一下?網(wǎng)頁鏈接
使用VB.NET請求這個接口, 獲取返回的數(shù)據(jù)(json格式, 一個特殊的字符串), 使用VB.NET對json數(shù)據(jù)進(jìn)行解碼
所以,要完成這個工作,你需要知道http接口開發(fā)和請求, 以及json編碼和解碼的相關(guān)知識和技能, 祝你好運(yùn)
用 vb.net socket通信
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通訊開發(fā),vbnet web
標(biāo)題來源:http://jinyejixie.com/article10/hopdgo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供App設(shè)計、用戶體驗、軟件開發(fā)、網(wǎng)站導(dǎo)航、網(wǎng)站排名、建站公司
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)