Beiträge von autoBert

  • Bunter Laufenderladebalken?

    da du @progandy's UDF benutzt hast du es einfach:

    [autoit]

    _ProgressMarquee($Progress1)

    [/autoit]

    Hier einmal in einem Skript:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
    #Include <WinAPI.au3>
    #include <GDIpProgress.au3>

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

    Global $hGUI, $hImage, $hGraphic, $hImage
    Global Const $SC_DRAGMOVE = 0xF012
    Global $sImagePfad = @ScriptDir & "\", $i
    if not FileExists($sImagePfad&"beetle3.png") Then InetGet("http://www.autoit.de/index.php?page=Attachment&attachmentID=11994&h=0f539727a8792db143f431db6e1d5b5f4b1ab20a",$sImagePfad & "beetle3.png",1,0)
    _GDIPlus_StartUp()
    ; Load PNG image
    $hImage = _GDIPlus_ImageLoadFromFile($sImagePfad & "Beetle3.png")
    $iWidth = _GDIPlus_ImageGetWidth($hImage)
    $iHeight = _GDIPlus_ImageGetHeight($hImage)
    ConsoleWrite($iWidth & " / " & $iHeight)

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

    ; Create GUI
    $hGUI = GUICreate("Show PNG", $iWidth, $iHeight, 0,0, $WS_POPUP, $WS_EX_LAYERED)
    GUISetBkColor(0x01, $hGUI)
    $Progress1 = _ProgressCreate(20, $iHeight-85, 280, 27)
    _ProgressSetColors($Progress1, 0x09B8F8, 0x09B8F8, 0xFFFFFF, 0xFFFFFF)
    _ProgressSetFont($Progress1, "Courier New", 14)
    $Progress2 = _ProgressCreate(20, $iHeight-35, $iWidth-40, 27)
    _ProgressSetColors($Progress2, 0x09B8F8, 0x09B8F8, 0xFFFFFF, 0xFFFFFF)
    _ProgressSetFont($Progress2, "Courier New", 14)
    _ProgressSet($Progress2, 100)
    _ProgressMarquee($Progress1)
    GUISetState()
    _WinAPI_SetLayeredWindowAttributes($hGUI, 0x01, 0xFF, 3)

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

    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)

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

    #cs
    $Input1 = GUICtrlCreateInput("Input1", 156, 132, 121, 21)
    $Input2 = GUICtrlCreateInput("Input2", 156, 156, 121, 21)
    $Input3 = GUICtrlCreateInput("Input3", 156, 180, 121, 21)
    $Slider1 = GUICtrlCreateSlider(128, 212, 150, 45)
    $Button1 = GUICtrlCreateButton("Start", 208, 276, 75, 25)
    #ce

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

    GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
    AdlibRegister("_IncProgress",1000)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $GUI_EVENT_PRIMARYDOWN
    _SendMessage($hGUI, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0)
    EndSwitch
    WEnd

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

    Func _IncProgress()
    if $i < 100 Then $i+=1
    ; _ProgressSet($Progress1, $i)
    _ProgressSet($Progress2, 100-$i)
    EndFunc
    #ce

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

    ; Clean up resources
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_ImageDispose($hImage)
    ;_ProgressDelete($Progress1)
    _GDIPlus_ShutDown()
    Exit

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

    ; Draw PNG image
    Func MY_WM_PAINT($hWnd, $Msg, $wParam, $lParam)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)
    _WinAPI_RedrawWindow($hGUI, 0, 0, 1)
    Return $GUI_RUNDEFMSG
    EndFunc

    [/autoit]

    mfg autoBert

  • Tray in einer Schleife in allen GUIs

    Hallo Sora White Dragon,

    falls du im GuiGetMsg-Modus weitermachen wills ist es am einfachsten mit

    [autoit]

    GuiGetMsg(1);Advanced-Modus

    [/autoit]

    in nur 1 Schleife. Das würde dann so aussehen:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    Opt("TrayMenuMode", 1)

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

    Global $1GUI, $2GUI, $3GUI

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

    $1GUI = GUICreate("1. GUI", 400, 400)

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

    ; Tray Menü
    $gui1 = TrayCreateItem("1. GUI")
    $gui2 = TrayCreateItem("2. GUI")
    $gui3 = TrayCreateItem("3. GUI")
    $exititem = TrayCreateItem("Exit")

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

    ; Buttons
    $btn1 = GUICtrlCreateButton("Button 1", 150, 150, 80, 30)

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

    GUISetState()

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

    $2GUI = GUICreate("2. GUI", 400, 400)

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

    $btn2 = GUICtrlCreateButton("Button 2", 150, 150, 80, 20)

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

    GUISetState(@SW_HIDE)

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

    $3GUI = GUICreate("3. GUI", 400, 400)

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

    $btn3 = GUICtrlCreateButton("Button 3", 150, 150, 80, 30)

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

    GUISetState(@SW_HIDE)
    TraySetState()

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

    While 1
    $nMsg = GUIGetMsg(1)
    $traymsg = TrayGetMsg()
    Switch $nMsg[1] ;von welcher Gui????
    Case $1gui ;von 1. Gui
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $btn1
    MsgBox(64, "Test1", "Das ist der erste Button")
    EndSwitch
    Case $2gui ;von 2. Gui
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_SHOW, $1GUI)
    GUISetState(@SW_HIDE, $2GUI)
    Case $btn2
    MsgBox(64, "Test2", "Das ist der zweite Button")

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

    EndSwitch
    Case $3gui ;von 3. Gui
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_SHOW, $1GUI)
    GUISetState(@SW_HIDE, $3GUI)
    Case $btn3
    MsgBox(64, "Test3", "Das ist der dritte Button")
    EndSwitch
    EndSwitch
    Switch $traymsg
    Case $gui1
    GUISetState(@SW_SHOW, $1GUI)
    GUISetState(@SW_HIDE, $2GUI)
    GUISetState(@SW_HIDE, $3GUI)
    Case $gui2
    GUISetState(@SW_SHOW, $2GUI)
    GUISetState(@SW_HIDE, $1GUI)
    GUISetState(@SW_HIDE, $3GUI)
    Case $gui3
    GUISetState(@SW_SHOW, $3GUI)
    GUISetState(@SW_HIDE, $1GUI)
    GUISetState(@SW_HIDE, $2GUI)
    Case $exititem
    Exit
    EndSwitch
    WEnd

    [/autoit]

    mfg autoBert

  • Problem bei Deutsche Hilfe

    Hallo Nico9132,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    Die Hilfe installierst du wie folgt, nach dem Download das Zip-File in den Stammordner von AutoIt entpacken, danach für alle 3 chm-Dateien wie hier:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    den Zugriff erlauben,

    mfg autoBert

  • [Läuft] µitLight Dezember '10/Januar '11

    Hallo MatthiasG.,

    in der neuen Version muss in die Schach.au3 wie folgt angepasst werden:

    [autoit]

    ElseIf $gWhosTurn = "b" Then
    Switch Int($big)
    Case 0
    __Chess_Set("e8", "g8", False, False)
    __Chess_Set("h8", "f8", False, False)
    Sleep($iSleep)
    _MarkField("e8,g8,h8,f8", False)
    Case 1
    __Chess_Set("e8", "c8", False, False)
    __Chess_Set("a8", "d8", False, False)
    Sleep($iSleep)
    _MarkField("e8,c8,a8,d8", False)
    EndSwitch
    EndIf

    [/autoit]

    bei __Chess_Set war jeweils ein False als Parameter zuviel,

    mfg autoBert

  • Über _timer_settimer in einem Label mit GUICtrlSetData Wert aus Extra-Funktion eintragen und runterzählen

    Hallo shingshing,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    Poste doch bitte ein (bis auf das Problem) lauffähiges Beispiel, damit man sich nicht selbst noch die Gui dazu basteln muss.
    Ich persönlich nehme für soetwas

    [autoit]

    AdlibRegister

    [/autoit]

    ,

    mfg autoBert

  • bunter Ladebalken auf einer Form mit GDI+

    Zitat von Freaky

    Jetzt habe ich ein weißen Hintergrund


    genau dass habe ich do geschrieben:

    Zitat von autoBert

    dann hast du wess an den Teilen an denen das Bild transparent ist,


    Dann musst du das Bild nachbearbeiten, an den Stellen mit den störrenden Effekten,

    Edit: Ich habe zu Testzwecken deine Bilder abgeändert, damit klappt es dann einwandfrei:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    mfg autoBert

  • Internetverbindung trennen

    bau doch einfach:

    [autoit]

    #include <Process.au3>
    _RunDOS("ipconfig /release")

    [/autoit]

    in das Skript ein. Das Skript muss natürlich am entsprechenden PC installiert werden, Wieder verbinden kannst du mit

    [autoit]

    #include <Process.au3>
    _RunDOS("ipconfig /renew")

    [/autoit]

    i

    mfg autoBert

  • Europäische Union

    Du hast keine Gui und erst recht keine Gui-Controls, woher soll dann GuiGetMsg eine Nachricht erhalten.

    Wenn du nicht bereit bist die Hilfe durchzuarbeiten, dass du die Grundlagen verstehst, solltest du dir ein anderes Hobby suchen. Für diese Jahreszeit schlage ich Schlittschuhlaufen vor,

    mfg autoBert

  • bunter Ladebalken auf einer Form mit GDI+

    Sorry, aber mein Display hat nur 1024*600. Aber wenn du so abändxerst sollte es klappen:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
    #Include <WinAPI.au3>
    #include <GDIpProgress.au3>

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

    Global $hGUI, $hImage, $hGraphic, $hImage
    Global Const $SC_DRAGMOVE = 0xF012
    Global $iImagePfad = @ScriptDir & "\", $i
    _GDIPlus_StartUp()
    ; Load PNG image
    $hImage = _GDIPlus_ImageLoadFromFile($iImagePfad & "bg.png")
    $iWidth = _GDIPlus_ImageGetWidth($hImage)
    $iHeight = _GDIPlus_ImageGetHeight($hImage)
    ConsoleWrite($iWidth & " / " & $iHeight)
    ; Create GUI
    $hGUI = GUICreate("Show PNG", $iWidth, $iHeight, 0,0, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOPMOST)
    GUISetBkColor(0x01, $hGUI)
    $Progress1 = _ProgressCreate(20, $iHeight-35, $iWidth-40, 27)
    _ProgressSetColors($Progress1, 0x09B8F8, 0x09B8F8, 0xFFFFFF, 0xFFFFFF)
    _ProgressSetFont($Progress1, "Courier New", 14)
    GUISetState()
    _WinAPI_SetLayeredWindowAttributes($hGUI, 0x01, 0xFF, 3)

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

    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)

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

    #cs
    $Input1 = GUICtrlCreateInput("Input1", 156, 132, 121, 21)
    $Input2 = GUICtrlCreateInput("Input2", 156, 156, 121, 21)
    $Input3 = GUICtrlCreateInput("Input3", 156, 180, 121, 21)
    $Slider1 = GUICtrlCreateSlider(128, 212, 150, 45)
    $Button1 = GUICtrlCreateButton("Start", 208, 276, 75, 25)
    #ce

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

    GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
    AdlibRegister("_IncProgress",1000)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $GUI_EVENT_PRIMARYDOWN
    _SendMessage($hGUI, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0)
    EndSwitch
    WEnd

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

    Func _IncProgress()
    if $i < 100 Then $i+=1
    _ProgressSet($Progress1, $i)
    EndFunc

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

    ; Clean up resources
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_ImageDispose($hImage)
    _ProgressDelete($Progress1)
    _GDIPlus_ShutDown()
    Exit

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

    ; Draw PNG image
    Func MY_WM_PAINT($hWnd, $Msg, $wParam, $lParam)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)
    _WinAPI_RedrawWindow($hGUI, 0, 0, 1)
    Return $GUI_RUNDEFMSG
    EndFunc

    [/autoit]

    mfg autoBert

  • bunter Ladebalken auf einer Form mit GDI+

    Hallo Freaky,

    da du ja ein anderes Bikl als das von dir in Post #1 eingestellte verwendest, solltest du dueses auch einstellen. Da ich mit dem von dir eingestellten Bild, dein Problem

    Zitat von Freaky

    Aber mein Bild ist ziehmlich verpixelt an den runden Kanten und Ecken.

    nicht habe, darfst du von mir auch vorher keinen Support hierfür erwarten, Falls du mein Beispiel angepasst hast, solltest du auch das aktuelle Skript einstellen,

    mfg autoBert

  • UDP-Pakete senden und empfangen

    Wenn du schon die Rollen tauschen willst, solltest du jeweils das komplette Skript der Hilfe einfach unter dem anderen Namen abspeichern,

    denn für UDPSend muss vorher das Socket mit UDPOpen geöffnet werden, du bindest aber mit UDPBind einen Socket an eine eingehende Verbindung. Bei UDPRecv muss mit UDPBind ein Socket an eine eingehende Verbindung gebunden werden, aber du öffnest das Socket mit UDPOpen.

    mfg autoBert