set WshShell = WScript.CreateObject("WScript.Shell") WScript.Sleep 3000 WshShell.SendKeys "telnet www.google.com 80~" WScript.Sleep 3000 WshShell.SendKeys "GET / HTTP/1.1~" WshShell.SendKeys "Host:www.google.com~" WshShell.SendKeys "~" WshShell.SendKeys "~" WshShell.SendKeys "~" WScript.Sleep 100 WshShell.SendKeys "~~" WScript.Sleep 3000 WshShell.SendKeys "exit~"