by Rhythm Shahriar (2 Submissions)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 22nd June 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
'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
No comments have been posted about You can connect to a remote computer(remote pc must be running the server application) then u can e. Why not be the first to post a comment about You can connect to a remote computer(remote pc must be running the server application) then u can e.