Beiträge von ELiMINATOR

ELiMINATOR

#4 + #6 ^^

ELiMINATOR

lol ich machs immer ander und bekomme auch so um die 1000-2000 exp xD
aber thx gut zu wissen fals meine methode nicht mehr funkt xD

ELiMINATOR

welches vb ? wenn vb6 bin ich bei vb dabei wenn vb.net dann will ich ins autoit team

ELiMINATOR

ich lads grade, screen sieht schonmal toll aus aber ul.to sux 0,3kb/s xD
wenn ichs feddig geladen habe edite ich meine meinung hier rein

xD hopla geade erst gemerkt das es nur für vista ist xD

ELiMINATOR

ELiMINATOR

ELiMINATOR

ich wollt ezz vb1 nehmn xD ne spaß vb6 ist toll .net auch(kagge ist nur das mans decompilen kann )

ELiMINATOR

Visual Basic?
vb 6 .net oder welches o.O?

ELiMINATOR

niemals ftp daten so eintragen >.< man kann sie ganz leicht sniffen

Zitat

ftp.******************.de
bubble1
r********3

naja aber die idee ansich toll ^^

die url wird zensiert o.O
naja dann so

das ist das einzige was mich ein bissle stört
und wenn man kein bild auswählt versucht er trotzdem was zu uppen xD
freu mich auf v2 ^^

ELiMINATOR

meine empfehlung pidgin Pidgin, the universal chat client
oder mirander
aber ich finde pidgin besser ^^

/*Wird blank nicht mit k geschrieben? o.O*/

ELiMINATOR

C:\Programme\AutoIt3\Includes
*hust*nicht jeder hat autoit auf c installiert ^^
naja konte ich schon voher aber trotzdem thx ^^

ELiMINATOR

hätteste den nicht vor 6monaten schreiben können hätte mir da mehr geholfen xD
aber trotzdem thx xD

ELiMINATOR

-.-

C

#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <Inet.au3>
#include <StatusBarConstants.au3>
#include <String.au3>
Dim $INIPATH = @ScriptDir & "/setting.ini"
Global $GLOB_URL
Global $GLOB_VIDEO_TITEL
Global $GLOB_LOCAL_FILENAME
Global $ASTATUSPARTS[2] = [400, -1]
Global $ATEMPSTATUS[2] = ["", ""]
If FileExists(@ScriptDir & "/ffmpeg.exe") = 0 Then
	SplashTextOn("ffmpeg.exe nicht gefunden", "Downloade ffmpeg.rev11870.7z ", 200, 150)
	InetGet("http://ffdshow.faireal.net/mirror/ffmpeg/ffmpeg.rev11870.7z", @ScriptDir & "/ffmpeg.rev11870.7z")
	SplashOff()
	MsgBox(0, "ffmpeg.rev11870.7z geladen", "Nun entpacken und .exe in den Ordner tun . Zum beenden Ok drückn")
	Exit
