Beiträge von Nathax

  • Compilierte .au3 umbenennen per Batch

    Ich möchte, dass meine Exe "Test.exe", die die Exe "TestTmp.exe" downloaded, die "TestTmp.exe" in "Test.exe", also in ihren eigenen Namen umbenennt, nachdem sie sich selbst gelöscht hat.
    Bis jetzt mache ich es wie folgt.

    Spoiler anzeigen
    [autoit]

    Func _SelfDelete($iDelay = 0)
    Local $sCmdFile
    FileDelete(@TempDir & "scratch.bat")
    $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _
    & ':loop' & @CRLF _
    & 'del "' & @ScriptFullPath & '" > nul' & @CRLF _
    & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
    & 'del ' & @TempDir & 'scratch.bat'
    FileWrite(@TempDir & "scratch.bat", $sCmdFile)
    Run(@TempDir & "scratch.bat", @TempDir, @SW_HIDE)
    EndFunc

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

    Func _SelfRename($iDelay = 0)
    Local $sCmdFile
    FileDelete(@TempDir & "scratch2.bat")
    $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _
    & ':loop' & @CRLF _
    & 'ren '&@ScriptDir&'\TestTmp.exe '&@ScriptDir&'\Test.exe' & @CRLF _
    & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
    & 'del ' & @TempDir & 'scratch2.bat'
    FileWrite(@TempDir & "scratch2.bat", $sCmdFile)
    Run(@TempDir & "scratch2.bat", @TempDir, @SW_HIDE)
    EndFunc

    [/autoit]


    Sobald der Download fertig ist:

    Spoiler anzeigen
    [autoit]

    _SelfDelete(500)
    _SelfRename(1000)
    Exit

    [/autoit]


    Zunächst wird festgelegt, dass die Datei sich nach 0,5s selbst löschen soll.
    Danach wird festgelegt, dass die Batch-Datei nach 1s die Tmp-Datei in die Normale umbennent.
    Dann wird das Programm beendet.

    Das selbst löschen klappt, aber das umbenennen nicht.
    Ich glaube, dass es an der _SelfRename Funktion liegt.
    Kann mir einer mit Batch Kentnissen helfen?

  • [Mini Release] Reaktionsmesser :D

    Gute Idee, aber für einen "reinen" Reaktionstest musst du das Label nicht bewegen lassen. Man muss z.B. warten bis es sich rot färbt und dann drücken.
    Ein Bug tritt auf, wenn man am Anfang ganz schnell und oft Links-Klick macht. Ich habe so eine Reaktionszeit von 38ms bekommen.

  • USB CustomiZer - Tool zum einfachen Anpassen eines Datenträgers [Label & Icon zuweisen/ändern]

    Zitat von BugFix

    So etwas ist sicher ein nettes Gimmick - aber es untergräbt durch die Nutzung von Autorun auch jedes Sicherheitsdenken. Es ist bei M$ ja leider üblich alle Sicherheitsvorkehrungen deaktiviert zu haben. Das erste nach Neuinstallation (oder Neuerwerb) eines Rechners sollte immer die Deaktivierung von Autorun sein. Zumal spätestens mit Einsatz vernünftiger Sicherheitssoftware eine autorun.inf sowieso geblockt wird (werden sollte).
    Ich denke der minimale Mehrwert durch ein eigenes Icon (nur dafür ist die autorun.inf erforderlich) steht im krassen Gegensatz zu den Gefahren die ein derart geöffnetes Medium bietet.
    Das Umbenennen kann man problemlos automatisiert vornehmen ohne Nutzung des Autostarts.

    Ich habe vor langer Zeit auch mal so ein Tool geschrieben und meine, dass man per autorun.inf längere Labels und einige Sonderzeichen mehr verwenden kann, als wenn man es per Explorer umbenennt.

  • MsgBox mit eigenem Bild

    Entweder erstellst du dir ein eigenes Fenster per GuiCreate oder du erstellst ein Parent-Fenster zur Msg-Box, mit $GUI_POPUP als Style und nur dem Bild als Control und schiebst es an die richtige Stelle in der Msg-Box.

  • Datei kopieren mit Prozessbar

    Um Fenster zu erstellen schau dir mal die Befehle rund um GuiCreate an.
    Die Prozessbar kannst du dann als Control einbauen und mit einem Wert füllen wie in deinem Beispiel, wenn ich mich nicht irre: FileSizeOfTheCopy / FileSize * 100.
    Die Dateigröße erhältst du durch FileGetSize.
    Mfg. Retrokid

  • Smartphone GUI

    Eleganter weiß ich nicht, ich kann es aber kürzer und einfacher nachvollziehbar schreiben. Ich werde es vllt. später mal machen, wenn ich noch die Zeit finde.
    Ich sehe gerade, dass ich es ähnlich wie du lösen würde nur mit Zahlen anstelle von "_menu" usw.
    Mirko, könntest du das Programm einmal bitte in die GuiGetMsg-Variante umschreiben, da ich sie persönlich für überschaulicher halte, und dir dann besser helfen kann und es sollte bevor weitergemacht wird zunächst der Quellcode "gesäubert" werden.

  • Smartphone GUI

    Zu dem Verständnisproblem: Ich meine die Möglichkeit, zwischen den Homescreens zu switchen, wie bei nem Android-Handy per Finger-Slide nach rechts bzw. links. Weißt du?
    Zum ersten Problem: Meinst du nicht 90°? Du könntest ja einfach eine neue Gui erstellen mit per PS gedrehtem Bild.
    Zum zweiten: Das lässt sich leicht realisieren. Gib mir den bisherigen Code und ich baus dir ein, oder du machst es einfach selber. Dazu einfach ne Variable $AnzeigeOld definieren und immer mit dem letzten Wert füllen und ggf. auslesen. ;)

  • Smartphone GUI

    Ich weiß ja nicht, ob das mit dem Browser die beste Idee war. Ich würde vllt. nach dem Klick auf das Suchen-Icon eine Input erscheinen lassen, in der man ein Wort eingeben kann, dann auf suchen drückt, und das erste auf Google dazu gefundene Bild angezeigt wird. Das wäre besser dar zu stellen. Oder du fügst mehrere Home-Screens hinzu, sodass du anschließend die Standart-Apps wie z.B. einen Musik-Player oder eine Kamera (Screenshot) einfügen könntest.

    Edit: Schöner ist meiner Meinung nach, wenn man anstelle des X's die bei vielen Android-Handys oben rechts vorzufindende An-/Austaste verwendet. Du kannst sie natürlich auch nach rechts schieben, wo auch immer sie beim HD ist.

    Spoiler anzeigen
    [autoit]

    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <WinAPI.au3>
    #include <GDIPlus.au3>
    #include 'Buttons.au3'
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    Opt("GUIOnEventMode", 1)
    Opt("MouseCoordMode", 2) ;Damit die Koords der Maus auf dem Button korrekt erkannt werden.

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

    _GDIPlus_Startup()

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

    $Title = "HTC Desire HD"
    $Width = 300
    $Height = 500
    $pics = @ScriptDir & "\images\"

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

    ; Konstanten
    Global Const $BgColorTitle = 0x000000
    Global Const $BgColor = 0x464646

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

    ; Handyrahmen aussen
    $hWnd_Main = GUICreate($Title, $Width, $Height, -1, -1, $WS_POPUP)
    GUISetBkColor($BgColor)
    $Close = GUICtrlCreateLabel("", 252, 0, 33, 6)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetState(-1, $GUI_ONTOP)
    ;$Close = GUICtrlCreatePic($pics & "close.bmp", $Width - 16, 7, 9, 9)
    GUICtrlSetOnEvent($Close, "_Exit")
    ;$TitleBar = GUICtrlCreateLabel("", 6, 4, $Width - 42, 17, -1, $GUI_WS_EX_PARENTDRAG)
    GUICtrlCreatePic($pics & "HTC-Lautsprecher.bmp", 65, 6, 180, 10)

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

    GUISetState()

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

    ; Handydisplay erstellen
    $hWnd_Child1 = GUICreate("", 290, 475, 5, 20, $WS_POPUP)
    GUISetBkColor(0xFFFFFF, $hWnd_Child1)

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

    $IE = _IECreateEmbedded()
    $browser = GUICtrlCreateObj($IE, 11, 13, 268, 395)
    GUICtrlSetState($browser, $GUI_HIDE)

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

    ;~ GUICtrlCreatePic($pics & "HTC-Brilliant.bmp", 15, 130, 260, 165)
    Global $hImg_HTC_Brilliant = _GDIPlus_ImageLoadFromFile($pics & "HTC-Brilliant.bmp")

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

    $home_button = GUICtrlCreatePic($pics & "menu1.bmp", 15, 410, 51, 38)
    GUICtrlSetOnEvent($home_button, "_home_button")
    $menu_button = GUICtrlCreatePic($pics & "menu2.bmp", 66, 410, 82, 38)
    GUICtrlSetOnEvent($menu_button, "_menu_button")
    $back_button = GUICtrlCreatePic($pics & "menu3.bmp", 148, 410, 76, 38)
    GUICtrlSetOnEvent($back_button, "_back_button")
    $suche_button = GUICtrlCreatePic($pics & "menu4.bmp", 224, 410, 49, 38)
    GUICtrlSetOnEvent($suche_button, "_suche_button")
    GUICtrlCreatePic($pics & "HTC-Logo.bmp", 120, 445, 55, 20)

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

    Global Const $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd_Child1)
    Global Const $hBitmap = _GDIPlus_BitmapCreateFromGraphics($Width, 410, $hGraphic)
    Global Const $hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)

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

    ; Hintergrund/Rahmen des Handydisplays
    GUICtrlCreateGraphic(0, 0, 330, 12)
    GUICtrlSetBkColor(-1, $BgColorTitle)
    GUICtrlCreateGraphic(0, 0, 10, $Height)
    GUICtrlSetBkColor(-1, $BgColorTitle)
    GUICtrlCreateGraphic(0, 410, $Width, 80)
    GUICtrlSetBkColor(-1, $BgColorTitle)
    GUICtrlCreateGraphic(280, 0, 20, $Height)
    GUICtrlSetBkColor(-1, $BgColorTitle)

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

    ; Menü
    Global $hButton1 = _Button_Init(20, 30, 45, 45, 1)
    _Button_Set_Pic($hButton1, 0, $pics & 'home1.bmp')
    _Button_Set_Pic($hButton1, 1, $pics & 'home2.bmp')
    _Button_Set_Pic($hButton1, 2, $pics & 'home3.bmp')
    _Button_Set_Ani_Speed($hButton1, 30, 14, 7)

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

    Global $hButton2 = _Button_Init(120, 30, 45, 45, 2)
    _Button_Set_Pic($hButton2, 0, $pics & 'info1.bmp')
    _Button_Set_Pic($hButton2, 1, $pics & 'info2.bmp')
    _Button_Set_Pic($hButton2, 2, $pics & 'info3.bmp')
    _Button_Set_Ani_Speed($hButton2, 30, 14, 7)

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

    Global $hButton3 = _Button_Init(220, 30, 45, 45, 3)
    _Button_Set_Pic($hButton3, 0, $pics & 'alben1.bmp')
    _Button_Set_Pic($hButton3, 1, $pics & 'alben2.bmp')
    _Button_Set_Pic($hButton3, 2, $pics & 'alben3.bmp')
    _Button_Set_Ani_Speed($hButton3, 30, 14, 7)

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

    Global $hButton4 = _Button_Init(20, 100, 45, 45, 4)
    _Button_Set_Pic($hButton4, 0, $pics & 'media1.bmp')
    _Button_Set_Pic($hButton4, 1, $pics & 'media2.bmp')
    _Button_Set_Pic($hButton4, 2, $pics & 'media3.bmp')
    _Button_Set_Ani_Speed($hButton4, 30, 14, 7)

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

    Global $hButton5 = _Button_Init(120, 100, 45, 45, 5)
    _Button_Set_Pic($hButton5, 0, $pics & 'kamera1.bmp')
    _Button_Set_Pic($hButton5, 1, $pics & 'kamera2.bmp')
    _Button_Set_Pic($hButton5, 2, $pics & 'kamera3.bmp')
    _Button_Set_Ani_Speed($hButton5, 30, 14, 7)

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

    Global $hButton6 = _Button_Init(220, 100, 45, 45, 6)
    _Button_Set_Pic($hButton6, 0, $pics & 'nachrichten1.bmp')
    _Button_Set_Pic($hButton6, 1, $pics & 'nachrichten2.bmp')
    _Button_Set_Pic($hButton6, 2, $pics & 'nachrichten3.bmp')
    _Button_Set_Ani_Speed($hButton6, 30, 14, 7)

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

    Global $hButton7 = _Button_Init(20, 170, 45, 45, 7)
    _Button_Set_Pic($hButton7, 0, $pics & 'home1.bmp')
    _Button_Set_Pic($hButton7, 1, $pics & 'home2.bmp')
    _Button_Set_Pic($hButton7, 2, $pics & 'home3.bmp')
    _Button_Set_Ani_Speed($hButton7, 30, 14, 7)

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

    Global $hButton8 = _Button_Init(120, 170, 45, 45, 8)
    _Button_Set_Pic($hButton8, 0, $pics & 'home1.bmp')
    _Button_Set_Pic($hButton8, 1, $pics & 'home2.bmp')
    _Button_Set_Pic($hButton8, 2, $pics & 'home3.bmp')
    _Button_Set_Ani_Speed($hButton8, 30, 14, 7)

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

    Global $hButton9 = _Button_Init(220, 170, 45, 45, "test")
    _Button_Set_Pic($hButton9, 0, $pics & 'home1.bmp')
    _Button_Set_Pic($hButton9, 1, $pics & 'home2.bmp')
    _Button_Set_Pic($hButton9, 2, $pics & 'home3.bmp')
    _Button_Set_Ani_Speed($hButton9, 30, 14, 7)

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

    Global $Btn_msg
    Global $pos, $klick
    Global $Temp
    Global $Anzeige = 0 ; 0 = home, 1 = Menu, usw...
    Local $t = TimerInit()

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

    ; Display an Handyrahmen "koppeln"
    _SetParent($hWnd_Main, $hWnd_Child1)

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

    ; Gui einblenden
    GuiRoundCorners($hWnd_Main, 0, 0, 20, 20)
    GuiRoundCorners($hWnd_Child1, 0, 0, 20, 20)
    WinSetTrans($hWnd_Main, "", 0)
    WinSetTrans($hWnd_Child1, "", 0)
    GUISetState(@SW_SHOW, $hWnd_Main)
    GUISetState(@SW_SHOW, $hWnd_Child1)
    FadeIn($hWnd_Main)

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

    While Sleep(50)

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

    Switch $Anzeige
    Case 0 ; Home
    _home()
    Case 1 ; Menu
    _menu()
    Case 2 ; Menu
    _back()
    Case 3 ; Menu
    _suche()
    EndSwitch

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

    WEnd

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

    ; Funktionen
    Func _SetParent($hWnd_Parent, $hWnd_Child)
    $nExStyle = DllCall("user32.dll", "int", "GetWindowLong", "hwnd", $hWnd_Child, "int", 0xEC)
    DllCall("user32.dll", "int", "SetWindowLong", "hwnd", $hWnd_Child, "int", 0xEC, "int", BitOR($nExStyle[0], $WS_EX_MDICHILD))
    DllCall("user32.dll", "int", "SetParent", "hwnd", $hWnd_Child, "hwnd", $hWnd_Parent)
    GUISwitch($hWnd_Parent)
    EndFunc ;==> _SetParent

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

    Func GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
    $pos = WinGetPos($h_win)
    $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3)
    If $ret[0] Then
    $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
    If $ret2[0] Then
    Return 1
    Else
    Return 0
    EndIf
    Else
    Return 0
    EndIf
    EndFunc ;==>GuiRoundCorners

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

    Func FadeIn($h)
    For $i = 0 To 255 Step 15
    Sleep(10)
    WinSetTrans($h, "", $i)
    Next
    EndFunc ;==>FadeIn

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

    Func FadeOut($h)
    For $i = 255 To 0 Step -15
    Sleep(10)
    WinSetTrans($h, "", $i)
    Next
    EndFunc ;==>FadeOut

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

    Func _Exit()
    Sleep(50)
    GUICtrlSetBkColor($Close, 0x212121)
    Sleep(300)
    GUICtrlSetBkColor($Close, 0x000000)

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

    FadeOut($hWnd_Main)
    GUIDelete($hWnd_Child1)

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

    _Button_Dispose($hButton1)
    _Button_Dispose($hButton2)
    _Button_Dispose($hButton3)
    _Button_Dispose($hButton4)
    _Button_Dispose($hButton5)
    _Button_Dispose($hButton6)
    _Button_Dispose($hButton7)
    _Button_Dispose($hButton8)
    _Button_Dispose($hButton9)

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

    _GDIPlus_GraphicsDispose($hBackbuffer)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_Shutdown()
    Exit
    EndFunc ;==>_Exit

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

    Func _menu()
    ;~ While Sleep(10)
    _GDIPlus_GraphicsClear($hBackbuffer, 0xFF000000)
    $Btn_msg = _Button_Get_Pressed()
    _Button_Draw($hBackbuffer, $hButton1)
    _Button_Draw($hBackbuffer, $hButton2)
    _Button_Draw($hBackbuffer, $hButton3)
    _Button_Draw($hBackbuffer, $hButton4)
    _Button_Draw($hBackbuffer, $hButton5)
    _Button_Draw($hBackbuffer, $hButton6)
    _Button_Draw($hBackbuffer, $hButton7)
    _Button_Draw($hBackbuffer, $hButton8)
    _Button_Draw($hBackbuffer, $hButton9)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hBitmap, 0, 0)
    If $Btn_msg Then ToolTip('ButtonID: ' & $Btn_msg)
    ;Exitloop
    ;~ WEnd
    EndFunc

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

    Func _home_button() ; Eventfunktion... schnell abwickeln !
    $Anzeige = 0 ; Home
    GUICtrlSetState($browser, $GUI_HIDE)
    EndFunc ;==>_home_button

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

    Func _menu_button() ; Eventfunktion... schnell abwickeln !
    $Anzeige = 1 ; ab ins Menu !
    GUICtrlSetState($browser, $GUI_HIDE)
    EndFunc

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

    Func _back_button()
    $Anzeige = 2 ; Back
    GUICtrlSetState($browser, $GUI_HIDE)
    EndFunc

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

    Func _suche_button() ; Eventfunktion... schnell abwickeln !
    $Anzeige = 3 ; Suche !
    EndFunc

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

    Func _home()

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

    _GDIPlus_GraphicsClear($hBackbuffer, 0xFFFFFFFF)

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

    _GDIPlus_GraphicsDrawImageRect($hBackbuffer, $hImg_HTC_Brilliant, 15, 130, 260, 165)

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

    ; Hier was auch immer du willst...

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

    _GDIPlus_GraphicsDrawImage($hGraphic, $hBitmap, 0, 0)

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

    ;~ GUISetBkColor(0xFFFFFF, $hWnd_Child1)
    ;~ GUICtrlCreatePic($pics & "HTC-Brilliant.bmp", 15, 130, 260, 165)

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

    EndFunc

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

    Func _suche()
    ;_GDIPlus_GraphicsClear($hBackbuffer, 0xFF000000)
    GUICtrlSetState($browser, $GUI_SHOW)
    _IENavigate($IE,"http://www.google.de")
    $Anzeige = -1
    ;_GDIPlus_GraphicsDrawImage($hGraphic, $hBitmap, 0, 0)
    EndFunc ;==>_suche_button

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

    Func _back()
    _GDIPlus_GraphicsClear($hBackbuffer, 0xFFFFFFFF)

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

    _GDIPlus_GraphicsDrawImageRect($hBackbuffer, $hImg_HTC_Brilliant, 15, 130, 260, 165)

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

    ; Hier was auch immer du willst...

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

    _GDIPlus_GraphicsDrawImage($hGraphic, $hBitmap, 0, 0)
    EndFunc ;==>_suche_button

    [/autoit]

  • Smartphone GUI

    Meinste so?

    Spoiler anzeigen
    [autoit]

    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <WinAPI.au3>
    #include <GDIPlus.au3>
    #include 'Buttons.au3'
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    Opt("GUIOnEventMode", 1)
    Opt("MouseCoordMode", 2) ;Damit die Koords der Maus auf dem Button korrekt erkannt werden.

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

    _GDIPlus_Startup()

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

    $Title = "HTC Desire HD"
    $Width = 300
    $Height = 500
    $pics = @ScriptDir & "\images\"

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

    ; Konstanten
    Global Const $BgColorTitle = 0x000000
    Global Const $BgColor = 0x464646

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

    ; Handyrahmen aussen
    $hWnd_Main = GUICreate($Title, $Width, $Height, -1, -1, $WS_POPUP)
    GUISetBkColor($BgColor)
    $Close = GUICtrlCreatePic($pics & "close.bmp", $Width - 16, 7, 9, 9)
    GUICtrlSetOnEvent($Close, "_Exit")
    $TitleBar = GUICtrlCreateLabel("", 6, 4, $Width - 42, 17, -1, $GUI_WS_EX_PARENTDRAG)
    GUICtrlCreatePic($pics & "HTC-Lautsprecher.bmp", 65, 6, 180, 10)

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

    GUISetState()

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

    ; Handydisplay erstellen
    $hWnd_Child1 = GUICreate("", 290, 475, 5, 20, $WS_POPUP)
    GUISetBkColor(0xFFFFFF, $hWnd_Child1)

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

    $IE = _IECreateEmbedded()
    $browser = GUICtrlCreateObj($IE, 11, 13, 268, 395)
    GUICtrlSetState($browser, $GUI_HIDE)

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

    ;~ GUICtrlCreatePic($pics & "HTC-Brilliant.bmp", 15, 130, 260, 165)
    Global $hImg_HTC_Brilliant = _GDIPlus_ImageLoadFromFile($pics & "HTC-Brilliant.bmp")

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

    $home_button = GUICtrlCreatePic($pics & "menu1.bmp", 15, 410, 51, 38)
    GUICtrlSetOnEvent($home_button, "_home_button")
    $menu_button = GUICtrlCreatePic($pics & "menu2.bmp", 66, 410, 82, 38)
    GUICtrlSetOnEvent($menu_button, "_menu_button")
    $back_button = GUICtrlCreatePic($pics & "menu3.bmp", 148, 410, 76, 38)
    GUICtrlSetOnEvent($back_button, "_back_button")
    $suche_button = GUICtrlCreatePic($pics & "menu4.bmp", 224, 410, 49, 38)
    GUICtrlSetOnEvent($suche_button, "_suche_button")
    GUICtrlCreatePic($pics & "HTC-Logo.bmp", 120, 445, 55, 20)

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

    Global Const $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd_Child1)
    Global Const $hBitmap = _GDIPlus_BitmapCreateFromGraphics($Width, 410, $hGraphic)
    Global Const $hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)

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

    ; Hintergrund/Rahmen des Handydisplays
    GUICtrlCreateGraphic(0, 0, 330, 12)
    GUICtrlSetBkColor(-1, $BgColorTitle)
    GUICtrlCreateGraphic(0, 0, 10, $Height)
    GUICtrlSetBkColor(-1, $BgColorTitle)
    GUICtrlCreateGraphic(0, 410, $Width, 80)
    GUICtrlSetBkColor(-1, $BgColorTitle)
    GUICtrlCreateGraphic(280, 0, 20, $Height)
    GUICtrlSetBkColor(-1, $BgColorTitle)

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

    ; Menü
    Global $hButton1 = _Button_Init(20, 30, 45, 45, 1)
    _Button_Set_Pic($hButton1, 0, $pics & 'home1.bmp')
    _Button_Set_Pic($hButton1, 1, $pics & 'home2.bmp')
    _Button_Set_Pic($hButton1, 2, $pics & 'home3.bmp')
    _Button_Set_Ani_Speed($hButton1, 30, 14, 7)

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

    Global $hButton2 = _Button_Init(120, 30, 45, 45, 2)
    _Button_Set_Pic($hButton2, 0, $pics & 'info1.bmp')
    _Button_Set_Pic($hButton2, 1, $pics & 'info2.bmp')
    _Button_Set_Pic($hButton2, 2, $pics & 'info3.bmp')
    _Button_Set_Ani_Speed($hButton2, 30, 14, 7)

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

    Global $hButton3 = _Button_Init(220, 30, 45, 45, 3)
    _Button_Set_Pic($hButton3, 0, $pics & 'alben1.bmp')
    _Button_Set_Pic($hButton3, 1, $pics & 'alben2.bmp')
    _Button_Set_Pic($hButton3, 2, $pics & 'alben3.bmp')
    _Button_Set_Ani_Speed($hButton3, 30, 14, 7)

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

    Global $hButton4 = _Button_Init(20, 100, 45, 45, 4)
    _Button_Set_Pic($hButton4, 0, $pics & 'media1.bmp')
    _Button_Set_Pic($hButton4, 1, $pics & 'media2.bmp')
    _Button_Set_Pic($hButton4, 2, $pics & 'media3.bmp')
    _Button_Set_Ani_Speed($hButton4, 30, 14, 7)

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

    Global $hButton5 = _Button_Init(120, 100, 45, 45, 5)
    _Button_Set_Pic($hButton5, 0, $pics & 'kamera1.bmp')
    _Button_Set_Pic($hButton5, 1, $pics & 'kamera2.bmp')
    _Button_Set_Pic($hButton5, 2, $pics & 'kamera3.bmp')
    _Button_Set_Ani_Speed($hButton5, 30, 14, 7)

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

    Global $hButton6 = _Button_Init(220, 100, 45, 45, 6)
    _Button_Set_Pic($hButton6, 0, $pics & 'nachrichten1.bmp')
    _Button_Set_Pic($hButton6, 1, $pics & 'nachrichten2.bmp')
    _Button_Set_Pic($hButton6, 2, $pics & 'nachrichten3.bmp')
    _Button_Set_Ani_Speed($hButton6, 30, 14, 7)

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

    Global $hButton7 = _Button_Init(20, 170, 45, 45, 7)
    _Button_Set_Pic($hButton7, 0, $pics & 'home1.bmp')
    _Button_Set_Pic($hButton7, 1, $pics & 'home2.bmp')
    _Button_Set_Pic($hButton7, 2, $pics & 'home3.bmp')
    _Button_Set_Ani_Speed($hButton7, 30, 14, 7)

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

    Global $hButton8 = _Button_Init(120, 170, 45, 45, 8)
    _Button_Set_Pic($hButton8, 0, $pics & 'home1.bmp')
    _Button_Set_Pic($hButton8, 1, $pics & 'home2.bmp')
    _Button_Set_Pic($hButton8, 2, $pics & 'home3.bmp')
    _Button_Set_Ani_Speed($hButton8, 30, 14, 7)

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

    Global $hButton9 = _Button_Init(220, 170, 45, 45, "test")
    _Button_Set_Pic($hButton9, 0, $pics & 'home1.bmp')
    _Button_Set_Pic($hButton9, 1, $pics & 'home2.bmp')
    _Button_Set_Pic($hButton9, 2, $pics & 'home3.bmp')
    _Button_Set_Ani_Speed($hButton9, 30, 14, 7)

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

    Global $Btn_msg
    Global $pos, $klick
    Global $Temp
    Global $Anzeige = 0 ; 0 = home, 1 = Menu, usw...
    Local $t = TimerInit()

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

    ; Display an Handyrahmen "koppeln"
    _SetParent($hWnd_Main, $hWnd_Child1)

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

    ; Gui einblenden
    GuiRoundCorners($hWnd_Main, 0, 0, 20, 20)
    GuiRoundCorners($hWnd_Child1, 0, 0, 20, 20)
    WinSetTrans($hWnd_Main, "", 0)
    WinSetTrans($hWnd_Child1, "", 0)
    GUISetState(@SW_SHOW, $hWnd_Main)
    GUISetState(@SW_SHOW, $hWnd_Child1)
    FadeIn($hWnd_Main)

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

    While Sleep(50)

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

    Switch $Anzeige
    Case 0 ; Home
    _home()
    Case 1 ; Menu
    _menu()
    Case 2 ; Menu
    _back()
    Case 3 ; Menu
    _suche()
    EndSwitch

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

    WEnd

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

    ; Funktionen
    Func _SetParent($hWnd_Parent, $hWnd_Child)
    $nExStyle = DllCall("user32.dll", "int", "GetWindowLong", "hwnd", $hWnd_Child, "int", 0xEC)
    DllCall("user32.dll", "int", "SetWindowLong", "hwnd", $hWnd_Child, "int", 0xEC, "int", BitOR($nExStyle[0], $WS_EX_MDICHILD))
    DllCall("user32.dll", "int", "SetParent", "hwnd", $hWnd_Child, "hwnd", $hWnd_Parent)
    GUISwitch($hWnd_Parent)
    EndFunc ;==> _SetParent

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

    Func GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
    $pos = WinGetPos($h_win)
    $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3)
    If $ret[0] Then
    $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
    If $ret2[0] Then
    Return 1
    Else
    Return 0
    EndIf
    Else
    Return 0
    EndIf
    EndFunc ;==>GuiRoundCorners

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

    Func FadeIn($h)
    For $i = 0 To 255 Step 15
    Sleep(10)
    WinSetTrans($h, "", $i)
    Next
    EndFunc ;==>FadeIn

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

    Func FadeOut($h)
    For $i = 255 To 0 Step -15
    Sleep(10)
    WinSetTrans($h, "", $i)
    Next
    EndFunc ;==>FadeOut

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

    Func _Exit()
    FadeOut($hWnd_Main)
    GUIDelete($hWnd_Child1)

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

    _Button_Dispose($hButton1)
    _Button_Dispose($hButton2)
    _Button_Dispose($hButton3)
    _Button_Dispose($hButton4)
    _Button_Dispose($hButton5)
    _Button_Dispose($hButton6)
    _Button_Dispose($hButton7)
    _Button_Dispose($hButton8)
    _Button_Dispose($hButton9)

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

    _GDIPlus_GraphicsDispose($hBackbuffer)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_Shutdown()
    Exit
    EndFunc ;==>_Exit

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

    Func _menu()
    ;~ While Sleep(10)
    _GDIPlus_GraphicsClear($hBackbuffer, 0xFF000000)
    $Btn_msg = _Button_Get_Pressed()
    _Button_Draw($hBackbuffer, $hButton1)
    _Button_Draw($hBackbuffer, $hButton2)
    _Button_Draw($hBackbuffer, $hButton3)
    _Button_Draw($hBackbuffer, $hButton4)
    _Button_Draw($hBackbuffer, $hButton5)
    _Button_Draw($hBackbuffer, $hButton6)
    _Button_Draw($hBackbuffer, $hButton7)
    _Button_Draw($hBackbuffer, $hButton8)
    _Button_Draw($hBackbuffer, $hButton9)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hBitmap, 0, 0)
    If $Btn_msg Then ToolTip('ButtonID: ' & $Btn_msg)
    ;Exitloop
    ;~ WEnd
    EndFunc

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

    Func _home_button() ; Eventfunktion... schnell abwickeln !
    $Anzeige = 0 ; Home
    GUICtrlSetState($browser, $GUI_HIDE)
    EndFunc ;==>_home_button

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

    Func _menu_button() ; Eventfunktion... schnell abwickeln !
    $Anzeige = 1 ; ab ins Menu !
    GUICtrlSetState($browser, $GUI_HIDE)
    EndFunc

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

    Func _back_button()
    $Anzeige = 2 ; Back
    GUICtrlSetState($browser, $GUI_HIDE)
    EndFunc

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

    Func _suche_button() ; Eventfunktion... schnell abwickeln !
    $Anzeige = 3 ; Suche !
    EndFunc

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

    Func _home()

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

    _GDIPlus_GraphicsClear($hBackbuffer, 0xFFFFFFFF)

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

    _GDIPlus_GraphicsDrawImageRect($hBackbuffer, $hImg_HTC_Brilliant, 15, 130, 260, 165)

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

    ; Hier was auch immer du willst...

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

    _GDIPlus_GraphicsDrawImage($hGraphic, $hBitmap, 0, 0)

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

    ;~ GUISetBkColor(0xFFFFFF, $hWnd_Child1)
    ;~ GUICtrlCreatePic($pics & "HTC-Brilliant.bmp", 15, 130, 260, 165)

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

    EndFunc

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

    Func _suche()
    ;_GDIPlus_GraphicsClear($hBackbuffer, 0xFF000000)
    GUICtrlSetState($browser, $GUI_SHOW)
    _IENavigate($IE,"http://www.google.de")
    $Anzeige = -1
    ;_GDIPlus_GraphicsDrawImage($hGraphic, $hBitmap, 0, 0)
    EndFunc ;==>_suche_button

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

    Func _back()
    _GDIPlus_GraphicsClear($hBackbuffer, 0xFFFFFFFF)

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

    _GDIPlus_GraphicsDrawImageRect($hBackbuffer, $hImg_HTC_Brilliant, 15, 130, 260, 165)

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

    ; Hier was auch immer du willst...

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

    _GDIPlus_GraphicsDrawImage($hGraphic, $hBitmap, 0, 0)
    EndFunc ;==>_suche_button

    [/autoit]

  • Auf eingabe warten...

    Ich glaube hier gibt es einfach nur Verständigungsprobleme. Villeicht verstehen wir ja etwas anderes unter "Bot". Das, was du da gerade erläutert hast, ist meiner Ansicht nach kein Bot, sondern einfach nur ein Programm, das dir die Arbeit ersparen soll, ohne dabei anderen Menschen Schaden zuzufügen, also brauchst du keine Bedenken haben, solange es kein Bot werden soll. Ich habe mich wohl geirrt und nehme das, was ich im ersten Post geschrieben habe, zurück. ;)

  • Auf eingabe warten...

    Zitat von name22


    Von was für einem Bot reden wir hier? Ich hab leider keinen blassen Schimmer was das für ein Bot sein soll. Aus dem Startpost lässt sich nichts dergleichen herauslesen (zumindest nicht für mich ^^). Und nur weil in einem Satz einmal das Wort Bot vorkommt, würde ich nicht sagen, dass es gegen die Forenregeln ist.

    Die Aufgabe, die das Programm erfüllen soll scheint mir auch nicht nach einem Bot, aber wenn Tsuki-Namida selber von einem Bot redet, dann weiß man ja nie.