Beiträge von funkey

  • Farbe von Fenstertitel ändern

    Die einzige Möglichkeit die ich kenne, ist mit Hilfe der AnyGui-UDF.

    Spoiler anzeigen
    [autoit]

    #include "ANYGUIv2.8a.au3"

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

    $Title = "Rechner"
    Run("calc.exe")
    WinWait($Title)
    $aSize = WinGetPos($Title)

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

    _GuiTarget($Title, 1)
    _TargetaddLabel("", 0, 0, $aSize[2], $aSize[3])
    GUICtrlSetBkColor(-1, 0xFF)
    GUISetState()

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

    Do
    Sleep(20)
    Until Not WinExists($Title)

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

    _EndTarget()

    [/autoit]

  • usernamen aus webseite auslesen

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <Inet.au3>
    #Include <File.au3>

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

    $source = _INetGetSource('http://www.jappy.de/search')
    $users= StringRegExp($source, 'title="(.*?)" alt=', 3)
    _ArrayDisplay($users)
    _FileWriteFromArray("Usernames.txt", $users)

    [/autoit]

  • Multiplayer-Game 'Kurven-Spiel'

    Zitat von Magnus

    Ich der Singelplayer funktioniert nicht!


    :rofl: Im Singleplayer-Modus spielt man immer mit der Maus. Eine neue Runde wird mit der Leertaste gestartet.


    Ich habe in der aktuellen Beta bereits folgendes umgesetzt:
    * Screensaver-Modus
    * Label (hoffentlich) immer sichtbar für alle Bildschirmauflösungen
    * Aero-Abschaltung auch für Windows7
    * Leicht besseres Design
    * Minimalen Abstand für die Anfangspunkte der Kurven hinzugefügt
    * Battle-Punktezählung für Single- und Multiplayer-Modus
    * Runde starten durch Drücken beider Maustasten
    * Geschwindigkeit der übrigen Kurven erhöht nach Ausfall (Singleplayer-Modus)

    Dank an UEZ für's Beta-Testen!

    Geplant sind noch folgende Erweiterungen für die nächste Version:
    * Sprachen: deutsch / englisch
    * Highscore-Modus
    * Optionen: Level (Geschwindigkeit), Geschwindigkeit nach Ausfall, Anzahl Runden
    * PC-Gegner Verhalten bzw. KI verbessern
    * Nach Game Over wieder ins Hauptmenü


    Habt ihr sonst noch Vorschläge?

  • IsDestinationReachable mit irrealen Werten

    Demnach haben wir jetzt eine nützliche Funktion ;) :rock:

    Spoiler anzeigen
    [autoit]

    MsgBox(0, "Adapter-Geschwindigkeit", _GetAdapterSpeed())

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

    Func _GetAdapterSpeed()
    Local $tQOCINFO = DllStructCreate('dword;dword;dword;dword')
    DllStructSetData($tQOCINFO, 1, DllStructGetSize($tQOCINFO))
    Local $ret = DllCall("SENSAPI.DLL", "long", "IsDestinationReachableA", _
    "str", @IPAddress1, "ptr", DllStructGetPtr($tQOCINFO))
    Return StringFormat("%.1f MBit/s", DllStructGetData($tQOCINFO, 3)/1000000)
    EndFunc

    [/autoit]

  • Wie kann ich Mauskordinaten zur Laufzeit an Script übergeben--- KEIN BOT

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Include <Misc.au3>

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

    Dim $dummy = "-----"
    Dim $default_size = "53|333|22,4"
    Dim $pos_main = MouseGetPos()
    Dim $pos_shape = MouseGetPos()
    Global $ClickCount = 0
    Global $dll = DllOpen("user32.dll")

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

    MsgBox(0, "Mouse x,y:", $pos_main[0] & "," & $pos_main[1])

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

    #Region ### START Koda GUI section ### Form=
    $frm_core_resize = GUICreate("Corel Resize Tool", 352, 116, 350, 234, -1, $WS_EX_TOPMOST)
    $label_main_size = GUICtrlCreateLabel("1. Bildgrösse: ", 24, 20, 80,20)
    $input_main_size = GUICtrlCreateInput($dummy,110, 20, 100,20)
    GUICtrlSetState($input_main_size,$GUI_DISABLE)
    $label_shape_size = GUICtrlCreateLabel("2. Shapegrösse: ", 24, 50, 80, 20)
    $input_shape_size = GUICtrlCreateInput($dummy,110, 50, 100,20)
    GUICtrlSetState($input_shape_size,$GUI_DISABLE)
    $label_resize = GUICtrlCreateLabel("3. Skaliere auf: ", 24, 80, 80, 20)
    $combo_resize = GUICtrlCreateCombo("", 110, 75, 100, 25, 0x0003)
    GUICtrlSetData($combo_resize,$default_size,"53")
    $reset_size = GUICtrlCreateButton("Reset", 256, 26, 65, 33, $WS_GROUP)
    $start_resize = GUICtrlCreateButton("Resize", 256, 66, 65, 33, $WS_GROUP)

    [/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
    Exit
    Case $reset_size
    GUICtrlSetData($input_main_size,$dummy)
    GUICtrlSetData($input_shape_size,$dummy)

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

    Case $start_resize
    If GUICtrlRead($input_main_size) = $dummy Or GUICtrlRead($input_shape_size) = $dummy Then
    MsgBox(0,"Achtung","Die Bilder mittels Mausklick auswählen")
    Else

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

    ;~ MouseClick(

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

    EndIf
    EndSwitch
    If _IsPressed("01", $dll) And $ClickCount < 3 Then _Klick()
    WEnd

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

    Func _Klick()
    $ClickCount += 1
    Switch $ClickCount
    Case 1
    GUICtrlSetData($input_main_size, MouseGetPos(0) & "/" & MouseGetPos(1))
    Case 2
    GUICtrlSetData($input_shape_size, MouseGetPos(0) & "/" & MouseGetPos(1))
    EndSwitch
    Do
    Sleep(20)
    Until Not _IsPressed("01")
    EndFunc

    [/autoit]

  • Multiplayer-Game 'Kurven-Spiel'

    Hallo!

    Ich hoffe im Laufe der Woche eine neue Version herauszubringen.
    Ein paar Verbesserungen habe ich bereits umgesetzt, mal schauen ob es eine Version 1.5 oder eher eine Version 2.0 wird ;)

    Ihr könnt in der Zwischenzeit nochmal ein paar Vorschläge äußern. :D