各們，請教怎么使用vb.net編寫兩個進(jìn)程間消息

兩個方法

網(wǎng)站建設(shè)哪家好，找成都創(chuàng)新互聯(lián)公司！專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、小程序定制開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了西疇免費建站歡迎大家使用！

1.

要接收的窗口先使用FindWindow這個api獲得句柄

調(diào)用SetForegroundWindow使其獲得焦點并選中

調(diào)用.net方法：SendKeys.Send方法發(fā)送

2.使用API的SendInput

怎樣在兩個VB程序之間傳遞信息？

可以用動態(tài)數(shù)據(jù)交換(Dynamic Data Exchange,DDE)實現(xiàn)進(jìn)程之間的通信。

發(fā)送端：

添加Command1，Text1控件，Text1的內(nèi)容用于發(fā)送。

代碼如下：

Private?Sub?Command1_Click()

Dim?t?As?Long

Text1.LinkMode?=?0

Text1.LinkTopic?=?"Child|FrmChild"?'注意此處一定與接收的程序名稱和連接的標(biāo)題相同否則連接不成功。

Text1.LinkMode?=?2

Text1.LinkExecute?Text1.Text

t?=?Text1.LinkTimeout

Text1.LinkTimeout?=?1

Text1.LinkMode?=?0

Text1.LinkTimeout?=?t

End?Sub

接收端：

添加Text1控件，Text1的內(nèi)容用于接收。設(shè)置工程名稱為Child（與發(fā)送的程序名對應(yīng)），設(shè)置窗體的LinkMode屬性為1，LinkTopic為FrmChild(對應(yīng)上面發(fā)送的標(biāo)題)。

Private?Sub?Form_LinkExecute(CmdStr?As?String,?Cancel?As?Integer)

Text1?=?CmdStr

Cancel?=?0

End?Sub

編譯后，先運行接收端，然后運行發(fā)送端，輸入內(nèi)容，發(fā)送即可成功。

用vb.net實現(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進(jìn)程間通訊,winform進(jìn)程間通訊
分享網(wǎng)址：http://chinadenli.net/article22/hedhjc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計公司、微信公眾號、品牌網(wǎng)站建設(shè)、服務(wù)器托管、品牌網(wǎng)站設(shè)計、手機(jī)網(wǎng)站建設(shè)

廣告

聲明：本網(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)