قمة الروعة
 

فكرة رائعة بارك الل فيك وجزاك خيرا وشكرا لك
 
توقيع : aelshemy
تسلم يا غالي .
 
تم التجربه على
windows 7 64 bit
ومن خلال الاوامر من cmd تمت العمليه بنجاح من خلال الملف تظهر هذه الرسال
Untitled.jpg
 
توقيع : MesterPerfectMesterPerfect is verified member.
تم التعديل ويعمل الان بدون مشاكل على روتر
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~"
 
تم التعديل ويعمل الان بدون مشاكل على روتر
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~"
جميل جدا جدا
مبارك عليك أخي
 
توقيع : MesterPerfectMesterPerfect is verified member.
شكراً لك
 
عودة
أعلى