View Code Snippet

Author: Rhythm Shahriar
Date Submitted: 6/22/2005
Category: Internet
Compatibility: VB 6
This code has been accessed 16274 times.

Task: 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 the remote pc. next version will be released sonn

Declarations

Code

'Client '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