Beiträge von autoBert

  • Func auf button

    Hallo elitematthias,

    und hier das Beispiel von @ideas2code im On Event Mode:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Opt("GuiOnEventMode", 1) ;On Event Modus bentzen

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

    $Form1 = GUICreate("Form1", 197, 117, 254, 124)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Ende")
    $Button1 = GUICtrlCreateButton("Button1", 64, 40, 75, 25, $WS_GROUP)
    GUICtrlSetOnEvent(-1, "_TuWas")
    GUISetState(@SW_SHOW)

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

    While 1
    Sleep(1000)
    WEnd

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

    Func _Ende()
    Exit
    EndFunc ;==>_Ende

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

    Func _TuWas()
    MsgBox(0, "", "Ich mach was")
    EndFunc ;==>_TuWas

    [/autoit]

    mfg (Auto)Bert

  • Fenster schließen...

    Hallo ThePierre,

    Zitat von xp_fan

    Was ist das denn für ein Script?

    Zitat von ThePierre

    das ist doch eigentlich egal


    Nein, denn dieses Forum hat http://www.autoit.de/index.php?page=Forumrules und

    [autoit]

    $Fenster2 = GUICreate("GM Fake Tool by pierre96 - 4Story Client (Gefunden)", 386, 147, 193, 114)

    [/autoit]

    lässt Zweifel aufkommen. Deshalb auch nur der allgemeine Hinweis auf http://translation.autoit.de/autoitinfo/hil…nd-06_02_10.zip, lies dort das Kapitel zur Gui Refernz|Message-Loop Modus,

    mfg (Auto)Bert

  • GUI - Größenänderung bei Flash Gallerie

    Hallo bond07,

    das kannst du so lösen:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <array.au3>
    #include <IE.au3>

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

    $File = @ScriptDir & "\index.html"
    $Obj = _IECreateEmbedded()

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

    #Region ### START Koda GUI section ### Form=I:\Backup\Programme\AutoIT\Kodak Form Designer\HTML_GUI.kxf
    $GUI_HTML = GUICreate("Foto Gallerie", 1000, 800, 162, 145, BitOR($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SIZEBOX, _
    $WS_THICKFRAME, $WS_CAPTION, $WS_POPUP, $WS_GROUP, $WS_TABSTOP, $WS_BORDER, $WS_CLIPSIBLINGS))
    $Size = WinGetClientSize("Foto Gallerie")
    GUICtrlCreateObj($Obj, 0, 0, $Size[0], $Size[1])
    GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
    $Obj.navigate($File)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit]

    mfg (Auto)Bert

  • AutoIT Timer

    Hallo EliteMatthias,

    so z.B.:

    [autoit]

    ;Es war eben nur mal so herbeigekritzelt
    Global $tStart

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

    $tDiff = TimerInit() ;Timer initialisierer
    While 1
    ;Jetzt soll hier ein Wartender Timer hin
    if TimerDiff($tStart) > 5000 Then
    MsgBox (1,"Timer","Wenn der Timer funktioniert, soll es sich alle 5 Sekunden aufrufen")
    $tStart = TimerInit()
    EndIf
    WEnd

    [/autoit]

    mfg (Auto)Bert

  • Progress (Fortschritt) leiste

    Hallo elitemattias,

    und hier noch eine andere:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Global $iDone = 0

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

    $GUI = GUICreate("", 633, 447, 189, 121)
    $Progress1 = GUICtrlCreateProgress(192, 184, 150, 17)
    $Button1 = GUICtrlCreateButton("Button1", 88, 64, 161, 73, $WS_GROUP)
    GUISetState()

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

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $iDone = 0
    GUICtrlSetState($Button1,$gui_Disable)
    AdlibRegister("_progress",100)
    EndSwitch
    WEnd

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

    Func _progress()
    $iDone += 1
    GUICtrlSetData($Progress1, $iDone)
    if $iDone = 100 then
    AdlibUnRegister("_progress")
    GUICtrlSetState($Button1,$gui_Enable)
    EndIf
    EndFunc

    [/autoit]

    mfg (Auto)Bert

  • icons als button

    Hallo JuraX,

    wird das Pic den erstellt. Ich vermute nein und daher hat die Variable $newfile den Wert 0. Da GuiGetmsg wenn keine Message vorliegt den Werf 0 zurückgibt ist dieses Case immer wahr

    mfg (Auto)Bert

  • Guiname mittig

    Hallo TheBigX,

    so z.B.

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Version=Beta
    #AutoIt3Wrapper_Icon=..\..\..\..\MEDIA\Bilder\ICONS\Iphone\Working.ico
    #AutoIt3Wrapper_Outfile=G:\StickTool.exe
    #AutoIt3Wrapper_Compression=4
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_UseX64=n
    #AutoIt3Wrapper_Res_Fileversion=1.0.0.8
    #AutoIt3Wrapper_Res_FileVersion_AutoIncrement=y
    #AutoIt3Wrapper_res_requestedExecutionLevel=highestAvailable
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstantsEx.au3>
    #include <GuiFade.au3>
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>

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

    Global $ar, $i

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

    $te = GUICreate(@UserName, 200, 700, @DesktopWidth - 230, @DesktopHeight / 5, BitOR($WS_BORDER, $WS_POPUPWINDOW, $WS_THICKFRAME), $WS_EX_CONTROLPARENT)
    $Title = GUICtrlCreateLabel(@UserName,1,1,198,25,$SS_CENTER,$GUI_WS_EX_PARENTDRAG)
    ;evtl. noch Farben und Font setzen je nach Bedarf
    GUICtrlSetBkColor(-1,0x00ff00)
    GUICtrlSetColor(-1,0xffff00)
    GUICtrlSetFont(-1,18,400)
    $p1 = GUICtrlCreateButton("Angry IP Scanner", 1, 30, 192, 50)
    $p2 = GUICtrlCreateButton("JDownloader", 1, 81, 192, 50)
    $p3 = GUICtrlCreateButton("RemoteDroid Server", 1, 131, 192, 50)
    $p4 = GUICtrlCreateButton("Treiberpack", 1, 181, 192, 50)
    $lwac = GUICtrlCreateLabel("", 1, 680, 150, 20)
    $spt = GUICtrlCreateLabel("", 1, 630, 150, 20)
    $spf = GUICtrlCreateLabel("", 1, 650, 150, 20)
    AdlibRegister("status", 1000)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()

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

    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    _GUIFadeOut($te, "15", "255", "0")
    Exit
    Case $p1
    IPScan()
    Case $p2
    jdown()
    Case $p3
    rmdroidserv()
    Case $p4

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

    EndSwitch
    WEnd

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

    Func IPScan()
    ShellExecute("Angry IP Scanner.exe", "", @ScriptDir & "Tools\", "", "")
    EndFunc ;==>IPScan
    Func jdown()
    ShellExecute("JDownloader.exe", "", @ScriptDir & "Tools\JDownloader\", "", "")
    EndFunc ;==>jdown
    Func rmdroidserv()
    ShellExecute("RemoteDroidServer.jar", "", @ScriptDir & "Server\", "", "")
    EndFunc ;==>rmdroidserv

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

    Func status()
    $ar = DriveGetDrive("REMOVABLE")
    If @error Then
    GUICtrlSetData($lwac, "")
    GUICtrlSetData($spt, "")
    GUICtrlSetData($spf, "G")
    Else

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

    For $i = 1 To $ar[0]
    Next
    $ms = DriveGetLabel($ar[1] & "\")

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

    GUICtrlSetData($lwac, "Laufwerk ist: " & DriveStatus($ar[1]))
    GUICtrlSetData($spt, Round(DriveSpaceTotal($ar[1]) / 1024, 2) & "GB Insgesamt")
    GUICtrlSetData($spf, Round(DriveSpaceFree($ar[1]) / 1024, 2) & "GB Frei")
    EndIf
    EndFunc ;==>status

    [/autoit]


    ps die func status musste ich anpassen, damit das Skript nicht abbricht (Kein USB-Stick), die Farben des Labels kannst du ja umstellen

    mfg (Auto)Bert

  • Häckchen setzen

    Hallo kira,

    Zitat von kira

    habe ControlClick($TrueCrypt Setup 6.3a; "", $1022,"left") eingegeben, und auch mit Name Button 5 . Nach dem drücken
    go, habe ich jedesmal eine Fehlermeldung. Syntax error Truecrypt

    das müsste so aussehen

    [autoit]

    ControlClick("TrueCrypt Setup 6.3a", "", $1022,"left")

    [/autoit]

    evtl. auch so:

    [autoit]

    ControlClick("TrueCrypt Setup 6.3a", "", 1022,"left")

    [/autoit]

    falls $1022 keine Variable ist sondern der Wert 1022 genommen werden sol,

    mfg (Auto)Bert

  • gui umbenennen

    Hallo warum so umständlich, du kannst doch auch die ID nehmen:

    [autoit]

    #include <GUIConstantsEx.au3>

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

    $hGui = GUICreate("Test", 250, 120, 302, 218)
    $hNeu = GUICtrlCreateButton("neuer &Text", 8, 8)
    $hbtnExit = GUICtrlCreateButton("Be&enden", 8, 65)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE, $hbtnExit
    Exit
    Case $hNeu
    WinSetTitle($hGui,"","Jetzt Neu")
    EndSwitch
    WEnd

    [/autoit]


    mfg (Auto)Bert

  • CSV-Datei für ComboBox

    Hallo charly,

    herzlich willkommen im Forum und viel Spass mit AutoIt.
    Hier noch eine 2. Lösung, die sich universeller einsetzen lässt:

    Spoiler anzeigen
    [autoit]

    #Include <GuiComboBox.au3>
    #include <GUIConstantsEx.au3>
    #include <array.au3>
    #include <File.au3>

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

    Const $sCSV = @ScriptDir & "\2cbo.CSV"
    Const $sElect = "bitte auswählen"
    Dim $a_sCSV, $aSplit, $scboChr = ""
    _FileReadToArray($sCSV,$a_sCSV)
    Dim $aCSV[$a_sCSV[0]][2]
    for $i = 1 to UBound($a_sCSV) - 1
    ConsoleWrite($i & $a_sCSV[$i] & @CRLF)
    $aSplit = StringSplit($a_sCSV[$i],";")
    if not StringInStr($scboChr,$aSplit[1]) Then $scboChr &= $aSplit[1] & "|"
    $aCSV[$i-1][0] = $aSplit[1]
    $aCSV[$i-1][1] = $aSplit[2]
    Next
    ConsoleWrite($scboChr & @CRLF)

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

    $hGui = GUICreate("2 Comboboxen aus 1er CSV ", 250, 120, 302, 218)
    $hcboChr = GUICtrlCreateCombo($sElect, 8, 8, 200, 25)
    GUICtrlSetData(-1,$scboChr)
    $hcboChrNr = GUICtrlCreateCombo("",8,35,200,25)
    $hbtnExit = GUICtrlCreateButton("Be&enden", 8, 65)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE, $hbtnExit
    Exit
    Case $hcboChr
    $sVal = GUICtrlRead($hcboChr)
    if $sVal <> $sElect Then
    $aSplit = _ArrayFindAll($aCSV,$sVal,0,0,True,True,0)
    GUICtrlSetData($hcboChrNr,"")
    $scboChr = ""
    for $i = 0 to UBound($aSplit) - 1
    $scboChr &= $aCSV[$aSplit[$i]][1] & "|"
    Next
    ConsoleWrite($scboChr & @CRLF)
    GUICtrlSetData($hcboChrNr,$scboChr)
    _GUICtrlComboBox_SetCurSel($hcboChrNr, 0)
    EndIf
    EndSwitch
    WEnd

    [/autoit]

    funktioniert auch mit CSV-Aufbau wie diesem:

    Spoiler anzeigen
    [autoit]

    Auto;Felgen
    Werkzeug;BitSätze
    Werkzeug;Schraubenschlüssel
    Auto;Reifen
    Zubehör;Enteiserspray
    Auto;Kühler

    [/autoit]

    viel Spass damit

  • Auslesen eines Wertes

    Hallo Aquilla,

    solange die Prozessorauslastung nicht zu hoch ist (= andere Anwendungen reagieren nicht träge) ist alles in Ordnung, ansonsten den von dir bereits angesprochenen Sleep einbauen bzw. erhöhen,

    Edit: das Ursprungsskript hätte ich so abgeändert:

    Spoiler anzeigen
    [autoit]

    #include
    global $Vacuumalt

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

    AdlibEnable("Test")

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

    func Test()
    $Vacuumneu=ControlGetText("GC/MS Monitor","",123)
    if not $vacuumneu =$vacuumalt then
    $file=FileOpen("Vacuum.txt",1)
    $time=_NowCalc()
    $Temperatur=ControlGetText("GC/MS Monitor","",60)
    FileWriteLine($file,$time &" "& $Temperatur&" "&$vacuumneu)
    FileClose($file)
    $vacuumalt=$vacuumneu
    Else
    EndIf
    EndFunc

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

    while 1
    sleep(1000)
    WEnd

    [/autoit]


    mfg (Auto)Bert