創(chuàng)建一個腳本文件,名字隨意,擴展名vbs
成都創(chuàng)新互聯(lián)從2013年成立,是專業(yè)互聯(lián)網(wǎng)技術服務公司,擁有項目成都做網(wǎng)站、網(wǎng)站制作、成都外貿(mào)網(wǎng)站建設網(wǎng)站策劃,項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命,1280元九原做網(wǎng)站,已為上家服務,為九原各地企業(yè)和個人服務,聯(lián)系電話:18982081108subject=WScript.Arguments(0) content=WScript.Arguments(1) set sh=WScript.CreateObject("WScript.Shell") host=WScript.FullName If LCase(Right(host,11))="wscript.exe" Then sh.run "cscript //nologo """ & WScript.ScriptFullName & Chr(34), 0 WSCript.Quit End If sh.Run "cmd.exe" WScript.Sleep 1000 sh.SendKeys "telnet" sh.SendKeys("{Enter}") WScript.Sleep 1000 sh.SendKeys "open smtp.somesome.com 25" sh.SendKeys("{Enter}") WScript.Sleep 1000 sh.SendKeys "helo somesome.com" sh.SendKeys("{Enter}") WScript.Sleep 500 sh.SendKeys "auth login" sh.SendKeys("{Enter}") WScript.Sleep 500 sh.SendKeys "xxxxxxx" sh.SendKeys("{Enter}") WScript.Sleep 100 sh.SendKeys "xxxxxxx" sh.SendKeys("{Enter}") WScript.Sleep 100 sh.SendKeys "mail from:<test1@somesome.com>" sh.SendKeys("{Enter}") WScript.Sleep 500 sh.SendKeys "rcpt to:<test1@somesome.com>" sh.SendKeys("{Enter}") WScript.Sleep 100 sh.SendKeys "rcpt to:<test2@qq.com>" sh.SendKeys("{Enter}") WScript.Sleep 100 sh.SendKeys "data" sh.SendKeys("{Enter}") WScript.Sleep 100 sh.SendKeys "from:test1" sh.SendKeys("{Enter}") WScript.Sleep 100 sh.SendKeys "to:test2" sh.SendKeys("{Enter}") WScript.Sleep 100 sh.SendKeys "subject:" & subject sh.SendKeys("{Enter}") WScript.Sleep 100 sh.SendKeys "" sh.SendKeys("{Enter}") WScript.Sleep 100 sh.SendKeys content sh.SendKeys("{Enter}") WScript.Sleep 100 sh.SendKeys "" sh.SendKeys("{Enter}") WScript.Sleep 100 sh.SendKeys "." sh.SendKeys("{Enter}") WScript.Sleep 100 sh.SendKeys("{Enter}") WScript.Sleep 1000 sh.SendKeys "quit" sh.SendKeys("{Enter}") WScript.Sleep 5000 sh.SendKeys("{Enter}") WScript.Sleep 2000 sh.SendKeys "quit" sh.SendKeys("{Enter}") WScript.Sleep 100 sh.SendKeys("exit{Enter}") WScript.Quit
啟動腳本,傳入?yún)?shù):
cscript //Nologo SendMail3.vbs subject-%time% content111
另外有需要云服務器可以了解下創(chuàng)新互聯(lián)scvps.cn,海內(nèi)外云服務器15元起步,三天無理由+7*72小時售后在線,公司持有idc許可證,提供“云服務器、裸金屬服務器、高防服務器、香港服務器、美國服務器、虛擬主機、免備案服務器”等云主機租用服務以及企業(yè)上云的綜合解決方案,具有“安全穩(wěn)定、簡單易用、服務可用性高、性價比高”等特點與優(yōu)勢,專為企業(yè)上云打造定制,能夠滿足用戶豐富、多元化的應用場景需求。
網(wǎng)站欄目:Windows下通過腳本自動發(fā)郵件-創(chuàng)新互聯(lián)
分享URL:http://bm7419.com/article48/cdeoep.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供營銷型網(wǎng)站建設、電子商務、服務器托管、搜索引擎優(yōu)化、Google、域名注冊
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容