Brauche bitte hilfe ! fehler im Script

05/15/2014 23:47 Maci4#1
Hallo :)


Habe leider ein kleines Problem , und zwar ich wollte ein neues Iexplorer fenster ausgeben wenn man "ButtonOk" klickt und dann sich mit den vom user eingegebenen daten einloggen aber irgendwie funktioniert das nicht ...

Könnte mir jemand bitte helfen?

Hier das script:




#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.10.2
Author: Marcel Andrä

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here


#include <IE.au3>
#include <GuiButton.au3>
#include <Guitoolbar.au3>
#include <GUIConstantsEx.au3>



#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>



#Region ### START Koda GUI section ### Form=C:\Users\Marcel\Desktop\Form2.kxf
$Form2 = GUICreate("DarkOrbit Trader BOT - LOGIN", 390, 401, -1, -1)
$UsernameInput = GUICtrlCreateInput("", 64, 232, 233, 21, $GUI_SS_DEFAULT_INPUT)
$ButtonOk = GUICtrlCreateButton("&OK", 126, 328, 107, 41)
$EnterPassLabel = GUICtrlCreateLabel("Login Daten eingeben:", 96, 156, 186, 24, 0)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$PasswortInput = GUICtrlCreateInput("", 65, 291, 233, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$Label1 = GUICtrlCreateLabel("Username: ", 64, 200, 58, 17)
$Label2 = GUICtrlCreateLabel("Passwort: ", 64, 264, 53, 17)
$Label3 = GUICtrlCreateLabel("(c) Maci4", 8, 376, 48, 17)
$Pic1 = GUICtrlCreatePic("C:\Users\Marcel\Desktop\Download .jpg", 72, 8, 252, 140)
GUISetState()
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $PasswortInput
EndSwitch
WEnd


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Input1
EndSwitch
WEnd


$username = GUICtrlRead($usernameInput)
$passwort = GUICtrlRead(&passwortInput)


while 1
$nmsg = GUIGetMsg()
If $nmsg = $buttonOk Then buttonOk()
WEnd

Func buttonOk()
_IECreate ( "www.darkorbit.de" )


Local username = _IEGetObjByName($Website,"username")
Local password = _IEGetObjByName($Website,"password")

_IEFormElementSetValue (username,"$username")
_IEFormElementSetValue (username,"$password")

EndFunc

-----------------------------------------------------------------------



Danke im vorraus :) :handsdown:
05/16/2014 01:15 golle12#2
Meine Güte was ist das denn. Zuerst mal gibt es Include Dateien die doppelt genommen werden ; warum? zweitens gibt es eine Variable welche du (hier) nicht deklariert hast und drittens was spricht gegen shellexecute denn du musst erstmal den Browser starten. Zu dem würde ich noch anmerken erstmal Grundlagen durchzugehen denn vieler der obrigen Sachen werden garnicht mal benötigt ...
05/16/2014 10:38 Maci4#3
Danke :)
Wäre dir sehr dankbar wenn du mir das Script so editen würdest dass der Button funktioniert :)
Wäre sehr nett :)

Und ja ich bin ein Anfänger ^^

MFG
05/16/2014 13:30 golle12#4
Als Anfänger würde ich aber nicht mich an sowas wagen sondern Abfragen und Schleifen ran gehen und nicht gleich einen Bot programmieren... Oben habe ich Lösungsvorschläge für dich gegeben welche du benutzten kannst aber in diesem (und anderen) Forum/Foren wird dir keiner ein fertiges Script hin klatschen denn du wirst daraus nichts lernen oder den Sinn davon verstehen. Daher bittet ich dich dies als ein späteres Projekt weiter zu führen und dich mit der Basis zu beschäftigen :)