EndIf
#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("Youtube downloader by Fuyo (c)", 574, 184, 193, 115)
$EDIT_INPUT = GUICtrlCreateInput("", 16, 48, 449, 21)
$BTN_DOWNLOAD = GUICtrlCreateButton("Download", 480, 48, 75, 25)
$PROGRESS = GUICtrlCreateProgress(16, 120, 438, 25)
$BTN_ABORT = GUICtrlCreateButton("Abbrechen", 480, 84, 75, 25)
$LBL_DOWNLOAD_LINK = GUICtrlCreateLabel("Download Link", 16, 28, 75, 17)
$LABEL1 = GUICtrlCreateLabel("(c) by Fuyo - Godlikerz", 464, 120, 109, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$MENU_ITEM_FILETYPE = GUICtrlCreateMenu("File Type")
$MENU_SWF = GUICtrlCreateMenuItem("swf", $MENU_ITEM_FILETYPE)
$MENU_FLV = GUICtrlCreateMenuItem("flv", $MENU_ITEM_FILETYPE)
If FileExists($INIPATH) = 0 Then IniWrite($INIPATH, "1", "1", "1")
$INIREAD_DEFAULT = IniRead($INIPATH, "1", "1", "1")
If $INIREAD_DEFAULT = "1" Then GUICtrlSetState($MENU_SWF, $GUI_CHECKED)
If $INIREAD_DEFAULT = "2" Then GUICtrlSetState($MENU_FLV, $GUI_CHECKED)
$STATUSBAR = _GUICtrlStatusBar_Create($GUI, $ASTATUSPARTS, $ATEMPSTATUS, $SBARS_SIZEGRIP)
_GUICtrlStatusBar_SetMinHeight($STATUSBAR, 20)
_GUICtrlStatusBar_SetText($STATUSBAR, "... ready ...")
GUICtrlSetData($PROGRESS, 0)
GUISetState()
While 1
	$NMSG = GUIGetMsg()
	Switch $NMSG
		Case $BTN_DOWNLOAD
			GUICtrlSetState($BTN_DOWNLOAD, $GUI_DISABLE)
			$DWNLINK = GUICtrlRead($EDIT_INPUT)
			_DOWNLOAD_THIS_URL($DWNLINK, 0)
		Case $MENU_SWF
			GUICtrlSetState($MENU_SWF, $GUI_CHECKED)
			GUICtrlSetState($MENU_FLV, $GUI_UNCHECKED)
			IniWrite($INIPATH, "1", "1", "1")
		Case $MENU_FLV
			GUICtrlSetState($MENU_SWF, $GUI_UNCHECKED)
			GUICtrlSetState($MENU_FLV, $GUI_CHECKED)
			IniWrite($INIPATH, "1", "1", "2")
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd


Func _DOWNLOAD_THIS_URL($URL, $UNATTENDED)
	If StringInStr($URL, "youtube") > 0 Then
		_GET_YOUTUBE_INFORMATION($URL)
	ElseIf StringInStr($URL, "www.ehrensenf.de") > 0 Then
		_GET_EHRENSENF_INFORMATION($URL)
	ElseIf StringInStr($URL, "www.clipfish.de") > 0 Then
		_GET_CLIPFISH_INFORMATION($URL)
	ElseIf StringInStr($URL, "www.myvideo.de") > 0 Then
		_GET_MYVIDEO_INFORMATION($URL)
	ElseIf StringInStr($URL, ".myspace.") > 0 Then
		_GET_MYSPACE_INFORMATION($URL)
	ElseIf StringInStr($URL, ".break.") > 0 Then
		_GET_BREAK_COM_INFORMATION($URL)
	EndIf
	$INI = IniRead($INIPATH, "1", "1", "1")
	If $INI = "1" Then $TYPE = ".swf"
	If $INI = "2" Then $TYPE = ".flv"
	If ($UNATTENDED > 0) Then
		$SAVE = @ScriptDir & "/" & $GLOB_VIDEO_TITEL & $TYPE
	Else
		$SAVE = FileSaveDialog("Save file", "", "Flash(*.swf)|Flash_Movie(*.flv)", -1, $GLOB_VIDEO_TITEL)
		If StringRight($SAVE, 4) <> ".swf" Then
			$SAVE &= ".swf"
		EndIf
		If StringRight($SAVE, 4) <> ".flv" Then
			$SAVE &= ".flv"
		EndIf
	EndIf
	_GUICtrlStatusBar_SetText($STATUSBAR, "Downloading : (" & StringLeft($GLOB_VIDEO_TITEL, 20) & "...)")
	_DOWNLOAD($GLOB_URL, $SAVE, $PROGRESS)
	_GUICtrlStatusBar_SetText($STATUSBAR, "Encoding : (" & StringLeft($GLOB_VIDEO_TITEL, 20) & "...)")
	_ENCODE_IT($SAVE)
	_GUICtrlStatusBar_SetText($STATUSBAR, "... ready ...")
	GUICtrlSetData($PROGRESS, 0)
	GUICtrlSetState($BTN_DOWNLOAD, $GUI_ENABLE)
EndFunc




Func _GET_YOUTUBE_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $S_V = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "<title>", "</title>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "Youtube - ", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$T_CODE = _StringBetween($SCODE, '"t": ', " ")
	If @error <> 1 Then
		$T_VALUE = StringReplace($T_CODE[0], '"', "")
		$T_VALUE = StringReplace($T_VALUE, ",", "")
	EndIf
	$S_V = StringMid($DWNLINK, StringInStr($DWNLINK, "v=") + 2)
	If $T_NAME == "" Then
		$T_NAME = $S_V
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$GLOB_URL = "http://youtube.com/get_video?video_id=" & $S_V & "&t=" & $T_VALUE
EndFunc




Func _GET_EHRENSENF_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $S_V = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "<title>", "</title>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "Ehrensenf", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, "so.addVariable('file'", "')")
	If @error <> 1 Then
		$T_VALUE = StringReplace($T_CODE[0], '"', "")
		$T_VALUE = StringReplace($T_CODE[0], "'", "")
		$T_VALUE = StringReplace($T_VALUE, ",", "")
	EndIf
	$GLOB_URL = $T_VALUE
EndFunc




Func _GET_CLIPFISH_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $LAST2_DIGITS = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	ClipPut($SCODE)
	MsgBox(0, "", "found clipfish")
	$TMP = _StringBetween($SCODE, "<title>", " - ")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "Clipfish", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, "--", ".flv")
	If @error <> 1 Then
		$T_VALUE = _STRING_BEFORE_AFTER($T_CODE[0], "-", 1)
		$LAST2_DIGITS = StringRight($T_VALUE, 2)
		MsgBox(0, "", $T_VALUE)
		MsgBox(0, "", $LAST2_DIGITS)
	EndIf
	$GLOB_URL = "http://pg2.clipfish.de/media/" & $LAST2_DIGITS & "/" & $T_VALUE & ".flv"
EndFunc




Func _GET_MYVIDEO_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $LAST2_DIGITS = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "<title>", "</TITLE>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "myvideo", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, "V15e.swf?", ".flv")
	If @error <> 1 Then
		$T_VALUE = $T_CODE[0] & ".flv"
	EndIf
	$GLOB_URL = $T_VALUE
EndFunc




Func _GET_MYSPACE_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $URL_PREFIX = "http://mediaservices.myspace.com/services/rss.ashx?type=video&mediaID="
	Local $ID = _STRING_BEFORE_AFTER($DOWNLOAD_LINK, "=", 1)
	Local $DOWNLOAD_LINK_MYSPACE_XML = $URL_PREFIX & $ID
	$SCODE = _INetGetSource($DOWNLOAD_LINK_MYSPACE_XML)
	ClipPut($SCODE)
	$TMP1 = _StringBetween($SCODE, "<item>", "</item>")
	$TMP = _StringBetween($TMP1[0], "<title>", "</title>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "myspace", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, '<media:content url="', ".flv")
	If @error <> 1 Then
		$T_VALUE = $T_CODE[0] & ".flv"
	EndIf
	$GLOB_URL = $T_VALUE
EndFunc




Func _GET_BREAK_COM_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "sGlobalFileName='", "';")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "break", "")
	EndIf
	$GLOB_VIDEO_TITEL = _REPLACE_SPECIAL_CHARS($T_NAME)
	$TMP = _StringBetween($SCODE, "sGlobalContentFilePath='", "';")
	If @error <> 1 Then
		$SGLOBALCONTENTFILEPATH = $TMP[0]
	EndIf
	$GLOB_URL = "http://media1.break.com/dnet/media/" & $SGLOBALCONTENTFILEPATH & "/" & $T_NAME & ".flv"
