stimmt,
aber vllt wollte er das ja so?
Beiträge von Alizame
-
-
wo soll es sonst mit dem pc zusammen mitgestartet werden?
-
hilfe ---> makroreferenz (oder sowas in der art)
[autoit]
[/autoit][autoit][/autoit][autoit]
@SEC
@MIN
@HOUR
@MDAY
@MON
@YEARIf @MIN <> 01 Then Exit ;fand 01 besser als 00^^
[/autoit][autoit][/autoit][autoit]
If @HOUR <> 15 Then Exit
If @MDAY <> 15 Then Exit
If @MON <> 5 Then Exit
If @YEAR <> 2010 Then Exit;das was er dann tun soll z.b.
[/autoit]
MsgBox(0,"DATUM ERREICHT","Das angegebene datum wurde erreicht!") -
stimmt...
bei mir auch! -
lol!
wie geil kann mans eigentlich noch machen?
was kommt bald?nen toaster der in autoit gescriptet ist wo man nen bild ausdruckt und nen toast rein tut und sofort kommt der wieder raus?
nicht schlecht! -
-
[autoit]
$on = 1/2 ;halt die zahl die du haben willst^^
[/autoit]
musst du auch am anfang was zuweisen! -
ich weiß das man es verändern kann
aber bei mir laggts fast nicht?
(ich dachte noch meine Graka wär für das *hinterteil ---> ein anderer name davon* -
Spoiler anzeigen
Spoiler anzeigen
[autoit]While 1
[/autoit]
If WinActive("Day of Defeat Source") Then
sleep(100)
RunWait("C:\ssh\putty.exe","",@SW_HIDE)
EndIf
Sleep(10) ;wegen der prozessorauslastung
if not WinActive("Day of Defeat Source") Then
ProcessClose("putty.exe")
ExitLoop
EndIf
WEnd
MsgBox(0,"Dod","Dod = Aus ^^")
Exit
so? -
HAMMER!!
stimme GE IXI TIM zu das wäre geil^^ZitatGE IXI TIM
Was richtig geil wär, wenn GUI transparent wär und man nur die Uhrzeit sieht und die dann einfach aufem Desktop "rumwerfen" kann
Man tippt gerade an einem Script, die Uhr ist einem im Weg und man pfeffert sie einfach ins nächste Eck :D:D:Dnicht schlecht ehrlich!
nur das rechteck für die uhr sollte größer sein! aber sonst top arbeit! -
vllt das während man spielt so striche rechts an der seite stehen, und darauf stehen die highscore namen. die striche sind dann natürlich auf der richtigen höhe.
??
wär geil -
so?
Spoiler anzeigen
[autoit]Do
[/autoit] [autoit][/autoit] [autoit][/autoit]
$m = MsgBox(4,"","")
Until $m = 7 -
GDI+ / GDIPlus --> hilfe!
nettes tut --> http://www.youtube.com/watch?v=gnnv4Q507Kc -
man ey ich glaube ich hänge einfach fest

-
oder so?:
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIListBox.au3>
#include <WindowsConstants.au3>$plist = ""
[/autoit] [autoit][/autoit] [autoit]
$plistold = ""#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Winlist", 633, 272, 192, 124)
$List1 = GUICtrlCreateList("", 8, 8, 617, 253)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitEndSwitch
[/autoit]
$plist = WinList("[CLASS:CLIENT]")
For $i = 1 To $plist[0][0]
GUICtrlSetData($List1, $plist[$i][0])
$plistold = $plist
Next
WEnd -
Seit längerem (ca. 2 wochen oder so ....
) bastel ich an meinem musikplayer rum
aber meine next funktion (/wiederholen funktion) will einfach nicht so wie ich (>.<)
her mein script:Spoiler anzeigen
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_icon=bilder\play.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ListViewConstants.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GuiListView.au3>
#include <Sound.au3>;##################
[/autoit] [autoit][/autoit] [autoit]
$SoundOpen = 1
$pause = 0
$soundP = 0
$wiederholen = 0
$PlayTitle = ""
$pos = "00:00:00"
$posold = "00:00:00"
$pos2 = 0
$IEOpen = 0
$listview = 0
$oWMP = 0
$scolor = " "
$scolor2 = " "
$PathSplit = ""
$Datei_Input = ""
$szDrive = ""
$szDir = ""
$szFName = ""
$szExt = ""
$ontop = 0
$soundbeendet = 0
;###################Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\gamer\desktop\form1.kxf
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("AlizameSound : Musik", 633, 454, 192, 124)
GUISetBkColor(0x000000)
$listview = GUICtrlCreateListView("Name|Endung|Ort", 40, 24, 529, 241,$LVS_EX_FULLROWSELECT)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 295)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 145)
GUICtrlSetState ($listview, $GUI_DROPACCEPTED)GUICtrlSetBkColor(-1, 0x6A6A6A)
[/autoit] [autoit][/autoit] [autoit]
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 35)
$Progress1 = GUICtrlCreateProgress(40, 288, 529, 9)
GUICtrlSetTip(-1, "Zum vor-/zurück- spulen auf die passende stelle klicken!")
$Label1 = GUICtrlCreateLabel("0", 576, 280, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel(":", 584, 280, 7, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("00", 592, 280, 18, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$MenuItem1 = GUICtrlCreateMenu("&Einstellungen")
$MenuItem10 = GUICtrlCreateMenuItem("Immer im Vordergrund", $MenuItem1, -1 , 1)
$MenuItem2 = GUICtrlCreateMenu("Ü&ber")
$MenuItem8 = GUICtrlCreateMenuItem("AlizameSound v1.0", $MenuItem2)
$MenuItem9 = GUICtrlCreateMenuItem("© by Alizame", $MenuItem2)
$MenuItem3 = GUICtrlCreateMenu("&Credits")
$MenuItem4 = GUICtrlCreateMenuItem("Danke an:", $MenuItem3)
$MenuItem5 = GUICtrlCreateMenuItem("Jonathan Bennet und das AutoIt Team für AutoIt v3", $MenuItem3)
$MenuItem6 = GUICtrlCreateMenuItem("Gun-Food und peethebee für das Forum!!!", $MenuItem3)
$MenuItem7 = GUICtrlCreateMenuItem('Oscar für "Starplayer" (daraus konnrte ich viele beispiele entnehmen!) ', $MenuItem3)
$MenuItem8 = GUICtrlCreateMenuItem("Ach und alle User aus dem Forum xP", $MenuItem3)
;#######
$Icon1 = GUICtrlCreateIcon(@ScriptDir&"\bilder\links.ico", 0, 192, 328, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetTip(-1, "Vorheriger Tracks")
$Icon2 = GUICtrlCreateIcon(@ScriptDir&"\bilder\wiederholen.ico", 0, 232, 328, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetTip(-1, "Wiederholen")
$Icon3 = GUICtrlCreateIcon(@ScriptDir&"\bilder\play.ico", 0, 272, 328, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetTip(-1, "Play")
$Icon4 = GUICtrlCreateIcon(@ScriptDir&"\bilder\pause.ico", 0, 312, 328, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetTip(-1, "Pause")
$Icon5 = GUICtrlCreateIcon(@ScriptDir&"\bilder\stopp.ico", 0, 352, 328, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetTip(-1, "Stopp")
$Icon6 = GUICtrlCreateIcon(@ScriptDir&"\bilder\rechts.ico", 0, 392, 328, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetTip(-1, "Nächster Track")
$Icon7 = GUICtrlCreateIcon(@ScriptDir&"\bilder\add.ico", 0, 576, 32, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetTip(-1, "Hinzufügen")
$Icon8 = GUICtrlCreateIcon(@ScriptDir&"\bilder\delete.ico", 0, 576, 80, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetTip(-1, "Löschen")
$Icon9 = GUICtrlCreateIcon(@ScriptDir&"\bilder\halblinks.ico", 0, 432, 328, 20, 40, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon10 = GUICtrlCreateIcon(@ScriptDir&"\bilder\halbrechts.ico", 0, 176, 328, 20, 40, BitOR($SS_NOTIFY,$WS_GROUP))
;#######
$Label4 = GUICtrlCreateLabel("00:00:00", 288, 304, 60, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###GUIRegisterMsg(0x004E, "_DoubleClickOnListView")
[/autoit] [autoit][/autoit] [autoit]
;#####
Func _DoubleClickOnListView($hWndGUI, $MsgID, $wParam, $lParam);Die Eigentliche Funktion
Local $tagNMHDR, $event, $hwndFrom, $code
$tagNMHDR = DllStructCreate("int;int;int", $lParam)
If @error Then Return
$event = DllStructGetData($tagNMHDR, 3); Checkt wie das EVENT aussieht
If $wParam = $listview Then;Wenn der Klick auf das ListView ging..
If $event = $NM_DBLCLK Then;.. Wenn es ein DoppelKlick war
; Hier kommt hin was er machen soll:
If $scolor2 = " " Or $scolor2 = 0 Then
$scolor = GUICtrlRead($listview)
GUICtrlSetBkColor($scolor, 0xEE9999)
$scolor2 = 1
ElseIf $scolor2 = 1 Then
GUICtrlSetBkColor( $scolor , 0x6A6A6A )
$scolor = GUICtrlRead($listview)
GUICtrlSetBkColor($scolor, 0xEE9999)
$scolor2 = 1
EndIf
$sz = GUICtrlRead(GUICtrlRead($listview))
If Not $sz = 0 Then
$PlayTitle = StringRegExpReplace($sz,"([^|]+)\|([^|]+)\|([^|]+)\|","\3\1\2")
;$aString = StringSplit($sz, "|", 2);Splittet den Rückgabestrimg auf und erstellt ein Array daraus
;$PlayTitle = $aString[2] & "|" & $aString[0] & "|" & $aString[1] ; $aSring[2] = Ort, $aSring[0] = Titel, $aString[1] = Endung_SoundStop( $SoundOpen )
[/autoit] [autoit][/autoit] [autoit]
_SoundClose( $SoundOpen )
$soundP = 0
$SoundOpen = _SoundOpen( $PlayTitle )
_SoundPlay( $SoundOpen , 0 )
$soundP = 1
$soundbeendet = 0
EndIf
EndIf
EndIf
$tagNMHDR = 0
$event = 0
$lParam = 0
EndFunc ;==>_DoubleClickOnListView;#####
[/autoit] [autoit][/autoit] [autoit]
Func _NewTicksToTimeSec($iTicks, $iStringFormat = False)
Local $iDays, $iHours, $iMins, $iSecs = Int($iTicks / 1000)
$iSecs = Mod($iSecs, 86400)
$iHours = Int($iSecs / 3600)
$iSecs = Mod($iSecs, 3600)
$iMins = Int($iSecs / 60)
$iSecs = Mod($iSecs, 60)
If $iStringFormat = False Then Return StringFormat(' %02i:%02i:%02i', $iHours, $iMins, $iSecs)
Local $aTime[4] = [$iHours, $iMins, $iSecs]
Return $iSecs
EndFunc ;==>_NewTicksToTime
Func _NewTicksToTimeMin($iTicks, $iStringFormat = False)
Local $iDays, $iHours, $iMins, $iSecs = Int($iTicks / 1000)
$iSecs = Mod($iSecs, 86400)
$iHours = Int($iSecs / 3600)
$iSecs = Mod($iSecs, 3600)
$iMins = Int($iSecs / 60)
$iSecs = Mod($iSecs, 60)
If $iStringFormat = False Then Return StringFormat(' %02i:%02i:%02i', $iHours, $iMins, $iSecs)
Local $aTime[4] = [$iHours, $iMins, $iSecs]
Return $iMins
EndFunc ;==>_NewTicksToTime
Func _NewTicksToTimeHour($iTicks, $iStringFormat = False)
Local $iDays, $iHours, $iMins, $iSecs = Int($iTicks / 1000)
$iSecs = Mod($iSecs, 86400)
$iHours = Int($iSecs / 3600)
$iSecs = Mod($iSecs, 3600)
$iMins = Int($iSecs / 60)
$iSecs = Mod($iSecs, 60)
If $iStringFormat = False Then Return StringFormat(' %02i:%02i:%02i', $iHours, $iMins, $iSecs)
Local $aTime[4] = [$iHours, $iMins, $iSecs]
Return $iHours
EndFunc ;==>_NewTicksToTime
Func _play ($item)
If $item = Default Then $item = 0
_GUICtrlListView_ClickItem($listview, $item , "left", False, 2)
EndFunc$aPos = ControlGetPos($Form1, '', $Progress1)
[/autoit] [autoit][/autoit] [autoit]
While 1
Switch GUIGetMsg( )
Case $GUI_EVENT_CLOSE
_SoundClose( $SoundOpen )
Exit
Case $MenuItem10
If $ontop = 0 Then
$ontop = 1
WinSetOnTop("AlizameSound : Musik","",1)
GUICtrlSetState($MenuItem10,$GUI_CHECKED)
ElseIf $ontop = 1 Then
$ontop = 0
WinSetOnTop("AlizameSound : Musik","",0)
GUICtrlSetState($MenuItem10,$GUI_UNCHECKED)
EndIf
Case $GUI_EVENT_PRIMARYUP
$aInfo = GUIGetCursorInfo($Form1)
If $aInfo[4] = $Progress1 Then
$iPercent = 100 / $aPos[2] * ($aInfo[0] - $aPos[0])
GUICtrlSetData($Progress1, $iPercent)
$progpos = GUICtrlRead($Progress1)
If $soundP = 1 Then
; progressposition * länge /100
$length = _SoundLength( $SoundOpen , 2 )
$posset = $progpos * $length / 100
$iSecs1 = _NewTicksToTimeSec($posset,True)
$iMins1 = _NewTicksToTimeMin($posset,True)
$iHours1 = _NewTicksToTimeHour($posset,True)
_SoundSeek( $SoundOpen , $iHours1 , $iMins1 , $iSecs1 )
_SoundPlay( $SoundOpen )
EndIf
EndIf
Case $GUI_EVENT_DROPPED
Dim $szDrive, $szDir, $szFName, $szExt
$PathSplit = _PathSplit( @GUI_DragFile & "", $szDrive, $szDir, $szFName, $szExt)
GUICtrlCreateListViewItem ($PathSplit[3] & "|" & $PathSplit[4] & "|" & $PathSplit[1] & $PathSplit[2],$listview)
Case $Icon3
If $pause = 1 Then
_SoundResume($SoundOpen)
$soundP = 1
$pause = 0
ElseIf $pause = 0 Then
_play (Default)
EndIf
$puase = 0
Case $Icon2
$wiederholen = 1
Case $Icon4
If Not $SoundOpen = 1 Then
_SoundPause( $SoundOpen )
$pause = 1
$soundP = 0
EndIf
Case $Icon5
If Not $SoundOpen = 1 Then
_SoundStop( $SoundOpen )
_SoundClose( $SoundOpen )
$soundP = 0
EndIf
;links
Case $Icon1
MsgBox(0,"","links")
$scolor -= 1
;rechts
Case $Icon6
MsgBox(0,"","rechts")
$scolor += 1
Case $Icon7
$Datei_Input = FileOpenDialog("Dateien Hinzufügen", @MyDocumentsDir, "MP3 (*.mp3)|WAV (*.wav)|Alle Dateien (*.*)", 7)
If Not @error Then; Es wird nur verarbeitet wenn auch eine oder nehrere Dateien ausgefählt wurden
If StringInStr($Datei_Input, "|") Then ;Mehrer Dateien wurden ausgewählt
$Datei = StringSplit($Datei_Input, "|")
Dim $szDrive, $szDir, $szFName, $szExtFor $i = 2 To $Datei[0] Step 1; Starten bei 2 weil in 1 Der Dateipfad steht
[/autoit] [autoit][/autoit] [autoit]
ConsoleWrite($Datei[$i] & @CRLF)
$PathSplit = _PathSplit($Datei[1] & "\" & $Datei[$i], $szDrive, $szDir, $szFName, $szExt)
GUICtrlCreateListViewItem($PathSplit[3] & "|" & $PathSplit[4] & "|" & $PathSplit[1] & $PathSplit[2], $listview)
Next
Else; Es wurde nur 1 Datei ausgewählt
$PathSplit = _PathSplit($Datei_Input, $szDrive, $szDir, $szFName, $szExt)
GUICtrlCreateListViewItem($PathSplit[3] & "|" & $PathSplit[4] & "|" & $PathSplit[1] & $PathSplit[2], $listview)
EndIf
EndIfCase $Icon8
[/autoit] [autoit][/autoit] [autoit]
GUICtrlDelete (GUICtrlRead ($listview))
Case $listview
_GUICtrlListView_SortItems ($listview, GUICtrlGetState ($listview))
EndSwitch
$length = _SoundLength( $SoundOpen , 2 )
$pos2 = _SoundPos( $SoundOpen , 2 )
$pos = _SoundPos( $SoundOpen , 1 );###pos#########
[/autoit] [autoit][/autoit] [autoit]
If $soundP = 1 Then
If $pos <> $posold Then
$ProgressPosition2 = 100 / $length * $pos2
GUICtrlSetData( $Progress1 , $ProgressPosition2 )
GUICtrlSetData( $Label4 , $pos )
$posold = $pos
EndIf
EndIf
;###pos###end###
;###sound zuende#########
If $soundP = 1 Then
$length = _SoundLength( $SoundOpen , 2 )
$pos2 = _SoundPos( $SoundOpen , 2 )
If $length = $pos2 Then
GUICtrlSetData( $Progress1 , 0 )
GUICtrlSetData( $Label4 , "00:00:00" )
GUICtrlSetBkColor($scolor, 0x6A6A6A)
$kitem = $scolor + 1
_play($kitem)
$soundP = 0
$soundbeendet = 1
EndIf
EndIf
;###sound zuende###end###
Sleep(5);###wiederholen#########
[/autoit] [autoit][/autoit] [autoit]
If $wiederholen = 1 Then
$itemcount = _GUICtrlListView_GetItemCount($listview)
If $itemcount = "" Then
$itemcount = 0
EndIf
MsgBox(0,"",$scolor&@CRLF&$itemcount)
_play (Default)
$wiederholen = 0
EndIf
;###wiederholen###end###
WEnd; 100 * position / länge
[/autoit]
; progressposition * länge /100BITTE HELFT MIR!
Edit\\ icons vergessen : Player.rar
-
nur reinschauen wenn du hilfe brauchst! :pinch:
[autoit]$var = InputBox("","",5)
[/autoit]
MsgBox(0,"","",$var)sei ehrlich!
-
im script gibts keine funktion für "zufall"!
Edit\\ habe die ma eingebaut:Spoiler anzeigen
[autoit]#include <Sound.au3>
[/autoit] [autoit][/autoit] [autoit]
#Include <File.au3>HotkeySet("!{p}", "play")
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("!{s}", "stop")
HotKeySet("!{n}", "nexts")
HotKeySet("!{e}", "ende")
HotKeySet("!{b}", "back")
HotKeySet("!{v}", "volume")
HotKeySet("!{z}", "zufall")$a = 0 ; bewirkt die untilschleife und bricht play1 ab, wenn next kommt
[/autoit] [autoit][/autoit] [autoit]
$count = 1 ; zählt songs$vol = 75
[/autoit] [autoit][/autoit] [autoit]Msgbox(0, "Start", "Folgende Hotkeys sind wichtig: Alt+P = Play, Alt+S = Stop, Alt+N = Next Song , Alt+B = Song Back, Alt+V = Volume und Alt+E = Ende , Alt+Z = Zufall")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func play()
[/autoit] [autoit][/autoit] [autoit]
Do
$file = IniRead("playlist.ini", "Playlist", $count, "")
$lengh = _SoundLength ($file, 2)
SoundPlay($file)
ToolTip("Play")
Sleep(2000)
ToolTip("")
Sleep($lengh)
$count = $count + 1
Until $a = 1
EndFunc
Func ende()
Tooltip("Ende, wird beendet ...")
Sleep(2000)
Exit
EndFunc
Func volume()
$vol = Inputbox("Lautstärke", "Gib die gewünschte Lautstärke (1-100) ein! Momentan: " & $vol)
SoundSetWaveVolume($vol)
EndFunc
Func stop()
Run("playcatcher.exe")
Exit
EndFunc
Func nexts()
$a = 1
$count = $count + 1
ToolTip("Next")
Sleep(2000)
play()
$a = 0
EndFunc
Func back()
$a = 1
$count = $count - 1
ToolTip("Back")
Sleep(2000)
play()
$a = 0
EndFunc
While 1
Sleep(20)
WEndFunc zufall ()
[/autoit]
Do
$file = IniRead("playlist.ini", "Playlist", Random( 1, _FileCountLines("playlist.ini"),1) , "")
$lengh = _SoundLength ($file, 2)
SoundPlay($file)
ToolTip("Play")
Sleep(2000)
ToolTip("")
Sleep($lengh)
$count = $count + 1
Until $a = 1
EndFunc -
1. hilfe
[autoit]
2.MsgBox(0,"titel","text",5)
[/autoit] -
warum setzt ihr euch alle hinter einen proxy?
100ster post!