Banker9129

Bin von ner Batch Datei abgekommen. Soweit so gut...

Programm soll 3 Fenster öffnen.

2 mit je 2 auf dem rechten 2. Bildschirm und 1 Fenster auf dem Hauptbildschirm.

Funktioniert soweit ganz gut nur der Loginbutton am Ende lässt sich nicht betätigen und die Fenster sind nicht angeordnet. 

Kann da noch jemand helfen?

Set objIE = CreateObject("InternetExplorer.Application")  
objIE.Visible = True
objIE.Navigate2 "http://www.dgap.de/"
objIE.Navigate2 "http://www.boerse.de/", 2048
Do While objIE.Busy
Loop
Set objIE = Nothing 
Set objIE = CreateObject("InternetExplorer.Application")  
objIE.Visible = True
objIE.Navigate2 "http://www.finanznachrichten.de/nachrichten/uebersicht.htm"
objIE.Navigate2 "http://www.finanzen.net/unternehmen/", 2048
Do While objIE.Busy
Loop
Dim IE
Set IE = WScript.CreateObject("InternetExplorer.Application")
Do While IE.Busy
Loop
IE.Visible = 1
IE.Navigate "https://www.flatex.de/kunden-login/"
Do While IE.ReadyState <> 4
Loop
Dim e
Dim i1
Set e = IE.Document.getElementsByName("tx_portal2webfilialesso_pi1[uname_app]")
For i1 = 0 To e.length - 1
  e(i1).value = "KUNDE"
Next
Set e = IE.Document.getElementsByName("tx_portal2webfilialesso_pi1[password_app]")
For i1 = 0 To e.length - 1
  e(i1).value = "PASSWORD"
Next
'Set Helem = IE.document.getElementByID("webfiliale_login")
 'Helem.Click webfiliale_Login

Moin und Willkommen am Board :)

 

Was wurde bisher recherchiert, nachgedacht und unternommen zum Erlernen der Programmierung?

 

Was erwartest Du von uns hier, eine kostenlose Dienstleistung?

 

Womit, welchem Programm sollen denn die Sites geöffnet werden?

 

Es ist in einer Batch zwar einfach, einen Internetbrowser aufzurufen, auch mit einer URL als Parameter, aber mit einem Login?

Ehrlich gesagt ja, ich hoffe kostenlos ein Script zu bekommen. Ist ja kein neues Game oder Software nur ein paar Zeilen.

Hab weiter recherchiert und wird es mit VBS versuchen. 

bin so weit:

Dim IE

Set IE = WScript.CreateObject("InternetExplorer.Application")

While IE.Busy

Wend

IE.Visible = 1

IE.Navigate "https://www.flatex.de/kunden-login/"

While IE.ReadyState <> 4

Wend

Dim e

Dim i1

Set e = IE.Document.getElementsByName("tx_portal2webfilialesso_pi1[uname_app]")

For i1 = 0 To e.length - 1

  e(i1).value = "Kundennummer"

Next

Set e = IE.Document.getElementsByName("tx_portal2webfilialesso_pi1[password_app]")

For i1 = 0 To e.length - 1

  e(i1).value = "Passwort"

Next

'Set e = IE.Document.getElementsByTagName("form")

'e(0).submit

funktioniert aber nicht ganz. Benötige jetzt das Ganze 6 mal und wie kann ich den Login Button im Browser betätigen?

Hallo zusammen.
Ich benötige eine Batch Datei in der 2 oder 3 Internet Explorer Fenster mit je 2 oder 3 Seiten aufgemacht werden. Am besten gleich noch mit Login.
Ist das möglich?
Habe 2 Bildschirme.
Auf dem 1. Soll ein Fenster in der rechten Bildhälfte aufgehen und auf dem 2. rechts und Links jeweils die Fenster mit den 2-3 Registerkarten.
Muss sonst immer 6-7 Seiten einzeln aufrufen und mich überall einloggen.
Benötige den gesamten Quelltext, bin absoluter Newbie.
Vielen dank vorab.