EndFunc




Func _DOWNLOAD($SITE, $PUNKT, $PROG = 0)
	$ORISIZE = InetGetSize($SITE)
	InetGet($SITE, $PUNKT, 1, 1)
	If $PROG = 0 Then ProgressOn("Download", "")
	Do
		$MSG = GUIGetMsg()
		If $MSG = $BTN_ABORT Then
			If MsgBox(4, "", "Abort?") = 6 Then Exit
		EndIf
		$SIZE1 = FileGetSize($PUNKT)
		$MBSIZE1 = FileGetSize($PUNKT)
		$INETGET = @InetGetBytesRead
		$PROZENT = (100 * $INETGET) / $ORISIZE
		$DECIMALPLACE = Round($PROZENT)
		$DECIMALPLACEMBSIZE1 = Round(@InetGetBytesRead / 1024)
		If $PROG = 0 Then
			ProgressSet($PROZENT, $DECIMALPLACE & "% " & "(" & $DECIMALPLACEMBSIZE1 & ") Kb has been Downloaded.")
		Else
			GUICtrlSetData($PROG, $PROZENT)
		EndIf
	Until @InetGetActive = 0
	If $PROG = 0 Then ProgressOff()
	Return $PUNKT
EndFunc




Func _ENCODE_IT($INFILE)
	GUICtrlSetData($PROGRESS, 0)
	$SOUTPUT = "mp3"
	$C = "ffmpeg.exe -i " & '"' & $INFILE & '"' & " -acodec " & $SOUTPUT & " -ab 128 -ar 22050 -ac 2 " & '"' & $INFILE & ".avi" & '"'
	$PID = Run($C, @ScriptDir, @SW_HIDE, $STDERR_CHILD)
	ProcessSetPriority($PID, 0)
	$STREAMCOUNTER = 0
	While ProcessExists($PID)
		If 1 <= $STREAMCOUNTER Then
			$READSTREAM = StderrRead($PID)
			$TMP = _StringBetween($READSTREAM, "Duration: ", ", start:")
			If @error <> 1 Then
				$DURATION = StringTrimRight($TMP[0], 2)
				$TMP = StringSplit($DURATION, ":")
				If @error <> 1 Then
					$H = $TMP[1]
					$M = $TMP[2]
					$S = $TMP[3]
					$TOTAL_SEC = ($H * 3600) + ($M * 60) + $S
				EndIf
			EndIf
			$TMP = _StringBetween($READSTREAM, "time=", " bit")
			If @error <> 1 Then
				$CURRENT_SEC = StringTrimRight($TMP[0], 2)
				$PERCENT = Int(100 * $CURRENT_SEC / $TOTAL_SEC)
				GUICtrlSetData($PROGRESS, $PERCENT)
			EndIf
			$STREAMCOUNTER = 0
		EndIf
		$STREAMCOUNTER = $STREAMCOUNTER + 1
	WEnd
