Disclaimer akzeptieren

ExBerliner

hallöchen,

ich kriegs einfach nicht auf die reihe (wohl wegen grünschnabel-status).
hier mein code:

Code

#include <IE.au3>
$o_IE1 = _IECreate ("http://www.de.x-markets.db.com")
_IELoadWait($o_IE1)
$sText = _IEBodyReadHTML ($o_IE1)
if StringInStr($sText,"Disclaimer akzeptieren") then
 ... hier hakt es bei mir.
EndIf
... hier dann weiter, falls disclaimer schon mal akzeptiert wurde

... hier hakt es bei mir. was muss ich hier tun um "Disclaimer akzeptieren" zu simulieren. _IEClickirgendwas funktioniert nicht, weil es sich wohl um ein java-script handelt ? die if-anweisung muss ich haben, falls einmal der disclaimer akzeptiert wurde, dann wird diese seite nicht mehr angezeigt.

alternativ könnte ich das fenster maximieren und mit MouseClick ( "left",x,x) rumpriemeln, halte das aber nicht grad für professionell. :shy

vielen dank schon mal für eure praktischen hinweise.
gruss exberliner

EDIT: ups, bin ja schon jungspund :-))

jonk

Nabbönd,

... getestet und für gut befunden :

Code

#include <IE.au3> 
$o_IE1 = _IECreate ("http://www.de.x-markets.db.com")
_IELoadWait($o_IE1)


$oForm = _IEFormGetObjByName ($o_IE1, "frmdisclaimer")
$DisclaimerOK = _IEGetObjByName($oForm,"stdiscaccept")
If $DisclaimerOK <>0 Then
	$DisclaimerOK.click()
EndIf

ExBerliner

@jonk

wahnsinn, danke. da wär ich nie drauf gekommen, hab ja die ie.au3 druchsucht. tja, noch viel zu lernen.

gruss und schönes WE
exberliner

ExBerliner

@jonk, vielleicht kannst du mir nochmal weiterhelfen. (oder auch gerne jmd. anders aus diesem forum)
nach dem akzeptieren kommt eine neue seite, da muss ich nun "login" simulieren. ich kriegs einfach nicht auf die reihe. deinen o.g. code kann ich hier nicht anwenden und auch alle_IELinkClick... gehen da nicht. (können ja auch nicht gehen, soweit ich das jetzt verstanden habe)

naja, nach dem login habe ich dann das problem mit der darauffolgenden seite mit dem "anmelden".

ich habe mir erstmal damit beholfen, mausklicks (mouseclick "left",x,x) auf den entsprechenden stellen anzuwenden. aber das gefällt mir irgendwie nicht so recht.

vielen dank im voraus.

gruss exberliner

muh_kuh

hallo
poste doch mal den html code von der anmelde seite
und deine Code (aber ohnen Passwort)

ExBerliner

gerne ...

Code

#include <IE.au3>
$login="username"
$pwd="password"
WinMinimizeAll()
$o_IE1 = _IECreate ("http://www.de.x-markets.db.com")
_IELoadWait($o_IE1)
$oForm = _IEFormGetObjByName ($o_IE1, "frmdisclaimer")
$DisclaimerOK = _IEGetObjByName($oForm,"stdiscaccept")
If $DisclaimerOK  <> 0 Then
        $DisclaimerOK.click()
EndIf


; hier Login 
WinSetState ( "Deutsche Bank", "", @SW_MAXIMIZE )
MouseClick ( "left" , 754, 236 )  ;;; press Login
_IELoadWait($o_IE1)
send ($login&"{tab}"&$pwd)
MouseClick ( "left" , 387, 514 ) ;;; press anmelden

Alles anzeigen

pah jetzt bin ich erst drauf gekommen, dass man bei "anmelden" noch ein @CRLF machen könnte, also so:
send ($login&"{tab}"&$pwd&@CRLF)
und den letzten mouseclick dann rausnehmen.
wäre aber doch interessant zu erfahren, wie man es anders lösen könnte.

gruss exberliner

**peethebee**

send ($login&"{tab}"&$pwd&@CRLF)

Ich glaube nicht, dass das geht...
Eher würde ich statt @CRLF {ENTER} senden.

peethebee

jonk

hi exBerliner,

ich habe das Skript von heute Morgen nochmal erweitert

[autoit]

#include <IE.au3>
$o_IE1 = _IECreate ("http://www.de.x-markets.db.com")
_IELoadWait($o_IE1)

[/autoit][autoit][/autoit][autoit]

$oForm = _IEFormGetObjByName ($o_IE1, "frmdisclaimer")
$DisclaimerOK = _IEGetObjByName($oForm,"stdiscaccept")
If $DisclaimerOK <>0 Then
$DisclaimerOK.click()
EndIf

[/autoit][autoit][/autoit][autoit]

Sleep(3000)
_IENavigate ($o_IE1, "http://www.de.x-markets.db.com/DE/showpage.asp?pageid=90&forwardid=67")
Sleep(3000)

[/autoit][autoit][/autoit][autoit]

