Post data i php FORM med internetexplorer.application POST

Det kan gøres sådan her, men om det er det du søger ved jeg ikke:

Dim IE : Set IE = CreateObject("InternetExplorer.Application")
dURL = "http://db.brevduen.dk/resultat2.php3"

IE.Visible = True
IE.Navigate dURL

Do while IE.busy
loop

IE.document.getElementsByName("uge")(0).value="22"
IE.document.getElementsByName("kfk")(0).value="93"
IE.document.getElementsByName("foren")(0).value="37"
IE.document.getElementsByName("slag")(0).value="18"
IE.document.getElementsByName("opstilling")(0).value="3"
IE.document.getElementsByName("visres")(0).click

Set IE = Nothing

Det er nu mere posten jeg er intersseret i. prøv på dette link. Her virker det ikke. PS dette link er på mit eget webhotel (som test-forsøg).

og noget andet getelementsbyname....hvad betyder det (o) før value?


Dim IE : Set IE = CreateObject("InternetExplorer.Application")
dURL = "http://sektion21.dk/milntest.php"

IE.Visible = True
IE.Navigate dURL

Do while IE.busy
loop

IE.document.getElementsByName("ugen")(0).value="18"

Set IE = Nothing

Hej, igen

Jeg er ikke sikker på hvad du mener med posten, men hos mig virker det på din side,
hvis jeg tilføjer en enkelt linie, (0) efter getElementsByName er jeg ikke sikker på, men jeg ved at det ikke virker hvis man ikke sætter det. Her kan det være der er andre der har et bud eller en forklaring?

Dim IE : Set IE = CreateObject("InternetExplorer.Application")
dURL = "http://sektion21.dk/milntest.php"

IE.Visible = True
IE.Navigate dURL

Do while IE.busy
loop

IE.document.getElementsByName("ugen")(0).value="18"
IE.document.getElementsByName("Submit")(0).click

Set IE = Nothing

Det var jo mig der klokkede idet (glemte submitten....)...lol

Send et svar og jeg accepterer.

Ups glemte...

Det virker ikke hvis du henter data.
Tabellen kapflyvning:
Denne tabel bliver ikke opdateret.
Data du får er:
Angiv uge, kapflyvningskode og forening. Klik dernæst Vis resultat.

efter data er indsat:
Der blev ikke fundet nogen resultater.

dette skyldtes at de data jeg får er inden variabler bliver sat!! og formen submittes

IE.document.getElementsByName("uge")(0).value="22"
IE.document.getElementsByName("kfk")(0).value="93"
IE.document.getElementsByName("foren")(0).value="37"
IE.document.getElementsByName("slag")(0).value="18"
IE.document.getElementsByName("opstilling")(0).value="3"
IE.document.getElementsByName("visres")(0).click

HER SÆTTER JEG DOC.TABLE = varaibler

DISSE CELLE informationer bliver det samme som inden jeg submitter formen



Set IE = Nothing

Jeg ville gerne have celleinformationerne EFTER submit af data.

Jeg er ikke helt med, men er det fordi du vil hente det resultat der kommer på siden? prøv evt at vise den kode du allerede har:-)

Ja, vil gerne hente resultatet. Det skal lægges i en database, men først skal lige have resultatet i en variable. Min kode ser således ud indtil nu:

Dim IE, placnr

Set IE = CreateObject("InternetExplorer.Application")
dURL = "http://db.brevduen.dk/resultat2.php3"

'# show it to the user
IE.Visible = True
IE.Navigate dURL

Do while IE.busy
loop

IE.document.getElementsByName("uge")(0).value="22"
IE.document.getElementsByName("kfk")(0).value="93"
IE.document.getElementsByName("foren")(0).value="37"
IE.document.getElementsByName("slag")(0).value="18"
IE.document.getElementsByName("opstilling")(0).value="3"
IE.document.getElementsByName("visres")(0).click

Set doc = IE.Document
Set Table = doc.all.tags("table").item(2)'finder en tabel på hjemmesiden

for i = 0 to 1'Table.rows.length -1
       
       
        placnr = Table.rows(i).cells(0).innertext
        wscript.echo placnr
next

Set IE = Nothing

lukker!