EndFunc




Func _STRING_BEFORE_AFTER($INPUT, $SEPARATOR, $MODE)
	Local $TMP = StringSplit($INPUT, $SEPARATOR)
	If @error <> 1 Then
		If $MODE == 0 Then
			Return $TMP[1]
		Else
			Local $NBR = $TMP[0]
			Return $TMP[$NBR]
		EndIf
	Else
		Return -1
	EndIf
EndFunc




Func _REPLACE_SPECIAL_CHARS($STR)
	$STR = StringReplace($STR, "|", " ")
	$STR = StringReplace($STR, "-", " ")
	$STR = StringReplace($STR, "!", " ")
	$STR = StringReplace($STR, ".", " ")
	$STR = StringReplace($STR, "?", " ")
	$STR = StringReplace($STR, "_", " ")
	$STR = StringReplace($STR, "Ã¤", "ae")
	$STR = StringReplace($STR, "Ã¶", "oe")
	$STR = StringReplace($STR, "Ã¼", "ue")
	$STR = StringReplace($STR, "ÃŸ", "ss")
	$STR = StringStripWS($STR, 7)
	Local $STR1 = StringReplace($STR, " ", "_")
	Return $STR1
EndFunc

Alles anzeigen

das hier ist der code von deinem tool (brauchst garnicht erst versuchen es abzustreiten)
und da steht Func _GET_CLIPFISH_INFORMATION($DOWNLOAD_LINK)

naja ich will ezz nicht streiten und muss sagen das ich früher auch mal source "gerippt" habe xD
naja aber trotzdem nice ^^

ELiMINATOR

nicht nur du hast was gegen leecher *electriZer*
ich hasse kiddis die source rippen -.-
iwas konnte da auch nicht stimme vor ner woche mit autoit angefangen und dan schon sowas gecoded o.O
als ich den source gesehn habe wusste ich das es ripp war weil ich ihn schonmal gesehn hab

@fuyu
eig fand ich dich biss ezz ganz nett
musste diese Aktion sein?

ELiMINATOR

ich bin enttäuscht -.-
Video Downloader and Converter GUI - AutoIt Forums
das ist das original das ist deinz

C

