Beiträge von slash

slash

Habs selbst hinbekommen =)
So nun andere frage. Ist es möglich einen Slider Transparent zu machen?

slash

push!

Edit BugFix: Verwarnung wg. Pushen

slash

Thx 4 Example!
Ok hab mal ein bischen getüftelt.
Jedoch habe ich ein Paar Probleme.

1. Wenn ich das Volume ändern möchte crasht das Programm.
2. Sobald ich Pause drücke kann ich kein Play mehr machen, genauso auch mit Stop.

Hier mein derzeitiger Code.

Spoiler anzeigen

[autoit]

#include <GuiSlider.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiConstants.au3>
#include <Misc.au3>
#include <Sound.au3>

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

;Löschen der Dateien
FileDelete( @TempDir & "\iflowbg.jpg")
FileDelete( @TempDir & "\iflowplay.jpg")
FileDelete( @TempDir & "\iflowpause.jpg")
FileDelete( @TempDir & "\iflowstop.jpg")
FileDelete( @TempDir & "\iflowopen.jpg")
FileDelete( @TempDir & "\iflowsplash.jpg")
;Ende Löschen der Dateien

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

;Dateien Installieren
FileInstall("D:\iFlow Media Player\Player\data\iflowbg.jpg", @TempDir & "\iflowbg.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowplay.jpg", @TempDir & "\iflowplay.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowpause.jpg", @TempDir & "\iflowpause.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowstop.jpg", @TempDir & "\iflowstop.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowopen.jpg", @TempDir & "\iflowopen.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowsplash.jpg", @TempDir & "\iflowsplash.jpg")
;Ende Dateien Installieren

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

$destination = @TempDir & "\iflowsplash.jpg"

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

SplashImageOn("iFlow Music Player", $destination,300,100)
Sleep(3000)
SplashOff()

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

;Fenster
$iGUI = GUICreate("iFLow Mediaplayer", 300, 400, -1, -1)
GUISetBkColor(0x000000)
GUICtrlCreatePic ( @TempDir & "\iflowbg.jpg", 0, 300 , 300 , 100)
GuiCtrlSetState(-1,$GUI_DISABLE)

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

;Buttons / Input
$CurrentSong = GUICtrlCreateInput("", 10, 10, 220, 20)
$Open = GUICtrlCreatePic ( @TempDir & "\iflowopen.jpg", 240, 9 , 42 , 22)
$Play = GUICtrlCreatePic ( @TempDir & "\iflowplay.jpg", 125, 355 , 42 , 42)
$Pause = GUICtrlCreatePic ( @TempDir & "\iflowpause.jpg", 75, 355 , 42 , 42)
$Stop = GUICtrlCreatePic ( @TempDir & "\iflowstop.jpg", 175, 355 , 42 , 42)

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

;Lautstärke
$Volume = GuiCtrlCreateSlider(0, 97, 396, 20, BitOr($GUI_SS_DEFAULT_SLIDER, $TBS_HORZ))
_SliderMask(0, 97, 395, 20)
GUICtrlSetBkColor ($Volume, 0xFFFFFF)
GUICtrlSetData($Volume, 100)
;Ende Fenster

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

;Anfang Funktionen
GuiSetState(@SW_SHOW)

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

$VolLevel = 100

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

While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit

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

Case $nMsg = $Open
$Opened_File = FileOpenDialog("MP3 Datei öffnen", @DesktopDir, "Mp3 Dateien (*.mp3)", 3, "", $iGUI)
$hSound = _SoundOpen($Opened_File)
GUICtrlSetData($CurrentSong, $Opened_File)

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

Case $nMsg = $Play
$Play = _SoundPlay($hSound)

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

Case $nMsg = $Pause
$Pause = _SoundPause($hSound)

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

Case $nMsg = $Stop
$Stop = _SoundStop($hSound)

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

Case Else
If GUICtrlread($Volume) <> $VolLevel Then
$hSound.Volume = GUICtrlRead($Volume)
$VolLevel = GUICtrlRead($Volume)
EndIf
EndSelect
WEnd

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

Func _SliderMask($sX, $sY, $sW, $sH)
GUICtrlCreateLabel("", $sX - 1, $sY - 1, 2, $sH + 1)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreateLabel("", $sX + 1, $sY -1, $sW - 1, 2)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreateLabel("", ($sX + $sW) - 1, $sY -1, 2, $sH + 1)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreateLabel("", $sX + 1, ($sY + $sH) - 1, $sW - 1, 2)
GUICtrlSetState(-1,$GUI_DISABLE)
EndFunc
;Ende Funktionen

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

Schonmal Danke im Voraus!!

slash

EDIT //////
Ok hab soweit alles hinbekommen =)

Aber nun hab ich ein Anderes Problem.
iwie Funtzt des nicht mehr mit dem Fileopendialog...

Hier mein Code

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <Sound.au3>
#include <Guislider.au3>
#include <GuiListBox.au3>
#include <_Transinput.au3>
#include <GUIEnhance.au3>

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

;Angaben zur Fenster Animation
Opt("GUIOnEventMode", 1)
$iWinHeight = 400
$iGUI = GUICreate("", 300, $iWinHeight)
GUISetOnEvent($GUI_EVENT_CLOSE, "EventHandler")
;Ende Angaben zur Fenster Animation

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

;Löschen der Dateien
FileDelete( @TempDir & "\iflowbg.jpg")
FileDelete( @TempDir & "\iflowplay.jpg")
FileDelete( @TempDir & "\iflowpause.jpg")
FileDelete( @TempDir & "\iflowstop.jpg")
FileDelete( @TempDir & "\iflowopen.jpg")
FileDelete( @TempDir & "\iflowsplash.jpg")
;Ende Löschen der Dateien

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

;Dateien Installieren
FileInstall("D:\iFlow Media Player\Player\data\iflowbg.jpg", @TempDir & "\iflowbg.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowplay.jpg", @TempDir & "\iflowplay.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowpause.jpg", @TempDir & "\iflowpause.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowstop.jpg", @TempDir & "\iflowstop.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowopen.jpg", @TempDir & "\iflowopen.jpg")
FileInstall("D:\iFlow Media Player\Player\data\iflowsplash.jpg", @TempDir & "\iflowsplash.jpg")
;Ende Dateien Installieren

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

;Splash Bild
$destination = @TempDir & "\iflowsplash.jpg"

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

SplashImageOn ( "iFlow Music Player", $destination, 300, 100, -1, -1)
Sleep(3000)
SplashOff()
;Ende Splash Bild

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

;Globale Variablen
Global $hSound, $iLength, $bSlider = True
Global $old_slider_value = 50
;Ende Globale Variablen

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

;Fenster Hintergrund
GUISetBkColor(0x000000)
GUICtrlCreatePic ( @TempDir & "\iflowbg.jpg", 0, 300 , 300 , 100)
GuiCtrlSetState(-1,$GUI_DISABLE)
;Ende Fenster Hintergrund

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

;Song wo gerade gespielt wird
$CurrentSong = GUICtrlCreateInput("", 10, 10, 220, 20)
_TransInput_Create($CurrentSong,12)
;Ende Song wo gerade gespielt wird

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

;Playlist
$playlist = GUICtrlCreateList("", 0, 50, 300, 214)
;Ende Playlist

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

;Button zum Öffnen von Music
$Open = GUICtrlCreatePic ( @TempDir & "\iflowopen.jpg", 240, 355 , 42 , 42)
;Ende Button zum Öffnen von Music

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

;Button zum Abspielen von Music
$Play = GUICtrlCreatePic ( @TempDir & "\iflowplay.jpg", 125, 355 , 42 , 42)
;Ende Button zum Abspielen von Music

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

;Button zum Pausieren der Music
$Pause = GUICtrlCreatePic ( @TempDir & "\iflowpause.jpg", 75, 355 , 42 , 42)
;Ende Button zum Pausieren der Music

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

