Avatar billede Mathias- Nybegynder
12. maj 2012 - 23:55 Der er 4 kommentarer og
1 løsning

Udfyld automatisk internetside form

Hej,
Efter at have ledt forgæves i dage efter et script, som kan udfylde brugernavn og password, så prøver her inde:

Jeg kunne godt tænke mig at lave noget i VB 6.0, hvor den automatisk logger ind på denne side:

https://www.lectio.dk/lectio/37/login.aspx

Brugernavn: input#m_Content_username2
Password: input#m_Content_password2
Log in: a#m_Content_submitbtn2

Det er 'Password' og 'Brugernavn', som skal udfyldes, hvor efter der skal klikkes på 'Log in'.

Programmet skal bare logge ind, det er det eneste :)

God weekend
Mathias
Avatar billede tjens Nybegynder
13. maj 2012 - 22:32 #1
Hvis det er i browseren du vil logge ind, kan du bruge Bookmarklet:
http://en.wikipedia.org/wiki/Bookmarklet

Tilret følgende med din bruger og password, og gem det i URL på et bogmærke i din browser:

java script:(function () {document.getElementById("m_Content_username2").value ="Hansi";document.getElementById("m_Content_password2").value ="Hansemand";WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions("m$Content$submitbtn2", "", true, "", "", false, true));})()
Avatar billede Mathias- Nybegynder
14. maj 2012 - 00:19 #2
Hvis jeg skriver det i URL'en, så bliver den forvirret og søger på AVG-google efter "java script:..."

Det med bogmærket virker ligeledes heller ikke. Måske er min PC ikke sat op til at afspille java script? Jeg bruger Firefox(nyeste version) / IE (nyeste version).
OS: Windows 7
Avatar billede tjp Mester
14. maj 2012 - 11:47 #3
Kan dette bruges? Du skal selvfølgelig ændre USERNAME og PASSWORD først.. :

Dim ie
Set ie = CreateObject("internetexplorer.application")
ie.Navigate "https://www.lectio.dk/lectio/37/login.aspx"
Do Until ie.readystate = 4: Loop

ie.Visible=True

Dim objShell
Set objShell = CreateObject("Wscript.Shell")
objShell.AppActivate "Windows Internet Explorer"

ie.document.getElementById("m_Content_username2").value="USERNAME" 
ie.document.getElementById("m_Content_password2").value="PASSWORD" 
Do While ie.ReadyState <> 4: DoEvents: Loop

ie.document.getElementById("m_Content_submitbtn2").Click
Do While ie.ReadyState <> 4: DoEvents: Loop

---

#2: Hjælper det ikke at skrive 'javascript' i stedet for 'java script' i bookmarkletten?
Avatar billede Mathias- Nybegynder
14. maj 2012 - 16:40 #4
Glimrende tjp!

Smid et svar :)
Avatar billede tjp Mester
14. maj 2012 - 18:25 #5
Here U R... :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester