Beiträge von autoBert

**autoBert**

Hallo zocker5656,

der Fehler liegt wohl darin, dass du glaubst dein Tool keinen BOT darstellt und deshalb hier supported wird:

Zitat

You may not use any "deep-link", "page-scrape", "robot", "spider" or other automatic device, program, algorithm or methodology, or any similar or equivalent manual process, to access, acquire, copy or monitor any portion of the Site or any Content, or in any way reproduce or circumvent the navigational structure or presentation of the Site or any Content, to obtain

gegen den in rot dargestellten Text verstösst du, auch wenn du es dir nicht vorstellen kannst.

mfg (Auto)Bert

**autoBert**

Hallo Helveticus,

wie Raupi schon sagte, ist in dem von dir genannten Post: http://www.autoitscript.com/forum/index.php?showtopic=23860 die aufzurufende Funktion und das Beispiel wie man diese aufruft. Du musst das ganze also entweder splitten, oder so anpassen dass es nur bei Bedarf gesendet wird.

Skript für variablen Teil:

Spoiler anzeigen

[autoit]

#include<file.au3>
#include<SMTPUDF.au3>
;##################################
; Variables
;##################################
; *** Start added by AutoIt3Wrapper ***
#include <GUIConstantsEx.au3>
; *** End added by AutoIt3Wrapper ***
$SmtpServer = "MailServer" ; address for the smtp-server to use - REQUIRED
$FromName = "Name" ; name from who the email was sent
$FromAddress = "your@Email.Address.com" ; address from where the mail should come
$ToAddress = "your@Email.Address.com" ; destination address of the email - REQUIRED
$Subject = "Userinfo" ; subject from the email - can be anything you want it to be
$Body = "" ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = "" ; the file you want to attach- leave blank if not needed
$CcAddress = "CCadress1@test.com" ; address for cc - leave blank if not needed
$BccAddress = "BCCadress1@test.com" ; address for bcc - leave blank if not needed
$Importance = "Normal" ; Send message priority: "High", "Normal", "Low"
$Username = "******" ; username for the account used from where the mail gets sent - REQUIRED
$Password = "********" ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 25 ; port used for sending the mail
$ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465 ; GMAIL port used for sending the mail
;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

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

;##################################
; Script
;##################################
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 331, 164, 193, 125)
GUICtrlCreateLabel("Empfänger:",5,5,100,20)
$hinpToAdress = GUICtrlCreateInput("", 110, 5,150,25)
;hier auch noch die anderen Felder definieren für $subject etc.
$hbtnSend = GUICtrlCreateButton("&Senden", 110, 64, 75, 25)
$hbtnExit = GUICtrlCreateButton("Abbr&echen", 110, 100, 75, 25)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $hbtnExit
Exit
Case $hbtnSend ;jetzt wird gesendet
$ToAddress = GUICtrlRead($hinpToAdress)
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
EndIf
EndSwitch
WEnd

[/autoit]

UDF:

Spoiler anzeigen

[autoit]

; The UDF
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

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

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
Local $objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
Else
ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
SetError(1)
Return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
If Number($IPPort) = 0 then $IPPort = 25
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $ssl Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Set Email Importance
Switch $s_Importance
Case "High"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
Case "Normal"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
Case "Low"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
EndSwitch
$objEmail.Fields.Update
; Sent the Message
$objEmail.Send
If @error Then
SetError(2)
Return $oMyRet[1]
EndIf
$objEmail=""
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number,
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc

[/autoit]

Edit: man sollte den Fuchs öfters aktualiesieren
mfg (Auto)Bert

**autoBert**

Hallo EliteMatthias,

