Beiträge von AndyTR

  • GUICtrlCreateInput: Pic als Background?

    Deine Idee ist interessant, UEZ, aber ich möchte einen "eigenen" Input-Box-Hintergund des Scripts, also quasi da, wo der schwarze BG is ein Image :)
    Is es bei Deiner Transparenz-Lösung eig normal, dass wenn ein Input neu-fokussiert werden soll, dies quasi nicht möglich ist, denn es sieht interessant aus, hatte ich auch schonmal probiert :)

    Grüße :rolleyes:

  • GUICtrlCreateInput: Pic als Background?

    Alle Vorschläge funktionieren bei mir leider nicht wie gewünscht :(

    Grundgerüst sah bei mir übrigens so aus:

    Spoiler anzeigen
    [autoit]

    #include <WindowsConstants.au3>
    #include <_WinAPI_SetLayeredWindowAttributes.au3>

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

    HotKeySet("{ESC}", "_Exit")

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

    Opt("GUIOnEventMode", 1)

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

    $Hide_Window = GUICreate("Hide", 1, 1, 1, 1)
    $GUI = GUICreate("", 80, 32, -1, -1, $WS_POPUP, $WS_EX_LAYERED, $Hide_Window)
    GUISetBkColor(0xABCDEF)
    GUISetFont(10, 100, -1, "Tahoma")

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

    $Input_1 = GUICtrlCreateInput("", 0, 0, 80, 15)
    GUICtrlSetOnEvent(-1, "_1")
    GUICtrlSetBkColor(-1, 0x000000)
    ;GUICtrlSet...(-1, ...) , Erzeugung Hintergrundbild
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetFont(-1, 7)
    $Input_2 = GUICtrlCreateInput("", 0, 17, 80, 15, -1)
    GUICtrlSetOnEvent(-1, "_2")
    GUICtrlSetBkColor(-1, 0x000000)
    ;GUICtrlSet...(-1, ...) , Erzeugung Hintergrundbild
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetFont(-1, 7)

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

    _WinAPI_SetLayeredWindowAttributes($GUI, 0xABCDEF, 200)
    GUISetState(@SW_SHOW)

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

    While 1
    Sleep(100)
    WEnd

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

    Func _1()
    Global $Input_1_Text = GUICtrlRead($Input_1)
    GUICtrlSetData($Input_1, "")
    MsgBox(0, "", "1: " & "''" & $Input_1_Text & "''")
    EndFunc

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

    Func _2()
    Global $Input_2_Text = GUICtrlRead($Input_2)
    GUICtrlSetData($Input_2, "")
    MsgBox(0, "", "2: " & "''" & $Input_2_Text & "''")
    EndFunc

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

    Func _Exit()
    Exit
    EndFunc

    [/autoit]


    Wenn keine weitere Möglichkeit mehr gibt, dann werde ich es wohl sein lassen müssen...

    Dennoch schonmal danke für die Lösungsansätze und vllt weiß noch jemand eine Möglichkeit :)


    Grüße... :rolleyes:

  • Schnellste Skript zur Rätsellösung

    Raupi : Bei mir kommt mit deinem Script aber eine Zahl raus, die garnich das Neunfache / ein Neuntel ist...

    Hier mein Script, aber nich sonderlich toller Code, scheint keine Zahl zu geben, die die Anforderungen erfüllt :huh:

    Spoiler anzeigen
    [autoit]

    HotKeySet("{SPACE}", "Text")
    HotKeySet("{ESC}", "_Exit")

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

    For $i = 100000 To 999999 Step + 1
    Global $_01 = String($i)
    $_02 = StringRight($_01, 2)
    $_03 = StringTrimRight($_01, 2)
    $_04 = $_02 & $_03
    $_05 = Int($_04)
    ;MsgBox(0, "", "''" & $i & " - " & $_05 & "''")
    If $i * 9 = $_05 Then
    MsgBox(0, "", "''" & $i & " - " & $_05 & "''")
    Exit
    EndIf
    Next
    MsgBox(0, "", "Kein Erfolg")

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

    Func Text()
    MsgBox(0, "", "''" & $_01 & "''")
    EndFunc

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

    Func _Exit()
    Exit
    EndFunc

    [/autoit]

    Edit: Entweder hab ich ein Verständnisproblem der Aufgabe, oder Raupis "noch-kürzerer" Code sollte so lauten:

    Spoiler anzeigen
    [autoit]

    For $i = 100000 To 999999
    If $i * 9 = StringRight($i,2) & StringLeft($i, 4) Then Exit MsgBox(0, "Gefunden", "Die gesuchte Zahl ist :" & $i)
    Next

    [/autoit]

  • WinMove (GUI-Inhalt verändert sich proportional)

    Huhu,

    ich hoffe jemand kennt eine Lösung für mein Problem...

    Also: Ich habe ein GUI ($WS_POPUP), das ich gerne mit WinMove in der Höhe ändern möchte (6. Parameter). Vorher hab ich einige Labels erstellt. Wenn ich jetzt die Größe des Fensters ändere, wird der Inhalt verschoben, ich möchte aber, dass quasi einfach der untere Teil "weggeschnitten" wird...

    Hofe jemand kann helfen :)


    Gruß Andy...


    EDIT:

    Beispiel:

    Spoiler anzeigen
    [autoit]

    #include <Inet.au3>
    #include <GUIConstants.au3>
    #include <String.au3>
    #include <Array.au3>
    #include <Constants.au3>
    #include <File.au3>
    #include <GUIConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <Misc.au3>
    #include <WindowsConstants.au3>

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

    $1 = "a"

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

    $Labels_Platz_Links = 8
    $Labels_Platz_Oben = 6
    $Labels_Platz_Unten = 3

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

    Global $Player_Label[10]

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

    $Hide_Window_2 = GUICreate("Hide", 1, 1, 1, 1)
    $GUI_2 = GUICreate("Test", 160, 14 * (10) + $Labels_Platz_Oben + $Labels_Platz_Unten, -1, -1, $WS_POPUP, -1, $Hide_Window_2)
    GUISetBkColor(0xFFFFFF)
    $GUI_2_Pos = WinGetPos($GUI_2)
    GUICtrlCreateLabel("", 0, 0, $GUI_2_Pos[2], $GUI_2_Pos[3], "", $GUI_WS_EX_PARENTDRAG)
    GUISetFont(7, 100, -1, "Tahoma")
    For $i = 1 to 10 Step + 1
    $Player_Label[$i - 1] = GUICtrlCreateLabel($i & ". Zeile ..........", $Labels_Platz_Links, 14 * ($i - 1) + $Labels_Platz_Oben)
    GUICtrlSetColor(-1, 0x000000)
    Next

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

    GUICtrlCreateLabel("", 0, 0, $GUI_2_Pos[2], 1)
    GUICtrlSetBkColor(-1, 0x000000)
    ;GUICtrlCreateLabel("", 0, $GUI_2_Pos[3] - 1, $GUI_2_Pos[2], 1)
    ;GUICtrlSetBkColor(-1, 0x000000)

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

    WinSetTrans($GUI_2, "", 0)

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

    GUISetState(@SW_SHOW, $GUI_2)

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

    WinSetTrans($GUI_2, "", 200)

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

    $Timer_Aktualisierungslabel = TimerInit()

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

    While 1
    Sleep(500)
    If $1 = "a" Then
    WinMove($GUI_2, "", $GUI_2_Pos[0], $GUI_2_Pos[1], $GUI_2_Pos[2], $GUI_2_Pos[3])
    Global $1 = "b"
    Else
    WinMove($GUI_2, "", $GUI_2_Pos[0], $GUI_2_Pos[1], $GUI_2_Pos[2], $GUI_2_Pos[3] - 100)
    Global $1 = "a"
    EndIf
    WEnd

    [/autoit]

  • Doppelklick registrieren/wahrnehmen

    Huhu, frohes neues zu allererst :)

    Also: Ich suche nach einer Möglichkeit eine Aktion bei Doppelklick (egal wohin o.Ä.) auszuführen...
    Ansätze wären "IsPressed("01")" oder "..PrimaryDown", weiß das so auf Anhieb aber nicht umzusetzen :o

    Ich hoffe, das es Ideen Eurerseits gibt, die einen Doppelklick auch zuverlässig erkennen und nich bsplw. langes Tasten-Drücken...


    Grüße, Andy :)

  • Radio über Bass.au3 spielen

    Doch im Include-verzeichnis stimmt soweit alles, wie es sollte, hab schon so einiges mit den Bass-Sachen realisiert...
    Könnte unter Umständen auch an unterschiedlichen Versionen der Bass-UDF liegen, da gibts Unterschiede bei den Funktionsparametern...

    Dennoch danke und vllt weiß ja noch jemand anders etwas :) Gruß

  • Radio über Bass.au3 spielen

    Die EasyBass.au3 ins Include-Verzeichnis und folgendes in eine .au3 und ausgeführt...

    Spoiler anzeigen
    [autoit]

    #include <EasyBASS.au3>

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

    HotKeySet('{ESC}', '_Exit')

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

    Global $hStream
    _EasyBASS_Start()
    _EasyBASS_OpenStream($hStream, 'http://www.89.0rtl.de/webradio/rtl-high.m3u')
    _EasyBASS_Play($hStream)

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

    While 1
    Sleep(10)
    WEnd

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

    Func _Exit()
    _EasyBASS_Close()
    Exit
    EndFunc

    [/autoit]


    Gruß :)

  • Radio über Bass.au3 spielen

    Huhu,

    ich möchte gerne 89.0 RTL im Script abspielen können, idealerweise am besten mit den Funktionen der Bass-UDF's...
    Nun habe ich auf meiner Platte eine xyz.m3u liegen, in der Folgendes steht:

    Code
    #EXTM3U