;Button zum Stoppen der Music
$Stop = GUICtrlCreatePic ( @TempDir & "\iflowstop.jpg", 175, 355 , 42 , 42)
;Ende Button zum Stoppen der Music

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

;Slider für Lautstärke
$slider = GUICtrlCreateSlider(5, 355, 50, 40, BitOR($TBS_VERT, $TBS_AUTOTICKS))
GUICtrlSetBkColor(-1,-2)
GUICtrlSetLimit($slider, 100, 0)
GUICtrlSetData($slider, 50)
;Ende Slider für Lautstärke

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

;Slider für Position der Music ändern
$idSldrPos = GUICtrlCreateSlider(15, 270, 270, 25, $TBS_TOOLTIPS)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetLimit($idSldrPos,100, 1)
;Ende Slider für Position der Music ändern

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

;Anzeige der Vergangenen Abspielzeit
$Label1 = GUICtrlCreateLabel("00:00", 50, 310, 100, 36)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
;Ende Anzeige der Vergangenen Abspielzeit

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

;Anzeige der Gesamten Abspielzeit
$Label2 = GUICtrlCreateLabel("00:00", 160, 310, 100, 36)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
;Ende Anzeige der Gesamten Abspielzeit

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

;Trenn Symbol zwischen den Abspielzeiten
$Label3 = GUICtrlCreateLabel("/", 150, 310, 12, 36)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
;Ende Trenn Symbol zwischen den Abspielzeiten

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

GuiSetState(@SW_SHOW)

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

;Haupt Fenster
_GUIEnhanceAnimateWin ($iGUI, 400, $GUI_EN_ANI_FADEIN)
GuiCtrlSetState(-1,$GUI_DISABLE)
_GUIEnhanceAnimateTitle ($iGUI, "iFlow Music Player", $GUI_EN_TITLE_DROP)
Sleep(1000)
_GUIEnhanceAnimateTitle ($iGUI, "iFlow Music Player", $GUI_EN_TITLE_SLIDE)
Sleep(1000)
GuiCtrlSetState(-1,$GUI_DISABLE)
;Ende Haupt Fenster

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

;Registrieren der Abspiel Position
AdlibRegister("_GetPos", 1000)
;Ende Registrieren der Abspiel Funktion

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

;Anfang Aller Funktionen
While 1

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

$slider_value = GUICtrlRead($slider)

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

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

;Öffnen der Music Datei
Case $Open
$Opened_File = FileOpenDialog("Open Music File","C:\Documents and Settings\Windows\My Documents\My Music","Music Files(*.mp3;*.wav;*.wma;*.cda)",3)
$hSound = _SoundOpen($Opened_File)
;Ende Öffnen der Music Datei

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

;Schreibe Informationen in das GUI
GUICtrlSetData($Label2, _SoundLength($hSound))
GUICtrlSetData($CurrentSong, $Opened_File)
GUICtrlSetData($playlist, $Opened_File)
;Ende Schreibe Informationen in das GUI

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

;Gibt die Länge der Music Datei an
$iLength = _SoundLength($hSound, 2) / 1000
GUICtrlSetLimit($idSldrPos,$iLength, 1)
_SoundPlay($hSound)
;Ende Gibt die Länge der Music Datei an

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

;Funktionen für Positions Slider
Case $GUI_EVENT_PRIMARYDOWN
$bSlider = False

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

Case $GUI_EVENT_PRIMARYUP
$bSlider = True
;Ende Funktionen für Positions Slider

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

;Ausgabe der Position in der Console
Case $idSldrPos
$bSlider =False
$iSS = GUICtrlRead($idSldrPos)
consolewrite("Neue Pos in Seknden:" & $iSS & @CRLF)
Local $iHH = Int($iSS / 3600)
$iSS = Mod($iSS, 3600)
Local $iMM = Int($iSS / 60)
$iSS = Mod($iSS, 60)
consolewrite($iHH & ":" & $iMM & ":" & $iSS & @CRLF)
_SoundSeek($hSound, $iHH, $iMM, $iSS)
_SoundPlay($hSound)
$bSlider =True
;Ende Ausgabe der Position in der Console

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

