قم بمتابعة الفيديو أدناه لمعرفة كيفية تثبيت موقعنا كتطبيق ويب على الشاشة الرئيسية.
ملاحظة: قد لا تكون هذه الميزة متاحة في بعض المتصفحات.
ضع لنا الكود الذي قمت بتعديله أخي لمراجعتهتم التجربه على
windows 7 64 bit
ومن خلال الاوامر من cmd تمت العمليه بنجاح من خلال الملف تظهر هذه الرسال
مشاهدة المرفق 198011
Option explicit
Dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "telnet"
WScript.Sleep 3000
oShell.Sendkeys "o 192.168.1.1~"
WScript.Sleep 3000
oShell.Sendkeys "admin~"
WScript.Sleep 3000
oShell.Sendkeys "sys reboot~"
WScript.Sleep 3000
oShell.Sendkeys "exit~"
WScript.Sleep 3000
oShell.Sendkeys "~"
WScript.Sleep 3000
oShell.Sendkeys "q~"
جميل جدا جداتم التعديل ويعمل الان بدون مشاكل على روتر
ZXHN H108N V2.5
كود:Option explicit Dim oShell set oShell= Wscript.CreateObject("WScript.Shell") oShell.Run "telnet" WScript.Sleep 3000 oShell.Sendkeys "o 192.168.1.1~" WScript.Sleep 3000 oShell.Sendkeys "admin~" WScript.Sleep 3000 oShell.Sendkeys "sys reboot~" WScript.Sleep 3000 oShell.Sendkeys "exit~" WScript.Sleep 3000 oShell.Sendkeys "~" WScript.Sleep 3000 oShell.Sendkeys "q~"