Beiträge von clezZ

clezZ

Sowas in der art:

Spoiler anzeigen

[autoit]

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

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

Global $Anzahl = 0

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

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 625, 445, 192, 124)
Global $Input1 = GUICtrlCreateInput("", 88, 16, 353, 21)
Global $Button1 = GUICtrlCreateButton("Button1", 480, 16, 105, 25, $WS_GROUP)
Global $Combo1 = GUICtrlCreateCombo("", 80, 72, 369, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Read = GUICtrlRead($Input1)
GUICtrlSetData($Combo1, $Read)
GUICtrlSetData($Input1, "")
EndSwitch
WEnd

[/autoit]

clezZ

Wenn ja, schau dir mal das an:

[autoit]

IniWrite()
IniRead()

[/autoit]

clezZ

Schau mal, ob man es komprimieren kann (bei den Einstellungen irgendwo, und dann neu anfnehmen)

clezZ

Hier ist das Skript:

Spoiler anzeigen

[autoit]

ShellExecute("Setup.exe")
WinWait("ATI - Catalyst™-Installationsmanager - Version: 03.00.0765","Welche Sprache soll Catalyst™-")
ControlCommand("ATI - Catalyst™-Installationsmanager - Version: 03.00.0765","Welche Sprache soll Catalyst™-","ComboBox1","SelectString Deutsch German")
WinWait("ATI - Catalyst™-Installationsmanager - Version: 03.00.0765","Welche Sprache soll Catalyst™-")
ControlClick("ATI - Catalyst™-Installationsmanager - Version: 03.00.0765","Welche Sprache soll Catalyst™-","Button10")
WinWait("ATI - Catalyst™-Installationsmanager - Version: 03.00.0765","Installieren")
ControlClick("ATI - Catalyst™-Installationsmanager - Version: 03.00.0765","Installieren","Button1")
WinWait("ATI - Catalyst™-Installationsmanager - Version: 03.00.0765","")
ControlClick("ATI - Catalyst™-Installationsmanager - Version: 03.00.0765","","Button10")
WinWait("ATI - Catalyst™-Installationsmanager - Version: 03.00.0765","")
ControlClick("ATI - Catalyst™-Installationsmanager - Version: 03.00.0765","","Button14")
WinWait("Lizenzvereinbarung für Endanwender","&Akzeptieren")
ControlClick("Lizenzvereinbarung für Endanwender","&Akzeptieren","Button1")
WinWait("Bitte Installationsordner angeben.","Der Ordner 'C:\Program Files\A")
ControlClick("Bitte Installationsordner angeben.","Der Ordner 'C:\Program Files\A","Button1")
WinWait("ATI - Catalyst™-Installationsmanager - Version: 03.00.0765","")
ControlClick("ATI - Catalyst™-Installationsmanager - Version: 03.00.0765","","Button28")
;--- End ---

[/autoit]

Ich würde die Button IDs verwenden, oder die Class (ggf. mit Instance).

clezZ

Da bin ich jetzt aber mal gespannt.

clezZ

Probiers mal so, änder halt Username und PW:

Spoiler anzeigen

[autoit]

#include-once
#include <FF.au3>

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

$sUserName = 'Username' ;Dein Username
$sPassWord = '********' ;Dein Passwort
$URL = 'http://www.web.de/fm' ;Die URL

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

_FF_AutoLogin($sUserName, $sPassWord, $URL)

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

; #FUNCTION# ===================================================================
; Name ..........: _FF_AutoLogin
; Description ...: Auto login for HTML-forms / Generator for login-functions
; AutoIt Version : V3.3.0.0
; Requirement(s).: FF.au3
; Syntax ........: _FF_AutoLogin($sUserName, $sPassWord[, $sURL = ""[, $sStatus = ""[, $sSubmitMode = "keypress"[, $iMode = 0[, $iFormOffset = 0]]]]])
; Parameter(s): .: $sUserName -
; $sPassWord -
; $sURL - Optional: (Default = "") : login page
; $sStatus - Optional: (Default = "") : Message to search on the web-page if the login was successful
; $sSubmitMode - Optional: (Default = "keypress") : if any methode fails the next in the list is tried
; | keypress
; | click
; | submit
; | off (fills only the inputs)
; $iMode - Optional: (Default = 0) : login-only
; | 1: login and returns login-function
; $iFormOffset - Optional: (Default = 0) : offset for some sites, with multiple password-inputs
; Return Value ..: Success - 1 / string (function)
; Failure - 0
; Author(s) .....: Thorsten Willert
; Date ..........: Fri Nov 13 21:36:39 CET 2009
; Version .......: 4.1
; ==============================================================================
Func _FF_AutoLogin($sUserName, $sPassWord, $sURL = "", $sStatus = "", $sSubmitMode = "keypress", $iMode = 0, $iFormOffset = 0)
Local $bTrace = $_FF_COM_TRACE
;$_FF_COM_TRACE = False

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

If $sStatus = Default Then $sStatus = ""
If $sSubmitMode = Default Then $sSubmitMode = "keypress"

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

Local $sError = @TAB & "If @error Then Return 0" & @CRLF
Local $sScript = "Func _FFLogin($sUserName, $sPassWord) ; generated with _FF_AutoLogin, by Stilgar" & @CRLF, $sPassElement
Local $sCmd

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

If $sURL <> '' Then
_FFOpenURL($sURL)
If @error Then Return 0
$sScript &= @TAB & StringFormat("_FFOpenURL('%s')", $sURL) & @CRLF & $sError
EndIf

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

For $i = $iFormOffset To _FFGetLength("forms")
If _FFXpath("//form[" & $i + 1 & "]//input[@type='password']", Default, 10) > 0 Then
If @error Then Return 0

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

Local $aType = _FFXpath("//form[" & $i + 1 & "]//input", "type", 6)
Local $aID = _FFXpath("//form[" & $i + 1 & "]//input", "id", 6)
Local $aName = _FFXPath("//form[" & $i + 1 & "]//input", "name", 6)

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

For $j = 1 To $aType[0]
If $aType[$j] = "password" Then
If $aID[$j] <> "" Then
_FFSetValue($sPassWord, $aID[$j], "id")
$sScript &= @TAB & StringFormat("_FFSetValue($sPassWord,'%s','id')", $aID[$j]) & @CRLF & $sError
$sPassElement = ".getElementById('" & $aID[$j] & "')"
ElseIf $aName[$j] <> "" Then
_FFSetValue($sPassWord, $aName[$j], "name")
$sScript &= @TAB & StringFormat("_FFSetValue($sPassWord,'%s','name')", $aName[$j]) & @CRLF & $sError
$sPassElement = StringFormat(".getElementsByName('%s')[0]", $aName[$j])
Else
$sPassElement = StringFormat(".form[%i].input[%i]", $i, $j)
$sCmd = $sPassElement & ".value='" & $sPassWord & "'"
_FFCmd($sCmd)
$sScript &= @TAB & StringFormat('_Cmd("%s")', $sCmd) & @CRLF & $sError
EndIf

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

For $k = $j - 1 To 0 Step -1
If $aType[$k] = "text" Then
If $aID[$k] <> "" Then
_FFSetValue($sUserName, $aID[$k], "id")
$sScript &= @TAB & StringFormat("_FFSetValue($sUserName,'%s','id')", $aID[$k]) & @CRLF & $sError
ElseIf $aName[$k] <> "" Then
_FFSetValue($sUserName, $aName[$k], "name")
$sScript &= @TAB & StringFormat("_FFSetValue($sUserName,'%s','name')", $aName[$k]) & @CRLF & $sError
Else
$sCmd = StringFormat(".form[%i].input[%i].value='%s'", $i, $j, $sUserName)
_FFCmd($sCmd)
$sScript &= @TAB & StringFormat('_Cmd("%s")', $sCmd) & @CRLF & $sError
EndIf
ExitLoop
EndIf
Next
ExitLoop
EndIf
Next
Switch StringLower($sSubmitMode)
Case "off"
If $iMode = 0 Then
Return 1
Else
$sScript &= "EndFunc ;==> _FFLogin" & @CRLF
Return $sScript
EndIf
Case "keypress"
If Not _FFDispatchEvent($sPassElement, "keypress", 13) Then ContinueCase
$sScript &= @TAB & StringFormat('_FFDispatchEvent("%s", "keypress", 13)', $sPassElement) & @CRLF & $sError
Case "click"
For $k = $j To $aType[0]
If $aType[$k] = "submit" Or $aType[$k] = "image" Then
If $aID[$k] <> "" Then
$sCmd = StringFormat(".getElementById('%s')", $i, $aID[$k])
_FFClick($sCmd)
$sScript &= '_FFClick("' & $sCmd & '")' & @CRLF & $sError
ElseIf $aName[$k] <> "" Then
$sCmd = StringFormat(".getElementsByName('%s')[0]", $i, $aName[$k])
_FFClick($sCmd)
$sScript &= '_FFClick("' & $sCmd & '")' & @CRLF & $sError
Else
ContinueCase
EndIf
ExitLoop
EndIf
Next
Case "submit"
_FFCmd(".forms[" & $i & "].submit()")
If @error Then Return 0

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

$sScript &= @TAB & "_FFCmd('.forms[" & $i & "].submit()')" & @CRLF & $sError
Case Else
Return 0
EndSwitch

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

$sScript &= @TAB & "_FFLoadWait()" & @CRLF & $sError & @TAB & "Sleep(500)" & @CRLF
_FFLoadWait()
Sleep(500)

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

$_FF_COM_TRACE = $bTrace

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

If $iMode = 0 Then
If $sStatus <> "" Then Return _FFSearch($sStatus)
Return 1
Else
If $sStatus <> "" Then $sScript &= @TAB & "Return _FFSearch('" & $sStatus & "')" & @CRLF
$sScript &= "EndFunc ;==> _FFLogin" & @CRLF
Return $sScript
EndIf

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

EndIf
Next

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

$_FF_COM_TRACE = $bTrace
Return 0
EndFunc ;==>_FF_AutoLogin

[/autoit]

clezZ

Ich programmier, weil es einfach Spaß macht, und weil ich auf 'Berufliche Zukunft' in diesem Bereich hoffe.

clezZ

Die _FF_AutoLogin() Funktion gibt es nicht in der FF.au3, also ist das kein Fehler!
//Edit: Ich frage mich aber, warum er diese Funktion im Skript hat, wenn er sie nicht einmal aufruft!

clezZ

Ich hab ja auch gemeint, das du uns deine Zugangsdaten nicht sagen sollst!
Geh mal anstatt auf 'www.web.de' auf 'www.web.de/fm' und lösch '_FFLinkClick("FreeMail","Text")'
Vielleicht hilts, vielleicht hilfts aber auch die LogIn Funktion der UDF aufzurufen!

clezZ

Ja, dann gibt er irgendwelche Daten ein, die nicht stimmen.
@Keymarster:Zeig uns Mal was du eingegeben hast, nimm halt statt deinem Namen und Passwort irgendwas anderes. Denn daran wird es wohl kaum liegen
//Edit: Warum verwendest du nicht die UDF, hast sie aber in deinem Skript???

clezZ

Poste doch mal dein Skript. Ohne Skript kann man dir nur schlecht helfen.

clezZ

Sein Skript ist die AutoLogin UDF von oben, hier nochmal:

Spoiler anzeigen

[autoit]

#include-once
#include <FF.au3>
; #FUNCTION# ===================================================================
; Name ..........: _FF_AutoLogin
; Description ...: Auto login for HTML-forms / Generator for login-functions
; AutoIt Version : V3.3.0.0
; Requirement(s).: FF.au3
; Syntax ........: _FF_AutoLogin($sUserName, $sPassWord[, $sURL = ""[, $sStatus = ""[, $sSubmitMode = "keypress"[, $iMode = 0[, $iFormOffset = 0]]]]])
; Parameter(s): .: $sUserName -
; $sPassWord -
; $sURL - Optional: (Default = "") : login page
; $sStatus - Optional: (Default = "") : Message to search on the web-page if the login was successful
; $sSubmitMode - Optional: (Default = "keypress") : if any methode fails the next in the list is tried
; | keypress
; | click
; | submit
; | off (fills only the inputs)
; $iMode - Optional: (Default = 0) : login-only
; | 1: login and returns login-function
; $iFormOffset - Optional: (Default = 0) : offset for some sites, with multiple password-inputs
; Return Value ..: Success - 1 / string (function)
; Failure - 0
; Author(s) .....: Thorsten Willert
; Date ..........: Fri Nov 13 21:36:39 CET 2009
; Version .......: 4.1
; ==============================================================================
Func _FF_AutoLogin($sUserName, $sPassWord, $sURL = "", $sStatus = "", $sSubmitMode = "keypress", $iMode = 0, $iFormOffset = 0)
Local $bTrace = $_FF_COM_TRACE
;$_FF_COM_TRACE = False

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

If $sStatus = Default Then $sStatus = ""
If $sSubmitMode = Default Then $sSubmitMode = "keypress"

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

Local $sError = @TAB & "If @error Then Return 0" & @CRLF
Local $sScript = "Func _FFLogin($sUserName, $sPassWord) ; generated with _FF_AutoLogin, by Stilgar" & @CRLF, $sPassElement
Local $sCmd

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

If $sURL <> '' Then
_FFOpenURL($sURL)
If @error Then Return 0
$sScript &= @TAB & StringFormat("_FFOpenURL('%s')", $sURL) & @CRLF & $sError
EndIf

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

For $i = $iFormOffset To _FFGetLength("forms")
If _FFXpath("//form[" & $i + 1 & "]//input[@type='password']", Default, 10) > 0 Then
If @error Then Return 0

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

Local $aType = _FFXpath("//form[" & $i + 1 & "]//input", "type", 6)
Local $aID = _FFXpath("//form[" & $i + 1 & "]//input", "id", 6)
Local $aName = _FFXPath("//form[" & $i + 1 & "]//input", "name", 6)

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

For $j = 1 To $aType[0]
If $aType[$j] = "password" Then
If $aID[$j] <> "" Then
_FFSetValue($sPassWord, $aID[$j], "id")
$sScript &= @TAB & StringFormat("_FFSetValue($sPassWord,'%s','id')", $aID[$j]) & @CRLF & $sError
$sPassElement = ".getElementById('" & $aID[$j] & "')"
ElseIf $aName[$j] <> "" Then
_FFSetValue($sPassWord, $aName[$j], "name")
$sScript &= @TAB & StringFormat("_FFSetValue($sPassWord,'%s','name')", $aName[$j]) & @CRLF & $sError
$sPassElement = StringFormat(".getElementsByName('%s')[0]", $aName[$j])
Else
$sPassElement = StringFormat(".form[%i].input[%i]", $i, $j)
$sCmd = $sPassElement & ".value='" & $sPassWord & "'"
_FFCmd($sCmd)
$sScript &= @TAB & StringFormat('_Cmd("%s")', $sCmd) & @CRLF & $sError
EndIf

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

For $k = $j - 1 To 0 Step -1
If $aType[$k] = "text" Then
If $aID[$k] <> "" Then
_FFSetValue($sUserName, $aID[$k], "id")
$sScript &= @TAB & StringFormat("_FFSetValue($sUserName,'%s','id')", $aID[$k]) & @CRLF & $sError
ElseIf $aName[$k] <> "" Then
_FFSetValue($sUserName, $aName[$k], "name")
$sScript &= @TAB & StringFormat("_FFSetValue($sUserName,'%s','name')", $aName[$k]) & @CRLF & $sError
Else
$sCmd = StringFormat(".form[%i].input[%i].value='%s'", $i, $j, $sUserName)
_FFCmd($sCmd)
$sScript &= @TAB & StringFormat('_Cmd("%s")', $sCmd) & @CRLF & $sError
EndIf
ExitLoop
EndIf
Next
ExitLoop
EndIf
Next
Switch StringLower($sSubmitMode)
Case "off"
If $iMode = 0 Then
Return 1
Else
$sScript &= "EndFunc ;==> _FFLogin" & @CRLF
Return $sScript
EndIf
Case "keypress"
If Not _FFDispatchEvent($sPassElement, "keypress", 13) Then ContinueCase
$sScript &= @TAB & StringFormat('_FFDispatchEvent("%s", "keypress", 13)', $sPassElement) & @CRLF & $sError
Case "click"
For $k = $j To $aType[0]
If $aType[$k] = "submit" Or $aType[$k] = "image" Then
If $aID[$k] <> "" Then
$sCmd = StringFormat(".getElementById('%s')", $i, $aID[$k])
_FFClick($sCmd)
$sScript &= '_FFClick("' & $sCmd & '")' & @CRLF & $sError
ElseIf $aName[$k] <> "" Then
$sCmd = StringFormat(".getElementsByName('%s')[0]", $i, $aName[$k])
_FFClick($sCmd)
$sScript &= '_FFClick("' & $sCmd & '")' & @CRLF & $sError
Else
ContinueCase
EndIf
ExitLoop
EndIf
Next
Case "submit"
_FFCmd(".forms[" & $i & "].submit()")
If @error Then Return 0

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

$sScript &= @TAB & "_FFCmd('.forms[" & $i & "].submit()')" & @CRLF & $sError
Case Else
Return 0
EndSwitch

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

$sScript &= @TAB & "_FFLoadWait()" & @CRLF & $sError & @TAB & "Sleep(500)" & @CRLF
_FFLoadWait()
Sleep(500)

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

$_FF_COM_TRACE = $bTrace

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

If $iMode = 0 Then
If $sStatus <> "" Then Return _FFSearch($sStatus)
Return 1
Else
If $sStatus <> "" Then $sScript &= @TAB & "Return _FFSearch('" & $sStatus & "')" & @CRLF
$sScript &= "EndFunc ;==> _FFLogin" & @CRLF
Return $sScript
EndIf

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

EndIf
Next

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

$_FF_COM_TRACE = $bTrace
Return 0
EndFunc ;==>_FF_AutoLogin

[/autoit]

clezZ

Zeig uns doch mal deine Zugangsdaten
Nene, Schau mal bei den FF.au3 Beispielen , Vielleicht findest du da etwas was dir hilft.

clezZ

Man kann aber auch einstellen, das man einen bestimmten Ordner nicht finden kann. Oder irr ich mich?
//Edit: OK, Problem gelöst.

clezZ

Es ist doch kein Projekt, oder?
Sie hat Probleme mit der FF.au3, und braucht Hilfe, also in 'Hilfe & Unterstützung'!

PS.: Sie hat zwar schon gesagt, das ihr das mit der Onlinehilfe zu mühsam ist, aber wie schon gesagt, es geht nicht anders!
//Edit: Hier sind einige Beispiele für die FF.au3.

clezZ

Man kann so gut wie jeden versteckten Ordner über die Suche finden!

clezZ

Kannst du so machen, wie du willst. Du kannst sie auch in die FF.au3 packen, oder in dein Skript, oder in den Ordner von deinem Skript(dann rufst du sie so auf #include "AutoLogInOderSo.au3").

clezZ

Es gibt eine UDF zum Auto-Login:

Spoiler anzeigen

[autoit]

#include-once
#include <FF.au3>
; #FUNCTION# ===================================================================
; Name ..........: _FF_AutoLogin
; Description ...: Auto login for HTML-forms / Generator for login-functions
; AutoIt Version : V3.3.0.0
; Requirement(s).: FF.au3
; Syntax ........: _FF_AutoLogin($sUserName, $sPassWord[, $sURL = ""[, $sStatus = ""[, $sSubmitMode = "keypress"[, $iMode = 0[, $iFormOffset = 0]]]]])
; Parameter(s): .: $sUserName -
; $sPassWord -
; $sURL - Optional: (Default = "") : login page
; $sStatus - Optional: (Default = "") : Message to search on the web-page if the login was successful
; $sSubmitMode - Optional: (Default = "keypress") : if any methode fails the next in the list is tried
; | keypress
; | click
; | submit
; | off (fills only the inputs)
; $iMode - Optional: (Default = 0) : login-only
; | 1: login and returns login-function
; $iFormOffset - Optional: (Default = 0) : offset for some sites, with multiple password-inputs
; Return Value ..: Success - 1 / string (function)
; Failure - 0
; Author(s) .....: Thorsten Willert
; Date ..........: Fri Nov 13 21:36:39 CET 2009
; Version .......: 4.1
; ==============================================================================
Func _FF_AutoLogin($sUserName, $sPassWord, $sURL = "", $sStatus = "", $sSubmitMode = "keypress", $iMode = 0, $iFormOffset = 0)
Local $bTrace = $_FF_COM_TRACE
;$_FF_COM_TRACE = False

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

If $sStatus = Default Then $sStatus = ""
If $sSubmitMode = Default Then $sSubmitMode = "keypress"

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

Local $sError = @TAB & "If @error Then Return 0" & @CRLF
Local $sScript = "Func _FFLogin($sUserName, $sPassWord) ; generated with _FF_AutoLogin, by Stilgar" & @CRLF, $sPassElement
Local $sCmd

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

If $sURL <> '' Then
_FFOpenURL($sURL)
If @error Then Return 0
$sScript &= @TAB & StringFormat("_FFOpenURL('%s')", $sURL) & @CRLF & $sError
EndIf

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

For $i = $iFormOffset To _FFGetLength("forms")
If _FFXpath("//form[" & $i + 1 & "]//input[@type='password']", Default, 10) > 0 Then
If @error Then Return 0

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

Local $aType = _FFXpath("//form[" & $i + 1 & "]//input", "type", 6)
Local $aID = _FFXpath("//form[" & $i + 1 & "]//input", "id", 6)
Local $aName = _FFXPath("//form[" & $i + 1 & "]//input", "name", 6)

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

For $j = 1 To $aType[0]
If $aType[$j] = "password" Then
If $aID[$j] <> "" Then
_FFSetValue($sPassWord, $aID[$j], "id")
$sScript &= @TAB & StringFormat("_FFSetValue($sPassWord,'%s','id')", $aID[$j]) & @CRLF & $sError
$sPassElement = ".getElementById('" & $aID[$j] & "')"
ElseIf $aName[$j] <> "" Then
_FFSetValue($sPassWord, $aName[$j], "name")
$sScript &= @TAB & StringFormat("_FFSetValue($sPassWord,'%s','name')", $aName[$j]) & @CRLF & $sError
$sPassElement = StringFormat(".getElementsByName('%s')[0]", $aName[$j])
Else
$sPassElement = StringFormat(".form[%i].input[%i]", $i, $j)
$sCmd = $sPassElement & ".value='" & $sPassWord & "'"
_FFCmd($sCmd)
$sScript &= @TAB & StringFormat('_Cmd("%s")', $sCmd) & @CRLF & $sError
EndIf

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

For $k = $j - 1 To 0 Step -1
If $aType[$k] = "text" Then
If $aID[$k] <> "" Then
_FFSetValue($sUserName, $aID[$k], "id")
$sScript &= @TAB & StringFormat("_FFSetValue($sUserName,'%s','id')", $aID[$k]) & @CRLF & $sError
ElseIf $aName[$k] <> "" Then
_FFSetValue($sUserName, $aName[$k], "name")
$sScript &= @TAB & StringFormat("_FFSetValue($sUserName,'%s','name')", $aName[$k]) & @CRLF & $sError
Else
$sCmd = StringFormat(".form[%i].input[%i].value='%s'", $i, $j, $sUserName)
_FFCmd($sCmd)
$sScript &= @TAB & StringFormat('_Cmd("%s")', $sCmd) & @CRLF & $sError
EndIf
ExitLoop
EndIf
Next
ExitLoop
EndIf
Next
Switch StringLower($sSubmitMode)
Case "off"
If $iMode = 0 Then
Return 1
Else
$sScript &= "EndFunc ;==> _FFLogin" & @CRLF
Return $sScript
EndIf
Case "keypress"
If Not _FFDispatchEvent($sPassElement, "keypress", 13) Then ContinueCase
$sScript &= @TAB & StringFormat('_FFDispatchEvent("%s", "keypress", 13)', $sPassElement) & @CRLF & $sError
Case "click"
For $k = $j To $aType[0]
If $aType[$k] = "submit" Or $aType[$k] = "image" Then
If $aID[$k] <> "" Then
$sCmd = StringFormat(".getElementById('%s')", $i, $aID[$k])
_FFClick($sCmd)
$sScript &= '_FFClick("' & $sCmd & '")' & @CRLF & $sError
ElseIf $aName[$k] <> "" Then
$sCmd = StringFormat(".getElementsByName('%s')[0]", $i, $aName[$k])
_FFClick($sCmd)
$sScript &= '_FFClick("' & $sCmd & '")' & @CRLF & $sError
Else
ContinueCase
EndIf
ExitLoop
EndIf
Next
Case "submit"
_FFCmd(".forms[" & $i & "].submit()")
If @error Then Return 0

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

$sScript &= @TAB & "_FFCmd('.forms[" & $i & "].submit()')" & @CRLF & $sError
Case Else
Return 0
EndSwitch

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

$sScript &= @TAB & "_FFLoadWait()" & @CRLF & $sError & @TAB & "Sleep(500)" & @CRLF
_FFLoadWait()
Sleep(500)

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

$_FF_COM_TRACE = $bTrace

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

If $iMode = 0 Then
If $sStatus <> "" Then Return _FFSearch($sStatus)
Return 1
Else
If $sStatus <> "" Then $sScript &= @TAB & "Return _FFSearch('" & $sStatus & "')" & @CRLF
$sScript &= "EndFunc ;==> _FFLogin" & @CRLF
Return $sScript
EndIf

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

EndIf
Next

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

$_FF_COM_TRACE = $bTrace
Return 0
EndFunc ;==>_FF_AutoLogin

[/autoit]

clezZ

Ich weiß auch nicht ob sich hier irgendwer mit AutoIt auskennt, aber ich glaube wir sind hier auf AutoIt.de
PS.:Forenregeln
//Edit: Doch ist es, weil es wird anscheinend ein (Spam)bot!!!

clezZ

Dein GUIDelete() kannst du hier einbauen:

Spoiler anzeigen

[autoit]

#RequireAdmin

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

#Region ### START Koda GUI section ### Form=c:\program files\autoit3\forms\entpacker fr.kxf
$Form1_1 = GUICreate("Metin2 Entpacker ", 256, 269, 371, 189)
GUISetFont(12, 800, 2, "Narkisim")
GUISetBkColor(0x00FF00)
$Button1 = GUICtrlCreateButton("Entpacken", 16, 112, 219, 41, 0)
$Button2 = GUICtrlCreateButton("Wieder ZsM. packen", 16, 160, 219, 41, 0)
$Button3 = GUICtrlCreateButton("Anleitung", 16, 208, 219, 41, 0)
$Label1 = GUICtrlCreateLabel("Copyright by Flasher2 ", 40, 64, 173, 20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1

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

$msg = GUIGetMsg()
Switch $msg ; Hier hab ich es geändert
Case $Button1
GUIDelete()
button1()
Case $Button2
GUIDelete()
button2()
Case $Button3
GUIDelete()
button3()
EndSwitch

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

WEnd

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

Func button1()
Run("cmd")
Sleep(5000)
WinActivate("C:\Windows\sytem32\cmd.exe")
Sleep(1000)
Send("cd C:\FR {ENTER}")
Sleep(5000)
Send("m2 pc_ex.xml {ENTER}")
EndFunc ;==>button1

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

Func button2()
Sleep(5000)
WinActivate("C:\Windows\sytem32\cmd.exe")
Sleep(1000)
Send("cd C:\FR {ENTER}")
Sleep(5000)
Send("m2 pc_pack.xml {ENTER}")
Exit
EndFunc ;==>button2

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

Func button3()
#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\Forms\Anleitung fpr Entpacker.kxf
$Form1 = GUICreate("Anleitung :D", 625, 445, 186, 126)
GUISetFont(12, 800, 2, "Narkisim")
GUISetBkColor(0x000080)
$Label1 = GUICtrlCreateLabel("Packt dieses Programm nach C:\", 24, 24, 229, 20)
$Label3 = GUICtrlCreateLabel("Dann offnet die PC.ex mit notepad ++ und verandert uberall wo PC steht in ", 24, 48, 549, 20)
$Label9 = GUICtrlCreateLabel("Die datei die ihr entpacken wollt z.b. wenn ich NPC.eix und NPC.epk entpacken", 24, 72, 572, 20)
$Label4 = GUICtrlCreateLabel("will muss ich PC.. in NPC.. uberall umbennen in der Pc.ex", 24, 96, 416, 20)
$Label5 = GUICtrlCreateLabel("Dann geht ihr auf entpacken in meinem eintpacker und es erscheiint dann in der ", 24, 120, 579, 20)
$Label6 = GUICtrlCreateLabel("Sourec->Ymirwork->Euer dateiname ", 24, 144, 264, 20)
$Label7 = GUICtrlCreateLabel("Dort kont ihr se bearbeiten ausfuhrlicheres tutorial hier ", 24, 168, 422, 20)
$Button5 = GUICtrlCreateButton("Ausführliches Tutorial", 48, 240, 355, 89, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1

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

$msg = GUIGetMsg()
If $msg = $Button5 Then button5()

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

WEnd

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

EndFunc ;==>button3

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

Func button5()
ShellExecute("http://www.elitepvpers.de/forum/metin2-pserver-guides-strategies/451516-how-sachen-richtig-entpacken-und-packen-mit-screens.html")
Exit
EndFunc ;==> button5 Funktion hast du nicht geschlossen

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

EndFunc

[/autoit]

Beiträge von clezZ

ComboBox, immer letzten Eintrag zeigen

ComboBox, immer letzten Eintrag zeigen

Suche jemanden als Lehrer^^ der mir was beibringt

ATI Catalyst Installationsmanager

Suche jemanden als Lehrer^^ der mir was beibringt

Suche jemanden als Lehrer^^ der mir was beibringt

Warum programmiert ihr? Umfrage.

Suche jemanden als Lehrer^^ der mir was beibringt

Suche jemanden als Lehrer^^ der mir was beibringt

Suche jemanden als Lehrer^^ der mir was beibringt

[gelöst] erneuter Aufruf von _FFLnkClick geht nicht

Suche jemanden als Lehrer^^ der mir was beibringt

Suche jemanden als Lehrer^^ der mir was beibringt

Versetckten ordner erstellen

FF.au3 Hilfe: wie kann ich die in Scite benutzen?

Versetckten ordner erstellen

Suche jemanden als Lehrer^^ der mir was beibringt

Suche jemanden als Lehrer^^ der mir was beibringt

Problem

Anfänger sucht hilfe!