;Media Buttons
Case $Stop
_SoundStop($hSound)
Case $Play
_SoundPlay($hSound)
Case $Pause
_SoundPause($hSound)
;Ende Media Buttons

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

;Funktion für Lautstärke Slider
Case $old_slider_value <> $slider_value
SoundSetWaveVolume(100 - $slider_value)
$old_slider_value = $slider_value
;Ende Funktion für Lautstärke Slider
EndSwitch
WEnd

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

;Funktion für Positions Angabe
Func _GetPos()
$iPos = _SoundPos($hSound, 2) / 1000
GUICtrlSetData($Label1, _SoundPos($hSound));Zeigt die wie weite das Lied schon ist
if $bSlider Then GUICtrlSetData($idSldrPos, $iPos)
EndFunc
;Ende Funktion für Positions Angabe

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

;Funktion für Animiertes GUI
Func EventHandler()
Switch @GUI_CtrlId
Case $GUI_EVENT_CLOSE
_GUIEnhanceAnimateWin ($iGUI, 400, $GUI_EN_ANI_FADEOUT)
Exit
EndSwitch
EndFunc
;Ende Funktion für Animiertes Gui
;Ende Aller Funktionen

[/autoit]

Hoffe um Antwort

slash

Thx funtzt Perfekt

slash

Hallo.

Ich weis nich wie ich es hinbekomme das z.B in einem kleinen Fenster ein Random erscheint es soll so sein

Fenster
Button: Random
Kleines Feld in dem dann per klick zufällig ( ICH oder DU ) erscheint.
Ka wie des geht hoffe ihr könnt mir helfen

slash

Na dass ging ja aber schnell hehe.
Funtzt 100% Perfekt. Genau das meinte ich THX!

slash

Hallo.

Ich weis garnicht wie ich das anstellen soll.
Also ich möchte eine GUI dies kann ich is kein ding =P und dann einen Button (kann ich auch =P).
Also wenn ich den button drücke soll ein bild per zufall ausgewählt werden aus einem verzeichniss das ich in einer ini angeben muss.
drücke ich wieder den button zeigt es ein anderes bild per zufall an. jedoch muss dies alles in der gui sein.

Hoffe ihr versteht mich und könnt mir helfen =)

slash

Hallo.

Ich bin gerade dabei das Spiel Katanga von Blubbstar zu verändern.
Das Spiel, spielt sich im Mittelalter ab.

In der Zukunft wird es noch eine Highscore Funktion geben.
Es wird möglich sein einen Held zu bauen der um einiges Stärker ist wie Normale einheiten.
Komplett neu an Grafik aufgewärtet.

Uvm.

Ich suche zudem noch eine Rechte hand die mir beimProgrammieren hilft! Er sollte genug erfahrung haben und sich genau überlegen ob er sich dieser herausforderung stellen möchte!

Wer lust hat bitte PN an mich. Mfg Slash!

slash

Hier die Exe

Datei is im anhang.

slash

Ja aber ich schu neben bei im ordner nach wo er die dateien herunter lädt.
Und nach abschluss vom umwandeln ist die flv noch da auch wenn ich 5mins warte^^
daher ja, ich hab ka wie ich des lösen soll

slash

Ich habe nur das Problem das er die Quelldatei.flv nach dem umwandeln nicht löscht -.-
Keiner ne Idee?

slash

Mhm bekomme des iwie nich hin ??

SourceCode:

[autoit]

#include <GUIconstants.au3>
#include <Guiedit.au3>
#include <inet.au3>
#include <string.au3>
#include <array.au3>

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

FileDelete( @TempDir & "\ytbg.jpg")
FileDelete( @TempDir & "\ytbtn.jpg")
FileDelete( @TempDir & "\ytsplash.jpg")
Filedelete( @TempDir & "\ytflv.exe")

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

