VB.NET與PHP通訊問(wèn)題

與語(yǔ)言沒(méi)有關(guān)系, 你需要考慮的是兩個(gè)系統(tǒng)直接如何通訊. 選一種通訊協(xié)議(一般用http協(xié)議), 設(shè)計(jì)好數(shù)據(jù)結(jié)構(gòu), 可以是xml或json. 假設(shè)選用http協(xié)議傳輸json數(shù)據(jù). 你需要做以下工作:

創(chuàng)新互聯(lián)建站成立十年來(lái)，這條路我們正越走越好，積累了技術(shù)與客戶資源，形成了良好的口碑。為客戶提供成都網(wǎng)站建設(shè)、成都網(wǎng)站制作、網(wǎng)站策劃、網(wǎng)頁(yè)設(shè)計(jì)、申請(qǐng)域名、網(wǎng)絡(luò)營(yíng)銷、VI設(shè)計(jì)、網(wǎng)站改版、漏洞修補(bǔ)等服務(wù)。網(wǎng)站是否美觀、功能強(qiáng)大、用戶體驗(yàn)好、性價(jià)比高、打開(kāi)快等等，這些對(duì)于網(wǎng)站建設(shè)都非常重要，創(chuàng)新互聯(lián)建站通過(guò)對(duì)建站技術(shù)性的掌握、對(duì)創(chuàng)意設(shè)計(jì)的研究為客戶提供一站式互聯(lián)網(wǎng)解決方案，攜手廣大客戶，共同發(fā)展進(jìn)步。

使用php開(kāi)發(fā)一個(gè)http接口, 根據(jù)參數(shù)查詢數(shù)據(jù)庫(kù), 把結(jié)果轉(zhuǎn)換為json格式后返回. 這是目前最流行的接口格式, 基本上所有語(yǔ)言都可以開(kāi)發(fā)和請(qǐng)求這樣的接口, 很多開(kāi)放平臺(tái)都是這樣設(shè)計(jì)接口的, 例如微信的這個(gè)接口,你可以參考一下?網(wǎng)頁(yè)鏈接

使用VB.NET請(qǐng)求這個(gè)接口, 獲取返回的數(shù)據(jù)(json格式, 一個(gè)特殊的字符串), 使用VB.NET對(duì)json數(shù)據(jù)進(jìn)行解碼

所以,要完成這個(gè)工作,你需要知道http接口開(kāi)發(fā)和請(qǐng)求, 以及json編碼和解碼的相關(guān)知識(shí)和技能, 祝你好運(yùn)

vb.net中webBrowser加載網(wǎng)頁(yè)后如何捕捉網(wǎng)頁(yè)的通信

你用網(wǎng)頁(yè)顯示聊天的訊息，那么就要刷新，不刷新是不知道有沒(méi)有值的變化的，所以，可以用AJAX掩飾刷新然后還是類似刷新，只是沒(méi)顯示出來(lái)，后臺(tái)處理刷新的數(shù)據(jù)的變化，判斷如果有新消息時(shí)就寫個(gè)

類似

if(this.WindowState == FormWindowState.Minimized )

{

this.Visible = false;

}

...

VB與VB.NET串口及以太網(wǎng)通迅

關(guān)于串口通訊的問(wèn)題：

很明顯，你還不知道（不會(huì)、不習(xí)慣）使用事件驅(qū)動(dòng)的方式接收數(shù)據(jù)。

建議你仔細(xì)看看串口組件（無(wú)論VB6還是VB.net）的OnComm事件，你的問(wèn)題很容易解決。

關(guān)于以太網(wǎng)通訊：

在TCP通訊中端口確實(shí)可以重用，你百度一下“TCP端口重用”能查到很多示例。

但絕大多數(shù)情況下不推薦端口重用，而應(yīng)該采取服務(wù)器端建立連接池的方法。

或者，干脆不用TCP，用UDP解決也可以。

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

用 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和網(wǎng)頁(yè)通信 vba與網(wǎng)頁(yè)交互
瀏覽地址：http://redsoil1982.com.cn/article30/doediso.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站策劃、網(wǎng)站收錄、、建站公司、微信公眾號(hào)、云服務(wù)器

廣告

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