#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <Inet.au3>
#include <StatusBarConstants.au3>
#include <String.au3>
Dim $INIPATH = @ScriptDir & "/setting.ini"
Global $GLOB_URL
Global $GLOB_VIDEO_TITEL
Global $GLOB_LOCAL_FILENAME
Global $ASTATUSPARTS[2] = [400, -1]
Global $ATEMPSTATUS[2] = ["", ""]
If FileExists(@ScriptDir & "/ffmpeg.exe") = 0 Then
	SplashTextOn("ffmpeg.exe nicht gefunden", "Downloade ffmpeg.rev11870.7z ", 200, 150)
	InetGet("http://ffdshow.faireal.net/mirror/ffmpeg/ffmpeg.rev11870.7z", @ScriptDir & "/ffmpeg.rev11870.7z")
	SplashOff()
	MsgBox(0, "ffmpeg.rev11870.7z geladen", "Nun entpacken und .exe in den Ordner tun . Zum beenden Ok drückn")
	Exit
EndIf
#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("Youtube downloader by Fuyo (c)", 574, 184, 193, 115)
$EDIT_INPUT = GUICtrlCreateInput("", 16, 48, 449, 21)
$BTN_DOWNLOAD = GUICtrlCreateButton("Download", 480, 48, 75, 25)
$PROGRESS = GUICtrlCreateProgress(16, 120, 438, 25)
$BTN_ABORT = GUICtrlCreateButton("Abbrechen", 480, 84, 75, 25)
$LBL_DOWNLOAD_LINK = GUICtrlCreateLabel("Download Link", 16, 28, 75, 17)
$LABEL1 = GUICtrlCreateLabel("(c) by Fuyo - Godlikerz", 464, 120, 109, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$MENU_ITEM_FILETYPE = GUICtrlCreateMenu("File Type")
$MENU_SWF = GUICtrlCreateMenuItem("swf", $MENU_ITEM_FILETYPE)
$MENU_FLV = GUICtrlCreateMenuItem("flv", $MENU_ITEM_FILETYPE)
If FileExists($INIPATH) = 0 Then IniWrite($INIPATH, "1", "1", "1")
$INIREAD_DEFAULT = IniRead($INIPATH, "1", "1", "1")
If $INIREAD_DEFAULT = "1" Then GUICtrlSetState($MENU_SWF, $GUI_CHECKED)
If $INIREAD_DEFAULT = "2" Then GUICtrlSetState($MENU_FLV, $GUI_CHECKED)
$STATUSBAR = _GUICtrlStatusBar_Create($GUI, $ASTATUSPARTS, $ATEMPSTATUS, $SBARS_SIZEGRIP)
_GUICtrlStatusBar_SetMinHeight($STATUSBAR, 20)
_GUICtrlStatusBar_SetText($STATUSBAR, "... ready ...")
GUICtrlSetData($PROGRESS, 0)
GUISetState()
While 1
	$NMSG = GUIGetMsg()
	Switch $NMSG
		Case $BTN_DOWNLOAD
			GUICtrlSetState($BTN_DOWNLOAD, $GUI_DISABLE)
			$DWNLINK = GUICtrlRead($EDIT_INPUT)
			_DOWNLOAD_THIS_URL($DWNLINK, 0)
		Case $MENU_SWF
			GUICtrlSetState($MENU_SWF, $GUI_CHECKED)
			GUICtrlSetState($MENU_FLV, $GUI_UNCHECKED)
			IniWrite($INIPATH, "1", "1", "1")
		Case $MENU_FLV
			GUICtrlSetState($MENU_SWF, $GUI_UNCHECKED)
			GUICtrlSetState($MENU_FLV, $GUI_CHECKED)
			IniWrite($INIPATH, "1", "1", "2")
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd


Func _DOWNLOAD_THIS_URL($URL, $UNATTENDED)
	If StringInStr($URL, "youtube") > 0 Then
		_GET_YOUTUBE_INFORMATION($URL)
	ElseIf StringInStr($URL, "www.ehrensenf.de") > 0 Then
		_GET_EHRENSENF_INFORMATION($URL)
	ElseIf StringInStr($URL, "www.clipfish.de") > 0 Then
		_GET_CLIPFISH_INFORMATION($URL)
	ElseIf StringInStr($URL, "www.myvideo.de") > 0 Then
		_GET_MYVIDEO_INFORMATION($URL)
	ElseIf StringInStr($URL, ".myspace.") > 0 Then
		_GET_MYSPACE_INFORMATION($URL)
	ElseIf StringInStr($URL, ".break.") > 0 Then
		_GET_BREAK_COM_INFORMATION($URL)
	EndIf
	$INI = IniRead($INIPATH, "1", "1", "1")
	If $INI = "1" Then $TYPE = ".swf"
	If $INI = "2" Then $TYPE = ".flv"
	If ($UNATTENDED > 0) Then
		$SAVE = @ScriptDir & "/" & $GLOB_VIDEO_TITEL & $TYPE
	Else
		$SAVE = FileSaveDialog("Save file", "", "Flash(*.swf)|Flash_Movie(*.flv)", -1, $GLOB_VIDEO_TITEL)
		If StringRight($SAVE, 4) <> ".swf" Then
			$SAVE &= ".swf"
		EndIf
		If StringRight($SAVE, 4) <> ".flv" Then
			$SAVE &= ".flv"
		EndIf
	EndIf
	_GUICtrlStatusBar_SetText($STATUSBAR, "Downloading : (" & StringLeft($GLOB_VIDEO_TITEL, 20) & "...)")
	_DOWNLOAD($GLOB_URL, $SAVE, $PROGRESS)
	_GUICtrlStatusBar_SetText($STATUSBAR, "Encoding : (" & StringLeft($GLOB_VIDEO_TITEL, 20) & "...)")
	_ENCODE_IT($SAVE)
	_GUICtrlStatusBar_SetText($STATUSBAR, "... ready ...")
	GUICtrlSetData($PROGRESS, 0)
	GUICtrlSetState($BTN_DOWNLOAD, $GUI_ENABLE)
EndFunc




Func _GET_YOUTUBE_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $S_V = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "<title>", "</title>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "Youtube - ", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$T_CODE = _StringBetween($SCODE, '"t": ', " ")
	If @error <> 1 Then
		$T_VALUE = StringReplace($T_CODE[0], '"', "")
		$T_VALUE = StringReplace($T_VALUE, ",", "")
	EndIf
	$S_V = StringMid($DWNLINK, StringInStr($DWNLINK, "v=") + 2)
	If $T_NAME == "" Then
		$T_NAME = $S_V
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$GLOB_URL = "http://youtube.com/get_video?video_id=" & $S_V & "&t=" & $T_VALUE
EndFunc




Func _GET_EHRENSENF_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $S_V = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "<title>", "</title>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "Ehrensenf", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, "so.addVariable('file'", "')")
	If @error <> 1 Then
		$T_VALUE = StringReplace($T_CODE[0], '"', "")
		$T_VALUE = StringReplace($T_CODE[0], "'", "")
		$T_VALUE = StringReplace($T_VALUE, ",", "")
	EndIf
	$GLOB_URL = $T_VALUE
EndFunc




Func _GET_CLIPFISH_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $LAST2_DIGITS = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	ClipPut($SCODE)
	MsgBox(0, "", "found clipfish")
	$TMP = _StringBetween($SCODE, "<title>", " - ")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "Clipfish", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, "--", ".flv")
	If @error <> 1 Then
		$T_VALUE = _STRING_BEFORE_AFTER($T_CODE[0], "-", 1)
		$LAST2_DIGITS = StringRight($T_VALUE, 2)
		MsgBox(0, "", $T_VALUE)
		MsgBox(0, "", $LAST2_DIGITS)
	EndIf
	$GLOB_URL = "http://pg2.clipfish.de/media/" & $LAST2_DIGITS & "/" & $T_VALUE & ".flv"
EndFunc




Func _GET_MYVIDEO_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $LAST2_DIGITS = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "<title>", "</TITLE>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "myvideo", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, "V15e.swf?", ".flv")
	If @error <> 1 Then
		$T_VALUE = $T_CODE[0] & ".flv"
	EndIf
	$GLOB_URL = $T_VALUE
EndFunc




Func _GET_MYSPACE_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $URL_PREFIX = "http://mediaservices.myspace.com/services/rss.ashx?type=video&mediaID="
	Local $ID = _STRING_BEFORE_AFTER($DOWNLOAD_LINK, "=", 1)
	Local $DOWNLOAD_LINK_MYSPACE_XML = $URL_PREFIX & $ID
	$SCODE = _INetGetSource($DOWNLOAD_LINK_MYSPACE_XML)
	ClipPut($SCODE)
	$TMP1 = _StringBetween($SCODE, "<item>", "</item>")
	$TMP = _StringBetween($TMP1[0], "<title>", "</title>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "myspace", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, '<media:content url="', ".flv")
	If @error <> 1 Then
		$T_VALUE = $T_CODE[0] & ".flv"
	EndIf
	$GLOB_URL = $T_VALUE
EndFunc




Func _GET_BREAK_COM_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "sGlobalFileName='", "';")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "break", "")
	EndIf
	$GLOB_VIDEO_TITEL = _REPLACE_SPECIAL_CHARS($T_NAME)
	$TMP = _StringBetween($SCODE, "sGlobalContentFilePath='", "';")
	If @error <> 1 Then
		$SGLOBALCONTENTFILEPATH = $TMP[0]
	EndIf
	$GLOB_URL = "http://media1.break.com/dnet/media/" & $SGLOBALCONTENTFILEPATH & "/" & $T_NAME & ".flv"
