Habe es schon geschafft danke
war diese toolwindow style den ich gebraucht habe
Beiträge von Eistee
-
-
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>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIconOpt('WinTitleMatchMode', 4)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$aTaskbarPos = WinGetPos('classname=Shell_TrayWnd')
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$iWidth = 160
$iHeight = 80
$iLeft = $aTaskbarPos[2] - $iWidth - 6
$iTop = 0$Form2 = GUICreate("Shutdown Control", $iWidth, $iHeight, $iLeft, $iTop,$WS_Popup,$WS_EX_TOOLWINDOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$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)While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic3
_Close ()
EndSwitch
WEndFunc _Close ()
[/autoit]
Exit
EndFuncich 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
-
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>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>Global $file3 = FileReadline("include.txt")
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Form1", 222, 453, 193, 115)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$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)While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_1 ()
Case $Button2
_2 ()
EndSwitch
WEndFunc _1 ()
[/autoit] [autoit][/autoit] [autoit]
; Shows the filenames of all files in the current directory.
$search = FileFindFirstFile("*.au3"); Check if the search was successful
[/autoit] [autoit][/autoit] [autoit]
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIfWhile 1
[/autoit] [autoit][/autoit] [autoit]
$file = FileFindNextFile($search)
If @error Then ExitLoop
FileWrite ( "include.txt", @ScriptDir&"\"&$file&@CRLF )
WEnd; Close the search handle
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
FileClose($search)
EndFuncFunc _2 ()
[/autoit] [autoit][/autoit] [autoit]
ShellExecute(Guictrlread($list1))EndFunc
[/autoit] -
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
-
Cool Oscar vielen dank
-
ä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 ichgibts da irgendwo einen Beispiel script oder so ?
wär echt nice
Mfg Eistee
-
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
-
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 gehtSpoiler anzeigen
[autoit]Func Laut ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Pic5)
$Vol = _SoundGetWaveVolume ()
$NeuVol = $Vol + 10
SoundSetWaveVolume($NeuVol)
EndFuncFunc Leis ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Pic6)
$Vol2 = _SoundGetWaveVolume ()
$NeuVol3 = $Vol2 - 10
SoundSetWaveVolume($NeuVol3)
EndFuncFunc _SoundGetWaveVolume()
[/autoit]
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
EndFuncMFG Eistee
-
du schreibst halt bei fileinstl nicht .jpg sondern eben .data
-
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
-
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. angehtpls. help
Edit : habs hingekriegt danke dir nochmal
-
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önntemfg Eistee
-
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 CodeSpoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <Sound.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <IE.au3>$size = FileGetSize("C:\MT\BG.jpg")
[/autoit] [autoit][/autoit] [autoit]If $size = 0 then _1 ()
[/autoit] [autoit][/autoit] [autoit]Func _1 ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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")
EndFuncopt("guioneventmode",1)
[/autoit] [autoit][/autoit] [autoit]
$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)While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
wendfunc play()
[/autoit] [autoit][/autoit] [autoit]
_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$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.
[/autoit] [autoit][/autoit] [autoit]
Sleep ( 10 ) ;schlafen, damit AutoIt sich nicht beendet und die Musik aufhört
WEnd
endfuncfunc _exit()
[/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Button3)
exit
endfuncfunc _exit2()
[/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Pic2)
exit
endfuncFunc _AnimButton($IDgui, $IDbtn, $delay=300)
[/autoit]
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])
EndFuncnehmt 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
-
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>
[/autoit] [autoit][/autoit] [autoit]
#include <Sound.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#NoTrayIconopt("guioneventmode",1)
[/autoit] [autoit][/autoit] [autoit]
$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)While 1
[/autoit] [autoit][/autoit] [autoit]
wendfunc play()
[/autoit] [autoit][/autoit] [autoit]
$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$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.
[/autoit] [autoit][/autoit] [autoit]
Sleep ( 10 ) ;schlafen, damit AutoIt sich nicht beendet und die Musik aufhört
WEnd
endfuncfunc _exit()
[/autoit]
_soundclose($sound)
exit
endfunc
func _exit2()
exit
endfuncMFG Eistee
Edit : mittlerweile lädt er die musik nichtmal mehr sondern bleibt einfach offen und lässt sich nicht schliessen
-
genau so etwas meinte ich vielen vielen dank genial
-
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
-
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 -
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
-
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>
[/autoit] [autoit][/autoit] [autoit]
#include <Sound.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#NoTrayIconopt("guioneventmode",1)
[/autoit] [autoit][/autoit] [autoit]
$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)While 1
[/autoit] [autoit][/autoit] [autoit]
wendfunc play()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$choosefile=fileopendialog("Choose a sound",@mydocumentsdir,"Musik(*.pls)")
global $sound=_soundopen($choosefile)
global $play=_SoundPlay($sound)
endfuncfunc stop()
[/autoit] [autoit][/autoit] [autoit]
_soundstop($sound)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
GUICtrlSetState($Button1, $GUI_DISABLE)
EndFuncfunc _exit()
[/autoit] [autoit][/autoit] [autoit]
_soundclose($sound)
exit
endfunc
func _exit2()
exit
endfuncfunc resume()
[/autoit] [autoit][/autoit] [autoit]
_soundresume($sound)
GUICtrlSetState($Button3, $GUI_enable)
GUICtrlSetState($Button4, $GUI_DISABLE)
EndFuncfunc pause()
[/autoit]
_SoundPause($sound)
GUICtrlSetState($Button4, $GUI_Enable)
GUICtrlSetState($Button3, $GUI_DISABLE)
endfuncMFG Eistee
-
Include die bilder halt per file install dann hatt diese bilder jeder der dein programm ausführt
Original :
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ListBoxConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon$Form1 = GUICreate("", 601, 401, -1, -1,$WS_Popup)
[/autoit] [autoit][/autoit] [autoit]
$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)While 1
[/autoit] [autoit][/autoit] [autoit]
$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
WEndFunc _1 ()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncFunc _2 ()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncFunc _3 ()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncFunc _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.
[/autoit]
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])
EndFuncMit fileinstall :
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ListBoxConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIconDirCreate("C:\test")
[/autoit] [autoit][/autoit] [autoit]
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)$Form1 = GUICreate("", 601, 401, -1, -1,$WS_Popup)
[/autoit] [autoit][/autoit] [autoit]
$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)While 1
[/autoit] [autoit][/autoit] [autoit]
$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
WEndFunc _1 ()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncFunc _2 ()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncFunc _3 ()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncFunc _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.
[/autoit]
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])
EndFuncich 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 leidposte mir dein Hauptscript mal irgendwie ohne diese verschiebeung dann kann ich mir den mal anschauen