$oFormLogin = _IEFormGetObjByName ($o_IE1, "frmLogin")
$oEmail = _IEGetObjByName($oFormLogin,"ememail")
_IEFormElementSetValue ($oEmail, "ich@home.net")
$oPasswd = _IEGetObjByName($oFormLogin,"stpassword")
_IEFormElementSetValue ($oPasswd, "enemenemu")
_IEFormSubmit($oFormLogin)

[/autoit]

ExBerliner

peethebee klar, logisch .. enter.. ich hatte es noch nicht probiert, sondern beim posten nur die taste enter gedrückt und dann in meinem jungspund-leichtsinn @CRLF geschrieben.

@jonk nee, niemals wäre ich darauf gekommen. danke dir dafür.

jetzt habe ich noch eine hürde danach, aber aus prinzip möchte ich versuchen das zunächst selbst zu lösen. wenn ich es nicht schaffe, (was ich schon fast befürchte), darf ich mich sicher nochmal melden ?

gruss exberliner

jonk

klar immer her damit

ExBerliner

hi jonk,

das "drama" geht weiter bzw. ich komme nicht weiter :shy
wie schon angekündigt, kommt nach dem login dort ein icon welches auch den text "new window" hat. ich habe es bisher nur geschafft wieder mit mouseclick weiter zu kommen. wie bekomme ich das denn professioneller wieder hin ? ich habe mal den entsprechenden teil-html-quellcode hier:

ich denke mal, du erkennst sofort was notwendig ist ?

hilfst mir bitte noch ein vorletztes mal ? :hihi:

besten dank im voraus.
gruss exberliner

edit: nur rechtschreibfehler korrigiert

jonk

hi

Code

#include <;IE.au3> 
$o_IE1 = _IECreate ("http://www.de.x-markets.db.com")
_IELoadWait($o_IE1)


$oForm = _IEFormGetObjByName ($o_IE1, "frmdisclaimer")
$DisclaimerOK = _IEGetObjByName($oForm,"stdiscaccept")
If $DisclaimerOK  <> 0 Then
        $DisclaimerOK.click()
EndIf


Sleep(3000)
_IENavigate ($o_IE1, "http://www.de.x-markets.db.com/DE/showpage.asp?pageid=90&forwardid=67")
Sleep(3000)


$oFormLogin = _IEFormGetObjByName ($o_IE1, "frmLogin")
$oEmail = _IEGetObjByName($oFormLogin,"ememail")
_IEFormElementSetValue ($oEmail, "ich@home.net")
$oPasswd = _IEGetObjByName($oFormLogin,"stpassword")
_IEFormElementSetValue ($oPasswd, "enemenemu")
_IEFormSubmit($oFormLogin)


Sleep(3000)
_IENavigate ($o_IE1, "http://www.de.x-markets.db.com/DE/showpage.asp?pageid=195")
Sleep(3000)

Alles anzeigen

konnte den Code diesmal natürlich nicht testen ;). Solltest Du ein neues Fenster haben wollen, ließe sich das auch noch ändern.

ExBerliner

hi jonk,

och nö.
tzz, manchmal sind die dinge ja echt recht einfach nur durch die url zu lösen. nein, ein neues fenster brauche ich nicht, erspare mir dadurch ja das alte zu schliessen. 2 fliegen mit einer klappe ....

:musik1: es funzt super.

vielen dank für die hilfe jonk.

an die admins: mails bekomme ich leider immer noch nicht, schade.

gruss exberliner

ExBerliner

hi jonk,

muss nochmal stören. ich muss das browserfenster leider ohne menü und adressleiste haben. weisst du dafür auch eine lösung ? dem _IENavigate() kann ich da ja keine parameter für übergeben.

vielen dank im voraus.

gruss exberliner

jonk

Servus,

auch das ist Möglich

...
_IEFormSubmit($oFormLogin)

$o_IE1.Menubar = False
$o_IE1.Statusbar = False
$o_IE1.toolbar = False

Sleep(3000)
_IENavigate ($o_IE1, "http://www.de.x-markets.db.com/DE/showpage.asp?pageid=195")
Sleep(3000)

ExBerliner

@jonk

bin sprachlos. es funktioniert super. vielen dank für die unterstützung.
muss ehrlich gestehen, dass ich die parameter noch nicht so recht verstehe; okay mit dem wissen jetzt kann ich das mal in ruhe aufbröseln.

also vielen dank nochmal.

gruss exberliner

**Gun-Food**

Die Menübar ist Datei - Bearbeiten - Ansicht usw.
Die Statusbar ist das wo "Fertig" drin steht, wenn die Seite fertig geladen wurde. Es gibt JavaScripts die schreiben dort ihren eigenen Text rein.
Und die Toolbar ist die Bar mit den "Weiter" - "Zurück" usw.

ExBerliner

jau gun-food. soweit war mir das schon klar.

ich frage mich nur wie/wo die programmzeilen

$o_IE1.Menubar = False
$o_IE1.Statusbar = False
$o_IE1.toolbar = False

ausgewertet werden.

mit dem aufruf von "_IENavigate" oder alleine durch die deklaration ?

gruss exberliner