EndFunc




Func _DOWNLOAD($SITE, $PUNKT, $PROG = 0)
	$ORISIZE = InetGetSize($SITE)
	InetGet($SITE, $PUNKT, 1, 1)
	If $PROG = 0 Then ProgressOn("Download", "")
	Do
		$MSG = GUIGetMsg()
		If $MSG = $BTN_ABORT Then
			If MsgBox(4, "", "Abort?") = 6 Then Exit
		EndIf
		$SIZE1 = FileGetSize($PUNKT)
		$MBSIZE1 = FileGetSize($PUNKT)
		$INETGET = @InetGetBytesRead
		$PROZENT = (100 * $INETGET) / $ORISIZE
		$DECIMALPLACE = Round($PROZENT)
		$DECIMALPLACEMBSIZE1 = Round(@InetGetBytesRead / 1024)
		If $PROG = 0 Then
			ProgressSet($PROZENT, $DECIMALPLACE & "% " & "(" & $DECIMALPLACEMBSIZE1 & ") Kb has been Downloaded.")
		Else
			GUICtrlSetData($PROG, $PROZENT)
		EndIf
	Until @InetGetActive = 0
	If $PROG = 0 Then ProgressOff()
	Return $PUNKT
EndFunc




Func _ENCODE_IT($INFILE)
	GUICtrlSetData($PROGRESS, 0)
	$SOUTPUT = "mp3"
	$C = "ffmpeg.exe -i " & '"' & $INFILE & '"' & " -acodec " & $SOUTPUT & " -ab 128 -ar 22050 -ac 2 " & '"' & $INFILE & ".avi" & '"'
	$PID = Run($C, @ScriptDir, @SW_HIDE, $STDERR_CHILD)
	ProcessSetPriority($PID, 0)
	$STREAMCOUNTER = 0
	While ProcessExists($PID)
		If 1 <= $STREAMCOUNTER Then
			$READSTREAM = StderrRead($PID)
			$TMP = _StringBetween($READSTREAM, "Duration: ", ", start:")
			If @error <> 1 Then
				$DURATION = StringTrimRight($TMP[0], 2)
				$TMP = StringSplit($DURATION, ":")
				If @error <> 1 Then
					$H = $TMP[1]
					$M = $TMP[2]
					$S = $TMP[3]
					$TOTAL_SEC = ($H * 3600) + ($M * 60) + $S
				EndIf
			EndIf
			$TMP = _StringBetween($READSTREAM, "time=", " bit")
			If @error <> 1 Then
				$CURRENT_SEC = StringTrimRight($TMP[0], 2)
				$PERCENT = Int(100 * $CURRENT_SEC / $TOTAL_SEC)
				GUICtrlSetData($PROGRESS, $PERCENT)
			EndIf
			$STREAMCOUNTER = 0
		EndIf
		$STREAMCOUNTER = $STREAMCOUNTER + 1
	WEnd