du überschreibst deine ButtonID (in $Grundgerüst) mit dem Inhalt der Inputbox. Ändere dies und es klappt:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 346, 269, 192, 124)
$hbtnDoIt = GUICtrlCreateButton("Grundgerüst HTML", 100, 108, 113, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

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

Case $hbtnDoIt

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

$Grundgeruest = InputBox("HTML-Grund", "Schreibe unten deinen Text rein"); erste Frage: Wie kann ich das machen, dass man dort Text statt Zahlen schreiben kann?
Run("notepad.exe"); Öffnet den Editor
WinWaitActive("Unbenannt"); wartet auf den Editor
Send($Grundgeruest); Sendet das, was ich eingeputtet habe
; So, und hier hätte ich gerne einen Befehl, der mir den Text als ".ini" speichert, und sie jedes mal aufruft, wenn ich diese Anwendung starte.
; Es wäre noch schön, wenn mir jemand sagt, wie man mit "AutoIT" zwischen Fenster und Fenster hin+her wechseln kann

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

EndSwitch
WEnd

[/autoit]

mfg (Auto)Bert

**autoBert**

Zitat von MysticSun

Hallo,
Ich möchte einen Login coden..alles schön und gut (fertig)...

Unter fertig verstehe ich etwas anderes, schau einmal hier:
[ gelöst ] Auf einer Website automatisch ein logen

mfg (Auto)Bert

**autoBert**

Hallo yxyx,
also wenn ich mit ffmpeg eine Datei folgendermassen konvertiere habe ich nur noch den Ton:

[autoit]

RunWait(@ScriptDir & "\ffmpeg -i " & "Test.flv -y " & "Test.mp3",@ScriptDir,@SW_HIDE)

[/autoit]

auch die Dateigröße schrumpft bei meinem Test von 10.175 KB auf 1.942 KB,

mfg (Auto)Bert

**autoBert**

Hallo UEZ,

danke klappt, jetzt ist es mir auch klar warum die Titelleiste flackerte; anscheinend wird der unterste Teil der Titelleiste von der Laufschrift beschieben:
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

mfg (Auto)Bert

**autoBert**

Hallo de Anfänger,

herzlich willkommen im Forum und viel Spass mit AutoIt. Es werden 2 (zwar sehr ähnlich aufgebaute) unterschiedliche func's aufgerufen. In diesem Beispiel siehst du es besser. Zum Starten von Programmen kannst du run benutzen:

Spoiler anzeigen

[autoit]

; *** Start added by AutoIt3Wrapper ***
#include <GUIConstantsEx.au3>
; *** End added by AutoIt3Wrapper ***
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 331, 164, 193, 125)
$Button1 = GUICtrlCreateButton("Start", 112, 64, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Abbrechen", 130, 100, 75, 25, 0) ;das is der 2.te button
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 ;hier bestimmst du welcher button in diesem fall eben button1
_Func1() ;Hier bestimmst du wie die Funktion heisst die bei einem klick auf dem Button1 aus geführt wird
Case $Button2 ;hier bestimmst du welcher button in diesem fall eben button2
_Func2() ;Hier bestimmst du wie die Funktion heisst die bei einem klick auf dem Button2 aus geführt wird
EndSwitch
WEnd

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

Func _Func1() ;Hier wird eine Funktion gestartet und zwar die funktion die oben dem Button1 zugewiesen wurde
MsgBox(0, "funktion", "Jetzt wird der Taschenrechner ausgeführt und die Gui beendet")
Run("Calc.exe")
Exit
EndFunc ;==>_Func1

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

Func _Func2() ;Hier wird eine Funktion gestartet und zwar die funktion die oben dem Button2 zugewiesen wurde
If MsgBox(36, "Programm beenden?", "Du hast auf beenden geklickt." & @CRLF & "Bist du dir sicher, dass du dieses Programm beenden willst?") = 6 Then Exit
EndFunc ;==>_Func2

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo EliteMatthias,

wird das die Fortsetzung von deinem Offline-Bot

mfg (Auto)Bert

**autoBert**

Hallo JufFThreeManiac,

das muss auch ohne Pixelsearch gehen siehe Funktionsbeschreibung:

Code

; #FUNCTION# ===================================================================
; Name ..........: _FFLoadWait
; Description ...: Wait while the page is loading.
; Beschreibung ..: Wartet bis die Seite geladen ist.
; AutoIt Version : V3.3.0.0
; Syntax ........: _FFLoadWait([$iTimeOut = $_FF_LOADWAIT_TIMEOUT[, $bStop = $_FF_LOADWAIT_STOP]])
; Parameter(s): .: $iTimeOut    - Optional: (Default = $_FF_LOADWAIT_TIMEOUT) : Timeout while waiting in ms
;                  $bStop       - Optional: (Default = $_FF_LOADWAIT_STOP) : Stops loading after TimeOut
; Return Value ..: Success      - 1
;                  @EXTENDED    - loading time in ms
;                  Failure      - 0
;                  @ERROR       -
;                  @EXTENDED    - loading time in ms
; Author(s) .....: Thorsten Willert
; Date ..........: Thu Feb 04 19:20:36 CET 2010
; Link ..........: https://developer.mozilla.org/en/nsIWebProgress
; Related .......: _FFDialogWait
; Example .......: Yes
; ==============================================================================

Alles anzeigen

Edit: Beispiel:

[autoit]

#Include <FF.au3>

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

_FFStart("http://ff-au3-example.thorsten-willert.de/", Default, 2)

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

If _FFIsConnected() Then
;_FFClickImage("/gohome.png", "src", False) Funktion wurde anscheinend entfernt
If _FFLoadWait() Then MsgBox(64, "", "Page was loaded in " & @extended & "ms")
Sleep(3000)
_FFQuit()
EndIf

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo UEZ,

in deiner neuen Version habe ich ein Flackern der Titelleiste, auch die Initialisierung am Anfang erscheint mir etwas zu lange,

mfg (Auto)Bert

**autoBert**

Hallo EliteMatthias,

hier ein allgemein gehaltenes Beispiel (bei Checkbox1 wird Notepad geöffnet, bei Checkbox 2 der Taschenrechner gestartet ~~und die eingegebenen Werte werden addiert~~

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 413, 298, 302, 218)
$Button1 = GUICtrlCreateButton("Button1", 120, 192, 141, 57, $WS_GROUP)
$Input1 = GUICtrlCreateInput("Input1", 24, 20, 73, 21)
$Input2 = GUICtrlCreateInput("Input2", 24, 52, 77, 21)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 120, 24, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 128, 60, 97, 17)
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
if BitAND(GUICtrlRead($Checkbox1),$GUI_CHECKED) = $GUI_CHECKED then Run("Notepad.exe", "", @SW_MAXIMIZE)
if BitAND(GUICtrlRead($Checkbox2),$GUI_CHECKED) = $GUI_CHECKED then Run("Calc.exe", "", @SW_MAXIMIZE)
EndSwitch
WEnd

