Auto login for vb6 webbrowser

I need to design an auto login for my webbrowser to login into runescape
but I don't know very much coding

Please help
and please be specific really specific heres my program

http://craigvalentine.bravehost.com/Downloads/Runescape Full Screen v1.1.4 Beta.exe

 

why are you posting a exe file and not the source?

 

so no one steals my program

 

Use the sendkeys function.

Google it!

 

I already tried googling it I can get it to type but not to move the mouse and click

 

maby u should try this?
the bas file

Code:

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI)
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Public Const MOUSEEVENTF_LEFTDOWN = &H2
    Public Const MOUSEEVENTF_LEFTUP = &H4
    Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
    Public Const MOUSEEVENTF_MIDDLEUP = &H40
    Public Const MOUSEEVENTF_RIGHTDOWN = &H8
    Public Const MOUSEEVENTF_RIGHTUP = &H10
    Public Const MOUSEEVENTF_MOVE = &H1
Public Type POINTAPI
    x As Long
    y As Long
    End Type

Public Function LeftClick1(ByVal x As Long, ByVal y As Long)
    SetCursorPos x, y
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    Sleep 50
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Function
Public Function GetX() As Long
    Dim n As POINTAPI
    GetCursorPos n
    GetX = n.x
End Function

' Function to get mouse y-position
Public Function GetY() As Long
    Dim n As POINTAPI
    GetCursorPos n
    GetY = n.y
End Function

' Sub to emulate left button click (down + up)
Public Sub LeftClick()
    LeftDown
    LeftUp
End Sub

' Sub to emulate left button down
Public Sub LeftDown()
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
End Sub

' Sub to emulate left button up
Public Sub LeftUp()
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

' Sub to emulate middle button click (down + up)
Public Sub MiddleClick()
    MiddleDown
    MiddleUp
End Sub

' Sub to emulate middle button down
Public Sub MiddleDown()
    mouse_event MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0
End Sub

' Sub to emulate middle button up
Public Sub MiddleUp()
    mouse_event MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0
End Sub

' Sub to emulate right button click (down + up)
Public Sub RightClick()
    RightDown
    RightUp
End Sub

' Sub to emulate right button down
Public Sub RightDown()
    mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
End Sub

' Sub to emulate right button up
Public Sub RightUp()
    mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub

' Sub to move mouse position with x,y
Public Sub MoveMouse(xMove As Long, yMove As Long)
    mouse_event MOUSEEVENTF_MOVE, xMove, yMove, 0, 0
End Sub

' Sub to set mouse position to x,y
Public Sub SetMousePos(xPos As Long, yPos As Long)
    SetCursorPos xPos, yPos
End Sub

and in your form:

Code:

Dim MyPointAPI As POINTAPI
Private Type POINTAPI
  x As Long
  y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Timer3_Timer()
leftclick1 30,40
End Sub

 

uhm I think u should use this code

Code:

SendKeys txtusername
SendKeys "{ENTER}"
SenKeys txtpassword
SendKeys "{ENTER}"

 

SendKeys doesn't work well on Vista, or certain Applet Types. :\

 

it works on my computer and I got vista to.. its only a kinda slow

 

http://jefgou3.mybesthost.com/passcar.jpg
like this? u can change the "*" to something else

 

If you don't want to use SendKeys, may I recommend the SendMessage API (slightly more complex) or some other thing to do with key events. For more info, http://allapi.mentalis.org/

 

Yes it does.