kom feil da jeg jeg prøve denne koden i dag!

[Refi]

Public Function WebPageContains(ByVal s As String) As Boolean

Dim i As Integer, ehtml

For i = 1 To Form2.wb.Document.All.Length

Set ehtml = _

Form2.wb.Document.All.Item(i)

 

If Not (ehtml Is Nothing) Then

If InStr(1, ehtml.innerhtml, s, vbTextCompare) > 0 Then

WebPageContains = True

Exit Function

End If

End If

Next i

End Function

 

 

 

 

den funket i går, men ikke i dag!!

hva er feil?

[brgr]

Hvis jeg gjør rett i min Microsoft Visual Studio så får jeg denne feilmeldingen:

Error 1 'Length' is not a member of 'System.Windows.Forms.HtmlElementCollection'. d:\dokumenter\birger\Diskusjon.no\Hjelp1\isFieldEmpty\webform.vb 17 22 isFieldEmpty

 

 

Prøv med

For i = 1 To Form2.wb.Document.All.Count

 

Istedefor

For i = 1 To Form2.wb.Document.All.Length

Endret 29. mai 2008 av brgr

[GeirGrusom]

Dim i As Integer, ehtml

heter det ikke

Dim i, ehtml As Integer

?

[Manfred]

Ganske vanlig det der. At en kode som funker en dag klikker dagen etter uten en eneste endring

[Harald Staff]

Dim i As Integer, ehtml

Her blir i Integer og ehtml Variant

Dim i, ehtml As Integer

Her blir i Variant og ehtml integer. Og er den ikke assignet og integer så er den 0 og ikke Nothing, det er neppe ønskelig her. Kan være lurt å deklarere den til hva den skal være, f.eks

Dim ehtml as HTMLDocument

for å få bedre hejlp på slike feil.

 

Beste hilsen Harald

Endret 30. mai 2008 av Harald Staff

[lobfredd]

Dim i As Integer, ehtml

Her blir i Integer og ehtml Variant

Dim i, ehtml As Integer

Her blir i Variant og ehtml integer. Og er den ikke assignet og integer så er den 0 og ikke Nothing, det er neppe ønskelig her. Kan være lurt å deklarere den til hva den skal være, f.eks

Dim ehtml as HTMLDocument

for å få bedre hejlp på slike feil.

 

Beste hilsen Harald

 

 

Den koden der skal gjøre det mulig og skrive

If WebPageContains ("subloggut") = True Then

wb.document.all("subloggut").click

End If

osv. av koden..

 

 

lissom fordi programmet klikker om man alerede er innlogget

da den ikke finner ut vor den skal skrive bruk/pass til login.

Endret 30. mai 2008 av lobfredd

[lobfredd]

Dim i As Integer, ehtml

Her blir i Integer og ehtml Variant

Dim i, ehtml As Integer

Her blir i Variant og ehtml integer. Og er den ikke assignet og integer så er den 0 og ikke Nothing, det er neppe ønskelig her. Kan være lurt å deklarere den til hva den skal være, f.eks

Dim ehtml as HTMLDocument

for å få bedre hejlp på slike feil.

 

Beste hilsen Harald

 

 

Den koden der skal gjøre det mulig og skrive

If WebPageContains ("subloggut") = True Then

wb.document.all("subloggut").click

End If

osv. av koden..

 

 

lissom fordi programmet klikker om man alerede er innlogget

da den ikke finner ut vor den skal skrive bruk/pass til login.

 

bump!

[Degeim]

Har du prøvd å gjøre slik Harald Staff sier?

[Luto]

Prøv å Fjerne "form2"

 

Hvis du har kopiert koden fra en annet program =P

[lobfredd]

Prøv å Fjerne "form2"

 

Hvis du har kopiert koden fra en annet program =P

 

Må ikke form2.wb være der?

siden koden er i form1 og wb er i form2?

men alt funket først!

 

Finnes det en annen kode for og skjekke om web page contains da?