#EXTINF:-1,brocken
http://62.75.176.45/rtl-high


    Mit VLC beispielsweise funktioniert das soweit auch, aber gibt es per AutoIt eine Möglichkeit?

    PS: Hab mit schon viele Stream-Scripts angeschaut, aber irgendwie scheint es mit "IE..." und den WMP-Funktionen nich so richtig zu klappen, zumindest nich solche URL's


    Ich hoffe auf Hilfe, BG Andy :)

  • Desktopsymbole schnell ein-/ausblenden

    Huhu,

    ich suche nach einer Möglichkeit per Autoit meinen Desktop von alles Icons visuell freizuräumen...
    Normalerweise funktioniert das ja mit einem Rechtsklick auf den Desktop -> Symbole anordnen nach -> Haken hin/weg bei Desktopsymbole anzeigen...
    Aber gibt es noch eine Möglichkeit das ganze per API oder Registry zu realisieren?

    Hab schon viel gegoogelt, aber leider nichts passendes gefunden :(

    Übrigens benutze ich XP :)


    Beste Grüße, und ich hoffe auf nette Hilfe... Andy :)

  • Musikcd abspielen an bestimmter Position

    Also so richtig weiterhelfen kann ich Dir leider auch nicht, und Dein letztes Beispiel versteh ich auch kaum, wird ja mit .dll's gearbeitet...

    Aber hier gibts alle BASS-Dateien zu laden und unter anderem sind da auch Funktionen für einen CD-Player dabei (nach dem Entpacken im Ordner "BASS_CD")... Das hab ich zwar noch nie benutzt - deswegen kann ich da keine wirkliche Hilfe geben - aber erscheint mir plausibel, dass das fürs CD-Abspielen gedacht ist :)

    Spoiler anzeigen

    BassCD
    Allows for digital streaming and ripping of audio CDs along with analog playback support.

    Andy :)