VB6 WebBrowser spm. loggut kun om du er logget inn

[SpenzeR2k]

Hei, jeg driver på med en bot, men har noen problemer, det som er tingen er at jeg vil at programmet automatisk skal logge ut i det programmet startet, i tilfelle de er på en annen bruker, for om de ikke er logget ut så funker jo ikke boten. Skjønner dere ?

 

 

her er logg ut koden:

 

wb.Document.Forms(0).signoutsubmit.Click

DoEvents

While wb.Busy = True

    DoEvents

Wend

 

 

jeg får bare error, om boten ikke er på en bruker, så kan den jo ikke logge ut fra en bruker, og da får jeg en erorr.

[Manfred]

Når skal vi bli ferdig med NM-jukseboter her??

[SpenzeR2k]

tja, skal bare gjøre det for og prøve, kan godt gjøre det på en annen side, men trenger litt utfordring

 

Men jeg fikk tips om denne:

 

If wb.DocumentText.Contains("welcome") Then

wb.Document.Forms(0).logout.Click

DoEvents

While wb.Busy = True

DoEvents

Wend

Else

End If

End Sub

 

men det funka ikke.... (jeg satt den i load på start)

[GeirGrusom]

Den må i såfall kalles etter login.

 

Dessuten er While wb.Busy = True smør på flesk, det holder med "While wb.Busy"

 

aprikos while finnes ikke i VB.NET, så det er like greit å ikke bruke den først som sist.

While : Wend er byttet ut med Do While : Loop (begge fungerer i VB6, og gjør akkurat det samme)

 

Else kan du droppe, siden den ikke er i bruk.

 

wb.Documents.Forms(0).logout.Click.... funker virkelig dette?

skal det ikke være wb.Documents.Forms(0).Items("logout").Perform("Click") eller noe?

Men nå rører aldri jeg webbrowser kontrollene i det hele tatt, så hva vet vel jeg.

[SpenzeR2k]

ja de kodene funker de, men sliter bare med den loggut koden at den logger ut om den er logga inn fra før av.

[GeirGrusom]

Awrigth, på tide å lære debugging da kanskje? :O)

Sjekk hva .Contains() returnerer, for det kan være at den er case sensetive og krever at du skriver "Velkommen".

[aadnk]

aprikos while finnes ikke i VB.NET, så det er like greit å ikke bruke den først som sist.

While : Wend er byttet ut med Do While : Loop (begge fungerer i VB6, og gjør akkurat det samme)

9276768[/snapback]

Nå, While...End While (msdn) fungerer utmerket sist jeg sjekket. Men joda, jeg ville selv anbefalt å benyttet Do-varianten.

 

Dersom du vil unngå case sensitivity, kan du jo også benytte IndexOf:

If wb.DocumentText.IndexOf("welcome", StringComparison.CurrentCultureIgnoreCase) >= 0 Then

    ' Osv

End If

Endret 14. august 2007 av aadnk

[SpenzeR2k]

prøvde følgende (i form load)

 

If wb.DocumentText.IndexOf("welcome", StringComparison.CurrentCultureIgnoreCase) >= 0 Then

wb.Document.Forms(0).subloggut.Click

DoEvents

While wb.Busy = True

    DoEvents

Wend

Else

End If

End Sub

 

fikk error, klikka debug det er noe feil i følgende linje:

 

If wb.DocumentText.IndexOf("Banken", StringComparison.CurrentCultureIgnoreCase) >= 0 Then

[GeirGrusom]

Og den feilmeldingen er....?

[SpenzeR2k]

Run-time error '424':

 

Object required

[GeirGrusom]

Duh, vi blander visst litt VB6 og .NET her

 

Nå vet ikke jeg om inStr har samme funksjonalitet som IndexOf, men det vet sikert Aadnk

[aadnk]

Nå vet ikke jeg om inStr har samme funksjonalitet som IndexOf, men det vet sikert Aadnk

9277640[/snapback]

Såklart.

If InStr(1, wb.DocumentText, "welcome", vbTextCompare) > 0 Then

End If