FileInstall(@ScriptDir & "\ytbg.jpg", @TempDir & "\ytbg.jpg")
FileInstall(@ScriptDir & "\ytbtn.jpg", @TempDir & "\ytbtn.jpg")
FileInstall(@ScriptDir & "\ytsplash.jpg", @TempDir & "\ytsplash.jpg")
FileInstall(@ScriptDir & "\ytflv.exe", @TempDir & "\ytflv.exe")

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

$destination = @TempDir & "\ytsplash.jpg"

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

SplashImageOn("", $destination,398,41)
Sleep(3000)
SplashOff()

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

GUICreate("YouTube 2 MP3 Converter by Slash", 398, 340)
GUICtrlCreatePic(@TempDir & "\ytbg.jpg", 0, 0, 398, 340)
GUICtrlSetState(-1,$GUI_DISABLE)
$lurl = GUICtrlCreateLabel("Url:", 0, 41)
GUICtrlSetBkColor ($lurl, 0xFFFFFF)
$URL = GUICtrlCreateInput("", 20, 41, 378)
$dl_AND = GUICtrlCreatePic(@TempDir & "\ytbtn.jpg", 0, 62, 398, 41)
GUICtrlSetCursor (-1, 0)
$Console = GUICtrlCreateEdit("", 0, 100, 398, 220, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY))
$progress=GUICtrlCreateProgress(0,320,398,20)
GUICtrlSetBkColor($Console, "0xFFFFFF") ; Set background color of output field
GUICtrlSetColor($Console, "0xff0000") ; Set font color of output field
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $dl_AND
_Start()
EndSwitch
WEnd
Func _Start()
$lastest=0
;~ Local
$you_url = GUICtrlRead($URL)
If Not StringInStr($you_url, "youtube.com") Then Return MsgBox(0, "Fehler!", "Dieser Link ist kein Gültiger Youtube Link!")
add("Url zum Downloaden:" & $you_url)
;~ First get the v= parameter
for $1=1 to StringLen($you_url)
if StringMid($you_url,$1,2) = "v=" Then
$url_1=StringMid($you_url,$1+2)
ExitLoop
EndIf
Next
if StringInStr($url_1,"&") Then
;~ MsgBox(0,"NEW","")
for $1=1 to StringLen($url_1)
if StringMid($url_1,$1,1) = "&" Then
$url_1=StringMid($url_1,1,$1-1)
EndIf
Next
EndIf

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

;~ MsgBox(0,0,$url_1&@CR&$you_url)
$download = "http://www.youtube.com/get_video?video_id=" & $url_1 & "&t="
$source=_INetGetSource("http://www.youtube.com/api2_rest?method=youtube.videos.get_video_token&video_id=" & $url_1)
;~ ConsoleWrite($source & @CRLF)
$between = _StringBetween($source, '<t>', '</t>')
$download &= $between[0]
add("Link zur FLV Datei:" & $download)
$size = InetGetSize($download) / 1024 / 1024
$calculateperc = InetGetSize($download) / 100
add("Downloaden..")
$name=_StringBetween(_INetGetSource($you_url),'<meta name="title" content="','">')
$name=StringReplace(StringReplace($name[0],"'",""),"´","")
;~ MsgBox(0,0,$name&@CRLF& @ScriptDir&"\"&$name&".flv")
GUICtrlSetData($progress,0)
InetGet($download, @ScriptDir&"\"&$name&".flv", 1, 1)
While @InetGetActive
$get = @InetGetBytesRead
For $1 = 0 To 100
If $get > $calculateperc * $1 And $get < $calculateperc * ($1 + 1) Then
if $lastest = $1-1 Then
GUICtrlSetData($progress,$1)
$lastest=$1
EndIf
EndIf
Next
Sleep(10)
WEnd
GUICtrlSetData($progress,100)
add("Download abgeschlossen")
add("Starte nun das Umwandeln der Datei!")
Run(@TempDir&'\ytflv.exe "'&@ScriptDir&'\'&$name&'.flv'&'"',@ScriptDir,@SW_HIDE )
add("Umwandeln abgeschlossen!:"&@ScriptDir&"\"&$name&".mp3")
add("Löschen der FLV Datei")
If FileExists (@ScriptDir&"\"&$name&".mp3") Then
FileDelete (@ScriptDir&"\"&$name&".flv")
EndIf
add("FLV Datei erfolgreich gelöscht!")
EndFunc ;==>_Start

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

Func add($zText)
_GUICtrlEdit_AppendText($Console, $zText & @CRLF)
EndFunc ;==>add

[/autoit]

Was mache ich falsch?

slash

Richtig! Habe aber bis jetzt nich wirklich was gescheites als lösung gefunden =(

slash

Hi leute.
Habe anhand von beispielen einen kleinen Youtube to MP3 download gebastelt.
Das Problem ist, anfangs funktionierte alles doch dann hab ich irgendetwas geändert (denke ich mal) und nun geht er nicht mehr 100%.

Das Problem ist er lädt die flv datei aber wandelt diese nicht mehr um.

Code:
EDIT////////

Hab den Fehler gefunden!

Aber andere frage. Wie kann ich machen das er warten soll bis datei 1 existiert befor er datei 2 löscht?

slash

Ok ich habe nun fast alle meine Probleme gelöst^^ bis auf eines. Wie kann ich machen das Filedelete wartet auf den upload also bis der fertig is??

slash

mhh thx aber kann man das nich villt so ähnlich machen wie mit inetget?

slash

Hey leute ich habe da ein Problem und zwar:

1. Es soll eine Datei heruntergeladen werden.
2. Wenn man auf install klickt soll er Die heruntergeladene Dateil Hochladen
3. Es soll gewartet werden bis Upload fertig ist und einen Hinweis geben z.B Upload Fertig Gestellt.
4. Wenn der Upload Fertig ist, soll er die Heruntergeladene Datei löschen.

Und kann man villt machen das er keine Bytes sondern % anzeigt?? also beim Dl

Hier ist mein bisheriger Code:

[autoit]

#include <ftp.au3>
#include <GUIConstants.au3>

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

; File
InetGet("http://webmasterparadies.net/wcms.zip", 'C:\wcms.zip', 1, 1)

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

While @InetGetActive
TrayTip("Downloading", "Bytes = " & @InetGetBytesRead, 10, 16)
Wend

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

MsgBox(0, "Fertig", "Download abgeschlossen!")

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

$Design = FileInstall("tpl.jpg", @TempDir & "\tpl.jpg")

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

; Hauptfenster
$GUI = GUICreate("Wcms", 690, 425, 250, 76)
$Install = GUICtrlCreateButton("W-CMS Installieren", 200, 176, 233, 65, 0)
GUISetState(@SW_SHOW)

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

; Anzeigebild
GUICtrlCreatePic(@TempDir & "\tpl.jpg", -3, -4, 699, 433)
GUICtrlSetState(-1, $GUI_DISABLE)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Install

; Ftp Daten / Funktion
$server = 'xxx'
$username = 'xxx'
$pass = 'xxx'

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

$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
; Warten wegen dem Download
Sleep(5000)
$Ftpp = _FtpPutFile($Conn, 'C:\wcms.zip', '/wcms/wcms.zip')
$Ftpc = _FTPClose($Open)
Sleep(5000)
FileDelete("C:\wcms.zip")

EndSwitch
WEnd

[/autoit]

Hoffe ihr könnt mir Helfen!!

slash

das weis ich nicht mhh

slash

nee hat er nich deswegen wundert es mich ja..

geht es auch iwie anders die seie anzuzeigen?

Beiträge von slash

Mp3 Player

Mp3 Player

Mp3 Player

Mp3 Player

Kleines Random

Kleines Random

Bild per zufall auswählen?

Bild per zufall auswählen?

Projekt: The Empire!

Script funktioniert nicht mehr.

Script funktioniert nicht mehr.

Script funktioniert nicht mehr.

Script funktioniert nicht mehr.

Script funktioniert nicht mehr.

Script funktioniert nicht mehr.

Ftp Upload Problem

Ftp Upload Problem

Ftp Upload Problem

Internetseite in einem Fenster

Internetseite in einem Fenster