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. Sezer

Beiträge von Sezer

  • Variablen: Dim / Global / Local / Const

    • Sezer
    • 5. Januar 2014 um 19:34

    Hallo, ich habe nie richtig verstanden was die Variablen bringen: Dim / Global / Local / Const

    Vielleicht heißen die auch nicht Variablen also bitte nicht so hart sein.
    Könnte mir vielleicht irgend einer erklären was der Unterschied zwischen

    [autoit]

    $variable = "Hallo Welt!"

    [/autoit]


    und den ist

    [autoit]

    Local $x, $y = 23
    Global $_PI = 3.14159, $RADIUS
    Dim $weeklyWorkSchedule[$_daysWorking]

    [/autoit]
  • Funktion um Beenden zu Verhindern

    • Sezer
    • 4. Januar 2014 um 22:45

    Da will wohl jemand einen Virus erstellen, bei solchen Leuten helfe ich nicht!
    Das ist strafbar ein Virus zu erstellen und es zu verbreiten!

  • AutoIt hatte ein Virus?

    • Sezer
    • 4. Januar 2014 um 18:12

    Das war vor 6 Monaten, und ich habe irgendwie es bezwungen so das es gar nicht mehr kam.
    Und ich hatte auch Hilfe von einem anderen Forum. (Trojaner-board)

  • Unterminated String

    • Sezer
    • 4. Januar 2014 um 12:34
    [autoit]

    _ScreenCapture_Capture(@DesktopDir & "" & $i & '.jpg')

    [/autoit]


    So ist es richtig!

  • AutoIt hatte ein Virus?

    • Sezer
    • 3. Januar 2014 um 22:55

    Hallo ich habe mir mal vor 6 Monaten oder so AutoIt neu gedownloadet.
    Setup usw alles gemacht, plötzlich blieb mein Display jede Sekunde stehen, ich schaute im Task Manager ob ich vielleicht ein Virus habe oder so, und ich hatte mir einen Virus eingefangen namens Caluculator. Also es war ein AutoIt Script was anscheinend calculator.exe immer startet wenn ich calculator beendet habe. Dann habe ich den ganzen Pfad und Ordner gelöscht plötzlich entpackte das Autoit Programm durch Winrar den Virus neu. Das war dauernd so bis ich mich durch gekämpft habe und den Virus bezwungen habe(Autoit deininstalliert).

    Als erstes glaubte ich nicht das der Virus von Autoit kam also wartete ich eine halbe Stunde und es passierte nichts, das war gut. Ich installierte wieder Autoit, Setup usw. Plötzlich geschah es wieder. Seit dem downloadete ich nicht mehr AutoIt von der Homepage sondern von Chip.de

  • AutoIT Dateien umbenennen Counter

    • Sezer
    • 3. Januar 2014 um 22:10

    Es muss eine txt namens 1 schon existieren, da wo dein script ist.

    [autoit]

    HotKeySet("{F6}", "Start")
    HotKeySet("{F7}", "Close")

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

    if NOT FileExists(@Scriptdir & "\1.txt") Then
    MsgBox(16, "ERROR", "Es muss eine TXT Datei namens 1 im Ordner vom BOT sein.")
    Exit
    EndIf

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

    while 1
    Sleep(50)
    WEnd

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

    Func Start()

    For $i = 2 To 50 Step 1
    FileCopy(@ScriptDir & "\1.txt", @DESKTOPDIR & "" & $i & ".txt")
    Next
    MsgBox(64, "", "Fertig!")
    Exit

    EndFunc

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

    Func Close()
    Exit
    EndFunc

    [/autoit]
  • Bewerbung Maker v3

    • Sezer
    • 11. Mai 2013 um 21:09

    Gemacht, und wie findest dus? Also Bewerbung Maker v3

  • Bewerbung Maker v3

    • Sezer
    • 11. Mai 2013 um 21:02

    Meine Damen und Herren,
    ich präsentiere euch das was ihr noch nie gesehen habt, (Vielleicht schon  ;) )

    BEWERBUNG MAKER V3 UND DIESMAL ALLES BESSER!


    Was ist neu?
    - 4 Forms
    - 2 Optionen = KLEINE BEWERBUNG oder GROßE BEWERBUNG
    - Extra Form für Hilfe
    - Es ist größer.
    - Es wird ein extra Ordner erstellt.
    UND VIELES MEHR

    Script

    Spoiler anzeigen
    Zitat
    [autoit]

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

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

    BewerbungMaker v3 by sezer0012
    Author: sezer0012

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

    Uhrzeit und Datum an veröffentlichung: 20:42 Uhr & 11 Mai 2013
    Zeilen: 288
    Wie lange ich gebraucht habe: 8 Stunden mit 2 Pausen

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

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

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

    ;Includes
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    ;Form 1 (Beim Start)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Bewerbung Maker v3", 239, 107, 192, 124)
    GUISetBkColor(0x99B4D1)
    $Label1 = GUICtrlCreateLabel("Copyright by sezer0012", 8, 72, 209, 30)
    GUICtrlSetFont(-1, 16, 800, 2, "Corbel")
    $Button1 = GUICtrlCreateButton("Kleine Bewerbung", 0, 8, 115, 25, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Große Bewerbung", 120, 8, 115, 25, $WS_GROUP)
    $Button3 = GUICtrlCreateButton("Hilfe", 0, 40, 235, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    ;Form 2 (Kleine Bewerbung)
    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Kleine Bewerbung", 439, 263, 192, 124)
    GUISetBkColor(0xABABAB)
    $Input1 = GUICtrlCreateInput("", 16, 24, 121, 21)
    $Group2 = GUICtrlCreateGroup("Überschrifft", 8, 8, 137, 49)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group1 = GUICtrlCreateGroup("Name", 152, 8, 137, 49)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Input2 = GUICtrlCreateInput("", 160, 24, 121, 21)
    $Group3 = GUICtrlCreateGroup("Alter", 296, 8, 137, 49)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Input3 = GUICtrlCreateInput("", 304, 24, 121, 21)
    $Group4 = GUICtrlCreateGroup("Hobbys", 8, 64, 137, 97)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Input4 = GUICtrlCreateInput("", 16, 80, 121, 21)
    $Input5 = GUICtrlCreateInput("", 16, 104, 121, 21)
    $Input6 = GUICtrlCreateInput("", 16, 128, 121, 21)
    $Group5 = GUICtrlCreateGroup("Stärken", 152, 64, 137, 97)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Input7 = GUICtrlCreateInput("", 160, 80, 121, 21)
    $Input8 = GUICtrlCreateInput("", 160, 104, 121, 21)
    $Input9 = GUICtrlCreateInput("", 160, 128, 121, 21)
    $Group6 = GUICtrlCreateGroup("Schwächen", 296, 64, 137, 97)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Input10 = GUICtrlCreateInput("", 304, 80, 121, 21)
    $Input11 = GUICtrlCreateInput("", 304, 104, 121, 21)
    $Input12 = GUICtrlCreateInput("", 304, 128, 121, 21)
    $Label2 = GUICtrlCreateLabel("Copyright by sezer0012", 8, 200, 423, 57)
    GUICtrlSetFont(-1, 32, 800, 2, "Corbel")
    $Button4 = GUICtrlCreateButton("Speichern", 8, 168, 427, 25, $WS_GROUP)
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

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

    ;Form 3 (Hilfe)
    #Region ### START Koda GUI section ### Form=
    $Form3 = GUICreate("Hilfe", 602, 409, 192, 124)
    GUISetBkColor(0x99B4D1)
    $Label2 = GUICtrlCreateLabel("Es ist wichtig zu beachten das man bei diesen Wörtern nichts groß schreiben darf,", 11, 8, 581, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    $Pic1 = GUICtrlCreatePic(@ScriptDir & "\Bewerbung\Beachten.jpg", 8, 56, 580, 244, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Label1 = GUICtrlCreateLabel("und keine Zeichen einfügen darf.", 11, 32, 236, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    $Button5 = GUICtrlCreateButton("Zurück", 8, 304, 580, 26, $WS_GROUP)
    $Label3 = GUICtrlCreateLabel("Copyright by sezer0012", 11, 328, 577, 76)
    GUICtrlSetFont(-1, 44, 800, 2, "Corbel")
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

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

    ;Form 4 (Große Bewerbung)
    #Region ### START Koda GUI section ### Form=c:\users\bülent\desktop\form 1-4\form4.kxf
    $Form4 = GUICreate("Große Bewerbung", 447, 447, 192, 124)
    GUISetBkColor(0xC0C0C0)
    $Group1 = GUICtrlCreateGroup("Überschrifft", 8, 8, 137, 41)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Input13 = GUICtrlCreateInput("", 11, 24, 121, 21)
    $Group2 = GUICtrlCreateGroup("Name", 152, 8, 137, 41)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Input14 = GUICtrlCreateInput("", 155, 24, 121, 21)
    $Group3 = GUICtrlCreateGroup("Alter", 296, 8, 137, 41)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Input15 = GUICtrlCreateInput("", 299, 24, 121, 21)
    $Group6 = GUICtrlCreateGroup("Hobbys", 8, 56, 137, 97)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Input16 = GUICtrlCreateInput("", 11, 72, 121, 21)
    $Input17 = GUICtrlCreateInput("", 11, 96, 121, 21)
    $Input18 = GUICtrlCreateInput("", 11, 120, 121, 21)
    $Input19 = GUICtrlCreateInput("", 155, 72, 121, 21)
    $Group7 = GUICtrlCreateGroup("Stärken", 152, 56, 137, 97)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Input20 = GUICtrlCreateInput("", 155, 96, 121, 21)
    $Input21 = GUICtrlCreateInput("", 155, 120, 121, 21)
    $Input22 = GUICtrlCreateInput("", 299, 72, 121, 21)
    $Group8 = GUICtrlCreateGroup("Schwächen", 296, 56, 137, 97)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Input23 = GUICtrlCreateInput("", 299, 120, 121, 21)
    $Input24 = GUICtrlCreateInput("", 299, 96, 121, 21)
    $Input25 = GUICtrlCreateInput("", 11, 176, 409, 21)
    $Group4 = GUICtrlCreateGroup("Wieso möchtest du zu uns? [3x Sätze, Großschreiben erlaubt und Zeichen auch.", 8, 160, 425, 97)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Input26 = GUICtrlCreateInput("", 11, 200, 409, 21)
    $Input27 = GUICtrlCreateInput("", 12, 227, 409, 21)
    $Input28 = GUICtrlCreateInput("", 12, 272, 409, 21)
    $Group5 = GUICtrlCreateGroup("Wieso sollten wir dich nehmen? [3x Sätze, Groschreiben erlaubt und Zeichen auch.", 8, 256, 425, 97)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Input29 = GUICtrlCreateInput("", 12, 296, 409, 21)
    $Input30 = GUICtrlCreateInput("", 12, 323, 409, 21)
    $Button6 = GUICtrlCreateButton("Speichern", 8, 360, 427, 25, $WS_GROUP)
    $Label4 = GUICtrlCreateLabel("Copyright by sezer0012", 3, 384, 442, 59)
    GUICtrlSetFont(-1, 34, 800, 2, "Corbel")
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

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

    ;Falls Ordner nicht existiert, erstellen!
    If Not FileExists(@ScriptDir & "\Bewerbung") Then
    DirCreate(@ScriptDir & "\Bewerbung")
    EndIf

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

    While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Switch $nMsg[1]
    Case $Form1
    Exit
    Case $Form2
    GUISetState(@SW_HIDE, $Form2)
    Case $Form3
    GUISetState(@SW_HIDE, $Form3)
    Case $Form4
    GUISetState(@SW_HIDE, $Form4)
    EndSwitch
    ;============================================START================================================================
    ;Form 1 Button
    Case $Button1
    GUISetState(@SW_SHOW, $Form2)

    Case $Button2
    GUISetState(@SW_SHOW, $Form4)

    Case $Button3
    GUISetState(@SW_SHOW, $Form3)

    ;Form 2 Button
    Case $Button4
    File()

    ;Form 3 Button
    Case $Button5
    GUISetState(@SW_HIDE, $Form3)
    GUISetState(@SW_SHOW, $Form1)

    ;Form 4 Button
    Case $Button6
    GB()
    EndSwitch
    WEnd

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

    ;GB = [G]große [B]ewerbung
    Func GB()

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

    ;Aus Input text auslesen
    $vUeberschrifft = GUICtrlRead($Input13)
    $vName = GUICtrlRead($Input14)
    $vAlter = GUICtrlRead($Input15)

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

    ;3 = 3x Inputs
    $vHobby1 = GUICtrlRead($Input16)
    $vHobby2 = GUICtrlRead($Input17)
    $vHobby3 = GUICtrlRead($Input18)

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

    $vStaerke1 = GUICtrlRead($Input19)
    $vStaerke2 = GUICtrlRead($Input20)
    $vStaerke3 = GUICtrlRead($Input21)

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

    $vSchwaeche1 = GUICtrlRead($Input22)
    $vSchwaeche2 = GUICtrlRead($Input23)
    $vSchwaeche3 = GUICtrlRead($Input24)

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

    ;WDU1 = [W]ieso willst [D]u zu uns?
    $vWDU1 = GUICtrlRead($Input25)
    $vWDU2 = GUICtrlRead($Input26)
    $vWDU3 = GUICtrlRead($Input27)

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

    ;WS1 = [W]ieso ollten wir dich nehmen?
    $vWS1 = GUICtrlRead($Input28)
    $vWS2 = GUICtrlRead($Input29)
    $vWS3 = GUICtrlRead($Input30)

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

    ;Falls .txt existiert löschen!
    If FileExists(@ScriptDir & "\Bewerbung\GbBewerbung.txt") Then
    FileDelete(@ScriptDir & "\Bewerbung\GbBewerbung.txt")
    EndIf

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

    ;Falls ein Fehler beim Öffnen auftrifft
    $LOG = FileOpen("GbBewerbung.txt", 1)
    If $LOG = -1 Then;
    MsgBox(16, "Mist!", "Die Datei konnte nicht geöffnet werden!")
    Exit
    EndIf

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

    ;Bewerbung in Sätze bearbeiten
    FileWrite("GbBewerbung.txt", $vUeberschrifft & " Bewerbung" & @CRLF) ; @CRLF = Zeilenbruch
    FileWrite("GbBewerbung.txt", "Mein Name ist " & $vName & " und ich bin " & $vAlter & " Jahre alt." & @CRLF)
    FileWrite("GbBewerbung.txt", "Meine Hobbys sind: " & $vHobby1 & ", " & $vHobby2 & " und " & $vHobby3 & "." & @CRLF & @CRLF)
    FileWrite("GbBewerbung.txt", "Stärken: " & $vStaerke1 & ", " & $vStaerke2 & " und " & $vStaerke3 & "." & @CRLF)
    FileWrite("GbBewerbung.txt", "Schwächen: " & $vSchwaeche1 & ", " & $vSchwaeche2 & " und " & $vSchwaeche3 & "." & @CRLF & @CRLF)
    FileWrite("GbBewerbung.txt", "Wieso willst du zu uns?" & @CRLF)
    FileWrite("GbBewerbung.txt", "•" & $vWDU1 & @CRLF)
    FileWrite("GbBewerbung.txt", "•" & $vWDU2 & @CRLF)
    FileWrite("GbBewerbung.txt", "•" & $vWDU3 & @CRLF & @CRLF)
    FileWrite("GbBewerbung.txt", "Wieso sollten wir dich nehmen?" & @CRLF)
    FileWrite("GbBewerbung.txt", "•" & $vWS1 & @CRLF)
    FileWrite("GbBewerbung.txt", "•" & $vWS2 & @CRLF)
    FileWrite("GbBewerbung.txt", "•" & $vWS3 & @CRLF & @CRLF)
    FileWrite("GbBewerbung.txt", "Ich hoffe euch hat meine Bewerbung gefallen." & @CRLF & @CRLF)
    FileWrite("GbBewerbung.txt", "Mit Freundlichen Grüßen," & @CRLF)
    FileWrite("GbBewerbung.txt", $vName & ".")

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

    ;Ins Ordner Bewerbung verschieben.
    FileMove(@ScriptDir & "\GbBewerbung.txt", @ScriptDir & "\Bewerbung\GbBewerbung.txt")

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

    ;MsgBox das es erfolgreich bearbeitet wurde und gespeichert wurde.
    MsgBox(64, "Gespeichert.", "Deine Bewerbung wurde erfolgreich bearbeitet und im Ordner 'GbBewerbung' gespeichert.")
    Exit
    EndFunc

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

    ;KB = [K]leine ewerbung (Form2)
    Func KB()
    ;Aus Input text auslesen
    $vUeberschrifft = GUICtrlRead($Input1)
    $vName = GUICtrlRead($Input2)
    $vAlter = GUICtrlRead($Input3)

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

    ;3 = 3x Inputs
    $vHobby1 = GUICtrlRead($Input4)
    $vHobby2 = GUICtrlRead($Input5)
    $vHobby3 = GUICtrlRead($Input6)

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

    $vStaerke1 = GUICtrlRead($Input7)
    $vStaerke2 = GUICtrlRead($Input8)
    $vStaerke3 = GUICtrlRead($Input9)

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

    $vSchwaeche1 = GUICtrlRead($Input10)
    $vSchwaeche2 = GUICtrlRead($Input11)
    $vSchwaeche3 = GUICtrlRead($Input12)

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

    ;Falls .txt existiert löschen!
    If FileExists(@ScriptDir & "\Bewerbung\KbBewerbung.txt") Then
    FileDelete(@ScriptDir & "\Bewerbung\KbBewerbung.txt")
    EndIf

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

    ;Falls ein Fehler beim Öffnen auftrifft
    $LOG = FileOpen("KbBewerbung.txt", 1)
    If $LOG = -1 Then;
    MsgBox(16, "Mist!", "Die Datei konnte nicht geöffnet werden!")
    Exit
    EndIf

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

    ;Bewerbung in Sätze bearbeiten
    FileWrite("KbBewerbung.txt", $vUeberschrifft & " Bewerbung" & @CRLF) ; @CRLF = Zeilenbruch
    FileWrite("KbBewerbung.txt", "Mein Name ist " & $vName & " und ich bin " & $vAlter & " Jahre alt." & @CRLF)
    FileWrite("KbBewerbung.txt", "Meine Hobbys sind: " & $vHobby1 & ", " & $vHobby2 & " und " & $vHobby3 & "." & @CRLF & @CRLF)
    FileWrite("KbBewerbung.txt", "Stärken: " & $vStaerke1 & ", " & $vStaerke2 & " und " & $vStaerke3 & "." & @CRLF)
    FileWrite("KbBewerbung.txt", "Schwächen: " & $vSchwaeche1 & ", " & $vSchwaeche2 & " und " & $vSchwaeche3 & "." & @CRLF)
    FileWrite("KbBewerbung.txt", "Ich hoffe euch hat meine Bewerbung gefallen." & @CRLF & @CRLF)
    FileWrite("KbBewerbung.txt", "Mit Freundlichen Grüßen," & @CRLF)
    FileWrite("KbBewerbung.txt", $vName & ".")

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

    ;Ins Ordner Bewerbung verschieben.
    FileMove(@ScriptDir & "\KbBewerbung.txt", @ScriptDir & "\Bewerbung\KbBewerbung.txt")

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

    ;MsgBox das es erfolgreich bearbeitet wurde und gespeichert wurde.
    MsgBox(64, "Gespeichert.", "Deine Bewerbung wurde erfolgreich bearbeitet und im Ordner 'KbBewerbung' gespeichert.")
    Exit

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

    EndFunc

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

    ;============================================END===========

    [/autoit]

    =====================================================

    Alles anzeigen


    Virus - Total https://www.virustotal.com/de/file/ab8168…sis/1368298802/

    Ich bitte um Feedback :D

    MFG
    Sezer0012

    Dateien

    Bewerbung Maker v3.rar 311,39 kB – 474 Downloads
  • Register/Login Script [AutoIt]

    • Sezer
    • 11. Mai 2013 um 14:58

    Erstmal danke für diesen Lob oder Tipp :D,
    den Bewerbung Maker zähle ich nicht mit weil,
    es ein paar Bugs hatte und ich da, wie soll ich sagen, noch nicht so schlau in AutoIt war :D

  • Register/Login Script [AutoIt]

    • Sezer
    • 11. Mai 2013 um 13:40

    Danke für deine Tipps, werde ich im nächsten Script einbauen.

    Frage:
    Wie findest du den Register/Login Script?   :D

  • Register/Login Script [AutoIt]

    • Sezer
    • 11. Mai 2013 um 12:31

    Hallöchen, ich zeige euch meinen selbst geschriebenen AutoIt Register/Login Script vor.

    Erklärung:
    Wenn man sich registriert speichert er in den Ordner Spieler 2 Textdateien, ein mal Username und Passwort. Natürlich verschlüsselt es auch den Passwort damit es sicherer ist. Wenn man sich einloggt, fragt es ab ob eine Datei existiert mit den Username, und wenn ja fragt es ab ob alles genau gleich ist.

    Wenn ihr den Script nicht downloaded sondern einfach kopiert, müsst ihr einen Ordner namens Spieler erstellen.

    Script:

    Zitat
    [autoit]

    #RequireAdmin
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <String.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Created by sezer0012", 247, 74, 379, 310)
    GUISetBkColor(0x99B4D1)
    $Button1 = GUICtrlCreateButton("Login", 128, 32, 99, 25, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Registrieren", 8, 32, 107, 25, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("NEU HIER?", 8, 8, 112, 19)
    GUICtrlSetFont(-1, 14, 800, 0, "Tahoma")
    $Label2 = GUICtrlCreateLabel("ODER", 136, 8, 59, 19)
    GUICtrlSetFont(-1, 14, 800, 0, "Tahoma")
    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
    Form2()
    Case $Button2
    Form3()

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

    EndSwitch
    WEnd

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

    Func Form2()

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

    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Login", 216, 94, 337, 251)
    GUISetBkColor(0x99B4D1)
    $Label1 = GUICtrlCreateLabel("Username:", 8, 8, 55, 17)
    $Label2 = GUICtrlCreateLabel("Geheimcode:", 8, 32, 67, 17)
    $Input1 = GUICtrlCreateInput("", 80, 8, 121, 21)
    $Input2 = GUICtrlCreateInput("", 80, 32, 121, 21)
    $Button1 = GUICtrlCreateButton("Login", 8, 56, 195, 25, $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
    Case $Button1
    Local $datei1, $datei2, $zeile1, $zeile2

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

    Local $username3 = GUICtrlRead($Input1)
    Local $gehcode4 = GUICtrlRead($Input2)

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

    Local $zeile1 = FileRead("S" & $username3)
    Local $zeile2 = FileRead("P" & $gehcode4)

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

    $datei1 = FileOpen(@ScriptDir & "\Spieler\Spieler " & $username3 & "\" & "S" & $username3)
    $datei2 = FileOpen(@ScriptDir & "\Spieler\Spieler " & $username3 & "\" & "P" & $gehcode4)

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

    If Not FileExists(@ScriptDir & "\Spieler\" & $username3 & "\Username" & ".txt") Then
    MsgBox(16, "Fehler!", "Account existiert nicht.")
    Exit
    EndIf

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

    If Not FileExists(@ScriptDir & "\Spieler\" & $username3 & "\Passwort" & ".txt") Then
    MsgBox(16, "Fehler!", "Passwort falsch angegeben!")
    Exit
    EndIf

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

    If FileExists(@ScriptDir & "\Spieler\" & $username3 & "\Username" & ".txt") And FileExists(@ScriptDir & "\Spieler\" & $username3 & "\Passwort" & ".txt") Then
    Form4()
    Else
    MsgBox(16, "Fehler!", "Es ist ein Unbekannter Fehler aufgetreten!")
    EndIf

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

    EndSwitch
    WEnd

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

    EndFunc

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

    Func Form3()

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

    #Region ### START Koda GUI section ### Form=
    $Form3 = GUICreate("Registrieren", 397, 54, 302, 218)
    GUISetBkColor(0x99B4D1)
    $Label1 = GUICtrlCreateLabel("Username:", 8, 8, 55, 17)
    $Input1 = GUICtrlCreateInput("", 64, 8, 121, 21)
    $Label2 = GUICtrlCreateLabel("Passwort:", 192, 8, 67, 17)
    $Input2 = GUICtrlCreateInput("", 264, 8, 121, 21)
    $Button1 = GUICtrlCreateButton("Registrieren", 64, 32, 323, 17, $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
    Case $Button1
    Local $Spieler = "\Spieler\"

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

    $username1 = GUICtrlRead($Input1)
    $gehcode2 = GUICtrlRead($Input2)
    $lvl = 1

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

    If FileExists(@ScriptDir & $Spieler & $username1 & "\" & "S" & $username1 & ".txt") Then
    MsgBox(16, "Fehler!", "Account existiert schon!" & @CRLF & @CRLF & "Wenn sie ihr Passwort vergessen haben," & @CRLF & "müssen sie sich einen neuen Account" & @CRLF & "mit anderen Daten zulegen.")
    Exit
    EndIf

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

    DirCreate(@ScriptDir & "\Spieler\" & $username1)
    FileWrite(@ScriptDir & "\Spieler\" & $username1 & "\" & "Username" & ".txt", $username1 & @CRLF)
    FileWrite(@ScriptDir & "\Spieler\" & $username1 & "\" & "Passwort" & ".txt", _StringEncrypt(1, $gehcode2, $gehcode2, $lvl))

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

    MsgBox(0, "Erfolgreich!", "Sie haben sich erfolgreich Registriert," & @CRLF & "loggen sie sich bitte jetzt ein.")
    Exit

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

    $LOG = FileOpen(@ScriptDir & "\Spieler\" & "Spieler " & $username1 & ".txt", 1 )
    If $LOG = -1 Then
    MsgBox( 0, "Mist", "Datei konnte nicht geöffnet werden" )
    Exit
    EndIf

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

    EndSwitch
    WEnd

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

    EndFunc

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

    Func Form4()

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

    #Region ### START Koda GUI section ### Form=
    $Form4 = GUICreate("Das wars!", 391, 238, 192, 124)
    $Edit1 = GUICtrlCreateEdit("", 0, 0, 385, 233)
    GUICtrlSetData(-1, "Edit1")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    GUICtrlSetData($Edit1, "Das war das Login - Script.")

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

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

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

    EndSwitch

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

    WEnd
    EndFunc

    [/autoit]
    Alles anzeigen

    VirusTotal: https://www.virustotal.com/de/file/aea8f8…sis/1368267872/
    Download - Link: http://www.mediafire.com/?k5g8a7wteb38hjw

    Natürlich müsst ihr noch was ändern, also wenn man sich eingeloggt hat soll ja was passieren, das müsst ihr ändern wie ihr es wollt!
    Das ist mein erstes richtiges AutoIt Script [Blockierte Grafik: http://www.elitepvpers.com/forum/images/smilies/biggrin.gif]
    wenn es bugs gibt bitte melden

  • Minecraft Server Userliste

    • Sezer
    • 18. März 2013 um 13:35

    jo send ^^

  • Minecraft Server Userliste

    • Sezer
    • 17. März 2013 um 21:35

    Mann!

    Da bin ich so fast fertig und du sagst mir nicht das Problem!
    HILF DOCH MAL  :huh:

  • Minecraft Server Userliste

    • Sezer
    • 17. März 2013 um 21:29

    So gelöst,

    ich habe jetzt ne txt rein gefügt das es dann rein schreibt wer alles on ist aber da steht dann nichts?


    Zitat


    #include <Constants.au3>

    Local $foo = Run(@Scriptdir & "\server.bat") & Sleep(6000) & Send("list") & Send("{Enter}")
    $line = StdoutRead($foo)

    If FileExists( @DesktopDir & "\online.txt") Then FileDelete(@DesktopDir & "\bewerbung.txt" )

    $LOG = FileOpen( "online.txt", 1 )
    If $LOG = -1 Then;
    MsgBox( 0, "Mist", "Datei konnte nicht geöffnet werden" )
    Exit
    EndIf
    FileWrite( "online.txt", $line)

    Alles anzeigen
  • Minecraft Server Userliste

    • Sezer
    • 17. März 2013 um 21:24

    Ich bin noch ein Anfänger, wie kann ich mehrere Befehle in eine Variable stellen so das ich StdoutRead($Variable) machen kann?


    Das soll in die Variable:

    Zitat


    Run(@Scriptdir & "\server.bat")
    Sleep(6000)
    Send("list")
    Send("{Enter}")

  • Minecraft Server Userliste

    • Sezer
    • 17. März 2013 um 21:18

    Also meinst du das so?

    Run(@Scriptdir & "\server.bat")

    USW ?

  • Minecraft Server Userliste

    • Sezer
    • 17. März 2013 um 21:13

    chesstiger das check ich nicht so! Also das ist bis jetzt mein Script:

    Zitat

    #include <Constants.au3>

    Zitat

    If NOT ProcessExists("cmd.exe") Then
    MsgBox(7, "Error!", "Du musst die Server Konsolle starten!")
    EndIf

    $read = _CMDRead("list")

    MsgBox(0, "Online", $read)

    Func _CMDRead($command)
    Local $line

    $CMD = Run(@ScriptDir & "\server.bat" & Sleep( 8000 ) & $read)

    While 1
    $line &= StdoutRead($CMD)
    If @error Then ExitLoop
    Wend
    Return $line
    EndFunc

    Alles anzeigen

    Könntest du es vllt so umändern das es funktioniert.


    name22
    ich habe eine andere Lösung gefunden als PID, einfach Processexists

  • Minecraft Server Userliste

    • Sezer
    • 17. März 2013 um 20:52

    So bin jetzt schon sehr weit, was mir jetzt nur noch fehlt ist wie kann ich anstadt die richtige CMD die Server CMD nehmen ..

  • Minecraft Server Userliste

    • Sezer
    • 17. März 2013 um 20:28

    Ich arbeite schon ein halbes Jahr mit AutoIt und ich denke das reicht für das was ich immer mache.

    Ich brauch doch nur die Hilfe!
    Ich dachte man kann hier Hilfe kriegen, habe ich mich voll geriert.

  • Minecraft Server Userliste

    • Sezer
    • 17. März 2013 um 20:20

    Die PID ändert sich doch immer, also wenn ich es starte dann öffne dann änderts sich, ich habe auch so eine Idee.


    Zitat


    If NOT ProcessExists("cmd.exe") Then
    MsgBox(16, "Kleiner Fehler!", "Die Server Konsolle muss offen sein." & @CRLF & "Also der Server muss gestartet sein.")
    Exit
    EndIf

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™