Network Security Internet Technology Development Database Servers Mobile Phone Android Software Apple Software Computer Software News IT Information

In addition to Weibo, there is also WeChat

Please pay attention

WeChat public account

Shulou

Send email automatically through script under Windows

2025-02-24 Update From: SLTechnology News&Howtos shulou NAV: SLTechnology News&Howtos > Servers >

Share

Shulou(Shulou.com)06/03 Report--

Create a script file with an arbitrary name and the extension vbs

Subject=WScript.Arguments (0) content=WScript.Arguments (1) set sh=WScript.CreateObject ("WScript.Shell") host=WScript.FullNameIf LCase (Right (host,11)) = "wscript.exe" Then sh.run "cscript / / nologo"& WScript.ScriptFullName & Chr (34) 0 WSCript.QuitEnd Ifsh.Run "cmd.exe" WScript.Sleep 1000sh.SendKeys "telnet" sh.SendKeys ("{Enter}") WScript.Sleep 1000sh.SendKeys "open smtp.somesome.com 25" sh.SendKeys ("{Enter}") WScript.Sleep 1000sh.SendKeys "helo somesome.com" sh.SendKeys ("{Enter}") WScript.Sleep 500sh.SendKeys "auth login" sh.SendKeys ("{Enter}") WScript.Sleep 500sh.SendKeys "xxxxxxx" sh.SendKeys ("{Enter}") WScript. Sleep 100sh.SendKeys "xxxxxxx" sh.SendKeys ("{Enter}") WScript.Sleep 100sh.SendKeys "mail from:" sh.SendKeys ("{Enter}") WScript.Sleep 500sh.SendKeys "rcpt to:" sh.SendKeys ("{Enter}") WScript.Sleep 100sh.SendKeys "rcpt to:" sh.SendKeys ("{Enter}") WScript.Sleep 100sh.SendKeys "data" sh.SendKeys ("{Enter}") WScript.Sleep 100sh.SendKeys "from:test1" sh.SendKeys ("{Enter}") WScript.Sleep 100sh.SendKeys "to:test2" sh.SendKeys ("{Enter}") WScript.Sleep 100sh.SendKeys "subject:" & subject sh.SendKeys ("{Enter}") WScript.Sleep 100sh.SendKeys "sh.SendKeys (" {Enter} ") WScript.Sleep 100sh.SendKeys content sh.SendKeys (" {Enter} ") WScript.Sleep 100sh.SendKeys" sh.SendKeys ("{Enter}") WScript.Sleep 100sh.SendKeys "." Sh.SendKeys ("{Enter}") WScript.Sleep 100sh.SendKeys ("{Enter}") WScript.Sleep 1000sh.SendKeys "quit" sh.SendKeys ("{Enter}") WScript.Sleep 5000sh.SendKeys ("{Enter}") WScript.Sleep 2000sh.SendKeys "quit" sh.SendKeys ("{Enter}") WScript.Sleep 100sh.SendKeys ("exit {Enter}") WScript.Quit

Start the script, passing in parameters:

Cscript / / Nologo SendMail3.vbs subject-%time% content111

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.

Views: 0

*The comments in the above article only represent the author's personal views and do not represent the views and positions of this website. If you have more insights, please feel free to contribute and share.

Share To

Servers

Wechat

© 2024 shulou.com SLNews company. All rights reserved.

12
Report