Question

所以我的程序首先计算“XProcess”的进程数，并且每1秒钟有一个计时器检查，这非常有用！我有计数的输入进入设置变量。然后我有一个子例程，它接受该Setting变量，以及一个IF语句输出TCPClient正在发送字符串（“One Process”）。

问题是，我没有事件可以与子例程一起使用，因此我将它与计时器绑在一起，每隔1秒发送一次消息。 TCPClient现在将其发送到本地地址（127.0.0.1），并将其发送到文本框。好问题!!!

它一遍又一遍地重复（“一个过程”），我可以看出为什么会发生这种情况。

因此，使用下面的代码，TCPClient如何向TCPServer和TCPSERVER发送有多少“XProcess”进程的通知，以便吐出1个或多个进程正在运行？（与抛出SERVER一遍又一遍地重复字符串（整数就是这样））

以下内容有效，但重复了以字符串形式运行的进程数。

MainWindow.xaml.vb

Imports System.Windows.Threading
Imports System.Net.Sockets

Public Class MainWindow
    Private Run_ProgramRunCheck_timer As New DispatcherTimer
    Private Run_RecieveCheck_timer As New DispatcherTimer
    Dim processCount As Integer
    Private Sub Window_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
        ServerStart()

        'Check for program changes every second

        ' Set interval for timer
        Run_ProgramRunCheck_timer.Interval = TimeSpan.FromMilliseconds(1000)


        'Start timer on button click
        Run_ProgramRunCheck_timer.Start()

        AddHandler Run_ProgramRunCheck_timer.Tick, AddressOf __ProgramCheck


        'Check for Message Recieve every second

        ' Set interval for timer
        Run_RecieveCheck_timer.Interval = TimeSpan.FromMilliseconds(1000)


        'Start timer on button click
        Run_RecieveCheck_timer.Start()

        AddHandler Run_RecieveCheck_timer.Tick, AddressOf _RecieveMessageConvert
        TCPClientSender()


    End Sub
    Public Sub __ProgramCheck()
        'This sub will be checked every 1 seconds for changes

        'Count number of processes
        processCount = Process.GetProcessesByName("tvnviewer").Count()
        My.Settings.TotalProcesses = processCount


    End Sub

    Public Sub TCPClientSender()
        My.Settings.TotalProcesses = 0
        If My.Settings.TotalProcesses = 1 Then
            Dim port As Int32 = 50000
            Dim client As New TcpClient("127.0.0.1", port)
            ' Translate the passed message into ASCII and store it as a Byte array.


            Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes("One Process")

            ' Get a client stream for reading and writing. 
            '  Stream stream = client.GetStream(); 
            Dim stream As NetworkStream = client.GetStream()

            ' Send the message to the connected TcpServer. 
            stream.Write(data, 0, data.Length)
        End If



    End Sub

    Public Sub _RecieveMessageConvert()

        TextBlock1.Text = My.Settings.StoreSentMessage
    End Sub
End Class

TCPServer.vb

Imports System.Net
Imports System.Threading
Imports System.Net.Sockets
Imports System.IO

Public Module TCPServer

    Dim Server = New TcpListener(IPAddress.Any, 50000) ' <-- Listen on Port 50,000
    Dim Client As New TcpClient
    Private ServerThread As Thread = Nothing
    Dim Message As String = ""
    Private Threads As New List(Of Thread)

    Public Sub ServerStart()
        ServerThread = New Thread(AddressOf ConnectionListener)
        ServerThread.IsBackground = True
        ServerThread.Start()
    End Sub
    Private Sub ConnectionListener()
        Try
            Server.Start()

            While True

                Dim client As TcpClient = Server.AcceptTcpClient ' Blocks until Connection Request is Received



                Dim Reader As New StreamReader(client.GetStream())

                While Reader.Peek > -1
                    Message = Message + Convert.ToChar(Reader.Read()).ToString


                End While


                My.Settings.StoreSentMessage = Message



            End While
        Catch ex As Exception

        End Try

    End Sub




End Module

Answer 1

难道你不想这样做：

Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(My.Settings.TotalProcesses)

当你将值设置为零然后检查下一行的值是否为1时，我不知道如何说“One Process”???

My.Settings.TotalProcesses = 0
If My.Settings.TotalProcesses = 1 Then

VB.NET TCPClient / Server问题 - 在定时器上发送

1 个答案: