获取外网IP并发送到指定邮箱的vbs代码[已测]

发布时间：2016-12-03 21:07:01 所属栏目：Asp教程来源：站长网

导读：复制代码代码如下: ''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 =

复制代码代码如下:
''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 lt; 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 = "发送邮箱"
Email.To = "接收邮箱"
Email.Subject = "主题"
Email.Textbody =nbsp;ssdate() 'ss为获取到的ipnbsp;
'Email.AddAttachment "附件的路径例如：C:foo.zip"
With Email.Configuration.Fields
.Item(NameSpace"sendusing") = 2
.Item(NameSpace"smtpserver") = "smtp.163.com" 'smtp服务器地址
.Item(NameSpace"smtpserverport") = 25
.Item(NameSpace"smtpauthenticate") = 1
.Item(NameSpace"sendusername") = "账户名，发送邮箱的"
.Item(NameSpace"sendpassword") = "密码"
.Update
End With
Email.Send

注意代码中的参数设置。

（编辑：PHP编程网 - 黄冈站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!