dotNETportal.cz

VB 2008 express edition. Mám prosbu. Napsal jsem si v VBscript toto:

'Zadat jméno a heslo

user = inputbox("Please Enter Username")

pass = inputbox("Please Enter Password")

'vytvoření the shell obj

Set oShell = CreateObject("WScript.Shell")

'Start cmd

oShell.run"cmd.exe"

WScript.Sleep 500

'Start Telnet

'oShell.SendKeys"telnet 192.168.10.10"

'Emulace enter

oShell.SendKeys("{Enter}")

WScript.Sleep 1000

'zápis jména do cmd okna

oShell.SendKeys(user)

oShell.SendKeys("{Enter}")

WScript.Sleep 500

'zápis hesla do cmd okna

oShell.SendKeys(pass)

oShell.SendKeys("{Enter}")

WScript.Sleep 500

oShell.SendKeys"ip"

oShell.SendKeys("{Enter}")

WScript.Sleep 500

oShell.SendKeys"hotspot"

oShell.SendKeys("{Enter}")

WScript.Sleep 500

oShell.SendKeys"print"

oShell.SendKeys("{Enter}")

WScript.Sleep 500

oShell.SendKeys"user"

oShell.SendKeys("{Enter}")

WScript.Sleep 500

oShell.SendKeys"print"

oShell.SendKeys("{Enter}")

WScript.Sleep 500

'odstranění procesů

oShell.run"Taskkill /IM cmd.exe"

oShell.run"Taskkill /IM telnet.exe"

Chtěl bych si to přepsat do VB2008, ale nemám tušení kam sáhnout. Pomůže někdo? Prosím jen s tímto případem. Pokud je nějaké cesta jak to napsat lépe ve VB2008, jen jenom nějaký převod poreďte. Nevím eventuelně jak z cesty vynechat Telnet, který mi pro komunikaci s připojeným zařízením bohatě stačí.

Díky

Jirka

'Zadat jméno a heslo
user = inputbox("Please Enter Username")
pass = inputbox("Please Enter Password")
'vytvoření the shell obj
Set oShell = CreateObject("WScript.Shell")

'Start cmd
oShell.run"cmd.exe"
WScript.Sleep 500

'Start Telnet
'oShell.SendKeys"telnet 192.168.10.10"


'Emulace enter
oShell.SendKeys("{Enter}")
WScript.Sleep 1000

'zápis jména do cmd okna
oShell.SendKeys(user)
oShell.SendKeys("{Enter}")
WScript.Sleep 500

'zápis hesla do cmd okna
oShell.SendKeys(pass)
oShell.SendKeys("{Enter}")
WScript.Sleep 500

oShell.SendKeys"ip"
oShell.SendKeys("{Enter}")
WScript.Sleep 500

oShell.SendKeys"hotspot"
oShell.SendKeys("{Enter}")
WScript.Sleep 500

oShell.SendKeys"print"
oShell.SendKeys("{Enter}")
WScript.Sleep 500

oShell.SendKeys"user"
oShell.SendKeys("{Enter}")
WScript.Sleep 500

oShell.SendKeys"print"
oShell.SendKeys("{Enter}")
WScript.Sleep 500

'odstranění procesů
oShell.run"Taskkill /IM cmd.exe"
oShell.run"Taskkill /IM telnet.exe"

Děkuji za překlad, ale nefunguje mi to. Hlásí to nedefinovanou proměnou u oshell a posléze i u WScript.shell. Chtěl jsem ještě poprosit o eventuelně odkaz,kde bych našel jakým způsobem vyřešit komunikaci na portu 23. Díky

Promiňte, to není překlad ale jenom jak máte psát kód. Vždy stiskněte tlačít VBCode. Překlad:

        'Zadat jméno a heslo
        Dim user = InputBox("Please Enter Username")
        Dim pass = InputBox("Please Enter Password")
        'vytvoření the shell obj
        Dim oShell = CreateObject("WScript.Shell")

        'Start cmd
        oShell.run("cmd.exe")


        'Start Telnet
        'oShell.SendKeys"telnet 192.168.10.10"


        'Emulace enter
        oShell.SendKeys("{Enter}")


        'zápis jména do cmd okna
        oShell.SendKeys(user)
        oShell.SendKeys("{Enter}")


        'zápis hesla do cmd okna
        oShell.SendKeys(pass)
        oShell.SendKeys("{Enter}")


        oShell.SendKeys("ip")
        oShell.SendKeys("{Enter}")


        oShell.SendKeys("hotspot")
        oShell.SendKeys("{Enter}")


        oShell.SendKeys("print")
        oShell.SendKeys("{Enter}")


        oShell.SendKeys("user")
        oShell.SendKeys("{Enter}")


        oShell.SendKeys("print")
        oShell.SendKeys("{Enter}")


        'odstranění procesů
        oShell.run("Taskkill /IM cmd.exe")
        oShell.run("Taskkill /IM telnet.exe")

Ten sleep musím dořešit :-)