- Messages
- 170
- Reaction score
- 0
- Points
- 26
Sa mga magagaling gumamit ng VB6
sir paturo ako panu ito e code sa VB6
pa post po ako ng project vb6
ito po: http://www.megafileupload.com/en/file/551619/my-code-zip.html
gusto ko po sana ung script sa baba ang gagana sa vb6 project ko
patulong naman
Set cloner = CreateObject("WScript.Shell")
cloner.run"cmd"
WScript.Sleep 500
cloner.SendKeys"telnet 192.168.254.1"
cloner.SendKeys("{Enter}")
WScript.Sleep 4000
cloner.SendKeys"Firefly"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"$P4mb1h1r4N4m4nT0!!"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"sncfg dset WAN_MAC_ENCRY C8D15E254E24"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"sncfg dset WAN_MAC C81:5E:25:4E:24"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"sncfg dset LAN_MAC C81:5E:25:4E:25"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"sncfg commit"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"sncfg reload"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"reboot"
cloner.SendKeys("{Enter}")
WScript.Sleep 500
sir paturo ako panu ito e code sa VB6
pa post po ako ng project vb6
ito po: http://www.megafileupload.com/en/file/551619/my-code-zip.html
gusto ko po sana ung script sa baba ang gagana sa vb6 project ko
patulong naman
Set cloner = CreateObject("WScript.Shell")
cloner.run"cmd"
WScript.Sleep 500
cloner.SendKeys"telnet 192.168.254.1"
cloner.SendKeys("{Enter}")
WScript.Sleep 4000
cloner.SendKeys"Firefly"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"$P4mb1h1r4N4m4nT0!!"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"sncfg dset WAN_MAC_ENCRY C8D15E254E24"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"sncfg dset WAN_MAC C81:5E:25:4E:24"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"sncfg dset LAN_MAC C81:5E:25:4E:25"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"sncfg commit"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"sncfg reload"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"reboot"
cloner.SendKeys("{Enter}")
WScript.Sleep 500
Last edited: