How to Create a RemoteControl - Part 2

Tutorial #01 - How to create a Remote Control.

This tutorial will explain how to create a RemoteControl with Winsock under Visual Basic 6. The second part walks trough the server and testing of our simple RemoteControl.

Of course you can extend the RemoteControl, with some simple shell commands. :)

Due to Video Compression of YouTube, this video is in bad quality. You'll find parts 1 & 2 together, in good quality (FullScreen), at: http://www.megaupload.com/?d=H74RSGU5 (50 MB)

My Apologies for the strange english, and this quality in YouTube.

FireFoxyNL

Video in better quality: http://www.youtube.com/watch?v=BhwMC0d6rvs&fmt=18

Edit: Some of you guys didn't understand so here's the source code for the server:

Private Sub Form_Load()
sock.Protocol = sckTCPProtocol
sock.LocalPort = 1000
sock.Listen
End Sub

Private Sub sock_close()
sock.Close
sock.Listen
End Sub

Private Sub sock_ConnectionRequest(ByVal requestID As Long)
If sock.State = sckListening Then
sock.Close
sock.Accept requestID
End If
End Sub

Private Sub sock_DataArrival(ByVal bytesTotal As Long)
Dim Message As String
Call sock.GetData(Message, vbString)
If Message = "message" Then
received_message.Text = "Received from: " & sock.RemoteHostIP
Exit Sub
End If
End Sub

Category:

Howto & Style

Tags:

• how
• to
• create
• remote
• control
• visual
• basic
• win
• sock
• server
• tutorial
• part

[rolobottle217]

firefoxyNL do u think u could make a tutorial on how to add shell commands to the client.

[FirefoxyNL]

well, busy with school at the moment, but i shall add it with the update :)

[sp0k1ng]

how does this work?

Received from: 10.0.0.8

What can i do with this?

[FirefoxyNL]

It means it received data from that IP Address, so you know it works :)

[FirefoxyNL]

I have some other things to do on this moment, so the recreation can take a while. But anyways, you can find the source code now in the Video Description.

[danebat]

erug lekker jongen nice :D

ps wat is je xfire ?:P

[ItsGreatToKnow]

I aggre. Its TO Hard to convert to VB 2008.

I QUIT.

THIS SUCKED! ALOT!

[bigbossrat]

good job

[mathijswy]

Whats the theme?

[oeska143]

ik heb een probleem,

Als ik de Server wil runnen dan komt er een error:

Run-time error '424':

Object required

staat er dan.

Als ik op debug klik word sock.Protocol = sckTCPProtocol geel.

Reageer alsjeblieft.

[axljacoby]

I'd like to request a tutorial.

How to get an accent like yours.

[simme808]

sock.GetData(Message, vbString) Doesnt works on 2008:( is thi important bcause sock.GetData(Message) works

[simme808]

Use Shell

I think it is like Shell (Shutdown -s)

[Olavz2]

lol i solved it by editing the winsocket modifier from Private to Public and it works! ^^, Im so happy now :D

[Olavz2]

I cant figure this out, cant get it to work in VB 2008. Starting to hate VB 2008 :/ If any1 got a working solution in VB 08, plz share :)

[Andersaur]

lol look in descryption