Beiträge von Greenhorn

  • Board-Bug ???

    Hi Admins,

    ich habe seit heute zwei Shoutboxen auf der Startseite (davon ist eine leer ...), aber nur wenn ich angemeldet bin.

    Ist es bei euch/Anderen auch so ???


    Gruß
    Greenhorn

  • Blaumacher :D eigene func in scite über properties färben

    Das kann man doch über SciTE Config machen ...

    White Space ändern und dann habe ich auch meine Func's in einer anderen Farbe ...

    SciTEUser.properties

    Spoiler anzeigen


    Gruß
    Greenhorn

  • Bildschirmschoner in Autoit erstellen?

    Anscheinend hat Johannes die Antwort schon bekommen ...
    http://www.autoitscript.com/forum/index.php?s=&showtopic=65474&view=findpost&p=486536

    [autoit]

    #include <GUIConstants.au3>
    ;first edition of an screen saver
    $font='Arial'
    $textcolor = 0xff0000

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

    GUICreate('', -1, -1, 0, 0, BitOr($WS_POPUP, $WS_MAXIMIZE))
    ; paradies.jpg exists under W2K, XP has other filenames, the directory is the same
    $pic1 = GUICtrlCreatePic(@WindowsDir & '\Web\Wallpaper\paradies.jpg', 0, 0, @DesktopWidth, @DesktopHeight)
    $label1=GUICtrlCreateLabel ('This is only a sample of a text for a screen saver', 10, 80, @DesktopWidth -20, @DesktopHeight-180, $SS_CENTERIMAGE )
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor ( -1, $textcolor)

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

    GUICtrlSetFont (-1, 36, 400, 1, $font)
    GUISetState (@SW_SHOW)

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

    While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    Wend

    [/autoit]

  • Script mit Tasten STARTEN und beenden...

    Zitat

    Greenhorn

    Ich habe echt keine Ahnung was ich mit diesem Monster anfangen soll, filecreateshortcut habe ich in der hilfe nachgeschlagen, keine Ahnung was man damit machen kann und was das bezwecken soll...


    Wer lesen kann ist klar im Vorteil ... :D
    Damit setzt Du einen Hotkey global für dein Script, egal welches Fenster gerade aktiv ist !
    Das ist doch das was Du wolltest, oder etwa nicht !?

    Wenn Du aus den While-Schleifen den Sleep einfach herausnimmst, dann solltest Du deine CPU-Auslastung im Auge behalten ... ;)

    Gruß

  • Script mit Tasten STARTEN und beenden...

    Das hier wäre auch noch eine Alternative zum setzen des Start-Hotkey ... ;)

    [autoit]

    ; Sets a shortcut with ctrl+alt+t hotkey
    FileCreateShortcut(@ScriptDir & '\Script.exe', _ ; Pfad zu deiner *.exe
    @DesktopDir & '\Script.lnk', _ ; Name der Verknüpfung
    @ScriptDir, _ ; Working Dir (optional)
    '', _ ; zusätzliche Argumente (optional)
    'Dies ist mein Hotkey-Hook;-)', _ ; Kommentar (optional)
    @ScriptDir & '\Script.exe', _ ; Icon (optional)
    '^!t', _ ; HotKey !!! (optional)
    '0', _ ; Iconnummer (optional)
    @SW_MINIMIZE) ; Fensterstatus (optional)

    [/autoit]

    Gruß
    Greenhorn

  • pls help: GUI transparent menu image , -NO buttons

    So geht's ... ;)

    Spoiler anzeigen
    [autoit]

    $hWnd = GUICreate('Mein unsichtbarer GUI Button', 170, 215, -1, -1, $WS_POPUP)
    $pic = GUICtrlCreatePic(@ScriptDir & '\AMMenuTrans3003.jpg', 0, 0, 170, 215, -1, $GUI_WS_EX_PARENTDRAG)
    GUICtrlSetTip(-1, '... verschieb mich !')
    $btnHidRed = GUICtrlCreateLabel('', 68, 160, 35, 35)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
    GUICtrlSetState(-1, $GUI_ONTOP)
    $btnHidYellow = GUICtrlCreateLabel('', 20, 65, 35, 35)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
    GUICtrlSetState(-1, $GUI_ONTOP)
    $btnHidBlue = GUICtrlCreateLabel('', 115, 20, 35, 35)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
    GUICtrlSetState(-1, $GUI_ONTOP)

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

    GUISetState()

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

    While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $btnHidRed
    MsgBox(0, '', 'Der rote Button wurde gedrückt.')
    Exit
    Case $btnHidBlue
    MsgBox(0, '', 'Der blaue Button wurde gedrückt.', 2)
    Case $btnHidYellow
    MsgBox(0, '', 'Der gelbe Button wurde gedrückt.', 2)
    EndSwitch

    WEnd

    [/autoit]

    Gruß
    Greenhorn

  • Komplette Zeile aus Textdatei löschen

    Zitat

    die settings.txt soll eigentlich erstellt werden wenn nich vorhaden und is von dem script, NICHT von wow


    Dann speicher deine Werte doch einfach in eine settings.ini ! ;)
    Die kannst Du viel besser handlen als eine .txt, da kannst Du dann nach Herzenslust löschen, ändern, neu erstellen ...

    Code
    [Server_1]
	IP=127.000.000.1
[Server_2]
	IP=192.168.000.1
[Server_3]
	IP=85.214.34.170

    Gruß
    Greenhorn

  • veränderbares Bild klickbar machen

    Den Call-Aufruf habe ich gestern Abend erst eingebaut ..., vorher hatte ich es über Execute gemacht, das funzte aber nur ohne Parameter für die Funktionen. ;)

    Nun geht's.

    Spoiler anzeigen
    [autoit]

    Func _PicButtonFromFile($hWnd, $controlID, $defaultPic, $onHoverPic, $onClickPic, $Function = '', $parameters = '')

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

    If StringInStr($parameters, ',') Then
    $parameters = StringSplit($parameters, ',')
    $parameters[0] = 'CallArgArray'
    EndIf
    Local $resFunc
    If $onClickPic = '' Or $onClickPic = -1 Then $onClickPic = $onHoverPic
    $cMsg = GUIGetCursorInfo($hWnd)
    If $cMsg[4] = $controlID Then
    GUICtrlSetImage( $controlID, $onHoverPic)
    $cMsg = GUIGetCursorInfo($hWnd)
    While $cMsg[4] = $controlID
    If GUIGetMsg() = $controlID Then
    GUICtrlSetImage( $controlID, $onClickPic)
    If $parameters Then
    $resFunc = Call($Function, $parameters)
    Else
    $resFunc = Call($Function)
    EndIf
    EndIf
    Sleep(10)
    $cMsg = GUIGetCursorInfo($hWnd)
    WEnd
    GUICtrlSetImage($controlID, $defaultPic)
    Return $resFunc
    EndIf

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

    EndFunc ;==>_PicButtonFromFile

    [/autoit]

    Gruß
    Greenhorn

  • Komplette Zeile aus Textdatei löschen

    Vielleicht genügt auch schon ein einfacher StringReplace, wenn es nicht so viel ist ...

    Spoiler anzeigen
    [autoit]

    $sRepl = @LF & 'Server 2 ; IP 2' & @CR
    $fhText = FileOpen('Text', 0)
    $sText = FileRead($fhText)
    $sNewText = StringReplace($sText, $sRepl)
    FileWrite(@ScriptDir & '\TextNeu.txt', $sNewText)
    FileClose($fhText)

    [/autoit]

    Gruß
    Greenhorn