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

兩個方法

網站建設哪家好，找成都創新互聯公司！專注于網頁設計、網站建設、微信開發、小程序定制開發、集團企業網站建設等服務項目。為回饋新老客戶創新互聯還提供了西疇免費建站歡迎大家使用！

1.

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

調用SetForegroundWindow使其獲得焦點并選中

調用.net方法：SendKeys.Send方法發送

2.使用API的SendInput

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

可以用動態數據交換(Dynamic Data Exchange,DDE)實現進程之間的通信。

發送端：

添加Command1，Text1控件，Text1的內容用于發送。

代碼如下：

Private?Sub?Command1_Click()

Dim?t?As?Long

Text1.LinkMode?=?0

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

Text1.LinkMode?=?2

Text1.LinkExecute?Text1.Text

t?=?Text1.LinkTimeout

Text1.LinkTimeout?=?1

Text1.LinkMode?=?0

Text1.LinkTimeout?=?t

End?Sub

接收端：

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

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

Text1?=?CmdStr

Cancel?=?0

End?Sub

編譯后，先運行接收端，然后運行發送端，輸入內容，發送即可成功。

用vb.net實現網絡通信

用 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進程間通訊,winform進程間通訊
分享網址：http://vcdvsql.cn/article22/hedhjc.html

成都網站建設公司_創新互聯，為您提供網站設計公司、微信公眾號、品牌網站建設、服務器托管、品牌網站設計、手機網站建設

廣告

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