Beiträge von Script-Bär

  • autoIt HinderGrund

    Dein Skript enthält ein paar fehler.

    Richtig müsste es so heisen:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------AutoIt Version: 3.3.0.0Author: myNameScript Function:Template AutoIt script.#ce ----------------------------------------------------------------------------
    ; Script Start - Add your code below here
    #ce
    #RequireAdmin
    #include
    #include
    #include
    #include
    Global $Ab = "Acc+"
    Global $firstrun = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\" & $Ab & "\config", "Firstrun")
    Global $Schlussel = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\" & $Ab & "\config", "Schlüssel")
    If _Singleton("Schlüssel", 1) = 0 Then
    MsgBox(0x40030, "Fehler", "Es wurde bereits eine laufende Instanz vom Wecker erkannt.")
    Exit
    EndIf
    If $firstrun = 0 Then
    MsgBox(0, "Herzlich Willkommen", "Herzlich Willkommen bei meinem Programm." & "Ich hoffe ihnen gefällt es.")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\" & $Ab & "\config", "Firstrun", "REG_SZ", "1")
    EndIf
    If $Schlussel = "" Then
    $SSErkennung = GUICreate("Begleiterkiste Code Generator", 246, 225, 193, 125)
    GUISetBkColor(0x99B4D1)
    GUICtrlCreateLabel("Herzlich Willkommen bei begleiterkiste.", 16, 8, 211, 17)
    $1 = GUICtrlCreateInput("xxxx", 48, 72, 33, 21)
    GUICtrlSetLimit(-1, 3)
    GUICtrlCreateLabel("---", 88, 72, 13, 17)
    $2 = GUICtrlCreateInput("xxxx", 104, 72, 33, 21)
    GUICtrlSetLimit(-1, 3)
    GUICtrlCreateLabel("---", 144, 72, 13, 17)
    $3 = GUICtrlCreateInput("xxxx", 160, 72, 33, 21)
    GUICtrlSetLimit(-1, 3)
    GUICtrlCreateLabel("Klicken Sie Auf ok Um den code zu erhalten", 16, 32, 219, 17)
    GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFF00)
    GUICtrlCreateLabel("Sie erhalten einen Serienschlüssel unter:", 16, 112, 195, 17)
    GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFF00)
    $Label6 = GUICtrlCreateLabel("Begleiterkiste.goo-boys.com", 16, 144, 109, 17)
    GUICtrlSetColor(-1, 0x000080)
    $Ok = GUICtrlCreateButton("Ok", 144, 184, 75, 25, $BS_DEFPUSHBUTTON)
    $Exit = GUICtrlCreateButton("Abbrechen", 24, 184, 75, 25, 0)
    GUISetState(@SW_SHOW)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE, $ExitExitCase, $Ok
    Serienschluessel()
    EndSwitch
    WEnd
    Else
    MsgBox(0, "", "Schlüssel erkannt." & @CRLF & "Viel Spaß!")
    Exit
    EndIf

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

    Func Serienschluessel()
    $Teil1 = GUICtrlRead($1)
    $Teil2 = GUICtrlRead($2)
    $Teil3 = GUICtrlRead($3)
    $Komplett = $Teil1 & $Teil2 & $Teil3
    $GetFile = InetGet("http://file1.npage.de/001091/60/download/schluessel.txt", @TempDir & "\v", 1, 0)
    If $GetFile = @error Then
    $Fehler1 = MsgBox(0x40010 + 0x5, "Fehler", "Problem bei der Verbindung mit dem Updateserver.")
    If $Fehler1 = 4 Then
    Return Serienschluessel()
    EndIf
    EndIf
    Global $Text = FileOpen(@TempDir & "\v", 0)
    If $Text = @error Then
    $Fehler2 = MsgBox(0x40010 + 0x5, "Fehler", "Problem bei der Öffnung der Datenbank." & @CRLF & "Fehler: " & @error)
    If $Fehler2 = 4 Then
    Return Serienschluessel()
    EndIf
    EndIf
    For $1 = 1 To 200 Step +1
    Global $gs = FileReadLine($Text, $1)
    If $Komplett = $gs Then
    MsgBox(0, "Erfolg", "Ihr Serienschlüssel wurde erfolgreich erkannt!")
    Global $Reg = RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\" & $Ab & "\config", "Schlüssel", "REG_SZ", $gs)
    If $Reg = @error Then
    $Fehler4 = MsgBox(0x40010 + 0x5, "Fehler", "Problem beim Registrieren des Schlüssels" & @CRLF & "Fehler: " & @error)
    If $Fehler4 = 4 Then
    Return Serienschluessel()
    EndIf
    EndIf
    GUIDelete($SSErkennung)
    EndIf
    Next
    FileClose($Text)
    FileDelete($Text)
    MsgBox(0, "Programm bitte Neustarten", "Bitte starten sie jetzt das Programm neu damit die Registrierung abgeschlossen wird.")
    Exit
    EndFunc ;==>Serienschluessel

    [/autoit]


    Zu Beachten ist:

    • Immer nur EIN Befehl pro Zeile (Ich weiß nicht von welcher Sprache du zu AutoIt gewchselt bist, da war es wohl anders.)
    • Alles innerhalb #cs und #ce bzw. hinter ; sind Kommentare, werden also nicht ausgeführt!
    • Eine Frage sollte frei von Rechtschreibfehlern sein.
    • Code am besten in einen Spoiler.


    So, genug gestänkert, wo sind überhaupt diene #Includes? Ohne die Funktioniert es ja gar nicht!

  • GUI Controls

    Zu der 2. Frage:
    Dazu müsstest du anstatt

    Spoiler anzeigen
    [autoit]

    Case $MenuItem_cre_acc
    $cre_input_id = GUICtrlCreateInput("ID", 584, 232, 209, 21)
    $cre_input_pw = GUICtrlCreateInput("Passwort", 584, 264, 209, 21)
    $txt_cre_acc = GUICtrlCreateLabel("Create Account", 616, 192, 139, 28)
    GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
    $button_cancel = GUICtrlCreateButton("Cancel", 712, 464, 75, 25)
    $button_confirm = GUICtrlCreateButton("Confirm", 592, 464, 75, 25)
    FileWrite("ID.ini", GUICtrlRead($cre_input_id))
    FileWrite("Passwort.ini", GUICtrlRead($cre_input_pw))
    $geschlecht_M = GUICtrlCreateRadio("Männlich", 584, 290, 113, 17)
    $geschlecht_W = GUICtrlCreateRadio("Weiblich", 704, 290, 113, 17)
    $Group2 = GUICtrlCreateGroup("Rasse", 584, 312, 209, 129)
    $radio_rasse1 = GUICtrlCreateRadio("Rasse1", 600, 335, 113, 17)
    $radio_rasse2 = GUICtrlCreateRadio("Rasse2", 600, 359, 113, 17)
    $radio_rasse3 = GUICtrlCreateRadio("Rasse3", 600, 383, 113, 17)
    $radio_rasse4 = GUICtrlCreateRadio("Rasse4", 600, 407, 113, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

    [/autoit]


    Zum Beispiel

    Spoiler anzeigen
    [autoit]

    Case $MenuItem_cre_acc
    $cre_input_id = GUICtrlCreateInput("ID", 584, 232, 209, 21)
    $cre_input_pw = GUICtrlCreateInput("Passwort", 584, 264, 209, 21)
    $txt_cre_acc = GUICtrlCreateLabel("Create Account", 616, 192, 139, 28)
    GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
    $button_cancel = GUICtrlCreateButton("Cancel", 712, 464, 75, 25)
    $button_confirm = GUICtrlCreateButton("Confirm", 592, 464, 75, 25)
    $geschlecht_M = GUICtrlCreateRadio("Männlich", 584, 290, 113, 17)
    $geschlecht_W = GUICtrlCreateRadio("Weiblich", 704, 290, 113, 17)
    $Group2 = GUICtrlCreateGroup("Rasse", 584, 312, 209, 129)
    $radio_rasse1 = GUICtrlCreateRadio("Rasse1", 600, 335, 113, 17)
    $radio_rasse2 = GUICtrlCreateRadio("Rasse2", 600, 359, 113, 17)
    $radio_rasse3 = GUICtrlCreateRadio("Rasse3", 600, 383, 113, 17)
    $radio_rasse4 = GUICtrlCreateRadio("Rasse4", 600, 407, 113, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    ;... Rest des Skripts

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

    Func CreateAccount()
    $WA = 1
    While $WA = 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $button_confirm
    FileWrite("ID.ini", GUICtrlRead($cre_input_id))
    FileWrite("Passwort.ini", GUICtrlRead($cre_input_pw))
    MsgBox(0, "", "Text der kommen soll")
    $WA = 0
    EndSwitch
    WEnd

    [/autoit]


    schreiben.
    So müsste es (meiner meinung nach) klappen.

    P.S.: Setzt dein Skript doch das nächste Mal in einen Spoiler und wähle eine bessere Überschrift als "Hilfe..." ;)

  • Programm mit Administratorberechtigung ausführen

    Ich würde sagen, der Grund warum die UAC immer noch aufgeht ist folgender:
    Du startest es mit RunAs() über einen Standartnutzer und hast im anderen Skript die UAC-Abfrage, die das Programm auf Adminebene hebt. Dazu brauch die UAC aber ein Admin-Password.

    Damit die UAC nicht meckkert, musst du im Starter-Programm unter RunAs()  ein Admin-Konto eingeben und in dem zu startenden Programm das #RequireAdmin entfernen.
    Ich glaube so müsste es gehen.

    (Idee beruht auf dem Gedanken, das das Konto "Matthias" ein Standartbenutzer (ohne Admin-Rechte) ist.)

  • Was ist eurer Meinung nach das beste Betriebssystem?

    Welches Betriebssystem ist euer Liebling?
    Windows? Macintosh? Linux? Unix? Andere Linux Varanten? Android? Chrome OS?
    Eure Meinung ist gefragt!

    :!: Antworten bitte mit Begründung !!! ( Deshalb mache ich keine Abstimmung.)

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

    Ich finde Windows ist das beste OS. Begründung: Macintosh ist mir zu verspielt, Linux (+ seine Abwandlungen) sind mir zu kompliziert und ich finde, dass die Zeit noch nicht reif für ein Betriebssystem ohne installierte Anwendungen (Chrome OS) ist.
    Auserdem halte ich nichts von dem Argument gegen Windows, dass es das unsicherste Betriebssystem ist. Jedes System hat Lücken und Fehler. Nur sucht keiner sie bei Macintosh, Linux, .... Diese Systeme bleiben nur von Angriffen verschont, weil sie nicht genug Verbreitung haben und deshalb ein Angriff nicht lukrativ ist.

  • Fragen zu C#

    Hallo Community,
    ich beschäftige mich zurzeit mit c# (bzw. dem lernen davon), genauer gesagt mit XNA .
    Beim Lernen sind mir ein paar Fragen eingefallen:

    • Es ist immer wieder die rede von "Klassen". Was ist das?
    • Was sind Methoden?
    • Was bedeutet erben?

    Ich hoffe ihr könnt mir weiterhelfen.

  • Was ist die beste Programmiersprache

    Gut, neue Frage:

    • Welche Programmiersprache ist am einfachsten zu lernen?
    • Welche Programmiersprache hat den größten Befehlsumfang?
    • Wenn man schon eine Programmiersprache kann, sind dann die anderen leichter zu lernen?
    • Wie schwierig war / ist es für euch AutoIt zu lernen?
    • Der Informatik Lehrer meiner Schule meint, das man für den Programmier-Kurs (grundlegende) Vorkentnisse in HTML braucht. Er möchte als Programmiersprache Java oder C++ / C# verwenden. Wäre es für mich empfehlenswert, zuerst HTML zu lernen und dann den Kurs zu belegen oder reichen Vorkentnisse in AutoIt?

  • Was ist die beste Programmiersprache

    Hallo @all,
    mal 2 Fragen zu Progrmmiersprachen:

    • Wenn man AutoIt einigermasen beherscht, könnte man dann auch andere Programmiersprachen lernen (Java, BASIC, C++, C#, ...)?
    • Ist AutoIt mit anderen Programmiersprachen (einigermasen) identisch
    • Welche Programmiwersprache ist generell die beste?

  • Atomkraft? NEIN DANKE!

    Alle Befürworter sagen, der Energiebedarf wäre ohne Atomreaktoren nicht zu decken.
    Diese macht im Moment aber nur ca. 20% aus.

    Zitat von Andy:

    Hat sich mal jemand gefragt, warum bei großen Windkraftanlagen manchmal die Hälfte der Windräder steht, während die anderen lustig rotieren? Die "stehenden" Anlagen sind nicht etwa kaputt, nein, sie MÜSSEN abgeschaltet werden, weil die Grundlastkraftwerke in der Umgebung schon genug Strom liefern. Und nachts? Wer braucht nachts Strom, wenn mal gerade ein bissl Wind weht?


    Wenn man mal alle Windkraftwerke aktivieren würde, würde der strom wahrscheinlich reichen, wenn nicht sogar Überschuss produziert werden. Also sollte man mal lieber das Geld in Energiespeicher investieren, anstatt in die Reperatur von AKWs, die wahrscheinlich bei einem Protonem zuviel in die Luft gehen. Abschalten und Ende der Störfälle. (In Bibilis gibt es ca. jede 2. Woche einen Störfall)

    Zum Thema Castor: Wieso stoppt man einen ABtransport von MÜLL, und nicht einen ZUtrasnport von Brennstäben??? ich meine, wenn Müll abtransportiert wird (aus eineem AKW das noch läuft) müssen ja wohl auch neue Brennstäbe nachgeliefert werden, oder versteh ich da was falsch???