Viernes de ocio

###SOURCE CODE###
ON VISUAL BASIC6
1) make a commandButton
2)go to toolbar> right click> components>select "Microsoft Internet controls"
3) Now add a WebBrowser
-------------------------------------------------------------------------------------------
1) Hacer un commandBoton
2) Ir a Barra de herramientas> click derecho> seleccionar "Microsoft Internet controls"
3) ahora agregar un WebBrowser





Private Sub Command1_Click()
WebBrowser1.SetFocus
sendkey "q", 100 'sendkey will give the order of press a Key...in this case q/ el sendkey simulara que presionas la q que es para buscar objetivo
sendkey "1", 800 ' then after 800 ms number 1... it means first key ring/ es el numero del anillo que usaras
sendkey "q", 100
sendkey "2", 800


'now I'll give you the most key used/ las letras mas usadas para los comanos....
'K= Knee/Stand Sentarse/pararse
'1,2,3,4,5,6,7,8= Rings/Anillos
'Spacebar= Self selection/Autoseleccion
'g= Follow objetive/seguir objetivo
'q=Select target/Seleccionar objetivo
'The rest is up to you... use your imagination/lo demas depende de tu imaginacion
'and of course... this bot won't be never unupdated/ y poruspuesto este bot no tendras que estarlo actualizando cada rato
'if you can make 50k in 5hrs, or 75k is up to you/ Depende de ti pero puedes hacer 50k en 5 horas 0 hasta 75k
'you can allways make your own magic.../siempre puedes usar tu propia magia
'N-joy


End Sub

Private Sub Command2_Click()
Form1.SetFocus
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.gaiaonline.com/launch/zomg"
End Sub

Public Sub sendkey(ByRef key As String, ByRef waitMS As Integer)
On Error GoTo errhandeler

Dim endtime As Single
waitMS = Abs(waitMS)
endtime = (Timer + (waitMS / 1000))
Do While Timer <= endtime
DoEvents
Loop

SendKeys key

Exit Sub

errhandeler:
End Sub





IF you can post your Source code so we all can see it and learn more!... SHARE!
Si puedes enviar tu codigo seria mucho que mejor asi podemos aprender...COMPARTE!!