Hvordan lage ett program som setter inn pw osv.?

[LeifOlav]

Hei. Tenkte jeg skulle prøve å lage ett program i VB6 som setter inn brukernavn og passord på en internettside, for så å trykke logg inn. Jeg vil også at botten skal oppdatere dette hvert 2. minutt, sånn at om brukeren jeg logger på med detter ut, så vil den bli logga inn igjen etter 2 minutter av programmet jeg nå vil lage. Hvordan blir fremgangsmåten?

 

 

Oppsummering:

1:Skrive inn brukernavn og passord

2: Trykke Logg Inn

3: Oppdatere hver 2 minuttt

 

 

 

 

Hadde vært om noen hadde tatt seg tid til å forklare

[Jonas]

Du har mulighet til å gjøre omtrent alt med WebBrowser-kontrollen. Via WebBrowser1.Document kan du gjøre hva du vil, på samme måte som med javascript.

 

WebBrowser1.Document.pollxtd1.voteid(1).Checked = True
WebBrowser1.Document.pollxtd1.submit

[LeifOlav]

Beklager, men forstod ikke noe særlig av dette :/

[Jonas]

Option Explicit

 

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

 

Private Sub Form_Load()

   

    Me.Show

   

    WebBrowser1.Navigate "http://www.google.no"

   

    Do While WebBrowser1.Busy

        DoEvents

        Sleep 1

    Loop

   

    WebBrowser1.Document.f.q.Value = "seach text"

    WebBrowser1.Document.f.submit

   

End Sub

[Jolo]

Holder på med et lignende prosjekt. Men får ikke koden helt til å stemme.

 

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
   
   WebBrowser1.Navigate "http://www.siden"
  
   Do While WebBrowser1.Busy
       DoEvents
       Sleep 1
   Loop
  
Dim brukernavn As String
Dim passord As String
brukernavn = txtBruker.Text
passord = txtPass.Text

   WebBrowser1.Document.All("username").Value = brukernavn
   WebBrowser1.Document.All("password").Value = passord
End Sub

Private Sub Command2_Click()
   WebBrowser1.Document.f.q.Value = "Enter"
   WebBrowser1.Document.f.submit

 

Når jeg bruker Command1_Click får jeg Runtime error 91 og med Command2_Click får jeg Runtime Error 438. Har du noen forslag?

 

Command1_Click funker om jeg bytter den om til Form_Load. Har noen anelse om hvorfor dette blir sånn?

Endret 28. mai 2007 av Smalltimer

[Jonas]

Har ikke mulighet til å hjelpe noe særlig med mindre du skriver feilmeldingen og på hvilken linje du fikk den.

[Jolo]

WebBrowser1.Document.All("brukernavn").Value = brukernavn, kommer Runtime error 91. Object varrialbe or With block variable not set.

 

WebBrowser1.Document.f.q.Value = "Enter", Her kommer Runtile Error 438. Object doesnt support this property or method.