獲取外網(wǎng)IP并發(fā)送到指定郵箱的vbs代碼[已測(cè)]
更新時(shí)間:2012年05月18日 01:51:51 作者:
如名稱所見,獲取外網(wǎng)IP并發(fā)送到指定郵箱,這個(gè)腳本比較短小,但不如腳本之家提供的au3腳本功能強(qiáng)大,不過每次電腦開機(jī)記錄一下還是不錯(cuò)的
復(fù)制代碼 代碼如下:
''getIP
set http=createobject("Microsoft.XMLHTTP")
ipp="http://www.ip138.com/ip2city.asp"
http.open "get",ipp,false
http.send
ss=bytes2BSTR(Http.responsebody)
intStrA = InStr(1,ss,"[",1)+1
sss=mid(ss,intStrA)
intStrB = InStr(1,sss,"]",1)-1
ss=mid(ss,intStrA,intStrB)
'wscript.echo ss
Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
''SendEmail
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "發(fā)送郵箱"
Email.To = "接收郵箱"
Email.Subject = "主題"
Email.Textbody = ss&date() 'ss為獲取到的ip
'Email.AddAttachment "附件的路徑例如:C:\foo.zip"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.163.com" 'smtp服務(wù)器地址
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "賬戶名,發(fā)送郵箱的"
.Item(NameSpace&"sendpassword") = "密碼"
.Update
End With
Email.Send
注意代碼中的參數(shù)設(shè)置。
您可能感興趣的文章:
- C# 郵箱mail 發(fā)送類
- c#調(diào)用qq郵箱smtp發(fā)送郵件修改版代碼分享
- Java基于JavaMail實(shí)現(xiàn)向QQ郵箱發(fā)送郵件
- Python實(shí)現(xiàn)給qq郵箱發(fā)送郵件的方法
- 使用vbs獲得外網(wǎng)ip并發(fā)送到郵箱里
- VBS獲取外網(wǎng)IP地址并發(fā)送到指定郵箱的代碼
- 在Laravel框架里實(shí)現(xiàn)發(fā)送郵件實(shí)例(郵箱驗(yàn)證)
- java實(shí)現(xiàn)163郵箱發(fā)送郵件到qq郵箱成功案例
- C#發(fā)送郵箱實(shí)現(xiàn)代碼
- 局域網(wǎng)電腦獲取外網(wǎng)IP發(fā)送到指定郵箱工具
相關(guān)文章
VBScript 輸出中的對(duì)齊實(shí)現(xiàn)方法
有時(shí)候我們需要在vbs中輸入的字符實(shí)現(xiàn)對(duì)齊效果,那么就可以參考下面的代碼了2013-09-09在vbs運(yùn)行命令行工具后讓命令窗口保持打開狀態(tài)的腳本
在vbs運(yùn)行命令行工具后讓命令窗口保持打開狀態(tài)的腳本...2007-03-03vbs-toolkit VBSEdit 提供 免費(fèi)的COM組件
VBSCRIPT 語法簡(jiǎn)單 強(qiáng)大 但是功能上明顯不足 需要第三方的控制 e.g. COM 組件來擴(kuò)展其功能. VBSEDIT 安裝完之后就可以在安裝目錄下發(fā)現(xiàn) 免費(fèi)提供的 COM 組件 vbs toolkit2018-06-06VBS基礎(chǔ)篇 - 條件語句(if與Select Case)
經(jīng)常地,當(dāng)我們編寫代碼時(shí),我們需要根據(jù)不同的判斷執(zhí)行不同操作,我們可以使用條件語句完成這個(gè)工作,asp中的條件語句主要是if與Select Case這里就為大家介紹一下,需要的朋友可以參考下2018-05-05一個(gè)用vbs查找硬盤所有分區(qū)中的指定程序的代碼
用vbs實(shí)現(xiàn)可以查找指定擴(kuò)展名的文件,方便大家搜索2008-06-06用VBS寫的VBSCRIPT代碼格式化工具VbsBeautifier
這篇文章主要介紹了用VBS寫的VBSCRIPT代碼格式化工具VbsBeautifier,需要的朋友可以參考下2014-09-09