Jag har använt mig av Pelles artikel lite och skrivit detta:

<code>
Private Sub Form_Load()

lunarurl = "http://www.lunarstorm.se"
WebBrowser1.Navigate lunarurl
password = "hejhopp"
hejsan = "Hejsan Molle! Läget idag? Får du nåt i status LR?"
step = 0

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Select Case step

Case 0
Actionlogin
step = 1
Case 1
Actiongotogb
step = 2
Case 2
Actionwritegb
step = 3
Case 3
Actiongotomejl
step = 4
Case Else
MsgBox "Fel här va...", vbOKOnly, "Oooops!"
End Select

End Sub

Private Sub Actionlogin()

SendKeys password
SendKeys "{ENTER}"

End Sub

Private Sub Actiongotogb()

SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{ENTER}"

End Sub

Private Sub Actionwritegb()

SendKeys hejsan
SendKeys "{TAB}"
SendKeys "{ENTER}"

End Sub

Private Sub Actiongotomejl()

SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{ENTER}"

End Sub
</code>

Men redan när jag ska till att logga in så säger lunarstorm:
"Ditt lösenord måste innehålla fler än 3 tecken"

Så programmet skriver alltså inte ut lösenordet innan det försöker logga in, nån som kan lösa det? Jag har försökt i ett par timmar nu tror jag :(

Måste du inte fylla i användarnamn också, eller sparas det till nästa gång man loggar in? Jag har inte något konto så jag kan prova, men om jag går in på sidan är pekaren i användarnamnrutan.

/Ivar

Det sparas...

Är password deklarerad utanför suben ?
Använd Option Explicit så får du ju aldrig problem med sånt.

(För övrigt bör du nog använda konstanter snarare än variabler...)

/Niklas Jansson

Märkte att den körde allt i ett svep...