Login Script Funker Ikke I Vb 6...

6 innlegg i emnet

Skrevet (endret)

Yoyoo!

Jeg er ganske nå i vb6 og driver og lager en bot som logger meg inn på mafiaenshevn.com ( bare for å lære )

men jeg får erroren:

Run-time error `438`: Object doesn't support this propety or method...!

dette er koden jeg bruker!:

Private Sub Command1_Click()

Me.Show: DoEvents

wb.Navigate "www.mafiaenshevn.com"

DoEvents

While wb.Busy = True

DoEvents

Wend

wb.Document("username").Value = "eksempel"

wb.Document("password").Value = "eksempel"

wb.Document("submit").Click

DoEvents

While wb.Busy = True

DoEvents

Wend

End Sub
og her er kilde-koden!!!
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

</head>

<body>


<font color='red' face='Verdana, Arial, Helvetica, sans-serif' size='-3'></font><table align="center" cellpadding="0" cellspacing="0" border="0">

<form name="form1" action="http://www.mafiaenshevn.com/logginn.php" method="post"><tr><td class="bglogin"><div align="center" class="apDiv1">

  <input name="username" type="text" id="username" width="100" value="Brukernavn..." onFocus="Rens(username)" /><br>

  <input name="password" type="password" id="password" value="Passord..." width="100" onFocus="Rens(password)"><br>

  <input type="submit" name="Submit" value="Logg Inn">

  <br>

Hva gjør jeg galt?;D

takker for svar!

Endret av Andis
0

Del dette innlegget


Lenke til innlegg
Del på andre sider

Skrevet

det står brukernavn i koden din,, ikke username ;)

0

Del dette innlegget


Lenke til innlegg
Del på andre sider

Skrevet

det står brukernavn i koden din,, ikke username ;)

Funker heller ikke med username...!

og skrev bare feil her xD

Samme erroren hele tiden!

0

Del dette innlegget


Lenke til innlegg
Del på andre sider

Skrevet (endret)

Ja, som Morten242 sa, bare bytt

 wb.Document("brukernavn").Value = Text1.Text
til
 wb.Document("username").Value = Text1.Text
Det er det første du må gjøre. Det andre er at du må merke at Submit skrives med stor S. Altså
 wb.Document("submit").Click
skal være
 wb.Document("Submit").Click

Det tredje er verdt å merke seg at du faktisk endret webbroser1 til wb, før du bruker wb i kodingen din.

Endret av jiaxin
0

Del dette innlegget


Lenke til innlegg
Del på andre sider

Skrevet

Ja, som Morten242 sa, bare bytt
 wb.Document("brukernavn").Value = Text1.Text
til
 wb.Document("username").Value = Text1.Text
Det er det første du må gjøre. Det andre er at du må merke at Submit skrives med stor S. Altså
 wb.Document("submit").Click
skal være
 wb.Document("Submit").Click

Det tredje er verdt å merke seg at du faktisk endret webbroser1 til wb, før du bruker wb i kodingen din.

Det funker uansett ikke!

Får gul markering i username linjen!

skjønner ingen ting jeg ass.!

0

Del dette innlegget


Lenke til innlegg
Del på andre sider

Skrevet (endret)

Oja, nå ser jeg problemet:

wb.document("username"). value = "eksempel"
skal egentlig være
wb.document.all("username"). value = "eksempel"

Du må ha med .all bak document

Endret av jiaxin
0

Del dette innlegget


Lenke til innlegg
Del på andre sider

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å

  • Hvem er aktive   0 medlemmer

    Ingen innloggede medlemmer aktive