ใช้ได้เฉพาะกับ Cisco นะ แล้วก้อ Code เขียนสำหรับ iMacros Browser ใครไม่ได้ใช้ สองตัวนี้ ก้อลองไปประยุกต์ตาม อัตถยาศัย มี Code สองไฟล์ Code ส่วนแรกเป็น VBScript นามสกุล .vbs เอาไว้เปิด imacros ที่จะ reset router แล้วสั่งให้ไปแสดงที่ system tray จะได้ไม่เกะกะ ลูกตาน่ารำคาญ
Option Explicit
Dim iret, imacros, ip
set imacros = CreateObject("imacros")
iret = imacros.iimOpen("-tray")
iret = imacros.iimPlay("C:\wsh\Reset-Router.iim")
ip = imacros.iimGetLastExtract(1)
Dim objFSO, curIpFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set curIpFile = objFSO.OpenTextFile("C:\wsh\current-ip.txt", 2, True)
curIpFile.WriteLine(ip)
curIpFile.Close
iret = imacros.iimClose
WScript.Quit(iret)
--------------------------------------------------------
Code ส่วนที่ 2 เป็น imacros ที่จะถูกเรียกจาก VBScript เป็นตัว Reset Router
VERSION BUILD=8021970
TAB T=1
SET !TIMEOUT_STEP 120
SET !TIMEOUT_PAGE 120
SET !REPLAYSPEED MEDIUM
'SET !SINGLESTEP YES
SET !ENCRYPTION NO
ONLOGIN USER=admin PASSWORD=admin
URL GOTO=http://192.168.1.1/
TAG POS=6 TYPE=A FORM=NAME:setup ATTR=CLASS:mainmenu
WAIT SECONDS=1
TAG POS=1 TYPE=INPUT:BUTTON FORM=NAME:status ATTR=VALUE:Disconnect
WAIT SECONDS=1
TAG POS=1 TYPE=INPUT:BUTTON FORM=NAME:status ATTR=VALUE:Connect
WAIT SECONDS=4
TAG POS=1 TYPE=INPUT:BUTTON FORM=NAME:status ATTR=VALUE:Refresh
WAIT SECONDS=4
TAG POS=1 TYPE=TD ATTR=TXT:IP<SP>Address:
TAG POS=R1 TYPE=TD ATTR=CLASS:stdbold EXTRACT=TXT
WAIT SECONDS=2
แจกแล้วชอบไม่ชอบก้อบอกกันเน้อ หวังว่าจะเป็นประโยชน์กับใครบางคนบ้างนะ
ไทย เสียว บอร์ด
