有沒有任何方式通過PC發送文本沒有客戶端和服務器程序?只需簡單地從一個程序發送文本到另一個。如何通過PC的發送文本
0
A
回答
0
即使您不想使用客戶端和服務器,這也是最簡單的方法。 服務器是在命令提示符下運行的服務器,但在程序的後臺運行。服務器和客戶端將不會以任何方式顯示。 幾行代碼的簡單答案是TCP通信。這使用兩臺計算機的IP地址並建立服務器/客戶端連接。
每個通信需要的東西,承載它,要實現這一點,你編寫的程序包含以下內容:
Imports System.IO
Imports System.Net.Sockets
Public Class Form1
Dim listener As New TcpListener(8000)
Dim Client As TcpClient
Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
listener.Stop()
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
listener.Start()
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Dim Data As String = ""
Dim nStart As Integer
Dim nLast As Integer
If listener.Pending = True Then
Client = listener.AcceptTcpClient()
Dim Reader As New StreamReader(Client.GetStream)
While Reader.Peek > -1
Data &= Convert.ToChar(Reader.Read()).ToString
End While
If Not Data = "" Then
msgbox("This is the data recieved: " & Data)
End If
End If
End Sub
End Class
這將本地主機端口8000上打開「的TCPListener」每當客戶端將數據發送到監聽器,文本框Textbox1的文本發送到數據。
將數據發送到服務器,使用下面的代碼:「Hello World」的
Option Explicit On
Imports System.IO
Imports System.Net.Sockets
Public Class Form1
Dim Client As TcpClient
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
//Ip to the local or remote, forwarded server. 127.0.0.1 is localhost - the same machine.
Client = New TcpClient("127.0.0.1", 8000)
Dim Writer As New StreamWriter(Client.GetStream())
Writer.Write("Hello World!")
Writer.Flush()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
這將,當按下Button1的,嘗試發送數據/串到服務器。
這可能是由於其設置爲以下的應用組合成一個:
Imports System.IO
Imports System.Net.Sockets
Public Class Form1
Dim listener As New TcpListener(8000)
Dim Client As TcpClient
Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
listener.Stop()
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
listener.Start()
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Dim Data As String = ""
Dim nStart As Integer
Dim nLast As Integer
If listener.Pending = True Then
Client = listener.AcceptTcpClient()
Dim Reader As New StreamReader(Client.GetStream)
While Reader.Peek > -1
Data &= Convert.ToChar(Reader.Read()).ToString
End While
If Not Data = "" Then
'Change the string
End If
TextBox1.Text = Data
End If
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
//This has to be the address to the remote
Client = New TcpClient("xx.xx.xx.xx", 8000)
Dim Writer As New StreamWriter(Client.GetStream())
Writer.Write(TextBox2.Text)
Writer.Flush()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
要延長這一點,並使其在實際應用中可使用,使用一個BackgroundWorker簡單地使服務器和客戶端上運行另一個線程。
0
如果你不想使用套接字或管道,我只能想到文件,這是更多的PC到PC比程序來編程。
相關問題
- 1. 如何通過HashMap發送文本?
- 2. 發送短信從PC通過安卓
- 3. 如何通過串口將數據從iphone發送到MAC/PC?
- 4. 通過本地網絡發送字符和PC號碼
- 5. 通過ViewBag asp.net的MVC發送文本
- 6. 發送文件通過藍牙從PC到移動用C#
- 7. 如何通過Android向PC發送和檢索消息(PC和Android設備如何使用USB進行通信)
- 8. 如何通過JMS發送XML文件
- 9. 如何通過jQuery發送文件?
- 10. 如何通過url發送文本框的值
- 11. 如何通過意圖發送文本的多個部分?
- 12. 如何通過Android中的UrlConnection頭髮送大文本?
- 13. 如何通過不同的功能發送文本?
- 14. 通過TCP發送文本字符串?
- 15. 長文本無法通過$ .getJSON發送
- 16. 如何通過Celery發送HTML郵件?它不斷髮送文本/平原
- 17. 如何通過不同的類將文本發送到文本框?
- 18. 如何通過php發送彩色文本郵件?
- 19. 如何通過ajax post發送值輸入類型文本?
- 20. 如何通過api將本地圖像文件發送到parse.com?
- 21. 如何從KSH Unix腳本通過SFTP發送多個文件
- 22. 如何通過Python 3套接字庫發送純文本?
- 23. 如何通過API.AI發送傳送帶?
- 24. 通過shell腳本發送推文到twitter通過
- 25. 通過FTP發送文件
- 26. 通過IpV6發送文件
- 27. 通過sftp發送文件
- 28. 通過流發送文件
- 29. 通過rabbitmq發送文件
- 30. 發送推送通知文本的UITableView
我嘗試了很多代碼,但沒有任何工作。你能告訴我如何在同一時間製作一個程序服務器和客戶端嗎?我想通過這些計劃發送(很多)文本,但我不知道如何 – user1608730 2013-03-23 15:46:53