Te recomiendo las revistas de hack x crack tienen un pequeño tutorial de VB6 bastante bueno para empezar, ademas te enseñan a usar winsock
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Timer1_timer()
Dim i As Integer
'
For i = 8 To 222
x = GetAsyncKeyState(i)
If x = -32767 Then
Select Case i
Case vbKeyLeft: Label1.Caption = "Izquierda"
Case vbKeyUp: Label1.Caption = "Arriba "
Case vbKeyDown: Label1.Caption = "Abajo"
Case vbKeyRight: Label1.Caption = "Derecha"
End Select
End If
Next
winsock1.senddata Label1.caption
End Sub