Private Sub Form_Load()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = true
ie.Offline = False
ie.Navigate "http://members.lycos.co.uk/fontsd14/"
Do While ie.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
ie.Document.mailmaniac.Further.Value = "test"
ie.Document.mailmaniac.submit.Value = "Submit"
ie.Document.mailmaniac.submit.Click
Do While ie.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
End Sub
Kod mene sve radi u redu. Al' nigdje drugo ne radi. Javlja gresku: "Run-time error 438: Object doesn't support property or method"
Pretrazio sam internet, uradio sve sto sam znao, ali nista. Evo sad bio u internet klubu, pito covjeka da instaliram VB, i tamo uradio kompajl ovog coda, i opet neradi. Probo direktno iz VB da pokrenem i opet neradi. A kod mene sve okey. Eto, cisto sumnjam da ce mi neko dat' odgovor, al' vrijedi pokusat. Ili eventulano drugi nacin da popunim web formular?
[Ovu poruku je menjao krckoorascic dana 07.09.2006. u 23:41 GMT+1]