1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Eistee

Beiträge von Eistee

  • Kein task in der Taskleiste ?

    • Eistee
    • 15. Juli 2009 um 08:00

    Habe es schon geschafft danke
    war diese toolwindow style den ich gebraucht habe

  • normales Fenster, aber nicht in der Taskleiste

    • Eistee
    • 14. Juli 2009 um 19:51

    mache es einfach als poup und zu einem tool window und schreib dir die close buttons selbst z.B. mach dir Bilder mit Photoshop ^^


    Hier mal ein Beispiel :

    Spoiler anzeigen
    [autoit]

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

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

    Opt('WinTitleMatchMode', 4)

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

    $aTaskbarPos = WinGetPos('classname=Shell_TrayWnd')
    $iWidth = 160
    $iHeight = 80
    $iLeft = $aTaskbarPos[2] - $iWidth - 6
    $iTop = 0

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

    $Form2 = GUICreate("Shutdown Control", $iWidth, $iHeight, $iLeft, $iTop,$WS_Popup,$WS_EX_TOOLWINDOW)
    $Pic3 = GUICtrlCreatePic("C:\MT\Shut\close.jpg", 145, 0, 15, 15, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlCreateLabel("",0,0,160,80,0,$GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_SHOW)

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

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

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

    Func _Close ()
    Exit
    EndFunc

    [/autoit]


    ich hänge dir mal nen close button an von mir kannst dir auch selbst einen machen musst halt noch den pfad wählen den du willst


    Mfg Eistee

  • Suche nach Informationen in Dateiform

    • Eistee
    • 14. Juli 2009 um 11:34

    Hi DummDumm

    ich habe es ein wenig angepasst so das es in etwa das macht was du willst du musst nur noch den listview so hinbekommen das es die einzelnen zeilen der text datei untereinander auflistet ka wie das geht


    Mfg Eistee


    Spoiler anzeigen
    [autoit]

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

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

    Global $file3 = FileReadline("include.txt")

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

    $Form1 = GUICreate("Form1", 222, 453, 193, 115)
    $List1 = GUICtrlCreateList($file3, 0, 0, 140, 448)
    $Button1 = GUICtrlCreateButton("Search", 144, 0, 75, 25, 0)
    $Button2 = GUICtrlCreateButton("View", 144, 24, 75, 25, 0)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _1 ()
    Case $Button2
    _2 ()
    EndSwitch
    WEnd

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

    Func _1 ()
    ; Shows the filenames of all files in the current directory.
    $search = FileFindFirstFile("*.au3")

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

    ; Check if the search was successful
    If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
    EndIf

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

    While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop

    FileWrite ( "include.txt", @ScriptDir&"\"&$file&@CRLF )
    WEnd

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

    ; Close the search handle
    FileClose($search)
    EndFunc

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

    Func _2 ()
    ShellExecute(Guictrlread($list1))

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

    EndFunc

    [/autoit]
  • Kein task in der Taskleiste ?

    • Eistee
    • 13. Juli 2009 um 14:01

    Hallo Community

    Ich würde gerne wissen ob es evtl. möglich wäre das der script nicht nur kein Tray Icon hatt sondern auch nicht in der taskleiste erscheint ?
    wurde das schon einmal gemacht ?
    wie könnte man das anstellen ?


    Vielen dank im voraus


    Mfg Eistee

  • Position für gui immer rechts unten ?

    • Eistee
    • 13. Juli 2009 um 12:50

    Cool Oscar vielen dank

  • Position für gui immer rechts unten ?

    • Eistee
    • 13. Juli 2009 um 12:22

    ähhm sorry welche macros ? und wie soll ich so etwas berechnen ?
    sry hab da noch nie was gemacht bishar waren alle scripts die ich gemacht hab damit beschäftigt in der mitte des bildes zu starten xD daher frage ich ^^

    gibts da irgendwo einen Beispiel script oder so ?


    wär echt nice


    Mfg Eistee

  • Position für gui immer rechts unten ?

    • Eistee
    • 13. Juli 2009 um 12:10

    Hallo Liebe Community ^^

    ich würde gerne wissen wie ich eine Gui erstellen kann die (rechnerunabhängig) immer rechts unten ist ? also in etwa eine Vista sidebar xD ^^ ?


    Mfg Eistee

  • Player erstellen ?!

    • Eistee
    • 12. Juli 2009 um 22:27

    sry wie das mit nem slider geht weiss ich nicht ich hatte das über einen plus und nen minus Button geregelt mit der Volume
    aber ich kann dir mal die codesegmente geben wie das in etwa geht ^^


    Spoiler anzeigen
    [autoit]

    Func Laut ()
    _AnimButton ($Form1, $Pic5)
    $Vol = _SoundGetWaveVolume ()
    $NeuVol = $Vol + 10
    SoundSetWaveVolume($NeuVol)
    EndFunc

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

    Func Leis ()
    _AnimButton ($Form1, $Pic6)
    $Vol2 = _SoundGetWaveVolume ()
    $NeuVol3 = $Vol2 - 10
    SoundSetWaveVolume($NeuVol3)
    EndFunc

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

    Func _SoundGetWaveVolume()
    Local $WaveVol = -1, $p, $ret
    Const $MMSYSERR_NOERROR = 0
    $p = DllStructCreate("dword")
    If @error Then
    SetError(2)
    Return -2
    EndIf
    $ret = DllCall("winmm.dll", "long", "waveOutGetVolume", "long", -1, "long", DllStructGetPtr($p))
    If ($ret[0] == $MMSYSERR_NOERROR) Then
    $WaveVol = Round(Dec(StringRight(Hex(DllStructGetData($p, 1), 8), 4)) / 0xFFFF * 100)
    Else
    SetError(1)
    EndIf
    $p = 0
    Return $WaveVol
    EndFunc

    [/autoit]


    MFG Eistee

  • 4 WICHTIGE Fragen

    • Eistee
    • 11. Juli 2009 um 15:48

    du schreibst halt bei fileinstl nicht .jpg sondern eben .data

  • 4 WICHTIGE Fragen

    • Eistee
    • 11. Juli 2009 um 12:12

    zu 3. Fileinstall ist in so fern von Vorteil das du die dateien die du zusätzlich zum Programm benutzt z.B. Bilder nicht mitgeben musst weil sie mit fileinstall in dein Programm integriert werden das ist einfach Praktischer

  • SoundsetwaveVolume momentanen wert erfahren ?

    • Eistee
    • 8. Juli 2009 um 23:51

    Danke für die Antwort erstmal ^^
    aber wie benutze ich das ?
    in welcher variable ist der wert oder wie komme ich an das ergebnis ?
    ich habe keine ahnung was udfs. angeht

    pls. help


    Edit : habs hingekriegt danke dir nochmal ^^

  • SoundsetwaveVolume momentanen wert erfahren ?

    • Eistee
    • 8. Juli 2009 um 23:40

    Guten Abend

    ich würde gerne wissen ob es eine möglichkeit gibt den momentanen wert von der Wavelautstärke zu erfahren
    würde nähmlich gerne die lautstärke nur über einen plus und minus button regeln weshalb das echt nice wäre wenn man das irgendwie erfahren könnte

    mfg Eistee

  • Media player kommt mit format nicht zurecht. Object auch mit VLC Möglich ?

    • Eistee
    • 7. Juli 2009 um 23:52

    Hallo Leute habe ein problem mir wurde schon insofern geholfen das ich bei einigen radios die streams mit meinem programm abspielen kann
    leider hatt sich rausgestellt das ausgerechnet das radio das ich hören will nicht mit mediaplayer funktioniert
    mit vlc player geht es ist es möglich das media player object durch vlc zu ersetzen ?
    hier mal der Code

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <Sound.au3>
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>
    #include <IE.au3>

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

    $size = FileGetSize("C:\MT\BG.jpg")

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

    If $size = 0 then _1 ()

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

    Func _1 ()
    DirCreate("C:\MT")
    FileInstall("C:\Dokumente und Einstellungen\Administrator\Desktop\BG.jpg", "C:\MT\BG.jpg")
    FileInstall("C:\Dokumente und Einstellungen\Administrator\Desktop\Play.jpg", "C:\MT\Play.jpg")
    FileInstall("C:\Dokumente und Einstellungen\Administrator\Desktop\Stop.jpg", "C:\MT\Stop.jpg")
    FileInstall("C:\Dokumente und Einstellungen\Administrator\Desktop\Close.jpg", "C:\MT\Close.jpg")
    EndFunc

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

    opt("guioneventmode",1)
    $Form1 = GUICreate("M-T Radio", 205, 140, -1, -1,$WS_Popup)
    $Button2 = GUICtrlCreatePic("C:\MT\Play.jpg",15, 95, 30, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    guictrlsetonevent(-1,"Play")
    $Button3 = GUICtrlCreatePic("C:\MT\Stop.jpg",60, 95, 30, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    guictrlsetonevent(-1,"_exit")
    guisetonevent($GUI_EVENT_CLOSE,"_exit")
    $Pic2 = GUICtrlCreatePic("C:\MT\Close.jpg",180, 5, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    guictrlsetonevent(-1,"_exit2")
    $Pic1 = GUICtrlCreatePic("C:\MT\BG.jpg", 0, 0, 205, 140, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_Disabled))
    GUICtrlCreateLabel("",0,0,205,140,0,$GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_SHOW)

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

    While 1
    wend

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

    func play()
    _AnimButton ($Form1, $Button2)
    $oWMP = ObjCreate ( "WMPLayer.ocx" ) ;Erstellt ein Windows Media Player Objekt (http://msdn.microsoft.com/en-us/library/bb249680(VS.85).aspx)
    $oWMP.URL = "http://thompson-mu.no-ip.biz:8999/Listen.psl" ;Stellt die Eigenschaft "URL" zu dem Online-Stream
    ;von hr3.de ein, sollte automatisch starten

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

    $oWMP.controls.play() ;explizit starten

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

    While $oWMP.playstate > 2 ;solang der Windows Media Player den Stream lädt, buffert, abspielt usw.
    Sleep ( 10 ) ;schlafen, damit AutoIt sich nicht beendet und die Musik aufhört
    WEnd
    endfunc

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

    func _exit()
    _AnimButton ($Form1, $Button3)
    exit
    endfunc

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

    func _exit2()
    _AnimButton ($Form1, $Pic2)
    exit
    endfunc

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

    Func _AnimButton($IDgui, $IDbtn, $delay=300)
    Local $pos = ControlGetPos($IDgui, '', $IDbtn)
    Local $pWin = WinGetPos($IDgui)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
    Sleep($delay)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
    EndFunc

    [/autoit]

    nehmt bitte einen anderen sender her das genannte radio ist nur abends online heute nimmer

    p.s. falls ihr die bilder braucht die hänge ich an


    Mfg Eistee

  • Unsichtbarer Windows media player ?

    • Eistee
    • 7. Juli 2009 um 20:56

    kann man evtl. auch anzeigen lassen wie weit er gepuffert ist und welcher song gerade spielt ?
    und ein problem ist auch nich vorhanden : wärend der script läuft bzw. puffert kann ich das fenster nicht mehr per button und dem exit befehl schliessen ich muss den prozess killen
    was kann ich da machen ?
    so sieht es im moment aus :

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <Sound.au3>
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>
    #NoTrayIcon

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

    opt("guioneventmode",1)
    $Form1 = GUICreate("M-T Radio Programm", 205, 140, -1, -1,$WS_Popup)
    $Button2 = GUICtrlCreatePic(".\Play.jpg",15, 60, 175, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    guictrlsetonevent(-1,"Play")
    guisetonevent($GUI_EVENT_CLOSE,"_exit")
    $Pic2 = GUICtrlCreatePic(".\Close.jpg",170, 5, 30, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    guictrlsetonevent(-1,"_exit2")
    $Pic1 = GUICtrlCreatePic(".\BG.jpg", 0, 0, 205, 140, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_Disabled))
    GUICtrlCreateLabel("",0,0,205,140,0,$GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_SHOW)

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

    While 1
    wend

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

    func play()
    $oWMP = ObjCreate ( "WMPLayer.ocx" ) ;Erstellt ein Windows Media Player Objekt (http://msdn.microsoft.com/en-us/library/bb249680(VS.85).aspx)
    $oWMP.URL = "http://thompson-mu.no-ip.biz:8999/listen.pls" ;Stellt die Eigenschaft "URL" zu dem Online-Stream
    ;von hr3.de ein, sollte automatisch starten

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

    $oWMP.controls.play() ;explizit starten

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

    While $oWMP.playstate > 2 ;solang der Windows Media Player den Stream lädt, buffert, abspielt usw.
    Sleep ( 10 ) ;schlafen, damit AutoIt sich nicht beendet und die Musik aufhört
    WEnd
    endfunc

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

    func _exit()
    _soundclose($sound)
    exit
    endfunc
    func _exit2()
    exit
    endfunc

    [/autoit]


    MFG Eistee


    Edit : mittlerweile lädt er die musik nichtmal mehr sondern bleibt einfach offen und lässt sich nicht schliessen
    :whistling:?(

  • Unsichtbarer Windows media player ?

    • Eistee
    • 7. Juli 2009 um 18:18

    genau so etwas meinte ich vielen vielen dank genial

  • Unsichtbarer Windows media player ?

    • Eistee
    • 7. Juli 2009 um 18:04

    Hallo Liebe Community

    Ich habe in der Hilfe gesucht aber leider nichts gefunden daher würde ich gerne wissen ob es möglich ist den Windows media player "unsichtbar" (also ohne fenster ohne tray icon und ohne das er in der taskleiste erschein) zu starten und ihn dan eine datei öffnen zu lassen ?

    damit könnte ich einige fortschritte bei meinem radio programm machen

    für alle Antworten danke ich euch schon mal im voraus


    MFG Eistee

  • Datei-Namen auslesen

    • Eistee
    • 7. Juli 2009 um 15:07

    ALSO SOWEIT ICH DAS VERSTANDEN HABE WILLST DU EINE DATEI AUSLESEN ?
    oder willste nur den naen der datei irgendwo hineinlesen ? etwas genauer wäre da schon besser

  • Radio hören ?

    • Eistee
    • 7. Juli 2009 um 14:19

    oh dein script ? tolle arbeit sithlord aber genau das ist mein problem es geht dabei um mein eigenes internetradio da ist kein integrierter player oder sowas es läuft über winamp shoutcast und ich möchte einen player machen mit eigener gui und so weiter wo man halt nur dieses radio hören kann
    gibt es denn nicht irgendeine möglichkeit eine listen.pls datei (radio stream datei) mit dieser oder einer ähnlichen konfiguration abzuspielen ?


    P.S. ich hoffe das es in ordnung ist wen ich deinen script als ausgangspunkt benutze und das du mir nicht sauer bist das ich nicht gleich gefragt habe aber es soll ja auch nur für mich sein da ging ich davon aus das es nicht stört

    MFG Eistee

  • Radio hören ?

    • Eistee
    • 7. Juli 2009 um 11:27

    Hallo Leute ich habe eine frage wie ist es denn möglich mit autoit eine INternetradio zu hören der öfnnet es bei mir irgendwie nicht der script ist nicht von mir ich habe ihn hier im forum gefunden und eig. nur ein Hintergrundbild eingebaut ^^


    ich poste ihn mal vielleicht findet ihr ja den fehler ^^

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <Sound.au3>
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>
    #NoTrayIcon

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

    opt("guioneventmode",1)
    $Form1 = GUICreate("M-T Radio Programm", 205, 140, -1, -1,$WS_Popup)
    $Button1 = GUICtrlCreateButton("Stop", 5, 40, 80, 30, 0)
    GUICtrlSetOnEvent(-1,"stop")
    $Button2 = GUICtrlCreateButton("Play", 5, 5, 80, 30, 0)
    guictrlsetonevent(-1,"Play")
    $Button3 = GUICtrlCreateButton("Pause", 120, 5, 80, 30, 0)
    guictrlsetonevent(-1,"Pause")
    $Button4 = GUICtrlCreateButton("Resume", 120, 40, 80, 30, 0)
    guictrlsetonevent(-1,"Resume")
    guisetonevent($GUI_EVENT_CLOSE,"_exit")
    GUICtrlSetState($Button1, $GUI_DISABLE)
    GUICtrlSetState($Button3, $GUI_DISABLE)
    GUICtrlSetState($Button4, $GUI_DISABLE)
    $Pic2 = GUICtrlCreatePic(".\Close.jpg",170, 105, 30, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    guictrlsetonevent(-1,"_exit2")
    $Pic1 = GUICtrlCreatePic(".\BG.jpg", 0, 0, 205, 140, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_Disabled))
    GUICtrlCreateLabel("",0,0,205,140,0,$GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_SHOW)

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

    While 1
    wend

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

    func play()
    $choosefile=fileopendialog("Choose a sound",@mydocumentsdir,"Musik(*.pls)")
    global $sound=_soundopen($choosefile)
    global $play=_SoundPlay($sound)
    endfunc

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

    func stop()
    _soundstop($sound)
    GUICtrlSetState($Button3, $GUI_DISABLE)
    GUICtrlSetState($Button4, $GUI_DISABLE)
    GUICtrlSetState($Button1, $GUI_DISABLE)
    EndFunc

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

    func _exit()
    _soundclose($sound)
    exit
    endfunc
    func _exit2()
    exit
    endfunc

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

    func resume()
    _soundresume($sound)
    GUICtrlSetState($Button3, $GUI_enable)
    GUICtrlSetState($Button4, $GUI_DISABLE)
    EndFunc

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

    func pause()
    _SoundPause($sound)
    GUICtrlSetState($Button4, $GUI_Enable)
    GUICtrlSetState($Button3, $GUI_DISABLE)
    endfunc

    [/autoit]


    MFG Eistee

  • [GUI] Hintergrundbild

    • Eistee
    • 6. Juli 2009 um 20:52

    Include die bilder halt per file install dann hatt diese bilder jeder der dein programm ausführt

    Original :

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <ListBoxConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #NoTrayIcon

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

    $Form1 = GUICreate("", 601, 401, -1, -1,$WS_Popup)
    $Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\CarData\NE.jpg", 344, 80, 175, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\CarData\Loe.jpg", 384, 128, 175, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic3 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\CarData\Close.jpg", 547, 363, 30, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic4 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\CarData\BG.jpg", 0, 0, 600, 400, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_Disabled))
    $List1 = GUICtrlCreateList("", 24, 88, 225, 292)
    GUICtrlSetCursor (-1, 0)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Pic1
    _AnimButton ($Form1, $Pic1)
    _1 ()
    Case $Pic2
    _AnimButton ($Form1, $Pic2)
    _2 ()
    Case $Pic3
    _AnimButton ($Form1, $Pic3)
    _3 ()
    EndSwitch
    WEnd

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

    Func _1 ()
    Exit
    EndFunc

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

    Func _2 ()
    Exit
    EndFunc

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

    Func _3 ()
    Exit
    EndFunc

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

    Func _AnimButton($IDgui, $IDbtn, $delay=100) ;nicht von mir hatt mir freundlicherweise jemand ausm forum hier geschrieben dan gehen die bilder genau wie ein button kurz nachunten sieht realistischer aus.
    Local $pos = ControlGetPos($IDgui, '', $IDbtn)
    Local $pWin = WinGetPos($IDgui)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
    Sleep($delay)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
    EndFunc

    [/autoit]


    Mit fileinstall :

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <ListBoxConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #NoTrayIcon

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

    DirCreate("C:\test")
    Sleep(100)
    FileInstall("C:\Dokumente und Einstellungen\Administrator\Desktop\CarData\NE.jpg","C:\test\NE.jpg")
    Sleep(100)
    FileInstall("C:\Dokumente und Einstellungen\Administrator\Desktop\CarData\Loe.jpg","C:\test\Loe.jpg")
    Sleep(100)
    FileInstall("C:\Dokumente und Einstellungen\Administrator\Desktop\CarData\Close.jpg","C:\test\Close.jpg")
    Sleep(100)
    FileInstall("C:\Dokumente und Einstellungen\Administrator\Desktop\CarData\BG.jpg","C:\test\BG.jpg")
    Sleep(100)

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

    $Form1 = GUICreate("", 601, 401, -1, -1,$WS_Popup)
    $Pic1 = GUICtrlCreatePic("C:\test\NE.jpg", 344, 80, 175, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic2 = GUICtrlCreatePic("C:\test\Loe.jpg", 384, 128, 175, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic3 = GUICtrlCreatePic("C:\test\Close.jpg", 547, 363, 30, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic4 = GUICtrlCreatePic("C:\test\BG.jpg", 0, 0, 600, 400, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_Disabled))
    $List1 = GUICtrlCreateList("", 24, 88, 225, 292)
    GUICtrlSetCursor (-1, 0)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Pic1
    _AnimButton ($Form1, $Pic1)
    _1 ()
    Case $Pic2
    _AnimButton ($Form1, $Pic2)
    _2 ()
    Case $Pic3
    _AnimButton ($Form1, $Pic3)
    _3 ()
    EndSwitch
    WEnd

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

    Func _1 ()
    Exit
    EndFunc

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

    Func _2 ()
    Exit
    EndFunc

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

    Func _3 ()
    Exit
    EndFunc

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

    Func _AnimButton($IDgui, $IDbtn, $delay=100) ;nicht von mir hatt mir freundlicherweise jemand ausm forum hier geschrieben dan gehen die bilder genau wie ein button kurz nachunten sieht realistischer aus.
    Local $pos = ControlGetPos($IDgui, '', $IDbtn)
    Local $pWin = WinGetPos($IDgui)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
    Sleep($delay)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
    EndFunc

    [/autoit]

    ich gebe dir ja nur ansätze wie du es lösen könntest ich habe auch relativ früh mit autoit angefangen war jetzt aber schon lange nicht mehr aktiv und bin selber sozusagen wieder anfänger weshalb ich dir hauptsächlich sachen von meinen alten beispielen geben kann jedoch nicht mehr dazu in der lage bin deinen script in irgendeiner form anzupassen da musste auf die grossen warten unter anderem
    Bugfix, phethebee und co. tut mir echt leid


    poste mir dein Hauptscript mal irgendwie ohne diese verschiebeung dann kann ich mir den mal anschauen

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™