Gå til innhold

Oppkobling til proxy server?


Anbefalte innlegg

har prøvd å kode det slik:

 

Private Sub Command1_Click()

WebBrowser1.Navigate ("google.no/")

End Sub

 

Private Sub Command2_Click()

WebBrowser1.Navigate ("http://www.clearsurf.info/")

DoEvents

While WebBrowser1.Busy = True

DoEvents

Wend

 

WebBrowser1.Document.All("address_box").Value = statland.myminicity.com

WebBrowser1.Document.Forms("go").submit

End Sub

 

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

WebBrowser1.Navigate ("http://www.clearsurf.info/")

DoEvents

While WebBrowser1.Busy = True

DoEvents

Wend

 

WebBrowser1.Document.All("address_box").Value = statland.myminicity.com

WebBrowser1.Document.Forms("go").submit

End Sub

 

 

men uten å lykkes :( noen som kan forklare meg hva som er feil ? :)

Lenke til kommentar
  • 4 uker senere...
Videoannonse
Annonse

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
×
×
  • Opprett ny...