1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. ProblemUser

Beiträge von ProblemUser

  • [Anfänger Tutorial] Kleines Tutorial für Autoit

    • ProblemUser
    • 22. März 2011 um 00:35

    Hallo, ich habe hier ein Tutorial geschrieben was einigen Anfängern helfen soll.
    Ich werde es immer wieder Updaten!


    Zitat

    Willkommen zu meinem Autoit Tutorial!
    Zuerst fangen wir mit einem Hallo World Tutorial an!
    Anschließend wird ein GUI Tutorial gezeigt welches das Selbe wie ein Hello World ist,
    jedoch macht ihr die GUI selbst.
    Anschließend noch weitere Funktionen!


    Hello World

    [autoit]


    MsgBox(0, "Hello World Tutorial #1", "Hello World!")

    [/autoit]


    Zitat

    Hier wird eine MessageBox erstellt.
    Eine MessageBox(MsgBox) ist eine Box in der Informationen angezeigt werden.
    Unter Windows wird oft sowas als Fehlermeldung genutzt!


    Zitat

    MsgBox() ruft die Funktion MsgBox auf unt übergibt folgende Parameter
    flag = 0
    Das bedeutet es wird ein "OK" angezeigt, weitere Flags findet ihr in der Hilfe Datei oder hier:

    Flag (dezimal) Resultierende(r) Button(s) Flag (hexadezimal)
    0 OK 0x0
    1 OK und Abbrechen 0x1
    2 Abbrechen, Wiederholen und Ignorieren 0x2
    3 Ja, Nein, und Abbrechen 0x3
    4 Ja und Nein 0x4
    5 Wiederholen und Abbrechen 0x5
    Weitere: http://translation.autoit.de/onlinehilfe/functions/MsgBox.htm

    Als nächstes wird der Parameter "Title" oder auf deutsch "Titel" übergeben.
    In diesem Fall: "Hello World Tutorial #1"
    Das ist die "Überschrift" der MessageBox, wichtig ist das hier Text in Anführungszeichen
    geschrieben sind!
    Der Dritte Parameter ist der text.
    Dieser Behinhaltet: "Hello World!".
    Auch hier ist es wichtig in Anführunszeichen zu schreiben.

    Alles anzeigen


    MsgBox mit Variablen

    [autoit]

    $flag = 0
    $title = "Hello World Tutorial #2"
    $text = "Hello World!"
    MsgBox($flag, $title, $text)

    [/autoit]


    Zitat

    Aus der Mathematik kennt ihr Variablen, hier sind Variablen Platzhalter.
    Auch hier sind Variablen Platzhalter, welche Vorher delkariert werden müssen!
    Deklariert bedeutet sie müssen einem Bestimmten Wert oder Text zugeordnet werden.
    Eine Variablen muss immer mit dem Dollarzeichen ($) Anfangen!
    Hier wird bis auf den Titel das gleiche wie in der Ersten MessageBox ausgegeben.
    Anschliesend wird ein Ist Gleich Zeichen (=) benutzt um der Variable einen Bestimmten Wert zuzuweisen.


    MsgBox mit Array(s)

    [autoit]

    Global $msgbox[4]
    $msgbox[0] = "3"
    $msgbox[1] = "0"
    $msgbox[2] = "Hello World Tutorial #3"
    $msgbox[3] = "Hello World!"
    MsgBox($msgbox[1], $msgbox[2], $msgbox[3])

    [/autoit]


    Zitat

    Ein Array ist fast das gleiche wie eine Variable nur das man sie hier in Dimensionen einteilen kann was später besser für die Übersicht ist!
    Um einen Array zu deklarien muss man wissen wie viele Indexnummern man benötigt und Deklariert diesen mit einem Global, Local oder Dim.
    Global bedeutet das diese Variable oder der Array im ganzen Script benutzt werden kann.
    Local dagegen nur in der AKtuellen Funktion in der man sich gerade befindet.
    Dim ist das selbe wie Local, es sei denn, es gibt eine globale Variable des selben Namens (in diesem Fall wird die globale Variable verwendet).
    Anschließend wird in einer Klammer [] die Anzahl der Indexnummer hineingeschrieben.
    Nun wird eigentlich deklariert.
    Ein Array fängt immer bei 0 an.
    Normalerweiße speichert man im Index 0, die anzahl der Indexnummern (In diesem Falle 3 da 4 nicht existiert!
    Wichtig ist hierbei das man nicht verschiedene Datentypen wie z.b.
    "0" und 0 oder wahr und "wahr" benutzt. Es ist zwar Grundsätlich möglich, wird aber nicht empfohlen!

    Alles anzeigen


    Array Auslesen mit einer For-Schleife

    [autoit]


    For $i = 1 To $msgbox[0] Step +1
    MsgBox(0, "Array wird ausgelesen aktuell: $msgbox[" & $i & "]", "$msgbox[" & $i & "] = " & $msgbox[$i])
    Next

    [/autoit]


    Zitat

    Hier wird es schon komplizierter! Aber man kann es verstehen!
    Eine For-Schleife macht etwas solange bis etwas erfüllt ist.
    For $i = 1 bedeutet einfach das die Variable $i gleich 1.
    To $msgbox[0] (Wir erinnern uns $msgbox[0] = 3) bedeutet er macht die Schleife
    solange, bis $i = $msgbox[0] bzw. 3 ist.
    Step +1 bedeutet das nach jedem Durchlauf der Schleife $i um 1 erhöht wird.
    Nun wird wieder eine MessageBox geöffnet, im Titel sehen wir ein neues Zeichen das Kaufmännische Und (&)
    Dies bedeutet das dem Text noch etwas hinzugefügt wird, in diesem Falle die Variable i (Die die Aktuelle Zahl enthält)
    Nun wird wieder Text ausgegeben in welchem Array er sich gerade befindet. mit $msgbox[$i] wird der Array ausgegeben und der Index wird durch die Variable i eingegeben.
    Mit Next wird die Schleife verlassen.

    Alles anzeigen


    For Schleife als Countdown

    [autoit]


    For $i = 1 To 10 Step +1
    MsgBox(0, "Countdown",$i & " Die MessageBox schließt automatisch!", 1)
    Next

    [/autoit]


    Zitat

    Hier wird euch wieder einiges neues gezeigt.
    Wie die Vorschleife Funktioniert hast du ja bereits gelernt.
    Hier wird statt dem Array eine Zahl (hier 10) genommen. Das bedeutet er geht die Schleife 10 mal durch.
    In der MessageBox wird Angezeigt bei welcher Zahl er gerade ist. Hier gibts einen neuen Parameter (timeout)
    Das timeout bedeutet das die MessageBox nach x Sekunden schließt (hier nach einer Sekunde)

    (Un-)Endliche While Schleife

    [autoit]

    $i = 1
    While 1
    MsgBox(0, "(Un-)endliche Schleife 1", "Diese Schleife geht unendlich" & @CRLF & "MessageBox schließt automatisch!", 1)
    $i += 1
    If $i = 5 Then ExitLoop
    WEnd

    [/autoit]


    Zitat

    Hier wird die wieder viel neues beigebracht, aber keine Angst ich erkläre alles!
    Zuerst wird hier $i Deklariert da ansonsten die Schleife nie aufhören würde
    Nun wird die While Schleife begonnen mit While und der 1
    Das bedeutet weil 1 = 1 ist wird die Schleife solange durchgeführt bis 1 nicht mehr 1 ist und das wird nie der Fall sein.
    Also wird hier $i bei jedem Durchlauf um 1 erhöht.
    Nun gibts eine erste Abfrage (If)
    Nun wird gefragt wenn $i = 10 ist dann mache dies und das in diesem Falle ExitLoop.
    ExitLoop bedeutet er verlässt die Aktuelle Schleife!
    Mit @CRLF wird eine Zeile weiter geschrieben.

    Alles anzeigen


    Endliche While Schleife

    [autoit]


    $i = 1
    While $i = 1
    MsgBox(0, "Endliche Schleife 2", "Diese Schleife geht nicht unendlich" & @CRLF & "MessageBox schließt automatisch!", 1)
    $i += 1
    WEnd

    [/autoit]


    Zitat

    Hier wird Die While Schleife solange durchgezogen bis $i nicht mehr 1 ist und das ist nach dem
    $i +=1 nach dem ersten durchlauf.


    Do ... Until Schleife

    [autoit]

    $i = 1
    Do
    MsgBox(0, "Endliche Schleife 3", "Diese Schleife geht nicht unendlich" & @CRLF & "MessageBox schließt automatisch!", 1)
    $i += 1
    Until $i = 5

    [/autoit]


    Zitat

    Die Do ... Until Schleife ähnelt sehr der While Schleife.
    Die Schleife wird solange durchgeführt bis irgendetwas übereinstimmt.
    Hier wird anders wie bei der While Schleife die Bedingung nicht am Anfang sondern am Ende geschrieben.
    Hier haben wir wieder die MessageBox die 5 mal geöffnet wird, da in jedem
    Durchlauf $i um 1 erhöht wird.
    Wenn $i gleich 5 ist wird die Schleife beendet!


    MessageBox-GUI

    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    $Form1 = GUICreate("Hello World Tutorial #4", 258, 62, 541, 352)
    $Button1 = GUICtrlCreateButton("OK", 8, 32, 235, 25, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("Hello World!", 8, 8, 62, 17)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $Button1
    MsgBox(0, "Hello World Tutorial #4", "Hello World!")
    ExitLoop
    EndSwitch
    WEnd

    [/autoit]


    Zitat

    Ich kann euer Gesicht mir jetzt gut vorstellen, aber keine Angst! Es ist leichter als es aussieht!
    Als erstes werden Dateien Includiert, welche im Autoit Include Ordner sind!
    In diesen Dateien befinden sich Funktionen die das Script aufruft.
    Dann wird EIn GUICreate erstellt, welches eine GUI erstellt mit dem ersten Parameter als Titel,
    die anderen sind die Größen und Koordinaten für die GUI.
    Dann wird der OK Button erstellt und ein Label mit dem Text, Hello World.
    Es ist also ähnlcih wie eine MessageBox.
    Bei einer GUI empfiehlt sich den Koda Form Designer für Autoit zu verwenden, mit dem es Kindrleicht ist
    eine GUI zu basteln (ohne die Codes kennen zu müssen)
    Ein Tutorial für Koda folgt!
    Nun haben wir eine While Schleife.
    und ein Switch Befehl.
    Mit Switch wird ausgelesen was in der Variable $nMSG befindet.
    Mit Case wird überprüft ob das was in $nMSG steht das selbe sit wie das was nach dem Case kommt ist.
    $GUI_EVENT_CLOSE beeutet wenn der Rote X Button geklickt wird.
    $Button1 ist der OK Button.

    Alles anzeigen


    Rechnen

    [autoit]

    $a1 = InputBox("Bitte gib eine Zahl ein", "Gib hier eine Zahl ein Die Höher als 100 ist:")
    $a2 = InputBox("Bitte gib eine Zahl ein", "Gib hier eine Zahl ein Die kleiner als 10 ist:")
    $a3 = $a1 + $a2
    $a4 = $a1 - $a2
    $a5 = $a1 * $a2
    $a6 = $a1 / $a2
    MsgBox(0, "Rechnung Beendet", "Folgendes wurde berechnet: " & @CRLF & "Erste Zahl + Zweite Zahl = " & $a3 & @CRLF & "Erste Zahl - Zweite Zahl = " & $a4 & @CRLF & "Erste Zahl * Zweite Zahl = " & $a5 & @CRLF & "Erste Zahl / Zweite Zahl = " & $a6 & @CRLF )

    [/autoit]


    Kommentare

    [autoit]


    ;Ein einzeiliges Kommentar

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

    #cs
    Ein
    mehrzeiliges
    Kommentar
    #ce

    [/autoit]
    Zitat

    Hier haben wir Kommentare die dir und anderen helfen den Code zu verstehen.
    mit ; fängst du ein Einzeiliges Kommentar an.
    Mit # und cs ein Mehrzeiliges und mit # und ce beendest du das mehrzeilige Kommentar wieder.


    So, ich hoffe euch hat das Tutorial gefallen, ich werde nach und nach das Tutorial erweitern!

  • Flackern von Label beheben?

    • ProblemUser
    • 12. März 2011 um 01:02

    Oh danke das hab ich ganz vergessen ;) Danke!

  • Flackern von Label beheben?

    • ProblemUser
    • 12. März 2011 um 00:53

    Hallo, ich glaub mein Label flackert!
    Grüße PU


    Nein Spaß :D
    Also undzwar hab ich mir gedacht ich mach mir ein Timer, eig. wollte ich es in eine For Schleife packen aber dazu hatte ich jetzt kein Kopf also
    wollte ich es so machen wie unten im Spoiler. Doch das Label flackert.
    Weiß einer wie ich das beheben kann?
    Danke schonmal.
    Ach und: Ich hab s eig. geschrieben weil wenn ich mir ne Pizza reinschiebe ich meißtens vergesse sie auch wieder rauszuholen,
    und ich hab mir gedacht ich schieb mir jetzt ne Pizza rein und schreib schnell den Timer der kann das ja dann anzeigen und jetzt:
    Ich hab die Pizza wieder vergessen weil ich ne STunde an dem Flackern gesessen hab :D

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 790, 461, 192, 124)
    $Button1 = GUICtrlCreateButton("Pizza wird gebacken!", 24, 240, 715, 193, $WS_GROUP)
    $Label6 = GUICtrlCreateLabel("00:15:00", 1, 8, 786, 226)
    GUICtrlSetFont(-1, 150, 400, 0, "MS Sans Serif")
    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 $Button1
    _GoPizza()
    EndSwitch
    WEnd

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

    Func _GoPizza()
    $Time = 900000
    $Timer = TimerInit()
    While 1
    If $Timer > 60000 Then GUICtrlSetData($Label6, "00:14:00")
    If $Timer > 60000 * 2 Then GUICtrlSetData($Label6, "00:13:00")
    If $Timer > 60000 * 3 Then GUICtrlSetData($Label6, "00:12:00")
    If $Timer > 60000 * 4 Then GUICtrlSetData($Label6, "00:11:00")
    If $Timer > 60000 * 5 Then GUICtrlSetData($Label6, "00:10:00")
    If $Timer > 60000 * 6 Then GUICtrlSetData($Label6, "00:09:00")
    If $Timer > 60000 * 7 Then GUICtrlSetData($Label6, "00:08:00")
    If $Timer > 60000 * 8 Then GUICtrlSetData($Label6, "00:07:00")
    If $Timer > 60000 * 9 Then GUICtrlSetData($Label6, "00:06:00")
    If $Timer > 60000 * 10 Then GUICtrlSetData($Label6, "00:05:00")
    If $Timer > 60000 * 11 Then GUICtrlSetData($Label6, "00:04:00")
    If $Timer > 60000 * 12 Then GUICtrlSetData($Label6, "00:03:00")
    If $Timer > 60000 * 13 Then GUICtrlSetData($Label6, "00:02:00")
    If $Timer > 60000 * 14 Then GUICtrlSetData($Label6, "00:01:00")
    If $Timer > $Timer Then
    GUICtrlSetData($Label6, "00:00:00")
    MsgBox(0, "Pizza ist fertig!", "Die Pizza ist fertig!")
    EndIf
    WEnd
    EndFunc

    [/autoit]
  • Taubus [Mein eigenes Browsergame halb fertig]

    • ProblemUser
    • 2. März 2011 um 00:15

    Komme nicht ganz klar damit.
    Laut Intro soll ich anscheinend jemand angreifen? Wo finde ich die Funktion?
    Vlt. ne kleine Anleitung oder gar ein Tutorial einfügen, welches man durchspielen muss (Als Quest)
    Design ist ansich in Ordnung nur stört mich irgendwas daran, weiß aber nicht genau was :P

  • Editfeld mehrmals mit Infos füllen

    • ProblemUser
    • 1. März 2011 um 23:42

    Vielen Dank!
    Hat sich dann schon erledigt!

  • Editfeld mehrmals mit Infos füllen

    • ProblemUser
    • 1. März 2011 um 22:56

    Hallo, ich fülle mit

    [autoit]

    GUICtrlSetData

    [/autoit]

    ein Edit Feld.
    Allerdings wenn ich das ein zweites mal mache wird der vorherige Inhalt gelöscht, kann man das irgendwie ändern?

  • Webcam Livestream

    • ProblemUser
    • 26. Februar 2011 um 17:58

    Wo findet man den die:
    WebcamConstants.au3 ?

  • Bank Kontostand abfragen (comdirekt,Postbank,DB,Norisbank)

    • ProblemUser
    • 26. Februar 2011 um 17:55

    Hmm PayPal wäre doch auch ganz nützlich, dann kannst du gleich alles in ein Tool Packen!

  • String/Passwort Generator

    • ProblemUser
    • 26. Februar 2011 um 17:33

    Passwort-Generator

  • Doppelklick OHNE Maus ausführbar ?

    • ProblemUser
    • 24. Februar 2011 um 14:02

    Wenn es Webbasiert ist, schau dir mal die IE.au3 oder FF.au3 an!

  • Was ist eurer Meinung nach das beste Betriebssystem?

    • ProblemUser
    • 4. Januar 2011 um 21:16

    Ganz klar: Debian
    Es ist einfach das beste OS das es gibt, ziemlich schlank, anpassungsfähig und OpenSource.

    Daneben finde ich Win7 für Spiele etc. ganz gut. Aber auch nur für Multimedia den Rest kann man ja vergessen ist ja Windows :rolleyes:

    Was ich gar nicht gut finde:
    Alle anderen Windows Versionen und Ubuntu. Ubuntu ist der größte mist den es unter den Linux Distr. gibt, man kann es vergleichen mit WIndows Vista jedoch mit einer Erweiterten CMD :D
    Und das Schlimmste OS aller Zeiten: Mac, das einzig gute daran ist das Design doch das schaft jede Linux User Group in einer halben Stunde...

  • Auslesen was nach Doppelpunkt kommt

    • ProblemUser
    • 3. Januar 2011 um 14:33

    Da es in der TXT einen Zeilenbegrenzer ||||||| gibt, der mir anzeigt das dieser User fertig ist hab ich das schon mit STringSplit gemacht jedoch sind ja nun, die @CRLF bestandteile verschwunden, sonst hätte ich es ja selbst hin bekommen ;)

  • Auslesen was nach Doppelpunkt kommt

    • ProblemUser
    • 3. Januar 2011 um 02:10

    Hallo,
    ich sitze mal wieder vor einem Problem ich habe ein Array der Sachen behält bei den etwas deklariert wurde. Beispiel:

    [autoit]

    $array[1] = "Name: ProblemUser Geschlecht: Männlich"

    [/autoit]


    usw.
    Vorher war es in einer TXT so gestanden:

    Code
    Name: ProblemUser 
    Geschlecht: Männlich


    ...
    Nun wie kann ich das aber Auslesen was hinter dem Doppelpunkt kommt?
    Jemand ne Idee?

  • TicTacToe Computer als gegner

    • ProblemUser
    • 24. Dezember 2010 um 23:55

    Also ich gewinne immer :D
    Mit nur 4 Klicks undzwar:
    Das ist das Feld:

    Code
    A B C
    D E F
    G H I


    Dann nur noch G klicken, dann C, dann F und I und als letztes kommt H. Tadaa gewonnen ;)

  • Frage zu HTC Wildfire

    • ProblemUser
    • 24. Dezember 2010 um 22:26

    Natürlich laufen die im Hintergrund, kannst dir ja aber auch ein TaskManager holen oder am besten gleich "Linda Manager" dann kannst du die beenden.
    Ich würde dir aber empfehlen die Internet über Mobilfunk Funktion abzuschalten!

  • htpasswd-Datei mit AutoIt erstellen?

    • ProblemUser
    • 21. Dezember 2010 um 21:00
    Spoiler anzeigen
    [autoit]


    Func md5($sMessage)
    Local $Padding = Binary('0x8000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000')
    Local $bytes = Binary($sMessage) + BinaryMid($Padding,1,BinaryLen($Padding) - Mod(BinaryLen($sMessage),64)) + BinaryMid(Binary(BinaryLen($sMessage)*8)+Binary(0),1,8)
    Local $x[BinaryLen($bytes)/4]
    For $i = 1 To BinaryLen($bytes) Step 4
    $x[($i-1)/4] = Dec(StringTrimLeft(Binary(BinaryMid($bytes,$i+3,1) + BinaryMid($bytes,$i+2,1) + BinaryMid($bytes,$i+1,1) + BinaryMid($bytes,$i,1)),2))
    Next
    Local $a = 0x67452301, $b = 0xEFCDAB89, $c = 0x98BADCFE, $d = 0x10325476

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

    For $k = 0 To UBound($x) - 1 Step 16
    $AA = $a
    $BB = $b
    $CC = $c
    $DD = $d

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

    ; The hex number in the middle of each of the following lines
    ; an element from the 64 element table constructed with
    ; T(i) = Int(4294967296 * Abs(Sin(i))) where i is 1 to 64.
    ;
    ; However, for speed we don't want to calculate the value every time.

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

    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitOR(BitAND($b, $c), BitAND((BitNOT($b)), $d)) + $x[$k + 0x0],0) + 0xD76AA478,0),0), 0x07,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitOR(BitAND($a, $b), BitAND((BitNOT($a)), $c)) + $x[$k + 0x1],0) + 0xE8C7B756,0),0), 0x0C,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitOR(BitAND($d, $a), BitAND((BitNOT($d)), $b)) + $x[$k + 0x2],0) + 0x242070DB,0),0), 0x11,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitOR(BitAND($c, $d), BitAND((BitNOT($c)), $a)) + $x[$k + 0x3],0) + 0xC1BDCEEE,0),0), 0x16,"D")+$c,0)
    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitOR(BitAND($b, $c), BitAND((BitNOT($b)), $d)) + $x[$k + 0x4],0) + 0xF57C0FAF,0),0), 0x07,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitOR(BitAND($a, $b), BitAND((BitNOT($a)), $c)) + $x[$k + 0x5],0) + 0x4787C62A,0),0), 0x0C,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitOR(BitAND($d, $a), BitAND((BitNOT($d)), $b)) + $x[$k + 0x6],0) + 0xA8304613,0),0), 0x11,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitOR(BitAND($c, $d), BitAND((BitNOT($c)), $a)) + $x[$k + 0x7],0) + 0xFD469501,0),0), 0x16,"D")+$c,0)
    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitOR(BitAND($b, $c), BitAND((BitNOT($b)), $d)) + $x[$k + 0x8],0) + 0x698098D8,0),0), 0x07,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitOR(BitAND($a, $b), BitAND((BitNOT($a)), $c)) + $x[$k + 0x9],0) + 0x8B44F7AF,0),0), 0x0C,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitOR(BitAND($d, $a), BitAND((BitNOT($d)), $b)) + $x[$k + 0xA],0) + 0xFFFF5BB1,0),0), 0x11,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitOR(BitAND($c, $d), BitAND((BitNOT($c)), $a)) + $x[$k + 0xB],0) + 0x895CD7BE,0),0), 0x16,"D")+$c,0)
    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitOR(BitAND($b, $c), BitAND((BitNOT($b)), $d)) + $x[$k + 0xC],0) + 0x6B901122,0),0), 0x07,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitOR(BitAND($a, $b), BitAND((BitNOT($a)), $c)) + $x[$k + 0xD],0) + 0xFD987193,0),0), 0x0C,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitOR(BitAND($d, $a), BitAND((BitNOT($d)), $b)) + $x[$k + 0xE],0) + 0xA679438E,0),0), 0x11,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitOR(BitAND($c, $d), BitAND((BitNOT($c)), $a)) + $x[$k + 0xF],0) + 0x49B40821,0),0), 0x16,"D")+$c,0)

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

    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitOR(BitAND($b, $d), BitAND($c, (BitNOT($d)))) + $x[$k + 0x1],0) + 0xF61E2562,0),0),0x05,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitOR(BitAND($a, $c), BitAND($b, (BitNOT($c)))) + $x[$k + 0x6],0) + 0xC040B340,0),0),0x09,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitOR(BitAND($d, $b), BitAND($a, (BitNOT($b)))) + $x[$k + 0xB],0) + 0x265E5A51,0),0),0x0E,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitOR(BitAND($c, $a), BitAND($d, (BitNOT($a)))) + $x[$k + 0x0],0) + 0xE9B6C7AA,0),0),0x14,"D")+$c,0)
    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitOR(BitAND($b, $d), BitAND($c, (BitNOT($d)))) + $x[$k + 0x5],0) + 0xD62F105D,0),0),0x05,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitOR(BitAND($a, $c), BitAND($b, (BitNOT($c)))) + $x[$k + 0xA],0) + 0x02441453,0),0),0x09,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitOR(BitAND($d, $b), BitAND($a, (BitNOT($b)))) + $x[$k + 0xF],0) + 0xD8A1E681,0),0),0x0E,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitOR(BitAND($c, $a), BitAND($d, (BitNOT($a)))) + $x[$k + 0x4],0) + 0xE7D3FBC8,0),0),0x14,"D")+$c,0)
    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitOR(BitAND($b, $d), BitAND($c, (BitNOT($d)))) + $x[$k + 0x9],0) + 0x21E1CDE6,0),0),0x05,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitOR(BitAND($a, $c), BitAND($b, (BitNOT($c)))) + $x[$k + 0xE],0) + 0xC33707D6,0),0),0x09,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitOR(BitAND($d, $b), BitAND($a, (BitNOT($b)))) + $x[$k + 0x3],0) + 0xF4D50D87,0),0),0x0E,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitOR(BitAND($c, $a), BitAND($d, (BitNOT($a)))) + $x[$k + 0x8],0) + 0x455A14ED,0),0),0x14,"D")+$c,0)
    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitOR(BitAND($b, $d), BitAND($c, (BitNOT($d)))) + $x[$k + 0xD],0) + 0xA9E3E905,0),0),0x05,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitOR(BitAND($a, $c), BitAND($b, (BitNOT($c)))) + $x[$k + 0x2],0) + 0xFCEFA3F8,0),0),0x09,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitOR(BitAND($d, $b), BitAND($a, (BitNOT($b)))) + $x[$k + 0x7],0) + 0x676F02D9,0),0),0x0E,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitOR(BitAND($c, $a), BitAND($d, (BitNOT($a)))) + $x[$k + 0xC],0) + 0x8D2A4C8A,0),0),0x14,"D")+$c,0)

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

    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitXOR($b, $c, $d) + $x[$k + 0x5],0) + 0xFFFA3942,0),0),0x04,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitXOR($a, $b, $c) + $x[$k + 0x8],0) + 0x8771F681,0),0),0x0B,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitXOR($d, $a, $b) + $x[$k + 0xB],0) + 0x6D9D6122,0),0),0x10,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitXOR($c, $d, $a) + $x[$k + 0xE],0) + 0xFDE5380C,0),0),0x17,"D")+$c,0)
    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitXOR($b, $c, $d) + $x[$k + 0x1],0) + 0xA4BEEA44,0),0),0x04,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitXOR($a, $b, $c) + $x[$k + 0x4],0) + 0x4BDECFA9,0),0),0x0B,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitXOR($d, $a, $b) + $x[$k + 0x7],0) + 0xF6BB4B60,0),0),0x10,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitXOR($c, $d, $a) + $x[$k + 0xA],0) + 0xBEBFBC70,0),0),0x17,"D")+$c,0)
    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitXOR($b, $c, $d) + $x[$k + 0xD],0) + 0x289B7EC6,0),0),0x04,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitXOR($a, $b, $c) + $x[$k + 0x0],0) + 0xEAA127FA,0),0),0x0B,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitXOR($d, $a, $b) + $x[$k + 0x3],0) + 0xD4EF3085,0),0),0x10,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitXOR($c, $d, $a) + $x[$k + 0x6],0) + 0x04881D05,0),0),0x17,"D")+$c,0)
    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitXOR($b, $c, $d) + $x[$k + 0x9],0) + 0xD9D4D039,0),0),0x04,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitXOR($a, $b, $c) + $x[$k + 0xC],0) + 0xE6DB99E5,0),0),0x0B,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitXOR($d, $a, $b) + $x[$k + 0xF],0) + 0x1FA27CF8,0),0),0x10,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitXOR($c, $d, $a) + $x[$k + 0x2],0) + 0xC4AC5665,0),0),0x17,"D")+$c,0)

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

    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitXOR($c, BitOR($b, (BitNOT($d)))) + $x[$k + 0x0],0) + 0xF4292244,0),0),0x06,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitXOR($b, BitOR($a, (BitNOT($c)))) + $x[$k + 0x7],0) + 0x432AFF97,0),0),0x0A,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitXOR($a, BitOR($d, (BitNOT($b)))) + $x[$k + 0xE],0) + 0xAB9423A7,0),0),0x0F,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitXOR($d, BitOR($c, (BitNOT($a)))) + $x[$k + 0x5],0) + 0xFC93A039,0),0),0x15,"D")+$c,0)
    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitXOR($c, BitOR($b, (BitNOT($d)))) + $x[$k + 0xC],0) + 0x655B59C3,0),0),0x06,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitXOR($b, BitOR($a, (BitNOT($c)))) + $x[$k + 0x3],0) + 0x8F0CCC92,0),0),0x0A,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitXOR($a, BitOR($d, (BitNOT($b)))) + $x[$k + 0xA],0) + 0xFFEFF47D,0),0),0x0F,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitXOR($d, BitOR($c, (BitNOT($a)))) + $x[$k + 0x1],0) + 0x85845DD1,0),0),0x15,"D")+$c,0)
    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitXOR($c, BitOR($b, (BitNOT($d)))) + $x[$k + 0x8],0) + 0x6FA87E4F,0),0),0x06,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitXOR($b, BitOR($a, (BitNOT($c)))) + $x[$k + 0xF],0) + 0xFE2CE6E0,0),0),0x0A,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitXOR($a, BitOR($d, (BitNOT($b)))) + $x[$k + 0x6],0) + 0xA3014314,0),0),0x0F,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitXOR($d, BitOR($c, (BitNOT($a)))) + $x[$k + 0xD],0) + 0x4E0811A1,0),0),0x15,"D")+$c,0)
    $a = BitOR(BitRotate(BitOR($a + BitOR(BitOR(BitXOR($c, BitOR($b, (BitNOT($d)))) + $x[$k + 0x4],0) + 0xF7537E82,0),0),0x06,"D")+$b,0)
    $d = BitOR(BitRotate(BitOR($d + BitOR(BitOR(BitXOR($b, BitOR($a, (BitNOT($c)))) + $x[$k + 0xB],0) + 0xBD3AF235,0),0),0x0A,"D")+$a,0)
    $c = BitOR(BitRotate(BitOR($c + BitOR(BitOR(BitXOR($a, BitOR($d, (BitNOT($b)))) + $x[$k + 0x2],0) + 0x2AD7D2BB,0),0),0x0F,"D")+$d,0)
    $b = BitOR(BitRotate(BitOR($b + BitOR(BitOR(BitXOR($d, BitOR($c, (BitNOT($a)))) + $x[$k + 0x9],0) + 0xEB86D391,0),0),0x15,"D")+$c,0)

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

    $a = BitOR($a + $AA,0)
    $b = BitOR($b + $BB,0)
    $c = BitOR($c + $CC,0)
    $d = BitOR($d + $DD,0)
    Next

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

    Return StringLower(StringMid(Hex($a),7,2) & StringMid(Hex($a),5,2) & StringMid(Hex($a),3,2) & StringMid(Hex($a),1,2) & _
    StringMid(Hex($b),7,2) & StringMid(Hex($b),5,2) & StringMid(Hex($b),3,2) & StringMid(Hex($b),1,2) & _
    StringMid(Hex($c),7,2) & StringMid(Hex($c),5,2) & StringMid(Hex($c),3,2) & StringMid(Hex($c),1,2) & _
    StringMid(Hex($d),7,2) & StringMid(Hex($d),5,2) & StringMid(Hex($d),3,2) & StringMid(Hex($d),1,2))
    EndFunc ;==>MD5

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

    Hab ich irgendwo mal gefunden und nun auf meiner Platte wieder gefunden.
    Einfach

    [autoit]

    md5("YOUR1337PASSWORThere")

    [/autoit]

    Jedoch, wird mit der Unix eigenen Verschlüsselng [crypt()] das Passwort erstellt und nicht mit MD5!

    Dateien

    MD5Hash.rar 17,54 kB – 263 Downloads
  • Funktion mit Tastenkürzel starten

    • ProblemUser
    • 20. Dezember 2010 um 11:34

    Entweder

    [autoit]

    HotKeySet

    [/autoit]

    oder aber

    [autoit]

    If _IsPressed() Then _Funktion()

    [/autoit]
  • MSG Box am Anfang das Programmes nur beim 1. Start

    • ProblemUser
    • 15. Dezember 2010 um 21:18

    Wießo denn? Eine Registry ist genau für solche Zwecke gedacht nur sollte man halt auch beim Löschen wieder entfernen also ein DE-Instalations programm wäre von Vorteil ;)

  • [html] NAvigation

    • ProblemUser
    • 15. Dezember 2010 um 19:38

    Hallo,
    ich suche eine Navigation für HTML, welche wie dieses Script funktioniert!

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    $Form1 = GUICreate("Form1", 532, 409, 192, 124)
    $Button1 = GUICtrlCreateButton("Link1", 32, 48, 211, 25, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Link2", 32, 104, 211, 25, $WS_GROUP)
    $Button3 = GUICtrlCreateButton("Link3", 32, 160, 211, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)

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

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

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

    EndSwitch
    WEnd

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

    Func Link2()
    $Form1 = GUICreate("Form1", 532, 409, 185, 111)
    $Button1 = GUICtrlCreateButton("Link1", 32, 48, 211, 25, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Link2", 48, 104, 227, 33, $WS_GROUP)
    $Button3 = GUICtrlCreateButton("Link3", 32, 280, 211, 25, $WS_GROUP)
    $Button4 = GUICtrlCreateButton("Link2.1", 88, 160, 211, 25, $WS_GROUP)
    $Button5 = GUICtrlCreateButton("Link2.2", 88, 200, 211, 25, $WS_GROUP)
    $Button6 = GUICtrlCreateButton("Link2.3", 88, 240, 211, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button5
    Link2_2()
    EndSwitch
    WEnd
    EndFunc ;==>Link2

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

    Func Link2_2()
    $Form1 = GUICreate("Form1", 532, 409, 185, 111)
    $Button1 = GUICtrlCreateButton("Link1", 32, 48, 211, 25, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Link2", 48, 104, 227, 33, $WS_GROUP)
    $Button3 = GUICtrlCreateButton("Link3", 32, 312, 211, 25, $WS_GROUP)
    $Button4 = GUICtrlCreateButton("Link2.1", 88, 160, 211, 25, $WS_GROUP)
    $Button5 = GUICtrlCreateButton("Link2.2", 104, 208, 219, 33, $WS_GROUP)
    $Button6 = GUICtrlCreateButton("Link2.3", 88, 264, 211, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)

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

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

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

    EndSwitch
    WEnd

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

    EndFunc ;==>Link2_2

    [/autoit]


    Zuerst auf Link 2 dann auf Link2.2 Klicken
    Also Es soll zuerst eine normale Navigation erstellt werden, wenn man nun auf z.b. Link2 klickt soll dieser Text GRrößer und Bunt werden und eine neue Navigation öffnen!
    Wird nun wieder ein Link geklickt z.b. 2.2 wird dieser auch Groß und Bunt.
    Grüße PU
    PS: Bitte nur JavaScript und HTML jedoch kein jQuery oder andere externe Funktionen!

  • MSG Box am Anfang das Programmes nur beim 1. Start

    • ProblemUser
    • 14. Dezember 2010 um 16:10

    Schau dir mal:

    [autoit]

    RegWrite() RegRead()

    [/autoit]


    an hier ein kleines Beispiel:

    [autoit]

    If Not RegRead("HKEY_CURRENT_USER\Software\DEINPROGRAMMNAME", "FirstStart") = 1 Then
    MsgBox(0, "Erster Start", "Das Programm wurde zum ersten mal gestartet!")
    RegWrite("HKEY_CURRENT_USER\Software\DEINPROGRAMMNAME", "FirstStart", "REG_SZ", "1")
    EndIf

    [/autoit]

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™