[/autoit]

leider geht es mir wie Raupi , ich komme nicht dahinter was du eigentlich skripten (erreichen) willst,

Edit: Skript gekürzt, da ich jetzt Besheid weiss

Zitat

sry, es soll doch nur ein Offline-Bot werden

mfg (Auto)Bert

**autoBert**

Hallo PridgeRage,

schau dir das: Embedded FireFox (nur ein Test) einmal an,

mfg (Auto)Bert

**autoBert**

Hallo slyfex,

warum soll das nicht gehen? Du musst nur aufpassen, dass du dir die Variable(n) später nicht überschreibst.
Hier einmal ein umgebautes Beispiel von mir:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
;#include <array.au3>

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

$main = GUICreate("Testlistview Drag & Drop from LV1 to LV2 DblClick in LV1", 600, 400)
$listview = GUICtrlCreateListView("Gruppe1| BlubText", 10, 10, 200, 100, BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS ), BitOR($LVS_EX_FULLROWSELECT, $WS_EX_CLIENTEDGE))
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE) ; legt fest, dass Hintergrundfarbe wechselt
GUICtrlSetBkColor(-1, 0xE6E6FA) ; Hintergrundfarbe 1

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

$listview2 = GUICtrlCreateListView("Gruppe2 | BlubText", 230, 10, 200, 100, BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS), BitOR($LVS_EX_FULLROWSELECT, $WS_EX_CLIENTEDGE))
GUICtrlSetState($listview2, $GUI_DROPACCEPTED)
$hbtnInfo = GUICtrlCreateButton("Info", 160, 120, 100, 20)
For $i = 1 To 9
$listitem = GUICtrlCreateListViewItem("test" & $i & " |Blub " & Random(1, 9), $listview)
GUICtrlSetBkColor(-1, 0xcccccc) ; Hintergrundfarbe 2
Next
;GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") ;<=========================================== Bemachrichtigung Doppelklick
GUISetState()
$first = True
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_DROPPED
$ar = _GUICtrlListView_GetSelectedIndices($listview, True)
;_ArrayDisplay($ar)

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

For $i = 1 To $ar[0]
$sItem = _GUICtrlListView_GetItemTextString($listview, $ar[$i])
GUICtrlCreateListViewItem($sItem, $listview2)
Next
Case $hbtnInfo
$aItem = _GUICtrlListView_GetItemTextArray($listview)
MsgBox(0, "Info zu " & $aItem[1] & ":", $aItem[2])
if not $first Then MsgBox(0, "Erste Sicherung um " & $tZeit & ":", $s1 & @CRLF & $s2 & @CRLF )
if $first Then
$s1 = $aItem[1]
$s2 = $aItem[2]
$tZeit = @HOUR & ":" & @MIN
$first = False
EndIf
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

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

