ThaiSEOBoard.com

ใช้ได้เฉพาะกับ 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

แจกแล้วชอบไม่ชอบก้อบอกกันเน้อ หวังว่าจะเป็นประโยชน์กับใครบางคนบ้างนะ  :wanwan008:

 :wanwan017: :wanwan017:ไม่ค่อยเข้าใจนักแต่ขอบคุณมากค่ะจะลองเอาไปใช้ดู

เดินบ้างก็ได้