Beiträge von autoBert

  • GUI Fenster aktuallisieren?

    Hallo FireFlyer,

    mit dem Klick auf ListBox (nicht ListView) hast du recht, dieser wird von GuiGetMsg() erkannt, deshalb angepasstes Skript:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <DateTimeConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListBoxConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    ;--------Den folgenen Abschnitt weiß ich--------
    $Hauptfenster = GUICreate("Program1", 513, 358, 195, 126)
    $Willkomen = GUICtrlCreateLabel("Moin!", 8, 8, 190, 28)
    GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
    $Text = GUICtrlCreateLabel("Hier kommt noch was:", 304, 232, 162, 17)
    $Text = GUICtrlCreateLabel("...", 304, 264, 192, 81)
    GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
    $Kalender = GUICtrlCreateMonthCal("2009/10/01", 304, 40, 180, 164)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Kalender_Text = GUICtrlCreateLabel("Kalender:", 304, 16, 81, 17)
    $MainGroup = GUICtrlCreateGroup("Programme", 8, 40, 281, 313)
    ;--------Aber jetzt nicht mehr :( -------------
    $Programme = GUICtrlCreateList("", 16, 64, 209, 162) ;Liste
    GUICtrlSetData($Programme, "Programm 1")
    GUICtrlSetData($Programme, "Programm 2")
    $Selectet_Pro = GUICtrlCreateLabel("Kein Programm ausgewählt!", 16, 248, 247, 17)
    $Starten = GUICtrlCreateButton("Starten", 16, 272, 169, 41, 0)
    $Hilfe = GUICtrlCreateButton("Hilfe", 192, 272, 89, 41, 0)
    $Beschreibung = GUICtrlCreateButton("Beschreibung", 16, 320, 129, 25, 0)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Erstellt = GUICtrlCreateButton("Erstellt", 152, 320, 129, 25, 0)
    $Auswaehlen = GUICtrlCreateButton("Wählen", 232, 64, 49, 161, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)

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

    #EndRegion ### END Koda GUI section ###

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

    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
    $msg = GUIGetMsg()
    Select
    Case $msg = $Programme
    If GUICtrlRead($Programme) = "" Then
    GUICtrlSetState($Auswaehlen, $GUI_DISABLE)
    GUICtrlSetData($Selectet_Pro,"Kein Programm ausgewählt!")
    Else
    GUICtrlSetState($Auswaehlen, $GUI_ENABLE)
    GUICtrlSetData($Selectet_Pro,"ausgewählt: " & GUICtrlRead($Programme))
    EndIf
    Case $msg = $Auswaehlen
    MsgBox(0, "", "'Auswählen' wurde geklickt")
    ;--------------------Und die kann ich wieder selber-----------
    Case $msg = $Starten
    MsgBox(0, "", "'Starten' wurde geklickt")
    Case $msg = $Hilfe
    MsgBox(0, "", "'Hilfe' wurde geklickt")
    Case $msg = $Erstellt
    MsgBox(0, "", "'Erstellt' wurde geklickt")
    Case $msg = $Beschreibung
    MsgBox(0, "", "'Beschreibung' wurde geklickt")
    EndSelect
    WEnd

    [/autoit]


    GuiCtrlRead liest aus der ListBox aber tatsächlich den Text der ausgewählt ist, darfst es gerne testen ;)

    mfg (Auto)Bert

  • GUI Fenster aktuallisieren?

    Hallo Luke4321,

    noch eine Möglichkeit (wenn auch nicht so elegant/ausbaufähig, wie die von Tweaky:(

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <DateTimeConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListBoxConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    Global $ProgOld = " "

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

    #Region ### START Koda GUI section ### Form=
    ;--------Den folgenen Abschnitt weiß ich--------
    $Hauptfenster = GUICreate("Program1", 513, 358, 195, 126)
    $Willkomen = GUICtrlCreateLabel("Moin!", 8, 8, 190, 28)
    GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
    $Text = GUICtrlCreateLabel("Hier kommt noch was:", 304, 232, 162, 17)
    $Text = GUICtrlCreateLabel("...", 304, 264, 192, 81)
    GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
    $Kalender = GUICtrlCreateMonthCal("2009/10/01", 304, 40, 180, 164)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Kalender_Text = GUICtrlCreateLabel("Kalender:", 304, 16, 81, 17)
    $MainGroup = GUICtrlCreateGroup("Programme", 8, 40, 281, 313)
    ;--------Aber jetzt nicht mehr :( -------------
    $Programme = GUICtrlCreateList("", 16, 64, 209, 162) ;Liste
    GUICtrlSetData($Programme, "Programm 1")
    GUICtrlSetData($Programme, "Programm 2")
    $Selectet_Pro = GUICtrlCreateLabel("Kein Programm ausgewählt!", 16, 248, 247, 17)
    $Starten = GUICtrlCreateButton("Starten", 16, 272, 169, 41, 0)
    $Hilfe = GUICtrlCreateButton("Hilfe", 192, 272, 89, 41, 0)
    $Beschreibung = GUICtrlCreateButton("Beschreibung", 16, 320, 129, 25, 0)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Erstellt = GUICtrlCreateButton("Erstellt", 152, 320, 129, 25, 0)
    $Auswaehlen = GUICtrlCreateButton("Wählen", 232, 64, 49, 161, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)

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

    #EndRegion ### END Koda GUI section ###

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

    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
    $msg = GUIGetMsg()
    $s = GUICtrlRead($Programme)
    ;ConsoleWrite("Alte Auswahl: " & $ProgOld & " neue Auswahl: " & $s & @CRLF)
    If $ProgOld <> $s Then
    If GUICtrlRead($Programme) = "" Then
    GUICtrlSetState($Auswaehlen, $GUI_DISABLE)
    GUICtrlSetData($Selectet_Pro,"Kein Programm ausgewählt!")
    Else
    GUICtrlSetState($Auswaehlen, $GUI_ENABLE)
    GUICtrlSetData($Selectet_Pro,"ausgewählt: " & $s)
    EndIf
    $ProgOld = $s
    EndIf
    Select
    Case $msg = $Auswaehlen
    MsgBox(0, "", "'Auswählen' wurde geklickt")
    ;--------------------Und die kann ich wieder selber-----------
    Case $msg = $Starten
    MsgBox(0, "", "'Starten' wurde geklickt")
    Case $msg = $Hilfe
    MsgBox(0, "", "'Hilfe' wurde geklickt")
    Case $msg = $Erstellt
    MsgBox(0, "", "'Erstellt' wurde geklickt")
    Case $msg = $Beschreibung
    MsgBox(0, "", "'Beschreibung' wurde geklickt")
    EndSelect
    WEnd

    [/autoit]


    mfg (Auto)Bert

  • Listview, Icons und eine .dll

    Hallo nuts,

    nimm doch einfach eine Schleife:

    [autoit]

    $hImage = _GUIImageList_Create()
    for $i = 0 to 99
    _GUIImageList_AddIcon($hImage, "Pfad zur .dll", $i)
    $ilist = _GUICtrlListView_SetImageList($hListView, $hImage, 1)
    next $i

    [/autoit]


    oder fallst du _GUIImageList_Add verwenden kannst (BildTyp?) und auch noch alle gleich breit sind, kannst du es damit versuchen

    mfg (Auto)Bert

  • Treeview und Ini

    Hallo subzero007,

    zum Anfang musst du den allerobersten Vorfahren des selektierten Eintrags ermitteln, das machst du so:

    [autoit]

    Case $Wiederherstellen
    MsgBox(0,"Kompletter Baum bis zum selektiertem Eintrag",_GUICtrlTreeView_GetTree($hTreeView))

    [/autoit]


    den Rest kannst du dann mit Stringmanipulationen machen und anschliessend die entsprechende INI lesen, das schaffst du schon, hau rein ;) ,

    mfg (Auto)Bert

  • automatisch Tastenkombination nach 5 minuten ohne Eingabe möglich ?

    Hallo maxl,

    zum ersten Teil siehe:

    [autoit]

    #include <Timers.au3>
    ;http://www.autoit.de/index.php?page…1279#post101279 Eukalyptus
    Global $iTimer

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

    While 1
    $iTimer = _Timer_GetIdleTime()
    Select
    Case $iTimer < 5000
    ToolTip("Mache nichts!" & @LF & "Keine Eingabe seit " & Round($iTimer / 1000) & " Sekunden")
    Case Else
    ToolTip("5 Sekunden überschritten.." & @LF & "Keine Eingabe seit " & Round($iTimer / 1000) & " Sekunden")
    EndSelect
    Sleep(500)
    WEnd

    [/autoit]

    zum 2. Teil schau dir die Funktion shutdown in der Hilfe an,

    mfg (Auto)Bert

  • Treeview und Ini

    Hallo subzero007,

    schau dir die Hilfe zu _GUICtrlTreeView_GetTree an, diese Funktion ermittelt den kompletten Pfad bis hin zum gewünschten Item.

    Außerdem solltest du das TreeView beim Klicken von List löschen:

    [autoit]

    Func log_ini_treeview()
    _GUICtrlTreeView_DeleteAll($hTreeView) ;< ================ sonst werden Sicherungen mehrfach angezeigt
    ;wenn es der Anwender ein weiteres Mal anklick
    .
    .
    .
    EndFunc ;==>log_ini_treeview

    [/autoit]

    mfg (Auto)bert

  • Problem bei "Taskleiste berechnen"

    Hallo Sen,

    hab dein Skript mal überarbeitet (unter der Annahme, dass du die Position der Taskleiste nicht berücksichtigst):

    Spoiler anzeigen
    [autoit]

    ;---------------------------------------------------------------------------—
    ; HastyBar
    ; By Sen // Christopher Klay
    ;---------------------------------------------------------------------------—
    ; Version - V 1.2
    ;---------------------------------------------------------------------------—
    ; Beschreibung:
    ; Extra Toolbar
    ;---------------------------------------------------------------------------—-
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <INet.au3>
    #include <StaticConstants.au3>
    #include <File.au3>
    #include <Array.au3>
    #include <Winapi.au3>
    #NoTrayIcon

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

    #Region DesktopData
    Global $iHBarWidth, $iHBarHeight, $iHBarLeft, $iHBarTop ;Positionsdaten für Erstellung

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

    ;Variablen um die ID der Controls aufzunehmen
    Global $aPicID[14] ;13 Bilder
    Global $hlblTime ;Label für Uhrzeit
    Global $hinpIE ;Eingabe für Explorer etc.

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

    Global $aPicPath[16] ;1-13 OrdnerPfade für Bilder 15 = IE 16 = Uhrzeit
    ;die beiden letzten sind Dummys da die Controls über den Namen des BMPs indentifiziert werden sollen
    $aPicPath[15] = "TIME"
    $aPicPath[14] = "IE"
    $aPicPath[13] = "Images/BarTop.bmp" ;scheint ohne Funktion zu sein
    $aPicPath[12] = "Images/Offline.bmp"
    $aPicPath[11] = "Images/BlockScreenOn.bmp"
    $aPicPath[10] = "Images/VolDown.bmp"
    $aPicPath[9] = "Images/Stop.bmp"
    $aPicPath[8] = "Images/VolUp.bmp"
    $aPicPath[7] = "Images/Trans.bmp"
    $aPicPath[6] = "Images/Dokumente.bmp"
    $aPicPath[5] = "Images/Favorites.bmp"
    $aPicPath[4] = "Images/Ordner.bmp"
    $aPicPath[3] = "Images/Working.bmp"
    $aPicPath[2] = "Images/Browser.bmp"
    $aPicPath[1] = "Images/Exit.bmp"
    ;Global $aToolTips[16] ;ToolTips zu Cotronls 1-14 = Pics 15 = Eingabe für IE 16 = Uhrzeit
    #EndRegion DesktopData

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

    Opt("TrayAutoPause", 0)
    Opt("OnExitFunc", "OnExit")
    ;opt("MustDeclareVars",1)

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

    #Region - Create DllStruct
    Const $SPI_SETWORKAREA = 47
    Const $SPIF_SENDCHANGE = 2
    Local $tRECT = DllStructCreate('int;int;int;int')
    DllStructSetData($tRECT, 1, 0)
    DllStructSetData($tRECT, 2, 0)
    DllStructSetData($tRECT, 3, @DesktopWidth)
    #EndRegion - Create DllStruct

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

    $BackgroundFarbe = IniRead(@ScriptDir & "/Settings.ini", "HastyBar", "HintergrundFarbe", "FFFFFF")
    $TaskbarPos = IniRead(@ScriptDir & "/Settings.ini", "HastyBar", "Taskbar(1-Unten/2-Seite(links)/3-Seite(rechts)/4-Oben)", "1")
    $TransScal = IniRead(@ScriptDir & "/Settings.ini", "HastyBar", "Transparenz(1-100%/2-80%/3-50%)", "1")
    $OrdnerPfad = IniRead(@ScriptDir & "/Settings.ini", "HastyBar", "OrdnerPfad", "C:\")
    $TaskbarHohe = _Taskbar("Hoch")
    $TaskbarBreite = _Taskbar("Breit")
    $Style = "0x96000000"
    $ExStyle = "0x00000088"
    $Zeit = @HOUR & ":" & @MIN & ":" & @SEC
    $PlayStop = "Stop"
    $ShowHide = "Show"

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

    #Region SetDesktopAreaOn ;<========== überarbeiten
    If $TaskbarPos = "1" Then
    DllStructSetData($tRECT, 4, @DesktopHeight - $TaskbarHohe - 30)
    ElseIf $TaskbarPos = "2" Then
    DllStructSetData($tRECT, 4, @DesktopHeight - 30)
    EndIf
    _WinAPI_SystemParametersInfo($SPI_SETWORKAREA, 0, DllStructGetPtr($tRECT), $SPIF_SENDCHANGE)
    #EndRegion SetDesktopAreaOn

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

    #Region GUI

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

    $TaskbarPos = 4 ; <======= zum Testen wiede entfernen

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

    Switch $TaskbarPos
    Case 1 ;unten
    $iHBarWidth = @DesktopWidth
    $iHBarHeight = 30
    $iHBarLeft = 0
    $iHBarTop = @DesktopHeight - $iHBarHeight
    Case 2 ;links
    $iHBarWidth = 150
    $iHBarHeight = @DesktopHeight
    $iHBarLeft = 0
    $iHBarTop = 0
    Case 3 ;rechts
    $iHBarWidth = 150
    $iHBarHeight = @DesktopHeight
    $iHBarLeft = @DesktopWidth - $iHBarWidth
    $iHBarTop = 0
    Case 4 ;oben
    $iHBarWidth = @DesktopWidth
    $iHBarHeight = 30
    $iHBarLeft = 0
    $iHBarTop = 0
    EndSwitch

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

    $MainForm = GUICreate("", $iHBarWidth, $iHBarHeight, $iHBarLeft, $iHBarTop, $Style, $ExStyle)

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

    $hlblTime = GUICtrlCreateLabel($Zeit, $iHBarWidth - 60, 5, 55, 20, $SS_CENTER)
    $PicTop = GUICtrlCreatePic("Images/BarTop.bmp", 0, 0, $iHBarWidth, 5)

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

    Switch $TaskbarPos
    Case 1, 4 ;HastyBar ist unten oder oben
    For $i = 1 To 12
    $iPicLeft = $iHBarWidth - 65 - $i * 20
    $iPicTop = 5
    ; ConsoleWrite($aPicPath[$i] & " für:" & $i & " Left: " & $iPicLeft & " Top: " & $iPicTop & @CRLF)
    $aPicID[$i] = GUICtrlCreatePic($aPicPath[$i], $iPicLeft, $iPicTop, 20, 20)
    Next
    $Input = GUICtrlCreateInput("", 5, 5, $iHBarWidth - 320)
    Case 2, 3 ;HastyBar ist links oder rechts hier musst du noch alle Controls anordnen (im Array mit Formeln gehts einfacher)
    For $i = 1 To 12
    Switch $i
    Case 1 To 6
    $iPicLeft = $iHBarWidth - $i * 20
    $iPicTop = 30
    Case Else
    $iPicLeft = $iHBarWidth - ($i - 6) * 20
    $iPicTop = 50
    EndSwitch
    ; ConsoleWrite($aPicPath[$i] & " für:" & $i & " Left: " & $iPicLeft & " Top: " & $iPicTop & @CRLF)
    $aPicID[$i] = GUICtrlCreatePic($aPicPath[$i], $iPicLeft, $iPicTop, 20, 20)
    Next
    $hinpIE = GUICtrlCreateInput("", 5, $iPicTop + 30, $iHBarWidth - 10, $iHBarHeight - $iPicTop - 60)
    EndSwitch

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

    GUISetBkColor($BackgroundFarbe, $MainForm)
    GUICtrlSetBkColor($hlblTime, 0xFFFFFF)
    GUICtrlSetBkColor($hinpIE, 0xFFFFFF)
    GUICtrlSetColor($hinpIE, $BackgroundFarbe)

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

    If $TransScal = 1 Then
    WinSetTrans($MainForm, "", "255")
    ElseIf $TransScal = 2 Then
    WinSetTrans($MainForm, "", "204")
    ElseIf $TransScal = 3 Then
    WinSetTrans($MainForm, "", "127")
    EndIf

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

    GUISetState(@SW_SHOW, $MainForm)
    #EndRegion GUI

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

    While 1
    ;Zeit aktualisieren
    $Zeit = @HOUR & ":" & @MIN & ":" & @SEC
    GUICtrlSetData($hlblTime, $Zeit)

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

    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $aPicID[1]
    Exit
    Case $aPicID[11] ;BlockScreen
    If $ShowHide = "Show" Then
    SplashScreen("On")
    $ShowHide = "Hide"
    GUICtrlSetImage($aPicID[11], "Images/BlockScreenOff.bmp")
    ElseIf $ShowHide = "Hide" Then
    SplashScreen("Off")
    $ShowHide = "Show"
    GUICtrlSetImage($aPicID[11], "Images/BlockScreenOn.bmp")
    EndIf
    Case $aPicID[10] ;VolDownButton
    Send("{VOLUME_DOWN}")
    Send("{VOLUME_DOWN}")
    Send("{VOLUME_DOWN}")
    Case $aPicID[8] ;VolUpButton
    Send("{VOLUME_UP}")
    Send("{VOLUME_UP}")
    Send("{VOLUME_UP}")
    Case $aPicID[9] ;PlayStopButton
    If $PlayStop = "Play" Then
    Send("{VOLUME_MUTE}")
    $PlayStop = "Stop"
    GUICtrlSetImage($aPicID[9], "Images/Stop.bmp")
    ElseIf $PlayStop = "Stop" Then
    Send("{VOLUME_MUTE}")
    $PlayStop = "Play"
    GUICtrlSetImage($aPicID[9], "Images/Play.bmp")
    EndIf
    Case $aPicID[12] ;On- OfflineButton
    $OnlineStatus = _INetGetSource("www.google.com")
    If Not $OnlineStatus = "" Then
    GUICtrlSetImage($aPicID[12], "Images/Online.bmp")
    Else
    GUICtrlSetImage($aPicID[12], "Images/Offline.bmp")
    EndIf
    Case $aPicID[3] ;WorkingButton
    ShellExecute("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
    Case $aPicID[5] ;FavoritesButton
    ShellExecute(@FavoritesDir)
    Case $aPicID[4] ;Ordner
    ShellExecute($OrdnerPfad)
    Case $aPicID[6] ;$DokumenteButton
    ShellExecute(@MyDocumentsDir)
    Case $aPicID[2] ;BrowserButton
    ShellExecute("http://")
    Case $aPicID[7] ;$TransButton
    If $TransScal = "1" Then
    WinSetTrans($MainForm, "", "204")
    $TransScal = "2"
    IniWrite(@ScriptDir & "/Settings.ini", "HastyBar", "Transparenz(1-100%/2-80%/3-50%)", "2")
    ElseIf $TransScal = "2" Then
    WinSetTrans($MainForm, "", "127")
    $TransScal = "3"
    IniWrite(@ScriptDir & "/Settings.ini", "HastyBar", "Transparenz(1-100%/2-80%/3-50%)", "3")
    ElseIf $TransScal = "3" Then
    WinSetTrans($MainForm, "", "255")
    $TransScal = "1"
    IniWrite(@ScriptDir & "/Settings.ini", "HastyBar", "Transparenz(1-100%/2-80%/3-50%)", "1")
    EndIf
    Case $hinpIE
    CheckFunktionInput()
    EndSwitch

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

    Sleep(50)
    WEnd

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

    Func CheckFunktionInput()
    $InputText = GUICtrlRead($hinpIE)

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

    If StringLeft($InputText, 7) = "!google" Then
    $InputText = StringReplace($InputText, "!google ", "http://www.google.de/search?q=")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 4) = "!icq" Then
    $InputText = StringReplace($InputText, "!icq ", "http://people.icq.com/people/about_me.php?uin=")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 4) = "!svz" Then
    $InputText = StringReplace($InputText, "!svz ", "http://www.schuelervz.net/Profile/")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 4) = "!gbo" Then
    $InputText = StringReplace($InputText, "!gbo ", "http://german-bash.org/")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 4) = "!dict" Then
    $InputText = StringReplace($InputText, "!dict ", "http://www.dict.cc/?s=")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 7) = "!lmgtfy" Then
    $InputText = StringReplace($InputText, "!lmgtfy ", "http://lmgtfy.com/?q=")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 5) = "!spin" Then
    $InputText = StringReplace($InputText, "!spin ", "http://www.spin.de/hp/")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 12) = "!spieletipps" Then
    $InputText = StringReplace($InputText, "!spieletipps ", "http://www.spieletipps.de/cheats/search_v2.php?keyword=")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 8) = "!twitter" Then
    $InputText = StringReplace($InputText, "!twitter ", "http://twitter.com/")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 3) = "!dA" Then
    $InputText = StringReplace($InputText, "!dA ", "http://browse.deviantart.com/#order=9&q=")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 5) = "!ping" Then
    $InputText = StringReplace($InputText, "!ping", "")
    $Ping = Ping($InputText)
    If $Ping = "0" Then $Ping = "Error"
    MsgBox(0, "", "Ping von " & $InputText & " = " & $Ping)
    ElseIf StringLeft($InputText, 8) = "!sysinfo" Then
    MsgBox(4096, "HastyBar - SysInfo", "Betreibssystem: " & @OSType & @CRLF & "OS-Build: " & @OSBuild & @CRLF & "Service Pack: " & @OSServicePack & @CRLF & "Computer Name: " & @ComputerName & @CRLF & "Username: " & @UserName & @CRLF & @CRLF & @CRLF & "IP-Adresse(1): " & @IPAddress1 & @CRLF & "IP-Adresse(2): " & @IPAddress2 & @CRLF & "IP-Adresse(3): " & @IPAddress3 & @CRLF & "IP-Adresse(4): " & @IPAddress4)
    ElseIf StringLeft($InputText, 4) = "www." Then
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 7) = "http://" Then
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 8) = "https://" Then
    ShellExecute($InputText)
    EndIf

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

    GUICtrlSetData($Input, "")
    EndFunc ;==>CheckFunktionInput

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

    Func _Taskbar($Art)
    Local $value = Opt("WinTitleMatchMode", 4)
    Local $Pos = WinGetPos("classname=Shell_TrayWnd")
    Opt("WinTitleMatchMode", $value)
    If $Art = "Hoch" Then
    Return $Pos[3]
    ElseIf $Art = "Breit" Then
    Return $Pos[2]
    EndIf

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

    EndFunc ;==>_Taskbar

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

    Func SplashScreen($OnOff) ;< =================== überarbeiten
    If $OnOff = "On" Then
    If $TaskbarPos = "1" Then
    $Splash = SplashImageOn("", "Images/Splash.bmp", @DesktopWidth, @DesktopHeight - 30 - $TaskbarHohe, 0, 0, 1)
    Else
    $Splash = SplashImageOn("", "Images/Splash.bmp", @DesktopWidth, @DesktopHeight - 30, -1, 0)
    EndIf
    ElseIf $OnOff = "Off" Then
    SplashOff()
    EndIf
    EndFunc ;==>SplashScreen

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

    Func OnExit() ;überarbeiten
    #Region SetDesktopAreaOff
    If $TaskbarPos = "1" Then
    DllStructSetData($tRECT, 4, @DesktopHeight - $iHBarHeight)
    _WinAPI_SystemParametersInfo($SPI_SETWORKAREA, 0, DllStructGetPtr($tRECT), $SPIF_SENDCHANGE)
    Else
    DllStructSetData($tRECT, 4, @DesktopHeight - $iHBarHeight)
    _WinAPI_SystemParametersInfo($SPI_SETWORKAREA, 0, DllStructGetPtr($tRECT), $SPIF_SENDCHANGE)
    EndIf
    #EndRegion SetDesktopAreaOff
    EndFunc ;==>OnExit

    [/autoit]

    Viel Spaß damit,

    mfg (Auto)Bert

  • Problem bei "Taskleiste berechnen"

    Hallo Sen,

    Zitat von Sen

    Ich komm einfach nicht mehr weiter,
    wenn die Taskbar unten ist funktioniert alles einbandfrei.
    Aber wie soll ich das ganze regeln wenn die Taskbar z.b. oben oder an der Seite ist? oO

    Script + Bilder: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Eintrag im Script ist sicher wenn jemand das ganze zum laufen bringt X(


    Könntest du das Problem bitte etwas genauer beschreiben:

    • welche Taskbar meinst du?
      • deine also HastyBar
      • oder die von Windows also Taskleiste

      willst du bei HastyBar eventuell auf die Position der Taskleiste reagieren? BugFix hat eine Funktion (_GetTaskBarProps)

    • Auch könntest du dein Skript etwas kommentieren: bei TaskBarPos unbedingt Pflicht, damit man erkennt was du überhaupt vorhast.

    mfg (Auto)Bert

  • Script funktioniert nur im debugmodus Einzelschritt

    Hallo ripple,

    hab mich bisher noch nicht mit WordAutomation mithilfe von AutoIt beschäftigt, aber müsste dieser Ausschnitt:

    [autoit]

    While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    ;MsgBox(0, "Line read:", $line)
    $oWordApp = _WordCreate("")
    $oDoc = _WordDocOpen($oWordApp, $line)
    _WordDocPrint($oDoc, 0)
    _WordQuit($oWordApp, 0)
    WEnd

    [/autoit]

    nicht so funktionieren:

    [autoit]


    While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    ;MsgBox(0, "Line read:", $line)
    WEnd
    $oWordApp = _WordCreate("")
    $oDoc = _WordDocOpen($oWordApp, $line)
    _WordDocPrint($oDoc, 0)
    _WordQuit($oWordApp, 0)

    [/autoit]

    bei deiner Lösung erstellst du ja mit jeder eingelesenen Zeile eine neue Wordinstanz und in dieser erzeugst du ein leeres Dokument, druckst es aus und beendest Word. Das wird bei meiner Lösung alles im gleichen Dokument erledigt.
    Auch solltest du mit dem TaskManager vor dem Testen des Programms schauen ob wirklich keine Wordinstanz offen ist, da es sonst zu Effekten kommen kann, die mit deinem aktuellen Programmstand gar nichts mehr zu tun haben.

    mfg (Auto)Bert

  • aus switch "rausspringen"

    Hallo unaimed,

    mach es doch einfach so:

    [autoit]

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

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

    Local $iLeft = 100
    Local $iTop = 200
    Local $iWidth = 250
    Local $iHeight = 200

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

    $hGui = GUICreate("Demo ConrolFocus", $iWidth, $iHeight, $iLeft, $iTop, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
    $titel_INPUT = GUICtrlCreateInput("", 5, 30, $iWidth - 10, 25)
    $ok = GUICtrlCreateButton('&OK', $iWidth / 2 - 35, 75, 70, 25, $BS_DEFPUSHBUTTON)
    GUISetState()

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

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

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

    Case $ok
    If GuiCtrlRead($titel_INPUT) = "" Then
    MsgBox(0, "Angaben Fehlen!", "Es fehlt ein Titel!")
    ControlFocus($hGui, '', $titel_INPUT);
    Else
    ;_funktion() z.B. Speichern
    exit ;als Demo dass etwas passiert
    EndIf

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

    EndSwitch
    WEnd

    [/autoit]

    Du hattest GuiCtrlRead vergessen, dadurch musste die Prüfung auf "" immer falsch ausfallen. Zusätzlich habe ich noch ControlFocus mit hinein genommen, damit der Anwender gleich auf dem Eingabefeld landet.

    mfg (Auto)Bert

  • Digitaluhr

    Hallo nicric,

    geh mal auf Eigenschaften von Datum und Uhrzeit. Auf dem Kartenreiter Zeitzone ist bei mir auch nach einem Update dich Checkbox: Uhr automatisch auf Sommer- /Winterzeit nicht mehr geChecked gewesen, wenn du dann die Zeit mit dem Internet synchronisierst geht die Uhr automatisch exakt 1 Stunde nach, da die Sommerzeit nicht eingerechnet ist

    mfg (Auto)Bert

  • WinRar ähnliches Programm in AutoIt erstellen.

    Hallo Sirocool,

    ich glaube du hast die Frage von GE IXI TIM nicht richtig verstanden. Ihm ging es nicht um den FileOpen bzw. FileSave-Dialog sondern um das speichern und wieder auslesen mehrer Dateien in einer einzigen.

    GE IXI TIM, meines Wissens nach hat funkey so etwas schon einmal gemacht um mehrere Resourcen-Dateien (BMP, ICO etc.) in einer Datei zu speichern.

    Falls ihr mit Datenkomprimierung arbeiten wollt, schaut euch mal diesen Post auf AutoItScript.com an, dort findet ihr Folgelinks.
    Ich selbst habe _LZNTCompress zusammen mit SQLite getestet.

    mfg (Auto)Bert

  • Speichern Fenster?

    Hallo slin,

    in Koda einfach auf dem Kartenreiter Standard auf MainMenu auswählen und dann in die Form klicken, sollte slebsterklärend sein.

    In Scite (oder anderem Editor) must du mit GUICtrlCreateMenu und GUICtrlCreateMenuItem arbeiten (geht meines Erachtens nach schneller als mit Maus schubsen), schau dir am besten die Hilfe zu GUICtrlCreateMenu an.

    mfg (Auto)Bert

  • FileWrite problem wen datei nicht vorhanden

    Hallo DummDumm,

    dann probiere es mal so:

    Spoiler anzeigen
    [autoit]

    func _neu()
    GLOBAL $Form1 = GUICreate("Neue Produktinfo", 530, 447, 192, 124)
    Global $Input1 = GUICtrlCreateInput("Input1", 24, 64, 193, 21)
    Global $Input2 = GUICtrlCreateInput("Input2", 264, 64, 241, 21)
    Global $Label1 = GUICtrlCreateLabel("Artikelnummer", 24, 40, 70, 17)
    Global $Label2 = GUICtrlCreateLabel("Bezeichnung", 264, 40, 66, 17)
    Global $Input3 = GUICtrlCreateInput("Input3", 24, 104, 481, 300)
    Global $button1 = GUICtrlCreateButton("Anlegen", 24, 420, 50, 25, $WS_GROUP)
    GUICtrlSetOnEvent(-1, "_neu2")
    GUISetOnEvent(-3, "_hide")
    GUISetState(@SW_SHOW)

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

    #EndRegion ### END Koda GUI section ###

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

    EndFUnc
    func _neu2()
    $file = FileOpen($ORDNER &GuiCtrlRead($Input1)&GuiCtrlRead($Input2)&".txt", 0)

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

    FileWrite($ORDNER &$Input1&$Input2&".txt", GuiCtrlRead($Input3))

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

    FileClose($file)
    MsgBox(0, "ACHTUNG", "Datei erstellt")
    GUISetState(@SW_hide, $Form1)
    EndFunc
    func _hide()
    GUISetState(@SW_hide, $Form1)
    EndFunc

    [/autoit]

    und lies dir die Hilfe zu GuiCtrlRead durch,

    Edit: zu langsam

    mfg (Auto)Bert