EndFunc




Func _STRING_BEFORE_AFTER($INPUT, $SEPARATOR, $MODE)
	Local $TMP = StringSplit($INPUT, $SEPARATOR)
	If @error <> 1 Then
		If $MODE == 0 Then
			Return $TMP[1]
		Else
			Local $NBR = $TMP[0]
			Return $TMP[$NBR]
		EndIf
	Else
		Return -1
	EndIf
EndFunc




Func _REPLACE_SPECIAL_CHARS($STR)
	$STR = StringReplace($STR, "|", " ")
	$STR = StringReplace($STR, "-", " ")
	$STR = StringReplace($STR, "!", " ")
	$STR = StringReplace($STR, ".", " ")
	$STR = StringReplace($STR, "?", " ")
	$STR = StringReplace($STR, "_", " ")
	$STR = StringReplace($STR, "Ã¤", "ae")
	$STR = StringReplace($STR, "Ã¶", "oe")
	$STR = StringReplace($STR, "Ã¼", "ue")
	$STR = StringReplace($STR, "ÃŸ", "ss")
	$STR = StringStripWS($STR, 7)
	Local $STR1 = StringReplace($STR, " ", "_")
	Return $STR1
EndFunc

Alles anzeigen

wenn du schon source rippst dan bitte richtig -.-

