Sign in to follow this  
Followers 0
dula

Convert VBS to au3 skript

8 posts in this topic

how to convert this vbs to au3 ?

thx

set sh=WScript.CreateObject("WScript.Shell")

sh.run "Telnet samsung.router"

WScript.Sleep 600

sh.SendKeys "root"&vbcr

WScript.Sleep 500

sh.SendKeys "admin"&vbcr

WScript.Sleep 500

sh.SendKeys "killall pppd"&vbcr

Wscript.Sleep 1000

sh.SendKeys "pppd call pppoe1"&vbcr

Wscript.Sleep 500

sh.SendKeys "exit 0"&vbcr

Wscript.Sleep 500

sh.SendKeys "Quit"&vbcr

Share this post


Link to post
Share on other sites



Not an easy as you might think Zedna, Since he's using a DOS command prompt so he would telnet to his router, send root via telnet.

Try uses TCP() functions, they would be able to implement the Telnet.

Share this post


Link to post
Share on other sites

Not an easy as you might think Zedna, Since he's using a DOS command prompt so he would telnet to his router, send root via telnet.

Try uses TCP() functions, they would be able to implement the Telnet.

I have just translated given code.

For Telnet manipulation look here

Share this post


Link to post
Share on other sites

not works please help me

; ----------------------------------------------------------------------------
;
; VBScript to AutoIt Converter v0.4
;
; ----------------------------------------------------------------------------


;VA  $sh=WScript.ObjCreate("WScript.Shell")

    $sh.run ("Telnet samsung.router 30023")
;VA         WScript.Sleep 600
    
    $sh.SendKeys ("root"&vbcr)
;VA         WScript.Sleep 500
    
    $sh.SendKeys ("banana"&vbcr)
;VA         WScript.Sleep 500

    $sh.SendKeys ("/etc/init.d/daily_reconnect.$sh 1"&vbcr)
        $sh.SendKeys (""&vbcr)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0