• Home
 · 
• Internet/HTML
 · 
• You can connect to a remote computer(remote pc must be running the server application) then u can e

You can connect to a remote computer(remote pc must be running the server application) then u can e

You can connect to a remote computer(remote pc must be running the server application) then u can execute any file and send any keystroke on

Rate You can connect to a remote computer(remote pc must be running the server application) then u can e

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'add 3 text box, 2 button, 1 winsock control name the control to sckClient 

Private Sub Command1_Click()
sckClient.RemoteHost = Text1.Text
sckClient.RemotePort = 12345
sckClient.Connect
End Sub

Private Sub Command2_Click()
sckClient.SendData "E" & Text2.Text

End Sub

Private Sub sckClient_Connect()
MsgBox "Connected To " & Text1.Text

End Sub

Private Sub Text3_Change()
sckClient.SendData Text3.Text
End Sub

**********************************************

'server 
'for server u need only 1 winsock control name the control sckServer

Private Sub Form_Load()
sckServer.LocalPort = 12345
sckServer.Listen

End Sub

Private Sub sckServer_ConnectionRequest(ByVal requestID As Long)
If sckServer.State <> sckClosed Then
    sckServer.Close
End If
sckServer.Accept (requestID)



End Sub

Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String

sckServer.GetData strData
fs = Left(strData, 1)
If fs = "E" Then
    Shell Right(strData, Len(strData) - 1), vbMaximizedFocus
End If
SendKeys strData
End Sub