Beiträge von Schnuffel

  • Patcher erstellen

    also 1 Woche ist doch keine Zeit, oder... ?

    PS: in meiner Sig hab ich ein Script, mit dem ich mal sowas umgesetzt habe.
    Die schwierigkeit ist für mich nur, zu erklären wie es funktioniert, da man dazu schon einiges an Vorarbeit leisten muss.
    Webspace, FTP-Zugang usw...
    Aber wenn jemand was damit anfangen kann.
    Gerne :D

  • Autoscript läuft auf langsamen Pc langsamer ?

    mal davon abgesehen, dass das Script sicherlich nicht legal ist...
    so what :rofl:
    wenn ich diesen Satz lese:

    Zitat

    Kann es vielleicht auch daran liegen das ich zur Zeit nur über einen Stick ins Internet gehe?Hat das damit etwas zu tun.Das Programm ist für ein kostenloses flashgame bei icq

    erklärt sich doch alles schon von alleine....
    Ich habe bisher keinen Stick gesehen (besser gesagt einen UMTS-Zugang...) der nicht die Daten aus dem I-Net komprimiert um Datenmenge zu sparen.
    Das das ein Flaschenhals ist sollte aber bekannt sein. Wenn dann Dein Script noch an einem Flash-Spiel oder was auch immer zu schaffen macht, ist eigentlich die Frage durch dich selbst beantwortet ;)

  • Mousemove beenden/pausieren ohne Exit

    ist nicht elegant sollte aber funktionieren...

    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>
    Opt("TrayIconHide",1)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Maus ControlPanel", 433, 159, 188, 122)
    $Input2 = GUICtrlCreateInput("", 16, 32, 217, 21)
    $Input1 = GUICtrlCreateInput("", 16, 88, 217, 21)
    $Button1 = GUICtrlCreateButton("Start", 288, 24, 121, 25, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Reset", 288, 56, 121, 25, $WS_GROUP)
    $Button3 = GUICtrlCreateButton("Start fieser Modus", 288, 88, 121, 25, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("Anzahl", 16, 8, 36, 17)
    $Label2 = GUICtrlCreateLabel("Geschwindigkeit (1 schnell, 100 langsam)", 16, 64, 199, 17)
    $Label3 = GUICtrlCreateLabel("Zum Beenden des Mauszeigers ESC drücken", 16, 128, 258, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Button4 = GUICtrlCreateButton("Exit", 288, 120, 121, 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
    $speed = GUICtrlRead($Input1)
    $zahl = GUICtrlRead($Input2)
    $answer1 = MsgBox(4,"Mausspiel","Wirklich starten?")
    If $answer1 = 7 Then
    MsgBox(0,"Mausspiel","Das Programm wird nun beendet")
    Exit
    EndIf
    For $i = 1 To $zahl
    MouseMove(Random(1,@DesktopWidth),Random(1,@DesktopHeight), $speed)
    If _IsPressed("1B") Then $i = $zahl
    Next
    MsgBox(0,"Mausspiel","Die Maus wurde " & $zahl & " mal über den Bildschirm bewegt")
    Exit
    Case $Button2
    GUICtrlSetData($Input1,"")
    GUICtrlSetData($Input2,"")
    Case $Button3
    GUISetState(@SW_HIDE)
    $speed = GUICtrlRead($Input1)
    $zahl = GUICtrlRead($Input2)
    For $i = 1 To $zahl
    MouseMove(Random(1,@DesktopWidth),Random(1,@DesktopHeight), $speed)
    If _IsPressed("1B") Then $i = $zahl
    Next
    Exit
    Case $Button4
    Exit
    EndSwitch
    WEnd

    [/autoit]

  • Mousemove beenden/pausieren ohne Exit

    ohne dein ganzes Script ist dies nur ein Schuß in's Blaue...

    Spoiler anzeigen
    [autoit]

    $speed = GUICtrlRead($Input1)
    $zahl = GUICtrlRead($Input2)
    $answer1 = MsgBox(4,"Mausspiel","Wirklich starten?")
    If $answer1 = 7 Then
    MsgBox(0,"Mausspiel","Das Programm wird nun beendet")
    Exit
    EndIf
    For $i = 1 To $zahl
    MouseMove(Random(1,@DesktopWidth),Random(1,@DesktopHeight), $speed)
    If _IsPressed("1B") Then ExitLoop
    Next
    MsgBox(0,"Mausspiel","Die Maus wurde " & $zahl & " mal über den Bildschirm bewegt")
    Exit

    [/autoit]

  • Europäische Union

    Spoiler anzeigen
    [autoit]

    ; EU Staaten und deren Hauptstädte
    ; Lern script für das Fach "Politik"

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

    Dim $Land[27] = [ _
    "Belgien", _
    "Deutschland", _
    "Frankreich", _
    "Italien", _
    "Luxemburg", _
    "Niederlande", _
    "Dänemark", _
    "Irland", _
    "England", _
    "Griechenland", _
    "Protugal", _
    "Spanien", _
    "Finnland", _
    "Österreich", _
    "Schweden", _
    "Estland", _
    "Lettland", _
    "Litauen", _
    "Malta", _
    "Polen", _
    "Slowakei", _
    "Slowenien", _
    "Tschechien", _
    "Ungarn", _
    "Zypern", _
    "Bulgarien", _
    "Rumänien"]

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

    Dim $Haupstadt[27] = [ _
    "Brüssel", _
    "Berlin", _
    "Paris", _
    "Rom", _
    "Luxemburg", _
    "Amsterdam", _
    "Kopenhagen", _
    "Dublin", _
    "London", _
    "Athen", _
    "Lissabon", _
    "Madrid", _
    "Helsinki", _
    "Wien", _
    "Stockholm", _
    "Tallinn", _
    "Riga", _
    "Vilnius", _
    "Valletta", _
    "Warschau", _
    "Bratislava", _
    "Ljubljana", _
    "Prag", _
    "Budapest", _
    "Nikosia", _
    "Sofia", _
    "Bukarest"]

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

    While 1
    $rand = Random(0, 26, 1)
    $Eingabe = InputBox("EU Städte + Hauptstädte", "Was ist die Hauptstadt von " & $Land[$rand] & "?")
    If @error = 1 Then ExitLoop
    If $Eingabe = $Haupstadt[$rand] Then
    MsgBox(0, "Richtig!", "Die Hauptstadt von " & $Land[$rand] & " ist " & $Haupstadt[$rand] & "!")
    Else
    MsgBox(0, "Falsch", "Die Hauptstadt von " & $Land[$rand] & " war nicht " & $Eingabe & @CRLF & @CRLF & "Die Hauptstadt von " & $Land[$rand] & " war " & $Haupstadt[$rand] & "!")
    EndIf
    WEnd

    [/autoit]