Func WM_NOTIFY($hWnd, $MsgID, $wParam, $lParam) ;<================== Benachrichtigung Doppelklick from Chaoskeks (in ChaosExecution)
Local $tagNMHDR, $event, $hwndFrom, $code
$tagNMHDR = DllStructCreate("int;int;int", $lParam)
If @error Then Return 0
$code = DllStructGetData($tagNMHDR, 3)
If $wParam = $ListView And $code = -3 And _GUICtrlListView_GetSelectedCount($ListView) > 0 Then
For $i = 0 To _GUICtrlListView_GetItemCount($ListView)
IF _GUICtrlListView_GetItemSelected($ListView, $i) Then
$aItem = _GUICtrlListView_GetItemTextArray($listview, $i)
MsgBox(0,"Doppel-Klick auf ",$aItem[1] & @CRLF & @CRLF & $aItem[2])
EndIf
Next
Endif
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY

[/autoit]

angewendet bei $hbtnInfo

mfg (Auto)Bert

**autoBert**

Hallo yxyx,

http://www.ffmpeg.org/ffmpeg-doc.html

mfg (Auto)Bert

**autoBert**

Hallo veal19,

Zitat von veal19

[autoit]
Func _SortArray($aArray)
[/autoit]
gibt den namen der funktion an und sagt ihm, dass er ein neues array für die funktion bilden soll.

es wird die func _sortArray aufgerufen und ihr das Array $aArray übergeben

Zitat

[autoit]
Local $aNewArray[UBound($aArray)]
[/autoit]
wir hier wieder ein neues array gebildet? die größe dieses arrays, hat die gleiche größe wie das aus der zeile vorher? zumindest glaub ich, dass ubound sowas macht.

stimmt genau, die func deklariert ein neues Array mit den Dimenensionen des übegebenen Arrays ($aArray)

Zitat

[autoit]
$iMax = _ArrayMaxIndex($aArray)
[/autoit]
hier wird einfach die variabel imax als höchster wert des array gespeichert.

hier wird in der Variable $iMax der Index des höchsten Wertes des übergebenen Arrays ($aArray) gespeichert. Der Wert wird von _ArrayMaxIndex ermittelt.

Zitat

[autoit]
For $i = $iMax To UBound($aArray) - 1
[/autoit]
hier definiert man die variabel i für den bereich von imax bis zur größe des arrays und zieht 1 ab. z.b. 10 bis 5 - 1 = bereich von 10 bis 4. warum kommt da -1 ran?

hier wird eine Schleife ausgehend vom Index ($iMax = Index des höchsten Wertes nicht Wert ) solange wiederholt bis das Ende des Arrays erreicht ist. (also werden alle Elemnete einschliesslich des höchten Wertes in das neue Array übertragen.
Es kommt nicht -1 heraus.
Ausgehend von Blubbstar's Beispiel läuft die Schleife von 1 bis 4. Da das Array 0 basiert ist, dass heisst die Indexzählung fängt bei 0 an muss 1 von der Anzahl der Elelmente abgezogen werden.

Zitat

[autoit]
$aNewArray[$i - $iMax] = $aArray[$i]
[/autoit]
jetzt definiert man die teile des zweiten arrays, z.b. 10 bis 4 - 10, also 0 bis -6, als array 10 des ersten arrays?! das versteh ich nicht

jetzt werden alle Werte übertragen, die vor dem höchsten Wert liegen.

Zitat

[autoit]
Return $aNewArray
[/autoit]
das heißt am ende einfach nur, dass er fertig ist?

die Werte des neuen Arrays werden zurückgegeben.
Um die obigen Punkte besser zu verstehen solltest du das Beispiel (von mir um Consolenausgaben ergänzt) noch einmal durcharbeiten:

Spoiler anzeigen

[autoit]

#include <array.au3>

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

Local $array[5] = [5, 19, 1, 9, 2]
_ArrayDisplay($array)
$array = _SortArray($array)
_ArrayDisplay($array)

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

Func _SortArray($aArray)
Local $aNewArray[UBound($aArray)]
$iMax = _ArrayMaxIndex($aArray)
ConsoleWrite("Pos.: des höchsten Wertes: " & $iMax & @CRLF)
ConsoleWrite("jetzt werden ab dem höchsten die Würfe eintragen:" & @CRLF)
For $i = $iMax To UBound($aArray) - 1
$aNewArray[$i - $iMax] = $aArray[$i]
ConsoleWrite("eintragen des Wertes: " & $aArray[$i] & "(Index: " & $i & ")" & @CRLF)
Next
ConsoleWrite("jetzt noch die restlichen Würfe eintragen:" & @CRLF)
For $i = 0 To $iMax - 1
$aNewArray[UBound($aArray) - $iMax + $i] = $aArray[$i]
ConsoleWrite("eintragen des Wertes: " & $aArray[$i] & "(Index: " & $i & ")" & @CRLF)
Next
Return $aNewArray
EndFunc ;==>_SortArray

[/autoit]

Poste doch einmal die Regeln des Spieles, dann findet sich auch eine Lösung für die gewürfelten 6er,
(z.B. als 0 eintragen, damit man erkennt Wurf hat gewonnen)

mfg (Auto)Bert

**autoBert**

Hallo Strahlemann,

schau dir auch in der Hilfe unter Allgemeines zu AutoIt den Abschnitt Kommandozeilenparameter an,

mfg (Auto)Bert

**autoBert**

Hallo,

Runde Buttons

mfg (Auto)Bert

**autoBert**

Hallo manilus,

du musst die Grafik(en) immer wieder auffrischen. Hier ein Beispiel aus der Hilfe:

[autoit]

;----- Beispiel 3 wie das ganze auf mit PNG funktioniert (von Zedna)
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>

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

Global $hGUI, $hImage, $hGraphic, $hImage1

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

; GUI erstellen
$hGUI = GUICreate("PNG zeigen", 250, 250)

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

; PNG Bild laden
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile("..\GUI\Torus.png")
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)

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

GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
GUISetState()

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

; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

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

; Ressourcen aufräumen
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()

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

; PNG Bild zeichnen
Func MY_WM_PAINT($hWnd, $msg, $wParam, $lParam)
_WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_UPDATENOW)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)
_WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_VALIDATE)
Return $GUI_RUNDEFMSG
EndFunc ;==>MY_WM_PAINT

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo

Zitat von Hacksor

Txt-File im Hintergrund erstellen
Ich will meine, mithilfe eines Scriptes ausgelesenen Variablen in einer txt-Datei zwischenspeichern! Diese Datei soll im Hintergrund erstellt und mit den jeweiligen Variablen "gefüttert" werden! Wie ist dies möglich?
Es MUSS eine txt Datei sein! Außerdem sollte die Datei im Temp Ordner landen. Wenn mir dann noch jemand sagen kann wie ich die Datei nach einem Befehl wieder ohne Aufmerksamkeit löschen kann bin ich happy!

lässt für mich nur den Schluss zu, dass es sich auch um dieses [ offen ] Inputfeld checken Vorhaben handelt (Keylogger für Passwort)

**autoBert**

Hallo mipez,

herzlich willkommen im Forum und viel Spass mit AutoIt.

Zitat von mipez

Vorab, ich bin ein Neuling, und die Tutorials habn mir bis jetzt nicht sonderlich weitergeholfen.

besonders lange hast du dich mit den Tuts nicht aufgehalten, sonst hättest du nicht ausserhalb der "Message-Loop" Schleife einen GuiGetMsg() Abfrage verwendet und dass in einer Func, die nie aufgerufen wird. So sollte das Skript aussehen:

Spoiler anzeigen

[autoit]

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

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

AutoIt Version: 3.3.4.0
Author: mipez
#ce ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>

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

GUICreate("Auto-Start & Auto-Login", 335, 100)

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

GUICtrlCreateLabel("ID", 8, 10)
$input1 = GUICtrlCreateInput("", 35, 8, 120)
GUICtrlCreateLabel("Password", 8, 44)
$input2 = GUICtrlCreateInput("", 35, 40, 120)

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

$startbutton = GUICtrlCreateButton("Start", 190, 8, 60)

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

$exitbutton = GUICtrlCreateButton("Exit", 190, 40, 60)

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

GUISetState(@SW_SHOW)

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

While 1
$msg = GUIGetMsg()

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

Switch $msg

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

Case $exitbutton
GUIDelete()
Exit
Case $startbutton
eingabe()
EndSwitch

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

WEnd

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

Func eingabe()
MsgBox(0, GUICtrlRead($input1), GUICtrlRead($input2))

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

EndFunc ;==>eingabe

[/autoit]

mfg (Auto)Bert

Beiträge von autoBert

was ist falsch?

#include und @error

.ini datei speichern

inputbox ihalt im webbrowser

Autoit und Konvertieren

LED - Laufschrift

2 Buttons mit 2 unterschiedlichen Funtkionen?

.ini datei speichern

Warten bis Seite geladen ist -> Firefox

LED - Laufschrift

2 Inputs auf 1nen Button

FFEmbedded UDF

ListViewwert speichern

Autoit und Konvertieren

Beim Sortieren Reihenfolge beibehalten

Text-Datei nach Doppelklick auswerten

text spliten

Bild "sauber" in eine Gui einfügen

Txt-File im Hintergrund erstellen

Auto-Start-Login Prog