Beiträge von sc4ry

  • Anzeige eines Kalenders wenn Maus auf Tray möglich?

    hiho,

    habe noch nix dazu gebastelt. die idee kam mir diese nacht.
    warum ich das machen will? auf der arbeit haben alle user nur eingeschränkte recht und sind nicht berechtigt, auf die uhrzeit zu klicken und dann kurz mit dem kalender zu arbeiten.
    nur entwerfe ich grad ein programm, dass einige sinnvolle funktionen für den user enthalten soll ... da kam mir die idee, wenn man mal kurz nen kalender braucht.

    wäre dies generell möglich und wie aufwänig wäre es? sinnvoll wäre vllt 3 monate, den abgelaufenen, die aktuellen und den kommenden.
    wie wird der kalender gepflegt? muss alles komplett im programm hinterlegt werden oder kann man das einfacher machen?

  • unterschiedliches Tray-Menü (re/li)

    hiho,

    ich bin dabei ein tray-menü zu basteln, das zw links und rechtsklick unterscheidet, nachdem ich den tip hier gelesen habe.
    das "besondere" soll sein, das beim rechtsklick ein menü kommt, beim linksklick ein fenster ein/ausgeblendet wird.

    das ganze funzt auch schon recht gut, doch leider funktioniert das ein-/ausblenden immer nur, nachdem nochmal ein rechtsklick durchgeführt wurde. ich weiß grad nicht warum oO

    [autoit]

    #Include <GuiConstants.au3>

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

    Opt("GuiOnEventMode",1)
    Opt("TrayIconHide", 0)
    Opt("TrayOnEventMode",1)
    Opt("TrayMenuMode",1)

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

    Global $writer

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

    TraySetClick(18)
    Global $state = 2, $trayexit
    TraySetOnEvent($TRAY_EVENT_PRIMARYDOWN, "TrayMenuLeftClick")
    TraySetOnEvent($TRAY_EVENT_SECONDARYDOWN, "TrayMenuRightClick")

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

    $writer = GUICreate("WRiTeR", 250, 400, @DesktopWidth - 270, @DesktopHeight - 430, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW )
    WinSetOnTop($writer,'',1)
    WinSetTrans($writer,'', 100)
    GUICtrlCreateEdit("", 5, 5, 240, 390)

    GUISetState(@SW_SHOW, $writer)

    While 1
    Sleep(100)
    WEnd

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

    Func _TrayExit()
    Exit
    EndFunc

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

    Func TrayMenuRightClick()
    If $state = 1 Or $state = 2 Then
    $state = 0
    $trayexit = TrayCreateItem("Exit")
    TrayItemSetOnEvent(-1,"_TrayExit")
    EndIf
    EndFunc

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

    Func TrayMenuLeftClick()
    If $state = 0 Or $state = 2 Then
    $state = 1
    TrayItemDelete($trayexit)
    $winstate = WinGetState($writer,'')
    If BitAnd($winstate, 2) Then
    WinSetState($writer,'',@SW_HIDE)
    Else
    WinSetState($writer,'',@SW_SHOW)
    EndIf
    EndIf
    EndFunc

    [/autoit]

  • GuiSetHelp

    hey gon,

    ja, das sieht eigentlich auch ganz gut aus, für andere sachen kann man das sicher gut verwenden.
    aber da es die funktion guisethelp ja gibt, weiß ich jetzt, wie ich darüber anständig ne chm-hilfe öffne *g*

    aber werd dein tip bei anderen tastenkombos beherzigen =)

    Greenhorn: klappt einwandfrei, danke

    PS: kennt wer nen gute freeware CHM-Editor? find nur shareware =/

  • Ausgabe in CMD mittlerweile möglich ?

    ist korrekt ;)

    EDIT: wenn ich jetzt per _WinAPI_WriteConsole etwas an das CMD-fenster schicke, schreibt er das auch schön da rein, aber ...

    man muss danach manuell enter drücken, um danach wieder befehle eingeben zu können, bzw, man kann zwar befehle eingeben, aber der pfad ist in der aktiven cmd-linie nicht zu sehen.
    kann man da was gegen machen? oder einfach controlsend enter an das fenster?

  • GuiSetHelp

    ja, die frage war, wie öffne ich eine CHM-Datei mit GUISetHelp =)

    oder wie bastel ich mir das selber ... auf den teil bist du dann eingegangen *g*
    danke, werde ich testen =)

  • GuiSetHelp

    ja, das wäre so die einfachste methode, aber die gilt ja global (oder kann man das einschränken?) ...
    weil F1 nur funktionieren soll, wenn das fenster aktiv ist, sonst könnte man keine anderen hilfen mehr aufrufen

  • GuiSetHelp

    Hiho,

    die funktion ist doch eigentlich dafür gedacht, dass eine hilfe angezeigt wird, wenn man F1 drückt, oder ?
    standardmäßig sind da ja CHM-Dateien. wenn ich aber ne (CHM)-Datei angebe, passiert garnix.

    mache ich wie im bsp. notepad, dann gehts ... wieso nicht auch anders?

    dann wollte ich das selber bauen (IsPressed), aber das muss ja in ner while-schleife stehen, und da klappt es dann erst nach dem 5 mal ... auch nicht so toll.

  • Tray-Menü - Fenster anzeigen - Tab aufrufen

    Hiho,

    ich würde gerne im TrayOnEventMode (wobei erstmal egal) das Fenster von dem Programm anzeigen lassen und dort nen bestimmten Tab aufrufen.
    das fenster aufrufen ist nicht das prob, sondern den tab.

    ich dachte mir, dass das vllt schon mit dem controlclick geht, aber er das info-tool zeigt nur "SysTabControl32 Instance 1" an ... also für alle tabs.
    ControlSend und Tabstops senden geht leider auch nicht, denn wenn besagter tab aufgerufen wurde (controlsend tab tab tab) und dann wieder geschlossen wird (fenster wird nur versteckt) und anschließend wieder aufgerufen wird (controlsend tab tab tab) wäre er auf nem anderen tab =/

    ich hoffe ihr versteht mich *g*

  • PDF UDF/ Hilfe?

    Hi,

    gibts es ein PDF-UDF (hab nur ein PDFCreator UDF finden können)?
    und zwar habe ich eine pdf-datei die wie im folgenden bild aufgebaut ist.

    ich hätte gerne ein programm, dass mir zum einem die Nr. neben der 12.00 und den dazugehörigen preis ausliest und abspeichert (summe)

    die 12.00 ist fortlaufend, also von 01.00 bis ende offen.
    die nr. daneben fängt auch nicht immer mit A an, kann also komplett variiren und auch unterschiedlich lang sein.

    gibt es da ne möglichkeit?

    PS: ich kann die pdf auch als txt abspeichern, aber dann haut er alles durcheinander =(
    und im text (unter dem schwarzen) können auch nr. und preise auftauchen, die ich aber nicht zu beachten habe.

  • TrayItemSetOnEvent geht nur 1 mal

    hey,

    ich habe jetzt das grundkonzept zu einem script fertig, das laufend verschiedene ips anpingen soll. während des vorgangs soll man natürlich auch ips hinzufügen/löschen oder die settings ändern können.
    das geht über TrayItems.
    doch leider funzt das nur 1 mal, danach reagiert das programm auf kein einziges trayitem mehr.

    bin mir nicht sicher wo der fehler sein soll:

    Spoiler anzeigen
    [autoit]


    #Include <GuiConstants.au3>
    #include <Array.au3>
    #include <GuiListBox.au3>
    #include <file.au3>
    #include <GuiConstantsEx.au3>
    #include <GuiListView.au3>
    #include <GuiImageList.au3>
    #Include <WinAPI.au3>

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

    Opt("TrayIconHide", 0)
    Opt("TrayOnEventMode",1)
    Opt("TrayMenuMode",1)
    Opt("GuiOnEventMode",1)

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

    FileInstall("No.ico", @ScriptDir & "\Icons\No.ico")
    FileInstall("Yes.ico", @ScriptDir & "\Icons\Yes.ico")

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

    Global $addip, $addname, $anz, $badd, $bclear, $bexit, $BL, $bok, $BR, $bremove, $bsave, $bstandard, $cbtooltip, $cbwindow, $corner, $cornerBL, $cornerBR, $cornerTL, $cornerTR, $count, $DeskX, $DeskY, $error1, $error2, $gui, $GuiIP, $GuiSettings, $h, $i, $Ih, $Iintervall, $ini, $Intervall, $ips, $ips2, $Itimeout, $Iw, $lineIndex, $list, $list2, $pathIPs, $Paused, $ping, $pingip, $SaveIPs, $script, $SectionIP, $Sections, $slider, $state, $timeout, $TL, $tool, $ToolTipEnabled, $TR, $trans, $urllist, $varIP, $w, $WinEnabled, $x, $y

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

    $pathIPs = @ScriptDir & "\Destiny.ini"
    $script = "WhoIsOn RelOadEd"
    $ini = @ScriptDir & "\Settings.ini"
    $intervall = 10000
    $timeout = 4000
    $corner = 3
    $WinEnabled = 1
    $ToolTipEnabled = 1
    $trans = 40
    $w = 300
    $h = 200
    $error1 = 0
    $error2 = 0

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

    $DeskX = @DesktopWidth
    $DeskY = @DesktopHeight

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

    HotKeySet("!{End}", "_OnExitFunc")
    HotKeySet("!{PAUSE}", "TogglePause")
    HotKeySet("^!g",'_ShowGUI')
    HotKeySet("^!t", "TrayIcon")
    HotKeySet("^!s",'_Settings')
    HotKeySet("^!c", "_Change")

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

    TrayCreateItem("Settings")
    TrayItemSetOnEvent(-1,"_Settings")
    TrayCreateItem("Change IPs")
    TrayItemSetOnEvent(-1,"_Change")
    TrayCreateItem("-")
    TrayCreateItem("Hide/Show")
    TrayItemSetOnEvent(-1,"_ShowGUI")
    TrayCreateItem("Exit")
    TrayItemSetOnEvent(-1,"_OnExitFunc")

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

    If FileExists($ini) Then
    $intervall = IniRead($ini, "Ping", "Intervall", $intervall)
    $timeout = IniRead($ini, "Position", "Timeout", $timeout)
    $corner = IniRead($ini, "Position", "Corner", $corner)
    $WinEnabled = IniRead($ini, "Window", "Enabled", $WinEnabled)
    $w = IniRead($ini, "Window", "Weight", $w)
    $h = IniRead($ini, "Window", "Height", $h)
    $trans = IniRead($ini, "Window", "Transparency", $trans)
    $ToolTipEnabled = IniRead($ini, "ToolTip", "Enabled", $ToolTipEnabled)
    Else
    IniWrite($ini, "Ping", "Intervall", $intervall)
    IniWrite($ini, "Ping", "Timeout", $timeout)
    IniWrite($ini, "Position", "Corner", $corner)
    IniWrite($ini, "Window", "Enabled", $WinEnabled)
    IniWrite($ini, "Window", "Weight", $w)
    IniWrite($ini, "Window", "Height", $h)
    IniWrite($ini, "Window", "Transparency", $trans)
    IniWrite($ini, "ToolTip", "Enabled", $ToolTipEnabled)
    EndIf

    If $corner = 1 Then
    $x = 5
    $y = 5
    ElseIf $corner = 2 Then
    $x = $DeskX - $w - 5
    $y = 5
    ElseIf $corner = 3 Then
    $x = $DeskX - $w - 5
    $y = $DeskY - $h - 35
    ElseIf $corner = 4 Then
    $x = 5
    $y = $DeskY -$h - 35
    EndIf

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

    $gui = GUICreate($script, $w, $h, $x, $y, $WS_POPUPWINDOW, $WS_EX_TRANSPARENT + $WS_EX_TOOLWINDOW )
    WinSetOnTop($script,'',1)
    WinSetTrans($script,'', (100 - $trans) * 2.55)
    $list2 = _GUICtrlListView_Create($gui,"||", 5, 5, $w - 10, $h - 10)
    _GUICtrlListView_SetColumn($list2, 0, "Name", ($w / 2) - 30, 2)
    _GUICtrlListView_SetColumn($list2, 1, "IP", ($w / 2) - 30, 2)
    _GUICtrlListView_SetColumn($list2, 2, "Status", 50, 2)

    If FileExists($pathIPs) Then
    $Sections = IniReadSectionNames($pathIPs)
    If $Sections = 0 Then
    Else
    $lineIndex = 0
    For $i = 1 To $Sections[0]
    $varIP = IniReadSection($pathIPs, $Sections[$i])
    _GUICtrlListView_AddItem($list2, $varIP[1][0])
    _GUICtrlListView_AddSubItem($list2, $lineIndex, $Sections[$i], 1)
    _GUICtrlListView_AddSubItem($list2, $lineIndex, $varIP[1][1], 2)
    $lineIndex += 1
    Next
    EndIf
    Else
    EndIf

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

    GUISetState(@SW_SHOW, $gui)

    _PingProc()

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

    Func _PingProc()
    While 1
    $count = _GUICtrlListView_GetItemCount($list2)
    For $i = 0 To $count - 1
    $pingip = _GUICtrlListView_GetItemText($list2, $i, 1)
    Ping($pingip, $timeout)
    Next
    Sleep($Intervall)
    WEnd
    EndFunc

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

    Func _Change()

    $GuiIP = GUICreate($script & " Destiny IPs", 345, 310)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_ExitSettings")

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

    $list = _GUICtrlListView_Create($GuiIP,"|", 5, 5, 250, 300)
    _GUICtrlListView_SetColumn($list, 0, "Name", 120, 2)
    _GUICtrlListView_SetColumn($list, 1, "IP", 125, 2)

    If FileExists($pathIPs) Then
    $Sections = IniReadSectionNames($pathIPs)
    $lineIndex = 0
    For $i = 1 To $Sections[0]
    $varIP = IniReadSection($pathIPs, $Sections[$i])
    _GUICtrlListView_AddItem($list, $varIP[1][0])
    _GUICtrlListView_AddSubItem($list, $lineIndex, $Sections[$i], 1)
    ;~ _GUICtrlListView_AddSubItem($list2, $lineIndex, $varIP[1][1], 2)
    $lineIndex += 1
    Next
    Else
    EndIf

    $badd = GUICtrlCreateButton("&add", 260, 10, 80)
    GUICtrlSetOnEvent(-1, "_AddIP")
    $bremove = GUICtrlCreateButton("&remove", 260, 50, 80)
    GUICtrlSetOnEvent(-1, "_RemoveIP")
    $bclear = GUICtrlCreateButton("&clear", 260, 90, 80)
    GUICtrlSetOnEvent(-1, "_ClearIP")
    $bok = GUICtrlCreateButton("&ok", 260, 280, 80)
    GUICtrlSetOnEvent(-1, "_SaveIP")

    GUISetState(@SW_SHOW, $GuiIP)

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

    While 1
    Sleep(100)
    WEnd

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

    EndFunc

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

    Func _AddIP()
    Do
    $addname = InputBox("Name", "Please enter a name", "", "", 100, 130)
    If @error = 1 Then
    $error1 = 1
    ExitLoop
    Else
    EndIf
    until $addname <> ""
    If $error1 = 1 Then
    Else
    Do
    $addip = InputBox("IP", "Please enter the IP", "", "", 100, 130)
    If @error = 1 Then
    $error2 = 1
    ExitLoop
    Else
    EndIf
    Until StringRegExp($addip, "[0-9]+")
    If $error2 <> 1 Then
    _GUICtrlListView_AddItem($list, $addname)
    _guictrllistview_AddSubItem($list, _GUICtrlListView_GetItemCount($list) - 1, $addip, 1)
    Else
    EndIf
    EndIf
    $error1 = 0
    $error2 = 0
    EndFunc

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

    Func _RemoveIP()
    _GUICtrlListView_DeleteItemsSelected($list)
    EndFunc

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

    Func _ClearIP()
    _GUICtrlListView_DeleteAllItems($list)
    EndFunc

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

    Func _SaveIP()

    FileDelete($pathIPs)
    $anz = _GUICtrlListView_GetItemCount($list)
    If $anz = 0 Then
    Else
    For $i = 1 To $anz
    IniWrite($pathIPs, _GUICtrlListView_GetItemText($list, $i - 1, 1), _GUICtrlListView_GetItemText($list, $i - 1), "-")
    Next
    EndIf

    GUISetState(@SW_HIDE, $GuiIP)

    If FileExists($pathIPs) Then
    $Sections = IniReadSectionNames($pathIPs)
    $lineIndex = 0
    For $i = 1 To $Sections[0]
    $varIP = IniReadSection($pathIPs, $Sections[$i])
    _GUICtrlListView_AddItem($list2, $varIP[1][0])
    _GUICtrlListView_AddSubItem($list2, $lineIndex, $Sections[$i], 1)
    _GUICtrlListView_AddSubItem($list2, $lineIndex, $varIP[1][1], 2)
    $lineIndex += 1
    Next
    Else
    EndIf

    _PingProc()

    EndFunc

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

    Func _Settings()

    $GuiSettings = GUICreate($script & " Settings", 450, 200)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_ExitSettings")

    ;ToolTip
    GUICtrlCreateGroup("Tooltip", 5, 5, 135, 60)
    $cbtooltip = GUICtrlCreateCheckbox("Enable ToolTip", 25, 30, 100)
    GUICtrlSetTip(-1, "Enables the ToolTip-Information")
    GUICtrlSetState($cbtooltip, IniRead($ini, "ToolTip", "Enabled", $ToolTipEnabled))

    ;ping
    GUICtrlCreateGroup("Ping", 5, 70, 135, 120)
    GUICtrlCreateLabel("Intervall:", 15, 105, 40)
    GUICtrlSetTip(-1, "Time between pings in miliseconds")
    $Iintervall = GUICtrlCreateInput(IniRead($ini, "Ping", "Intervall", $intervall), 60, 100, 50)
    GUICtrlCreateLabel("ms", 115, 105, 20)
    GUICtrlCreateLabel("Timeout:", 15, 140, 40)
    GUICtrlSetTip(-1, "Timeout after no response in miliseconds")
    $Itimeout = GUICtrlCreateInput(IniRead($ini, "Ping", "Timeout", $timeout), 60, 135, 50)
    GUICtrlCreateLabel("ms", 115, 140, 20)

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

    ;weight & height
    GUICtrlCreateGroup("Window", 150, 5, 200, 100)
    $cbwindow = GUICtrlCreateCheckbox("Enable Info-Window", 160, 20, 120)
    GUICtrlSetTip(-1, "Enables the Information-Window on startup")
    GUICtrlSetState($cbwindow, IniRead($ini, "Window", "Enabled", $WinEnabled))
    GUICtrlSetOnEvent($cbwindow, "_DisabelWindow")
    GUICtrlCreateLabel("Weight:", 180, 50, 40)
    GUICtrlSetTip(-1, "Wight of the Information-Window")
    $Iw = GUICtrlCreateInput(IniRead($ini, "Window", "Weight", $w), 220, 45, 50)
    GUICtrlCreateLabel("mm", 275, 50, 20)
    GUICtrlCreateLabel("Height:", 180, 80, 40)
    GUICtrlSetTip(-1, "Hight of the Information-Window")
    $Ih = GUICtrlCreateInput(IniRead($ini, "Window", "Height", $h), 220, 75, 50)
    GUICtrlCreateLabel("mm", 275, 80, 20)
    $slider = GUICtrlCreateSlider(300, 15, 25, 85, $TBS_VERT + $TBS_AUTOTICKS)
    GUICtrlSetTip(-1, "Transparency of the Information-Window")
    GUICtrlSetLimit($slider,100,0)
    GUICtrlSetData($slider,IniRead($ini, "Window", "Transparency", $trans))
    GUICtrlCreateLabel("0", 335, 15, 10, 15)
    GUICtrlCreateLabel("100", 327, 85, 20, 15)

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

    ;corner
    GUICtrlCreateGroup("Corner Position", 150, 110, 200, 80)
    $TL = GUICtrlCreateRadio("Top Left", 160, 125, 60)
    GUICtrlSetTip(-1, "Position the Information-Window appears")
    $TR = GUICtrlCreateRadio("Top Right", 255, 125, 65)
    GUICtrlSetTip(-1, "Position the Information-Window appears")
    $BR = GUICtrlCreateRadio("Bottom Right", 255, 160, 80)
    GUICtrlSetTip(-1, "Position the Information-Window appears")
    $BL = GUICtrlCreateRadio("Bottom Left", 160, 160, 70)
    GUICtrlSetTip(-1, "Position the Information-Window appears")

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

    $corner = IniRead($ini, "Position", "Corner", $corner)
    If $corner = 1 Then
    GUICtrlSetState($TL, 1)
    ElseIf $corner = 2 Then
    GUICtrlSetState($TR, 1)
    ElseIf $corner = 3 Then
    GUICtrlSetState($BR, 1)
    ElseIf $corner = 4 Then
    GUICtrlSetState($BL, 1)
    EndIf

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

    ;buttons
    $bsave = GUICtrlCreateButton("save", 360, 10, 80)
    GUICtrlSetOnEvent(-1, "_SaveSettings")
    $bstandard = GUICtrlCreateButton("standard", 360, 45, 80)
    GUICtrlSetOnEvent(-1, "_StandardSettings")
    $bexit = GUICtrlCreateButton("exit", 360, 160, 80)
    GUICtrlSetOnEvent(-1, "_ExitSettings")

    GUISetState(@SW_SHOW, $GuiSettings)

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

    While 1
    Sleep(100)
    WEnd

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

    EndFunc

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

    Func _SaveSettings()
    IniWrite($ini, "Ping", "Intervall", GUICtrlRead($Iintervall))
    IniWrite($ini, "Ping", "Timeout", GUICtrlRead($Itimeout))
    IniWrite($ini, "Window", "Enabled", GUICtrlRead($cbwindow))
    IniWrite($ini, "Window", "Weight", GUICtrlRead($Iw))
    IniWrite($ini, "Window", "Height", GUICtrlRead($Ih))
    IniWrite($ini, "Window", "Transparency", GUICtrlRead($slider))
    IniWrite($ini, "ToolTip", "Enabled", GUICtrlRead($cbtooltip))
    $cornerTL = GUICtrlRead($TL)
    $cornerTR = GUICtrlRead($TR)
    $cornerBR = GUICtrlRead($BR)
    $cornerBL = GUICtrlRead($BL)
    If $cornerTL = 1 Then
    IniWrite($ini, "Position", "Corner", "1")
    ElseIf $cornerTR = 1 Then
    IniWrite($ini, "Position", "Corner", "2")
    ElseIf $cornerBR = 1 Then
    IniWrite($ini, "Position", "Corner", "3")
    ElseIf $cornerBL = 1 Then
    IniWrite($ini, "Position", "Corner", "4")
    EndIf

    EndFunc

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

    Func _StandardSettings()
    GUICtrlSetData($Iintervall, "10000")
    GUICtrlSetData($Itimeout, "4000")
    GUICtrlSetState($cbwindow, 1)
    GUICtrlSetData($Iw, 300)
    GUICtrlSetData($Ih, 200)
    GUICtrlSetData($slider, 40)
    GUICtrlSetState($cbtooltip, 1)
    GUICtrlSetState($TL, 0)
    GUICtrlSetState($TR, 0)
    GUICtrlSetState($BR, 1)
    GUICtrlSetState($BL, 0)
    GUICtrlSetState($Iw, $GUI_ENABLE)
    GUICtrlSetState($Ih, $GUI_ENABLE)
    GUICtrlSetState($slider, $GUI_ENABLE)
    EndFunc

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

    Func _ExitSettings()

    GUISetState(@SW_HIDE, $GuiSettings)

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

    $intervall = IniRead($ini, "Ping", "Intervall", $intervall)
    $timeout = IniRead($ini, "Position", "Timeout", $timeout)
    $corner = IniRead($ini, "Position", "Corner", $corner)
    $WinEnabled = IniRead($ini, "Window", "Enabled", $WinEnabled)
    $w = IniRead($ini, "Window", "Weight", $w)
    $h = IniRead($ini, "Window", "Height", $h)
    $trans = IniRead($ini, "Window", "Transparency", $trans)
    $ToolTipEnabled = IniRead($ini, "ToolTip", "Enabled", $ToolTipEnabled)

    If $corner = 1 Then
    $x = 5
    $y = 5
    ElseIf $corner = 2 Then
    $x = $DeskX - $w - 5
    $y = 5
    ElseIf $corner = 3 Then
    $x = $DeskX - $w - 5
    $y = $DeskY - $h - 35
    ElseIf $corner = 4 Then
    $x = 5
    $y = $DeskY -$h - 35
    EndIf

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

    WinMove($script, "", $x, $y, $w, $h)
    WinSetTrans($script,'', (100 - $trans) * 2.55)
    _WinAPI_SetWindowPos($list2, 0, 5, 5, $w - 10, $h - 10, $SWP_SHOWWINDOW)
    _GUICtrlListView_SetColumn($list2, 0, "Name", ($w / 2) - 30, 2)
    _GUICtrlListView_SetColumn($list2, 1, "IP", ($w / 2) - 30, 2)
    _GUICtrlListView_SetColumn($list2, 2, "Status", 50, 2)

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

    _PingProc()

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

    EndFunc

    Func _DisabelWindow()
    If GUICtrlRead($cbwindow) = 1 Then
    GUICtrlSetState($Iw, $GUI_ENABLE)
    GUICtrlSetState($Ih, $GUI_ENABLE)
    GUICtrlSetState($slider, $GUI_ENABLE)
    Else
    GUICtrlSetState($Iw, $GUI_DISABLE)
    GUICtrlSetState($Ih, $GUI_DISABLE)
    GUICtrlSetState($slider, $GUI_DISABLE)
    EndIf
    EndFunc

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

    Func _OnExitFunc()
    Exit
    EndFunc

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

    ;Tray-Icon
    Func TrayIcon()
    Opt("TrayIconHide", Not Opt("TrayIconHide", "Default"))
    EndFunc

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

    ;Pause
    Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
    sleep(100)
    ToolTip(@ScriptName & ' is paused')
    WEnd
    ToolTip("")
    EndFunc

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

    Func _ShowGUI()
    $state = WinGetState('WhoIsOn','')
    If BitAnd($state, 2) Then
    WinSetState('WhoIsOn','',@SW_HIDE)
    ToolTip('',-1,-1,'','',2)
    $tool = 1
    Else
    WinSetState('WhoIsOn','',@SW_SHOW)
    $tool = 0
    EndIf
    EndFunc

    [/autoit]

  • Gui ändern

    hey, dank dir. klappt für das gui ganz gut.
    die listview colums lassen sich ja dann auch leicht anpassen, nur leider die größe des kompletten listviews nicht.
    hab zwar ne funktion finden können, aber ka ob es das is, was ich suche.
    zumindest macht er noch net das, was er soll *g*

    [autoit]

    WinMove($script, "", $x, $y, $w, $h)
    WinSetTrans($script,'', (100 - $trans) * 2.55)
    _GUICtrlListView_ApproximateViewHeight($list2, -1, $w - 10, $h - 10)
    ;$list2 = _GUICtrlListView_Create($gui,"||", 5, 5, $w - 10, $h - 10)
    _GUICtrlListView_SetColumn($list2, 0, "Name", ($w / 2) - 30, 2)
    _GUICtrlListView_SetColumn($list2, 1, "IP", ($w / 2) - 30, 2)
    _GUICtrlListView_SetColumn($list2, 2, "Status", 50, 2)

    [/autoit]

    nach ersten tests scheint mir das zu helfen:

    _WinAPI_SetWindowPos($list2, 0, 5, 5, $w - 10, $h - 10, $SWP_SHOWWINDOW)