//EDIT:
hier mal zum vergleich das original gui

er hat nur ein wenig geändert -.-

ELiMINATOR

*HUST* einfach portable navicat verwenden da brauch mein keine lizenz xD

ELiMINATOR

Zitat

Epiphany

ist garn nicht schlecht, aber wenn man an den ff gewöhnt ist T.T dann vermisst man einiges xD

ELiMINATOR

Zitat

Ich denke, das wird man nie richtig in den Griff bekommen >.<

inet kabel raus ziehen xD

ELiMINATOR

@Markus
>.< Das ist das selbe wie der ie nur mit einer anderen Benutzeroberfläche.

beim FF lässt sich das auch ganz einfach ausschalten

Zitat

Tippen Sie in die Adresszeile des Browsers about:config ein. Suchen Sie danach den Eintrag extensions.blocklist.enabled und ändern Sie den Status auf “false”. Anschließend beendet Firefox seine täglichen Gespräche in die Heimat.
Quelle : Aufgedeckt: Firefox und Thunderbird telefonieren nach Hause - PC-WELT

(wen es interessiert der ff sendet die Daten zu der ip 63.245.213.32)

ELiMINATOR

du musst voher den inhalt der textboxen auslesen mit guictrlread ^^

C

;==========Einbinden==========;
#include <GUIConstants.au3>


;===========Form===========;
$Form1       = GUICreate ("Mob Spawner by Tekumi" , 110 , 98 , 512 , 384)
$ID          = GUICtrlCreateInput  ("Monster Id eingeben" , 0 , 1  , 110 , 20)
$Anzahl      = GUICtrlCreateInput  ("Anzahl eingeben" , 0 , 20 , 110 , 20)
$Entfernung  = GUICtrlCreateInput  ("Entfernung eingeben" , 0 , 39 , 110 , 20)
$Aggro       = GUICtrlCreateInput  ("Aggro? 1=Ja 2=Nein" , 0 , 58 , 110 , 20)
$Mon         = GUICtrlCreateButton ("Mon"    , 0  , 79 , 58 , 20)
$AddMon      = GUICtrlCreateButton ("AddMon" , 52 , 79 , 58 , 20)
GUISetState (@SW_SHOW)


;==HotKeySet & Funktionen==;




While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Mon
			MsgBox (1 , "Mon Command" ,    ".mon " & GUICtrlRead($ID) & " " & GUICtrlRead($Anzahl) & " " &  GUICtrlRead($Entfernung) & " " &  GUICtrlRead($Aggro))
		Case $AddMon
			MsgBox (1 , "AddMon Command" , ".addmon " & GUICtrlRead($ID) & " " & GUICtrlRead($Anzahl) & " " &  GUICtrlRead($Entfernung) & " " &  GUICtrlRead($Aggro))
	EndSwitch
WEnd

Alles anzeigen

Beiträge von ELiMINATOR

[SotW Voting] 18.10 - 25.10

[How To Do] Ein EXP-Match veranstalten

Proggi Battle

[Release]Vista Radio

Funny Pics

Funny Pics

Proggi Battle

Proggi Battle

[Tool] PicUpload 1.0

[Prob] Icq Fehler , der nervt

[LernScripts] Timer benutzen

[HOW-TO]Server Programmieren in AutoIT + TCP Infos

[Release] Youtube downloader & Konverter

[Release] Youtube downloader & Konverter

[Release] Youtube downloader & Konverter

[Release]Navicat Key

Browser spionieren euch aus!

Browser spionieren euch aus!

Browser spionieren euch aus!

Ich und mein "Need Help" Thread

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES