klick einfach mit rechts auf dein script und klick auf compile
Beiträge von Eistee
-
-
-
-
Hallo Liebe Gemeinde
ich habe mich gestern abend hingesetzt und mir eine Sidebar geschrieben um die Funktionen die ich häufig verwende immer da zu haben und mit (ich weiss ich bin Faul xD) weniger klicks
Ich habe jetzt nur folgende Fragen/Bitten :
1. Warum kriege ich die Slider nicht schwarz obwohl ich GuiSetBkColor drinnen habe.
2. Wie kann ich bei meiner ShutDownControl noch eine Abfrage einbauen wie z.B wollen sie wirklich herunterfahren ? und wenn man auf ja klickt macht er das wenn man auf nein klickt lässt er es
3. Wenn man ein fenster maximiert wird es ja an den linken und rechten desktop rand gezogen als beispiel eben Firefox, wie kann ich windows sagen das ab jetzt schon 190 Pixel vorher das Maximum erreicht ist das windows sozusagen nichts mehr hinter diesem fenster haben kann ?
4. Wie kann ich einstellen das sich das programm beim druck von esc nicht schließt sondern nur wenn ich im traymenu auf Beenden gehe ?Auf eure Antworten Freue ich mich
MFG Eistee
Script :
Spoiler anzeigen
[autoit]#include <DateTimeConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <audio.au3>
#Include <Constants.au3>Global $MicVol = _SoundGetMicrophoneVolume ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global $Vol = _SoundGetMasterVolume ()Opt('WinTitleMatchMode', 4)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$aTaskbarPos = WinGetPos('classname=Shell_TrayWnd')
$iWidth = 190
$iHeight = @DesktopHeight
$iLeft = $aTaskbarPos[2] - $iWidth - 6
$iTop = 0$size = FileGetSize("C:\BS\SideBar\About.exe")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If $size = 0 then _1 ()
Func _1 ()
DirCreate("C:\BS\SideBar")
FileInstall("google.jpg", "C:\BS\SideBar\google.jpg")
FileInstall("Border.jpg", "C:\BS\SideBar\Border.jpg")
FileInstall("loka.jpg", "C:\BS\SideBar\loka.jpg")
FileInstall("gmx.jpg", "C:\BS\SideBar\gmx.jpg")
FileInstall("web.jpg", "C:\BS\SideBar\web.jpg")
FileInstall("ShutDown.jpg", "C:\BS\SideBar\ShutDown.jpg")
FileInstall("Neustarten.jpg", "C:\BS\SideBar\Neustarten.jpg")
FileInstall("Standby.jpg", "C:\BS\SideBar\Standby.jpg")
FileInstall("About.exe", "C:\BS\SideBar\About.exe")
EndFunc$Form1 = GUICreate("Form1", $iWidth, $iHeight, $iLeft, $iTop,$WS_POPUP)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0x000000)
$Pic1 = GUICtrlCreatePic("C:\BS\SideBar\Border.jpg", 0, 0, 5, $iHeight, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))$Group1 = GUICtrlCreateGroup(" Kalender ", 3, 8, 184, 209)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$MonthCal1 = GUICtrlCreateMonthCal("2009/07/20", 8, 24, 174, 186)
GUICtrlCreateGroup("", -99, -99, 1, 1)$Group2 = GUICtrlCreateGroup(" Uhrzeit ", 3, 217, 184, 41)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Label1 = GUICtrlCreateLabel(@HOUR & ":" & @MIN & ":" & @SEC, 68, 237, 51, 19)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)$Label2 = GUICtrlCreateLabel("VOL. :", 16, 284, 37, 17)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1,"Lautstärke anpassen")
$Label3 = GUICtrlCreateLabel("MIC. :", 16, 315, 38, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1,"Microfon Lautstärke anpassen")
$Slider1 = GUICtrlCreateSlider(72, 283, 114, 20)
GUISetBkColor(-1, 0x000000)
GUICtrlSetLimit(-1,100,0)
GUICtrlSetData(-1, $Vol)
$Slider2 = GUICtrlCreateSlider(72, 315, 114, 20)
GUISetBkColor(-1, 0x000000)
GUICtrlSetLimit(-1,100,0)
GUICtrlSetData(-1, $MicVol)
$Group3 = GUICtrlCreateGroup(" Volume ", 3, 262, 185, 73)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)$Pic2 = GUICtrlCreatePic("C:\BS\SideBar\google.jpg", 12, 352, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Ruft http://www.google.de auf")
$Pic3 = GUICtrlCreatePic("C:\BS\SideBar\Loka.jpg", 76, 392, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Ruft http://www.lokalisten.de auf")
$Pic4 = GUICtrlCreatePic("C:\BS\SideBar\GMX.jpg", 12, 432, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Ruft http://www.gmx.net auf")
$Pic5 = GUICtrlCreatePic("C:\BS\SideBar\WEB.jpg", 76, 472, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Ruft http://www.web.de auf")
$Group4 = GUICtrlCreateGroup(" Internet ", 3, 336, 184, 177)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)$Label4 = GUICtrlCreateLabel(@IPAddress1, 8, 536, 170, 20)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor(-1, 0xFFFFFF)
$Group5 = GUICtrlCreateGroup(" IP ", 3, 520, 184, 38)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)$Pic6 = GUICtrlCreatePic("C:\BS\SideBar\ShutDown.jpg", 8, 581, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Herunterfahren")
$Pic7 = GUICtrlCreatePic("C:\BS\SideBar\Neustarten.jpg", 76,581, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Neustarten")
$Pic8 = GUICtrlCreatePic("C:\BS\SideBar\Standby.jpg", 144, 581, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Standby")
$Group6 = GUICtrlCreateGroup(" Shut Down Control ", 3, 560, 184, 73)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)Opt("TrayMenuMode",1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$AB = TrayCreateItem("About")
$EX = TrayCreateItem("Beenden")
TraySetState()AdlibEnable("UHR",1000)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
$nMsg2 = TRayGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic6
_Shut ()
Case $Pic7
_neu ()
Case $Pic8
_stan ()
Case $Pic2
_google ()
Case $Pic3
_lokalisten ()
Case $Pic4
_gmx ()
Case $Pic5
_web ()
Case $Slider2
_Mic ()
Case $Slider1
_Vol ()
EndSwitch
Switch $nMsg2
Case $EX
Exit
Case $AB
_AB ()
EndSwitch
WEndFunc UHR ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Label1,@HOUR & ":" & @MIN & ":" & @SEC)
EndfuncFunc _Shut ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Pic6)
Sleep(200)
MsgBox(0,"Shutdown", "Einen schönen Tag noch.",5)
Shutdown(1)
EndFunc
Func _neu ()
_AnimButton ($Form1, $Pic7)
Sleep(200)
MsgBox(0,"Neustart", "Bis gleich.",5)
Shutdown(2)
EndFunc
Func _stan ()
_AnimButton ($Form1, $Pic8)
Sleep(200)
MsgBox(0,"Standby", "Ich geh dan mal schlafen.",5)
Shutdown(64)
EndFunc
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])
EndFuncFunc _google ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Pic2)
ShellExecute("http://www.google.de")
EndFuncFunc _lokalisten ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Pic3)
ShellExecute("http://www.lokalisten.de")
EndFuncFunc _gmx ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Pic4)
ShellExecute("http://www.gmx.net")
EndFuncFunc _web ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Pic5)
ShellExecute("http://www.web.de")
EndFuncFunc _Mic ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$NeuVolMIC = GUICtrlRead($Slider2)
_SoundSetMicrophoneVolume($NeuVolMIC)
EndFuncFunc _VOL ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$NeuVol = GUICtrlRead($Slider1)
_SoundSetMasterVolume($NeuVol)
EndFuncFunc _AB ()
[/autoit]
Run("C:\BS\SIDEBAR\About.exe")
EndFunc -
Ah cool vielen Dank Schnuffel
-
ok das beispiel zu AdlibEnable habe ich verstanden aber mit guictrlsetdata kann ich das label nicht aktualisieren was mache ich denn falsch ?
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>$Form1 = GUICreate("Form1", 633, 454, 193, 115)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$1 = GUICtrlCreateLabel("Label1", 48, 104, 36, 17)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitEndSwitch
[/autoit] [autoit][/autoit] [autoit]
WEndAdlibEnable("a1",1000)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func a1 ()
[/autoit]
GUICtrlSetData($1,@HOUR & ":" & @MIN & ":" & @SEC)
Endfunc -
Hallo Liebe Autoit gemeinde
ich habe schon seit längerem den bedarf an einer Uhr als fenster auf dem Desktop welche ich auch gerne selbst gestalten möchte usw. wie ich die Zeit bekomme also durch @Hour oder durch @Min weis ich ja aber wie bekomme ich es hin das sich ein Label sekündlich diese dann ja wieder neuen werte wiedergibt ?
ich habe leider auch nichts gefunden was mir da helfen würde nur eine einzige uhr habe ich gefunden so mit design, wecker und so zeug aber das hilft mir leider nicht würde mich sehr freuen wenn ihr mir da helfen könntet
MFG Eistee
-
Da ich was das scripten anbelangt nicht wirklich gut bin könnte ich euch nur anbieten das design u machen da ich mit photoshop arbeiten kann also nur wenn ihr wollt und das überhaupt braucht
MFG Eistee
-
hi
Ich habe bei meinen Beispiel Scripts schon so etwas liegen, hatt wenn ich micht nicht irre Bugfix geschrieben ( BugFix wenn du es nicht möchtest das dein script hier steht bitte löschen)
ich poste es mal, vielleicht könnt ihr ja etwas damit anfangen ist wie gewohnt Top Arbeit von BugFixMFG Eistee
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <TabConstants.au3>
#include <EditConstants.au3>
#include <DateTimeConstants.au3>
#include <SliderConstants.au3>
#include <TreeViewConstants.au3>
#include <ProgressConstants.au3>
#include <AVIConstants.au3>
#include <UpDownConstants.au3>
#include <Array.au3>
#include <file.au3>
#include <string.au3>
Opt("GUIOnEventMode", 1)
Dim $aRadio[7], $FileOut, $source, $target, $var, $editStr = "", $fhTmp, $fhOut, $sizeRaw
Dim $gesFiles = 0 ; Anzahl Dateien gesamt im Installscript
Dim $count = 0 ; Zähler Durchläufe
Dim $progressNew = 0 ; Progressschritte neu berechnen wenn > 0
Dim $aTmpCode ; Code temporär einlesen
Dim $tmpFile1 = @ScriptDir & "\TmpInstallAU3.txt"
Dim $tmpFile2 = @ScriptDir & "\TmpInstallAU3.au3"$GUI = GUICreate("Installationsscript generieren", 695, 646, -1, -1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent($GUI_EVENT_CLOSE, "GUIClose")
$grOpt = GUICtrlCreateGroup("Optionen im Installscript", 11, 10, 672, 50)
$chStatus = GUICtrlCreateCheckbox("Statusbar", 104, 30, 97, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$chLog = GUICtrlCreateCheckbox("Logdatei + Fehlerbehandlung", 330, 30, 164, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grSource = GUICtrlCreateGroup("Quellpfad mit Installationsdateien", 11, 70, 672, 50)
$iPath = GUICtrlCreateInput("", 104, 87, 383, 21)
$bPath = GUICtrlCreateButton("Auswählen", 522, 87, 85, 21, 0)
GUICtrlSetOnEvent(-1, "bPathClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grTarget = GUICtrlCreateGroup("Installationsziel", 11, 130, 672, 97)
$aRadio[0] = GUICtrlCreateRadio("@DesktopDir", 38, 148, 89, 17)
GUICtrlSetOnEvent(-1, "rDesktopClick")
$aRadio[1] = GUICtrlCreateRadio("@MyDocumentsDir", 38, 172, 113, 17)
GUICtrlSetOnEvent(-1, "rMyDocClick")
$aRadio[2] = GUICtrlCreateRadio("@HomeDrive", 38, 196, 113, 17)
GUICtrlSetOnEvent(-1, "rHomeDriveClick")
$aRadio[3] = GUICtrlCreateRadio("@ProgramsDir", 235, 148, 113, 17)
GUICtrlSetOnEvent(-1, "rProgDirClick")
$aRadio[4] = GUICtrlCreateRadio("@ProgramFilesDir", 235, 172, 113, 17)
GUICtrlSetOnEvent(-1, "rProgFileDirClick")
$aRadio[5] = GUICtrlCreateRadio("@SystemDir", 431, 148, 113, 16)
GUICtrlSetOnEvent(-1, "rSysDirClick")
$aRadio[6] = GUICtrlCreateRadio("@WindowsDir", 431, 172, 113, 17)
GUICtrlSetOnEvent(-1, "rWinDirClick")
$iTarget = GUICtrlCreateInput("", 235, 194, 428, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$bFileOut = GUICtrlCreateButton("Ausgabedatei", 11, 239, 84, 21, 0)
GUICtrlSetOnEvent(-1, "bFileOutClick")
$iFileOut = GUICtrlCreateInput("", 104, 239, 383, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$bGenerieren = GUICtrlCreateButton("Generiere Code", 522, 239, 160, 21, 0)
GUICtrlSetOnEvent(-1, "bGenerierenClick")
$grCode = GUICtrlCreateGroup("Code (editieren)", 11, 272, 672, 309)
$eCode = GUICtrlCreateEdit("", 19, 291, 655, 275)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$bOKnext = GUICtrlCreateButton("Übernehmen", 573, 602, 110, 25, 0)
GUICtrlSetOnEvent(-1, "bOKnextClick")
$eInfo = GUICtrlCreateEdit("", 19, 588, 540, 51, $ES_READONLY)
GUICtrlSetData(-1, _
"Der aktuell generierte Code wird in eine temporäre Datei übernommen. Nach Übernahme können Dateien aus " & _
"neuem Quellpfad zugefügt werden. Beim Schließen der GUI werden alle Daten in die Ausgabedatei geschrieben. " & _
"Wenn nötig, werden Kopf- und Fußbereich zugefügt und die Progressschritte neu berechnet.")
GUICtrlSetState($bPath, $GUI_FOCUS)
GUISetState(@SW_SHOW)
_CodeDisable()While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(100)
WEndFunc _RadioUncheck()
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To UBound($aRadio)-1
GUICtrlSetState($aRadio[$i], $GUI_UNCHECKED)
Next
EndFuncFunc _SourceTargetDisable()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($grSource, $GUI_DISABLE)
GUICtrlSetState($iPath, $GUI_DISABLE)
GUICtrlSetState($bPath, $GUI_DISABLE)
GUICtrlSetState($grTarget, $GUI_DISABLE)
GUICtrlSetState($iTarget, $GUI_DISABLE)
For $i = 0 To UBound($aRadio)-1
GUICtrlSetState($aRadio[$i], $GUI_DISABLE)
Next
EndFuncFunc _SourceTargetEnable()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($grSource, $GUI_ENABLE)
GUICtrlSetState($iPath, $GUI_ENABLE)
GUICtrlSetState($bPath, $GUI_ENABLE)
GUICtrlSetState($grTarget, $GUI_ENABLE)
GUICtrlSetState($iTarget, $GUI_ENABLE)
For $i = 0 To UBound($aRadio)-1
GUICtrlSetState($aRadio[$i], $GUI_ENABLE)
Next
EndFuncFunc _OptDisable()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($grOpt, $GUI_DISABLE)
GUICtrlSetState($chStatus, $GUI_DISABLE)
GUICtrlSetState($chLog, $GUI_DISABLE)
EndFuncFunc _CodeDisable()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($grCode, $GUI_DISABLE)
GUICtrlSetState($eCode, $GUI_DISABLE)
GUICtrlSetState($bOKnext, $GUI_DISABLE)
EndFuncFunc _CodeEnable()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($grCode, $GUI_ENABLE)
GUICtrlSetState($eCode, $GUI_ENABLE)
GUICtrlSetState($bOKnext, $GUI_ENABLE)
EndFunc
Func bFileOutClick()
$FileOut = FileOpenDialog("Ausgabedatei festlegen.", @MyDocumentsDir & "\", "AutoIt Datei (*.au3)", 8, "Install.au3")
If @error Then
MsgBox(16,"","Keine Datei gewählt.")
Return
Else
GUICtrlSetData($iFileOut, $FileOut)
EndIf
EndFunc
Func bGenerierenClick()
$source = GUICtrlRead($iPath)
$target = GUICtrlRead($iTarget)
If ($source <> "") And ($target <> "") And ($FileOut <> "") Then
_OptDisable()
_SourceTargetDisable()
_CodeEnable()
GUICtrlSetState($bFileOut, $GUI_DISABLE)
GUICtrlSetState($bGenerieren, $GUI_DISABLE)
$count += 1
If $count > 1 And GUICtrlRead($chStatus) = $GUI_CHECKED Then $progressNew = 1
Select
Case GUICtrlRead($chStatus) = $GUI_CHECKED And GUICtrlRead($chLog) = $GUI_CHECKED ; m. Statusbar, m. Log/Fehle
_WriteInstall($source, $target, $tmpFile1)
Case GUICtrlRead($chStatus) = $GUI_CHECKED And GUICtrlRead($chLog) = $GUI_UNCHECKED ; m. Statusbar, o. Log/Fehler
_WriteInstall($source, $target, $tmpFile1, -1, 0)
Case GUICtrlRead($chStatus) = $GUI_UNCHECKED And GUICtrlRead($chLog) = $GUI_CHECKED ; o. Statusbar, m. Log/Fehler
_WriteInstall($source, $target, $tmpFile1, 0)
Case GUICtrlRead($chStatus) = $GUI_UNCHECKED And GUICtrlRead($chLog) = $GUI_UNCHECKED ; o. Statusbar, o. Log/Fehler
_WriteInstall($source, $target, $tmpFile1, 0, 0)
EndSelect
If Not _FileReadToArray($tmpFile1, $aTmpCode) Then ; in Array einlesen
MsgBox(16, 'ACHTUNG!', "Datei: '" & $tmpFile1 &"' nicht vorhanden oder leer!")
Return
EndIf
$sizeRaw = FileGetSize($tmpFile1)
FileDelete($tmpFile1)
For $i = 1 To $aTmpCode[0] ; String für Edit erzeugen
If $i = 1 Then
$editStr = $aTmpCode[$i]
Else
$editStr &= @CRLF & $aTmpCode[$i]
EndIf
Next
GUICtrlSetData($eCode, $editStr)
$editStr = GUICtrlRead($eCode)
$editStr = StringSplit($editStr, @LF)
$fhTmp = FileOpen($tmpFile2, 1)
For $i = 1 To $editStr[0]
FileWriteLine($fhTmp, $editStr[$i] & @CRLF)
Next
FileClose($fhTmp)
Else
If $source = "" Then
MsgBox(16,"ACHTUNG!", "Kein Quell-Pfad mit Installationsdateien ausgewählt!")
ElseIf $target = "" Then
MsgBox(16,"ACHTUNG!", "Kein Ziel-Pfad für Installationsdateien ausgewählt!")
Else
MsgBox(16,"ACHTUNG!", "Keine Ausgabedatei festgelegt!")
EndIf
EndIf
EndFunc
Func bOKnextClick()
If FileGetSize($tmpFile2) <> $sizeRaw Then $progressNew = 1 ; Datei wurde editiert
GUICtrlSetData($eCode, "")
_SourceTargetEnable()
_RadioUncheck()
_CodeDisable()
GUICtrlSetData($iPath, "")
GUICtrlSetData($iTarget, "")
GUICtrlSetState($bGenerieren, $GUI_ENABLE)
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Func bPathClick()
$var = FileSelectFolder("Ordner mit zu installierenden Dateien:","", 2+4)
If @error Then
If GUICtrlRead($iPath) = "" Then MsgBox(16,"ACHTUNG!", "Kein Ordner gewählt!")
Return
Else
GUICtrlSetData($iPath, $var)
EndIf
EndFunc
Func GUIClose()
Local $percent, $aTmp
If $count = 0 Then Exit
_FileReadToArray($tmpFile2, $aTmp)
FileDelete($tmpFile2)
$fhOut = FileOpen($FileOut, 1)
If $progressNew = 1 Then ; Progresschritte neu berechnen
For $i = 1 To $aTmp[0]
If StringInStr($aTmp[$i], 'ProgressSet') Then
$gesFiles += 1
EndIf
Next
$k = 0
For $i = 1 To $aTmp[0]
If StringInStr($aTmp[$i], 'ProgressSet') Then
$k += 1
$percent = Round(100/$gesFiles*$k)
$var = _StringBetween($aTmp[$i], "(", "," )
$aTmp[$i] = StringReplace($aTmp[$i], $var[0], $percent)
EndIf
Next
EndIf
Select
Case GUICtrlRead($chStatus) = $GUI_CHECKED And GUICtrlRead($chLog) = $GUI_CHECKED
FileWrite($fhOut, "#include <file.au3>" & @CRLF)
FileWrite($fhOut, "Dim $fehler = 0" & @CRLF)
FileWrite($fhOut, 'ProgressOn("Installation", "Installationsfortschritt", "")' & @CRLF)
Case GUICtrlRead($chLog) = $GUI_CHECKED
FileWrite($fhOut, "#include <file.au3>" & @CRLF)
Case GUICtrlRead($chStatus) = $GUI_CHECKED And GUICtrlRead($chLog) = $GUI_UNCHECKED
FileWrite($fhOut, 'ProgressOn("Installation", "Installationsfortschritt", "")' & @CRLF)
EndSelect
For $i = 1 To $aTmp[0]
If $aTmp[$i] <> "" Then FileWrite($fhOut, $aTmp[$i] & @CRLF) ; aus Tmp2 in Ausgabedatei schreiben
Next
Select ; Fußbereich zufügen
Case GUICtrlRead($chStatus) = $GUI_CHECKED And GUICtrlRead($chLog) = $GUI_CHECKED ; Statusbar m. Log/Fehler
FileWrite($fhOut, 'If $fehler = 1 Then' & @CRLF)
FileWrite($fhOut, @TAB & 'ProgressSet( 100, "s. ' & $TARGET & ' & ' & '\Install.log", "Installation fehlerhaft!")' & @CRLF)
FileWrite($fhOut, 'Else' & @CRLF)
FileWrite($fhOut, @TAB & 'ProgressSet( 100, "Beendet", "Installation erfolgreich!")' & @CRLF)
FileWrite($fhOut, 'EndIf' & @CRLF)
FileWrite($fhOut, 'Sleep(3000)' & @CRLF)
FileWrite($fhOut, 'ProgressOff()' & @CRLF)
Case GUICtrlRead($chStatus) = $GUI_CHECKED And GUICtrlRead($chLog) = $GUI_UNCHECKED ; Statusbar o. Log/Fehler
FileWrite($fhOut, 'ProgressSet( 100, "", "Installation abgeschlossen!")' & @CRLF)
FileWrite($fhOut, 'Sleep(3000)' & @CRLF)
FileWrite($fhOut, 'ProgressOff()' & @CRLF)
EndSelect
FileClose($fhOut)
MsgBox(64, "Script Generator", "Ausgabedatei" & @LF & @LF & $FileOut & @LF & @LF & "erstellt." )
Exit
EndFunc
Func rDesktopClick()
GUICtrlSetData($iTarget, "@DesktopDir")
EndFunc
Func rHomeDriveClick()
GUICtrlSetData($iTarget, "@HomeDrive")
EndFunc
Func rMyDocClick()
GUICtrlSetData($iTarget, "@MyDocumentsDir")
EndFunc
Func rProgDirClick()
GUICtrlSetData($iTarget, "@ProgramsDir")
EndFunc
Func rProgFileDirClick()
GUICtrlSetData($iTarget, "@ProgramFilesDir")
EndFunc
Func rSysDirClick()
GUICtrlSetData($iTarget, "@SystemDir")
EndFunc
Func rWinDirClick()
GUICtrlSetData($iTarget, "@WindowsDir")
EndFunc; DIE FOLGENDE FUNKTION WURDE FÜR DIESEN EINSATZ ETWAS VERÄNDERT. IM ORIGINAL SIND
[/autoit] [autoit][/autoit] [autoit]
; DIE HIER AUSKOMMENTIERTEN BEREICHE FREI.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Funktion _WriteInstall($SOURCEPATHES, $TARGET, $FILENAME[, $S_BAR=-1[, $LOG=-1]])
;
; Beschreibung Erzeugt eine Installationsdatei, mit FileInstall()-Routinen
; für alle Dateien des bzw. der Quellpfade, Optional Install-Log und
; Progressbar für Installationsfortschritt
;
; Parameter $SOURCEPATHES Pfad(e) des/der Quellordner getrennt mit "|"
; als String - keine Macros oder Variablen
; $TARGET Zielordner für Installation,
; Macros und Variablen können verwendet werden
; $FILENAME Name der zu erzeugenden Datei (z.B. 'setup.au3')
; als String - keine Macros oder Variablen
; $S_BAR Statusbar generieren (-1 JA, 0 NEIN) [Optional], Default -1
; $LOG Logdatei und Fehlercheck (-1 JA, 0 NEIN) [Optional], Default -1
;
; Autor BugFix ( [email='bugfix@autoit.de'][/email] )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _WriteInstall($SOURCEPATHES, $TARGET, $FILENAME, $S_BAR=-1, $LOG=-1)
Dim $QUELLPFADE, $aFILES[1], $FH = FileOpen($FILENAME,1), $PERCENT
$aFILES[0] = 0
#cs
If ($S_BAR = -1) And ($LOG = -1) Then
FileWrite($FH, "#include <file.au3>" & @CRLF)
FileWrite($FH, "Dim $fehler = 0" & @CRLF)
FileWrite($FH, 'ProgressOn("Installation", "Installationsfortschritt", "")' & @CRLF)
ElseIf $LOG = -1 Then
FileWrite($FH, "#include <file.au3>" & @CRLF)
ElseIf ($S_BAR = -1) And ($LOG <> -1) Then
FileWrite($FH, 'ProgressOn("Installation", "Installationsfortschritt", "")' & @CRLF)
EndIf
#ce
If StringInStr($SOURCEPATHES, "|") Then $QUELLPFADE = StringSplit($SOURCEPATHES, "|")
If IsArray($QUELLPFADE) Then
For $i = 1 To $QUELLPFADE[0]
$var = _GetFileList($QUELLPFADE[$i], "*.*")
For $k = 1 To $var[0]
_ArrayAdd($aFILES, $var[$k])
$aFILES[0] += 1
Next
Next
Else
$var = _GetFileList($SOURCEPATHES, "*.*")
If Not IsArray($var) Then
MsgBox(16, 'Achtung', 'In ' & $SOURCEPATHES & ' sind keine Dateien vorhanden!')
Return 0
EndIf
For $i = 1 To $var[0]
_ArrayAdd($aFILES, $var[$i])
$aFILES[0] += 1
Next
EndIf
Select
Case ($S_BAR = -1) And ($LOG = -1) ; mit Statusbar und Log/Fehlercheck
For $i = 1 To $aFILES[0]
$PERCENT = Round(100/$aFILES[0]*$i)
$DIERECTORIES = StringTrimLeft(StringLeft($aFILES[$i], StringInStr($aFILES[$i],"\",0,-1)-1 ), 2 )
If StringRight($TARGET, 1) = "\" Then $TARGET = StringTrimRight($TARGET, 1)
FileWrite($FH, 'ProgressSet(' & $PERCENT & ', "' & StringRight($aFILES[$i], StringLen($aFILES[$i])- StringInStr($aFILES[$i], "\",0,-1)) & '")' & @CRLF)
If StringInStr($TARGET, "@") Then
FileWrite($FH, 'If Not FileExists(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '") Then' & @CRLF)
FileWrite($FH, @TAB & 'If DirCreate(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '") = 1 Then' & @CRLF)
FileWrite($FH, @TAB & @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '\ = OK")' & @CRLF)
FileWrite($FH, @TAB & 'Else' & @CRLF)
FileWrite($FH, @TAB & @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '\ = Fehler")' & @CRLF)
FileWrite($FH, @TAB & @TAB & '$fehler = 1' & @CRLF)
FileWrite($FH, @TAB & 'EndIf' & @CRLF)
FileWrite($FH, 'EndIf' & @CRLF)
FileWrite($FH, 'If FileInstall("' & $aFILES[$i] & '", ' & $TARGET & ' & ' & '"' & StringTrimLeft($aFILES[$i],2) & '") = 1 Then' & @CRLF)
FileWrite($FH, @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = OK")' & @CRLF)
Else
FileWrite($FH, 'If Not FileExists("' & $TARGET & $DIERECTORIES & '") Then' & @CRLF)
FileWrite($FH, @TAB & 'If DirCreate("' & $TARGET & $DIERECTORIES & '") = 1 Then' & @CRLF)
FileWrite($FH, @TAB & @TAB & '_FileWriteLog("' & $TARGET & $DIERECTORIES & '\ = OK")' & @CRLF)
FileWrite($FH, @TAB & 'Else' & @CRLF)
FileWrite($FH, @TAB & @TAB & '_FileWriteLog("' & $TARGET & $DIERECTORIES & '\ = Fehler")' & @CRLF)
FileWrite($FH, @TAB & @TAB & '$fehler = 1' & @CRLF)
FileWrite($FH, @TAB & 'EndIf' & @CRLF)
FileWrite($FH, 'EndIf' & @CRLF)
FileWrite($FH, 'If FileInstall("' & $aFILES[$i] & '", "' & $TARGET & StringTrimLeft($aFILES[$i],2) & '") = 1 Then' & @CRLF)
FileWrite($FH, @TAB & '_FileWriteLog("' & $TARGET & '\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = OK")' & @CRLF)
EndIf
FileWrite($FH, 'Else' & @CRLF)
If StringInStr($TARGET, "@") Then
FileWrite($FH, @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = Fehler")' & @CRLF)
Else
FileWrite($FH, @TAB & '_FileWriteLog("' & $TARGET & '\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = Fehler")' & @CRLF)
EndIf
FileWrite($FH, @TAB & '$fehler = 1' & @CRLF)
FileWrite($FH, 'EndIf' & @CRLF)
Next
#cs
FileWrite($FH, 'If $fehler = 1 Then' & @CRLF)
If StringInStr($TARGET, "@") Then
FileWrite($FH, @TAB & 'ProgressSet( 100, "s. ' & $TARGET & ' & ' & '\Install.log", "Installation fehlerhaft!")' & @CRLF)
Else
FileWrite($FH, @TAB & 'ProgressSet( 100, "s. ' & $TARGET & '\Install.log", "Installation fehlerhaft!")' & @CRLF)
EndIf
FileWrite($FH, 'Else' & @CRLF)
FileWrite($FH, @TAB & 'ProgressSet( 100, "Beendet", "Installation erfolgreich!")' & @CRLF)
FileWrite($FH, 'EndIf' & @CRLF)
FileWrite($FH, 'Sleep(3000)' & @CRLF)
FileWrite($FH, 'ProgressOff()' & @CRLF)
#ce
Case ($S_BAR = -1) And ($LOG <> -1) ; mit Statusbar, ohne Log/Fehlercheck
For $i = 1 To $aFILES[0]
$PERCENT = Round(100/$aFILES[0]*$i)
$DIERECTORIES = StringTrimLeft(StringLeft($aFILES[$i], StringInStr($aFILES[$i],"\",0,-1)-1 ), 2 )
If StringRight($TARGET, 1) = "\" Then $TARGET = StringTrimRight($TARGET, 1)
FileWrite($FH, 'ProgressSet(' & $PERCENT & ', "' & StringRight($aFILES[$i], StringLen($aFILES[$i])- StringInStr($aFILES[$i], "\",0,-1)) & '")' & @CRLF)
If StringInStr($TARGET, "@") Then
FileWrite($FH, 'If Not FileExists(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '") Then' & @CRLF)
FileWrite($FH, @TAB & 'DirCreate(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '")' & @CRLF)
FileWrite($FH, 'EndIf' & @CRLF)
FileWrite($FH, 'FileInstall("' & $aFILES[$i] & '", ' & $TARGET & ' & ' & '"' & StringTrimLeft($aFILES[$i],2) & '")' & @CRLF)
Else
FileWrite($FH, 'If Not FileExists("' & $TARGET & $DIERECTORIES & '") Then' & @CRLF)
FileWrite($FH, @TAB & 'DirCreate("' & $TARGET & $DIERECTORIES & '")' & @CRLF)
FileWrite($FH, 'EndIf' & @CRLF)
FileWrite($FH, 'FileInstall("' & $aFILES[$i] & '", "' & $TARGET & StringTrimLeft($aFILES[$i],2) & '")' & @CRLF)
EndIf
Next
#cs
FileWrite($FH, 'ProgressSet( 100, "", "Installation abgeschlossen!")' & @CRLF)
FileWrite($FH, 'Sleep(3000)' & @CRLF)
FileWrite($FH, 'ProgressOff()' & @CRLF)
#ce
Case ($S_BAR <> -1) And ($LOG = -1) ; ohne Statusbar, mit Log/Fehlercheck
For $i = 1 To $aFILES[0]
$DIERECTORIES = StringTrimLeft(StringLeft($aFILES[$i], StringInStr($aFILES[$i],"\",0,-1)-1 ), 2 )
If StringRight($TARGET, 1) = "\" Then $TARGET = StringTrimRight($TARGET, 1)
If StringInStr($TARGET, "@") Then
FileWrite($FH, 'If Not FileExists(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '") Then' & @CRLF)
FileWrite($FH, @TAB & 'If DirCreate(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '") = 1 Then' & @CRLF)
FileWrite($FH, @TAB & @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '\ = OK")' & @CRLF)
FileWrite($FH, @TAB & 'Else' & @CRLF)
FileWrite($FH, @TAB & @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '\ = Fehler")' & @CRLF)
FileWrite($FH, @TAB & @TAB & '$fehler = 1' & @CRLF)
FileWrite($FH, @TAB & 'EndIf' & @CRLF)
FileWrite($FH, 'EndIf' & @CRLF)
FileWrite($FH, 'If FileInstall("' & $aFILES[$i] & '", ' & $TARGET & ' & ' & '"' & StringTrimLeft($aFILES[$i],2) & '") = 1 Then' & @CRLF)
FileWrite($FH, @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = OK")' & @CRLF)
Else
FileWrite($FH, 'If Not FileExists("' & $TARGET & $DIERECTORIES & '") Then' & @CRLF)
FileWrite($FH, @TAB & 'If DirCreate("' & $TARGET & $DIERECTORIES & '") = 1 Then' & @CRLF)
FileWrite($FH, @TAB & @TAB & '_FileWriteLog("' & $TARGET & $DIERECTORIES & '\ = OK")' & @CRLF)
FileWrite($FH, @TAB & 'Else' & @CRLF)
FileWrite($FH, @TAB & @TAB & '_FileWriteLog("' & $TARGET & $DIERECTORIES & '\ = Fehler")' & @CRLF)
FileWrite($FH, @TAB & @TAB & '$fehler = 1' & @CRLF)
FileWrite($FH, @TAB & 'EndIf' & @CRLF)
FileWrite($FH, 'If FileInstall("' & $aFILES[$i] & '", "' & $TARGET & StringTrimLeft($aFILES[$i],2) & '") = 1 Then' & @CRLF)
FileWrite($FH, @TAB & '_FileWriteLog("' & $TARGET & '\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = OK")' & @CRLF)
EndIf
FileWrite($FH, 'Else' & @CRLF)
If StringInStr($TARGET, "@") Then
FileWrite($FH, @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = Fehler")' & @CRLF)
Else
FileWrite($FH, @TAB & '_FileWriteLog("' & $TARGET & '\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = Fehler")' & @CRLF)
EndIf
FileWrite($FH, @TAB & '$fehler = 1' & @CRLF)
FileWrite($FH, 'EndIf' & @CRLF)
Next
Case ($S_BAR <> -1) And ($LOG <> -1) ; ohne Statusbar, ohne Log/Fehlercheck
For $i = 1 To $aFILES[0]
$DIERECTORIES = StringTrimLeft(StringLeft($aFILES[$i], StringInStr($aFILES[$i],"\",0,-1)-1 ), 2 )
If StringRight($TARGET, 1) = "\" Then $TARGET = StringTrimRight($TARGET, 1)
If StringInStr($TARGET, "@") Then
FileWrite($FH, 'If Not FileExists(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '") Then' & @CRLF)
FileWrite($FH, @TAB & 'DirCreate(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '")' & @CRLF)
FileWrite($FH, 'EndIf' & @CRLF)
FileWrite($FH, 'FileInstall("' & $aFILES[$i] & '", ' & $TARGET & ' & ' & '"' & StringTrimLeft($aFILES[$i],2) & '")' & @CRLF)
Else
FileWrite($FH, 'If Not FileExists("' & $TARGET & $DIERECTORIES & '") Then' & @CRLF)
FileWrite($FH, @TAB & 'DirCreate("' & $TARGET & $DIERECTORIES & '")' & @CRLF)
FileWrite($FH, 'EndIf' & @CRLF)
FileWrite($FH, 'FileInstall("' & $aFILES[$i] & '", "' & $TARGET & StringTrimLeft($aFILES[$i],2) & '")' & @CRLF)
EndIf
Next
EndSelect
FileClose($FH)
EndFunc ;==>_WriteInstall;********************************************************************************
[/autoit] [autoit][/autoit] [autoit]
; AutoIt Version: 3.0
; Language: English
; Platform: Win9x/NT/XP
; Author: jos van der Zande
;
; Find files in directory and subdirectories and return it in an Array, all coded in Autoit3
;
; _GetFileList($DIR, $FILEMASK, 1) ; _GetFileList($DIR, $FILEMASK [, Flag]) Flag GetFile(Default) = 0 , GetDirOnly = 1
;********************************************************************************
;Recursive search for filemask
;********************************************************************************Func _GetFileList($T_DIR,$T_MASK,$DIR_ONLY=0)
[/autoit]
Dim $N_DIRNAMES[200000] ; max number of directories that can be scanned
Local $N_DIRCOUNT = 0
Local $N_FILE
Local $N_SEARCH
Local $N_TFILE
Local $N_OFILE
Local $T_FILENAMES
Local $T_FILECOUNT
Local $T_DIRCOUNT = 1
Local $FILEMASK
; check Filemask \ for empty File-Array by GetDirOnly
If $FILEMASK = "n" Then $FILEMASK = "*.no"
; remove the end \ If specified
If StringRight($T_DIR,1) = "\" Then $T_DIR = StringTrimRight($T_DIR,1)
$N_DIRNAMES[$T_DIRCOUNT] = $T_DIR
; Exit if base dir doesn't exists
If Not FileExists($T_DIR) Then Return 0
; keep on looping until all directories are scanned
While $T_DIRCOUNT > $N_DIRCOUNT
$N_DIRCOUNT = $N_DIRCOUNT + 1
; find all subdirs in this directory and save them in a array
$N_SEARCH = FileFindFirstFile($N_DIRNAMES[$N_DIRCOUNT] & "\*.*")
While 1
$N_FILE = FileFindNextFile($N_SEARCH)
If @error Then ExitLoop
; skip these references
If $N_FILE = "." Or $N_FILE = ".." Then ContinueLoop
$N_TFILE = $N_DIRNAMES[$N_DIRCOUNT] & "\" & $N_FILE
; if Directory than add to the list of directories to be processed
If StringInStr(FileGetAttrib( $N_TFILE ),"D") > 0 Then
$T_DIRCOUNT = $T_DIRCOUNT + 1
$N_DIRNAMES[$T_DIRCOUNT] = $N_TFILE
EndIf
Wend
FileClose($N_SEARCH) ; find all Files that mtach the MASK
$N_SEARCH = FileFindFirstFile($N_DIRNAMES[$N_DIRCOUNT] & "\" & $T_MASK )
If $N_SEARCH = -1 Then ContinueLoop
While 1
$N_FILE = FileFindNextFile($N_SEARCH)
If @error Then ExitLoop
; skip these references
If $N_FILE = "." Or $N_FILE = ".." Then ContinueLoop
$N_TFILE = $N_DIRNAMES[$N_DIRCOUNT] & "\" & $N_FILE
; if Directory than add to the list of directories to be processed
If StringInStr(FileGetAttrib( $N_TFILE ),"D") = 0 Then
$T_FILENAMES = $T_FILENAMES & $N_TFILE & @CR
$T_FILECOUNT = $T_FILECOUNT + 1
;MsgBox(0,'filecount ' & $T_FILECOUNT ,$N_TFILE)
EndIf
Wend
FileClose($N_SEARCH)
Wend
If $DIR_ONLY = 0 Then
$T_FILENAMES = StringTrimRight($T_FILENAMES,1)
$N_OFILE = StringSplit($T_FILENAMES,@CR)
Return( $N_OFILE )
Else
ReDim $N_DIRNAMES[$N_DIRCOUNT+1]
$N_DIRNAMES[0] = $N_DIRCOUNT
Return $N_DIRNAMES
EndIf
EndFunc ;==>_GetFileList -
Oh Sorry BugFix
ich bin Blöd habe nicht gemerkt das er auch vorm ersten Tausch 5 min wartet xDSry echt geil vielen dank für deine Hilfe
MFG Eistee
-
Vielen Dank BugFix
habe nur ein Problem und zwar wo sage ich dem script welche bilder er installieren soll ?
ok habe es jetzt getestet
1. er erstellt zwar die Ordner aber er installiert die bilder nicht
2. wenn ich bei _install den code von dir durch meinen ersetze installiert er die bilder
3. er wechselt den hintergrund nichtkein plan vielleicht übersehe ich irgendwas ? HIer mal der script mit meiner fileinstall anpassung
Spoiler anzeigen
[autoit]Global Const $SPIF_SENDWININICHANGE = 0x2
[/autoit] [autoit][/autoit] [autoit]
Global Const $SPIF_UPDATEINIFILE = 0x1
Global Const $SPI_SETDESKWALLPAPER = 20
Global $arBild[10] = [ _
"C:\BS\PICCHANGE\1\bild.bmp", _
"C:\BS\PICCHANGE\2\bild.bmp", _
"C:\BS\PICCHANGE\3\bild.bmp", _
"C:\BS\PICCHANGE\4\bild.bmp", _
"C:\BS\PICCHANGE\5\bild.bmp", _
"C:\BS\PICCHANGE\6\bild.bmp", _
"C:\BS\PICCHANGE\7\bild.bmp", _
"C:\BS\PICCHANGE\8\bild.bmp", _
"C:\BS\PICCHANGE\9\bild.bmp", _
"C:\BS\PICCHANGE\10\bild.bmp"]
Global $pos = 0#Include <Constants.au3>
[/autoit] [autoit][/autoit] [autoit]
$size = FileGetSize("C:\BS\PICCHANGE\1\" & $arBild[0])
If $size = 0 then _Install ()Func _Install ()
[/autoit] [autoit][/autoit] [autoit]
For $i = 1 To 10
DirCreate("C:\BS\PICCHANGE\" & $i)
FileInstall("1.bmp", "C:\BS\PICCHANGE\1\bild.bmp")
FileInstall("2.bmp", "C:\BS\PICCHANGE\2\bild.bmp")
FileInstall("3.bmp", "C:\BS\PICCHANGE\3\bild.bmp")
FileInstall("4.bmp", "C:\BS\PICCHANGE\4\bild.bmp")
FileInstall("5.bmp", "C:\BS\PICCHANGE\5\bild.bmp")
FileInstall("6.bmp", "C:\BS\PICCHANGE\6\bild.bmp")
FileInstall("7.bmp", "C:\BS\PICCHANGE\7\bild.bmp")
FileInstall("8.bmp", "C:\BS\PICCHANGE\8\bild.bmp")
FileInstall("9.bmp", "C:\BS\PICCHANGE\9\bild.bmp")
FileInstall("10.bmp", "C:\BS\PICCHANGE\10\bild.bmp")
Next
EndFuncOpt("TrayMenuMode",1) ; Standard Traymenüeinträge (Script pausieren/beenden) werden nicht angezeigt.
[/autoit] [autoit][/autoit] [autoit]$E = TrayCreateMenu("Einstellungen")
[/autoit] [autoit][/autoit] [autoit]
$In = TrayCreateItem("Intervall", $E)
$B = TrayCreateItem("Bilder Tauschen", $E)
$AB = TrayCreateItem("About")
$EX = TrayCreateItem("Beenden")TraySetState()
[/autoit] [autoit][/autoit] [autoit]
AdlibEnable('_chgWallpaper', 300000)While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = TrayGetMsg()
Switch $msg
Case $AB
Msgbox(64,"Über:","AutoIt3-Tray-Beispiel")
Case $EX
Exit
EndSwitch
WEndFunc _chgWallpaper()
[/autoit]
If $pos = 10 Then $pos = 0
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, _
"uint", 0, "str", $arBild[$pos], "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
$pos += 1
EndFunc -
Hallo Liebe Gemeinde
ich habe mir ein programm geschrieben das mir alle 5 minuten ein anderes wallpaper aufs desktop macht und wollte da noch ein traymenu mit rein bauen, seit dieses mit drinnen ist wird mein script erst ausgeführt wenn ich im traymenu auf beenden gehe und der script lässt sich dann auch nicht mehr beenden. Könnte da evtl. mal jemand drüberschauen ich finde den fehler nicht...
MFG Eistee
Spoiler anzeigen
[autoit]Global Const $SPIF_SENDWININICHANGE = 0x2
[/autoit] [autoit][/autoit] [autoit]
Global Const $SPIF_UPDATEINIFILE = 0x1
Global Const $SPI_SETDESKWALLPAPER = 20
Global $bild1 = "C:\BS\PICCHANGE\1\bild.bmp"
Global $bild2 = "C:\BS\PICCHANGE\2\bild.bmp"
Global $bild3 = "C:\BS\PICCHANGE\3\bild.bmp"
Global $bild4 = "C:\BS\PICCHANGE\4\bild.bmp"
Global $bild5 = "C:\BS\PICCHANGE\5\bild.bmp"
Global $bild6 = "C:\BS\PICCHANGE\6\bild.bmp"
Global $bild7 = "C:\BS\PICCHANGE\7\bild.bmp"
Global $bild8 = "C:\BS\PICCHANGE\8\bild.bmp"
Global $bild9 = "C:\BS\PICCHANGE\9\bild.bmp"
Global $bild10 = "C:\BS\PICCHANGE\10\bild.bmp"
#Include <Constants.au3>
$size = FileGetSize("C:\BS\PICCHANGE\1\bild.bmp")
If $size = 0 then _Install ()Func _Install ()
[/autoit] [autoit][/autoit] [autoit]
DirCreate("C:\BS\PICCHANGE\1")
DirCreate("C:\BS\PICCHANGE\2")
DirCreate("C:\BS\PICCHANGE\3")
DirCreate("C:\BS\PICCHANGE\4")
DirCreate("C:\BS\PICCHANGE\5")
DirCreate("C:\BS\PICCHANGE\6")
DirCreate("C:\BS\PICCHANGE\7")
DirCreate("C:\BS\PICCHANGE\8")
DirCreate("C:\BS\PICCHANGE\9")
DirCreate("C:\BS\PICCHANGE\10")
FileInstall("1.bmp", "C:\BS\PICCHANGE\1\bild.bmp")
FileInstall("2.bmp", "C:\BS\PICCHANGE\2\bild.bmp")
FileInstall("3.bmp", "C:\BS\PICCHANGE\3\bild.bmp")
FileInstall("4.bmp", "C:\BS\PICCHANGE\4\bild.bmp")
FileInstall("5.bmp", "C:\BS\PICCHANGE\5\bild.bmp")
FileInstall("6.bmp", "C:\BS\PICCHANGE\6\bild.bmp")
FileInstall("7.bmp", "C:\BS\PICCHANGE\7\bild.bmp")
FileInstall("8.bmp", "C:\BS\PICCHANGE\8\bild.bmp")
FileInstall("9.bmp", "C:\BS\PICCHANGE\9\bild.bmp")
FileInstall("10.bmp", "C:\BS\PICCHANGE\10\bild.bmp")
EndFuncOpt("TrayMenuMode",1) ; Standard Traymenüeinträge (Script pausieren/beenden) werden nicht angezeigt.
[/autoit] [autoit][/autoit] [autoit]$E = TrayCreateMenu("Einstellungen")
[/autoit] [autoit][/autoit] [autoit]
$I = TrayCreateItem("Intervall", $E)
$B = TrayCreateItem("Bilder Tauschen", $E)
$AB = TrayCreateItem("About")
$EX = TrayCreateItem("Beenden")TraySetState()
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
_1 ()
Case $msg = $AB
Msgbox(64,"Über:","AutoIt3-Tray-Beispiel")
Case $msg = $EX
ExitLoop
Exit
EndSelect
WEnd_1 ()
[/autoit] [autoit][/autoit] [autoit]Func _1 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild1, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_2()
EndFuncFunc _2 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild2, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_3()
EndFuncFunc _3 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild3, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_4()
EndFuncFunc _4 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild4, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_5()
EndFuncFunc _5 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild5, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_6()
EndFuncFunc _6 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild6, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_7()
EndFuncFunc _7 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild7, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_8()
EndFuncFunc _8 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild8, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_9()
EndFuncFunc _9 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild9, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_10()
EndFuncFunc _10 ()
[/autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild10, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_1()
EndFunc -
Hallo liebe autoit Gemeinde
ich habe das Forum nach ener möglichkeit gesucht ohne verzögerung den desktop hintergrund zu ändern und bin auch fündig geworden das problem ist nur das der script den ich gefunden habe das bild als "nebeneinander" einstellt
das schlechte daran ist das ich mmit etwas kleineren Bildern arbeiten möchte da es auch bei freunden Funktionieren soll . Und jetzt die Frage/bitte wie kann ich den folgenden Code umschreiben sodass er das bild asl "Zentriert" einstelltMFG Eistee
Spoiler anzeigen
[autoit]Global Const $SPIF_SENDWININICHANGE = 0x2
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global Const $SPIF_UPDATEINIFILE = 0x1
Global Const $SPI_SETDESKWALLPAPER = 20
Global $bild1 = "C:\BS\PICCHANGE\1\bild.bmp"
Global $bild2 = "C:\BS\PICCHANGE\2\bild.bmp"
Global $bild3 = "C:\BS\PICCHANGE\3\bild.bmp"
Global $bild4 = "C:\BS\PICCHANGE\4\bild.bmp"
Global $bild5 = "C:\BS\PICCHANGE\5\bild.bmp"
Global $bild6 = "C:\BS\PICCHANGE\6\bild.bmp"
Global $bild7 = "C:\BS\PICCHANGE\7\bild.bmp"
Global $bild8 = "C:\BS\PICCHANGE\8\bild.bmp"
Global $bild9 = "C:\BS\PICCHANGE\9\bild.bmp"
Global $bild10 = "C:\BS\PICCHANGE\10\bild.bmp"$size = FileGetSize("C:\BS\PICCHANGE\1\bild.bmp")
[/autoit] [autoit][/autoit] [autoit]
If $size = 0 then _Install ()Func _Install ()
[/autoit] [autoit][/autoit] [autoit]
DirCreate("C:\BS\PICCHANGE\1")
DirCreate("C:\BS\PICCHANGE\2")
DirCreate("C:\BS\PICCHANGE\3")
DirCreate("C:\BS\PICCHANGE\4")
DirCreate("C:\BS\PICCHANGE\5")
DirCreate("C:\BS\PICCHANGE\6")
DirCreate("C:\BS\PICCHANGE\7")
DirCreate("C:\BS\PICCHANGE\8")
DirCreate("C:\BS\PICCHANGE\9")
DirCreate("C:\BS\PICCHANGE\10")
FileInstall("1.bmp", "C:\BS\PICCHANGE\1\bild.bmp")
FileInstall("2.bmp", "C:\BS\PICCHANGE\2\bild.bmp")
FileInstall("3.bmp", "C:\BS\PICCHANGE\3\bild.bmp")
FileInstall("4.bmp", "C:\BS\PICCHANGE\4\bild.bmp")
FileInstall("5.bmp", "C:\BS\PICCHANGE\5\bild.bmp")
FileInstall("6.bmp", "C:\BS\PICCHANGE\6\bild.bmp")
FileInstall("7.bmp", "C:\BS\PICCHANGE\7\bild.bmp")
FileInstall("8.bmp", "C:\BS\PICCHANGE\8\bild.bmp")
FileInstall("9.bmp", "C:\BS\PICCHANGE\9\bild.bmp")
FileInstall("10.bmp", "C:\BS\PICCHANGE\10\bild.bmp")
_1 ()
EndFunc_1 ()
[/autoit] [autoit][/autoit] [autoit]Func _1 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild1, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_2()
EndFuncFunc _2 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild2, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_3()
EndFuncFunc _3 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild3, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_4()
EndFuncFunc _4 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild4, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_5()
EndFuncFunc _5 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild5, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_6()
EndFuncFunc _6 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild6, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_7()
EndFuncFunc _7 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild7, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_8()
EndFuncFunc _8 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild8, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_9()
EndFuncFunc _9 ()
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild9, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_10()
EndFuncFunc _10 ()
[/autoit]
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild10, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_1()
EndFunc -
damit gibt er nur einen Error aus :
Spoiler anzeigen
C:\Dokumente und Einstellungen\Administrator\Desktop\MP3.au3 (137) : ==> Incorrect number of parameters in function call.:
$TITEL = _GUICtrlListView_GetItemText($LIST)
$TITEL = ^ ERROR -
ähm wieso funktioniert Die play func bitte nicht ?
jetzt wird doch endlich der jeweilige titel in den Listview gesetzt, was geht denn jetzt schon wieder schief ?ich poste mal meinen gesamten bisherigen code :
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#include <ListViewConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#include <SliderConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#include <StaticConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#include <WindowsConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#include <GuiListView.au3>
#include <Sound.au3>
#NoTrayIcon ;Sorgt dafür das unten im tray kein Symbol erscheintGlobal $VOLIST = _SoundGetWaveVolume () ;Bringt die momentane Stufe der Volume in Erfahrung und speichert diese Global in $VOLIST
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global $WM_DROPFILES = 0x233
Global $gaDropFiles[1], $str = ""$GUI = GUICreate("MP3", 600, 265, -1, -1,$WS_POPUP,$WS_EX_ACCEPTFILES) ;Erstellt eine GUI mit dem namen MP3 welches sich zentriert öffnet und ohne den Windows Rahmen arbeitet
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0x000000) ;Färbt den hintergrund der GUI schwarz$LIST = GUICtrlCreateListView("Titel", 5, 30, 590, 150) ;Erstellt einen ListView mit zwei Spalten :Titel,Pfad
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlSendMsg(-1, 0x101E, 0, 200) ;Weiss ich nicht
GUICtrlSendMsg(-1, 0x101E, 1, 386) ;Weiss ich nicht
GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman") ;Setzt die Schriftart auf Times New Roman
GUICtrlSetCursor (-1, 2) ;Verpasst dem Slider einen anderen Cursor$GROUP = GUICtrlCreateGroup(" Titel ", 5, 185, 100, 50) ;Erstellt eine Group zwecks der Optik
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 10, 400, 0, "Demonized") ;Stellt den Font auf Demonized
GUICtrlSetColor(-1, 0xFFFFFF) ;Setzt die Schriftfarbe auf Weiss$LABEL = GUICtrlCreateLabel("00:00", 15, 205, 57, 23) ;Erstellt ein Textlabel in der Group
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor(-1, 0xFFFFFF) ;Setzt die Schriftfarbe auf Weiss
GUICtrlCreateGroup("", -99, -99, 1, 1) ;Weisst das Label der Group zu$GROUP2 = GUICtrlCreateGroup(" Volume ", 420, 185, 175, 50) ;Erstellt eine Group zwecks der Optik
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 10, 400, 0, "Demonized") ;Stellt den Font auf Demonized
GUICtrlSetColor(-1, 0xFFFFFF) ;Setzt die Schriftfarbe auf Weiss$SLIDER = GUICtrlCreateSlider(430, 205, 160, 20) ;Erstellt meinen Volume Slider
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetLimit(-1,100,0) ;Sagt dem Slider das er von 0 - 100 Regeln soll
GUICtrlSetData($SLIDER, $VOLIST) ;Sagt dem Slider wo er starten soll
GUICtrlSetCursor (-1, 0) ;Verpasst dem Slider einen anderen Cursor
GUICtrlSetBkColor(-1, 0x000000) ;Färbt den Hintergrund schwarz ein
GUICtrlCreateGroup("", -99, -99, 1, 1) ;Weisst den Slider der Goup zu$BACK = GUICtrlCreateButton("Back", 120, 195, 60, 30, 0) ;Erstellt einen Button
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Stellt Font auf Times New Roman
GUICtrlSetCursor (-1, 0) ;Weisst einen anderen Cursor zu$PLAY = GUICtrlCreateButton("Play", 195, 195, 60, 30, 0) ;Erstellt einen Button
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Stellt Font auf Times New Roman
GUICtrlSetCursor (-1, 0) ;Weisst einen anderen Cursor zu$STOP = GUICtrlCreateButton("Stop", 270, 195, 60, 30, 0) ;Erstellt einen Button
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Stellt Font auf Times New Roman
GUICtrlSetCursor (-1, 0) ;Weisst einen anderen Cursor zu$FORWARD = GUICtrlCreateButton("Forward", 345, 195, 60, 30, 0) ;Erstellt einen Button
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Stellt Font auf Times New Roman
GUICtrlSetCursor (-1, 0) ;Weisst einen anderen Cursor zu$CLOSE = GUICtrlCreateButton("X", 570, 3, 25, 25, 0) ;Erstellt einen Button
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Stellt Font auf Times New Roman
GUICtrlSetCursor (-1, 0) ;Weisst einen anderen Cursor zu$MINI = GUICtrlCreateButton("_", 544, 3, 25, 25, 0) ;Erstellt einen Button
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Stellt Font auf Times New Roman
GUICtrlSetCursor (-1, 0) ;Weisst einen anderen Cursor zu$ABOUT = GUICtrlCreateButton("?", 518, 3, 25, 25, 0) ;Erstellt einen Button
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Stellt Font auf Times New Roman
GUICtrlSetCursor (-1, 0) ;Weisst einen anderen Cursor zu$LABELCOPY = GUICtrlCreateLabel("<c> by BlackShark", 504, 248, 93, 18) ;Erstellt ein Textlabel mit meinem Copyright
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 8, 800, 2, "Times New Roman") ;Stellt Font auf Times New Roman
GUICtrlSetColor(-1, 0xFFFFFF) ;Setzt die Schriftfarbe auf WeissGUISetState(@SW_SHOW) ;Setzt die GUI auf "ZEIGEN"
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]GUIRegisterMsg ($WM_DROPFILES, "WM_DROPFILES_FUNC")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1 ;Bereich zuweisung von Funktionen auf GUI Elemente beziehend Anfang
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_EVENT_DROPPED
For $i = 0 To UBound($gaDropFiles) - 1
GUICtrlCreateListViewItem(StringRegExpReplace($gaDropFiles[$i], '.*\\(.*)\..*', '$1'), $List)
_GUICtrlListView_SetColumnWidth($List, 0, $LVSCW_AUTOSIZE)
Next
Case $CLOSE ;Hier bestimmt man um welches GUI Element es sich handelt
_CLOSE () ;Hier sagt man ihm was er machen soll in diesem Fall _CLOSE ()
Case $MINI
_MINI ()
Case $ABOUT
_ABOUT ()
Case $SLIDER
_VOLUME ()
Case $PLAY
_PLAY ()
EndSwitch
WEnd ;Bereich zuweisung von Funktionen auf GUI Elemente beziehend EndeFunc _PLAY()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$TITEL = Guictrlread($LIST)
_SoundPlay($TITEL,0)
EndFuncFunc WM_DROPFILES_FUNC($hWnd, $msgID, $wParam, $lParam)
[/autoit] [autoit][/autoit] [autoit]
Local $nSize, $pFileName
Local $nAmt = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", 0xFFFFFFFF, "ptr", 0, "int", 255)
For $i = 0 To $nAmt[0] - 1
$nSize = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", 0, "int", 0)
$nSize = $nSize[0] + 1
$pFileName = DllStructCreate("char[" & $nSize & "]")
DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", DllStructGetPtr($pFileName), "int", $nSize)
ReDim $gaDropFiles[$i+1]
$gaDropFiles[$i] = DllStructGetData($pFileName, 1)
$pFileName = 0
Next
EndFuncFunc _VOLUME () ;Setzt die derzeitige Lautstärke auf den vom Benutzer gewählten bereich
[/autoit] [autoit][/autoit] [autoit]
$VOLNEW = GUICtrlRead($SLIDER)
SoundSetWaveVolume($VOLNEW)
EndFuncFunc _SoundGetWaveVolume() ;Bring den momentanen Wert der Lautstärke in erfahrung von Autoit.de User Deepred
[/autoit] [autoit][/autoit] [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
EndFuncFunc _ABOUT () ;Startet meine ABOUT.exe welche mein logo anzeigt
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_MINIMIZE, $GUI)
Run("C:\BS\MP3\ABOUT.exe")
Sleep(2100)
GUISetState(@SW_RESTORE, $GUI)
EndFuncFunc _MINI () ;Hiermit kann ich meine GUI minimieren
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_MINIMIZE, $GUI)
EndFuncFunc _CLOSE () ;Hiermit kann ich meine GUI schließen
[/autoit]
Exit
EndFunchoffe ihr könnt helfen
MFG Eistee
-
@ Oscar
Hey vielen vielen dank so geht es gut ein problem weniger xD echt nice danke dir@ nuts
Soweit ich weiss spielt er :
wma. mp3. wave.
mehr nicht glaub ichMFG
-
@ Oscar ich weiss dein Player war schuld dran das ich auch einen schreiben will das problem ist nur das dein Source Code so Gross ist das ich nicht durchsteige
weshalb er mir leider nicht weitergeholfen hatt,tut mir leid dein Code ist zu gut . Würde mich freuen wenn du mir auch so ein wenig helfen kannstMfg Eistee
P.s.
Soweit bin ich im moment habe diesen beitra im englischen forum gesehen
das problem ist das er das feld ständig resetet wenn man was hinzufügen will da sitz ich jetz schon ein par stunden dran...
Spoiler anzeigen
[autoit]#include<GuiListView.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#Include <GuiEdit.au3>
#include <ButtonConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#include <GUIConstantsEx.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#include <ListViewConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#include <SliderConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#include <StaticConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#include <WindowsConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script einGlobal $WM_DROPFILES = 0x233
[/autoit] [autoit][/autoit] [autoit]
Global $gaDropFiles[1], $str = ""### Koda GUI section start ###
[/autoit] [autoit][/autoit] [autoit]
$hGUI = GUICreate("Test", 400, 200, 219, 178, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_TOPMOST))
$hList = GUICtrlCreateList("", 5, 5, 390, 190)
GUICtrlSetState (-1, $GUI_DROPACCEPTED)
GUISetState(@SW_SHOW)
### Koda GUI section end ###GUIRegisterMsg ($WM_DROPFILES, "WM_DROPFILES_FUNC")
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_EVENT_DROPPED
$str = ""
For $i = 0 To UBound($gaDropFiles) - 1
$str &= "|" & $gaDropFiles[$i]
Next
GUICtrlSetData($hList, $str)
EndSwitch
WEndFunc WM_DROPFILES_FUNC($hWnd, $msgID, $wParam, $lParam)
[/autoit]
Local $nSize, $pFileName
Local $nAmt = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", 0xFFFFFFFF, "ptr", 0, "int", 255)
For $i = 0 To $nAmt[0] - 1
$nSize = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", 0, "int", 0)
$nSize = $nSize[0] + 1
$pFileName = DllStructCreate("char[" & $nSize & "]")
DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", DllStructGetPtr($pFileName), "int", $nSize)
ReDim $gaDropFiles[$i+1]
$gaDropFiles[$i] = DllStructGetData($pFileName, 1)
$pFileName = 0
Next
EndFuncMFG
-
Hallo Leute ich bins mal wieder
ich würde gerne wissen wie ich z.B. mp3 dateien in einen Listview ziehen kann (drag and Drop)
und dieser dann die MusikTitel auflistet und ich diese titel dan theoretisch mit soundplay abspielen kann
gibt es da bereits möglichkeiten ?MFG EISTEE
bisheriger testcode:
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#include <ListViewConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#include <SliderConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#include <StaticConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#include <WindowsConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
#NoTrayIcon ;Sorgt dafür das unten im tray kein Symbol erscheint$GUI = GUICreate("MP3", 600, 265, -1, -1,$WS_POPUP) ;Erstellt eine GUI mit dem namen MP3 welches sich zentriert öffnet und ohne den Windows Rahmen arbeitet
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0x000000)$LIST = GUICtrlCreateListView("Titel|Pfad", 5, 30, 590, 150) ;Erstellt einen ListView mit zwei Spalten :Titel,Pfad
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSendMsg(-1, 0x101E, 0, 200) ;Weiss ich nicht
GUICtrlSendMsg(-1, 0x101E, 1, 386) ;Weiss ich nicht
GUICtrlSetState($LIST, $GUI_DROPACCEPTED)
GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Setzt die Schriftart auf Times New Roman
GUICtrlSetCursor (-1, 2)While 1 ;Bereich zuweisung von Funktionen auf GUI Elemente beziehend Anfang
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd ;Bereich zuweisung von Funktionen auf GUI Elemente beziehend Ende -
Ahso ja danke mit Guictrlsetlimit durcheinander gekommen thx
-
Hallo Liebe Community
Wie die Überschrift schon sagt versuche ich mich gerade an einem eigenen Player, diesbezüglich habe ich ein paar grundlegende Frage und bin mir sicher das im laufe der zeit noch einige hinzukommen werden weshalb ich einen Sammelthread gemacht habeDie erste frage die mich interressiert ist folgende :
wie sage ich einem erstellten slider an welcher stelle er in seiner verschiebeleiste zu beginn stehen soll ? Mit Guictrlsetdata habe ich nur herausbekommen wie ich ihm sage von welchem wert bis zu welchem Wert er verschiebbar ist.
Ich möchte mit soundgetwavevolume den momentanen wert der lautstärke auslesen lassen und dafür sorgen das der Slider auch an der stelle des momentanen Wertes beginntFür eure Hilfe die ich im moment sehr gut gebrauchen kann danke ich euch schon einmal im vorraus
MFG Eistee
P.S. hier schon mal der Slider MFG
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
Global $VOLIST = _SoundGetWaveVolume ()$GUI = GUICreate("MP3", 601, 268, -1, -1,$WS_POPUP)
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0x000000)$SLIDER = GUICtrlCreateSlider(430, 205, 160, 20)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetLimit(-1,100,0)
GUICtrlSetCursor (-1, 0)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)Func _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
EndFunc