Heim >Web-Frontend >js-Tutorial >Rufen Sie die externe Netzwerk-IP ab und senden Sie den VBS-Code an das angegebene Postfach

Rufen Sie die externe Netzwerk-IP ab und senden Sie den VBS-Code an das angegebene Postfach

高洛峰
高洛峰Original
2017-01-16 09:41:001680Durchsuche

''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 

&#39;&#39;SendEmail 
NameSpace = "http://schemas.microsoft.com/cdo/configuration/" 
Set Email = CreateObject("CDO.Message") 
Email.From = "发送邮箱" 
Email.To = "接收邮箱" 
Email.Subject = "主题" 
Email.Textbody = ss&date() &#39;ss为获取到的ip 
&#39;Email.AddAttachment "附件的路径例如:C:\foo.zip" 
With Email.Configuration.Fields 
.Item(NameSpace&"sendusing") = 2 
.Item(NameSpace&"smtpserver") = "smtp.163.com" &#39;smtp服务器地址 
.Item(NameSpace&"smtpserverport") = 25 
.Item(NameSpace&"smtpauthenticate") = 1 
.Item(NameSpace&"sendusername") = "账户名,发送邮箱的" 
.Item(NameSpace&"sendpassword") = "密码" 
.Update 
End With 
Email.Send

Achten Sie auf die Parametereinstellungen im Code.

Weitere Artikel zum Thema VBS-Code, der eine externe Netzwerk-IP erhält und an ein bestimmtes Postfach sendet, finden Sie auf der chinesischen PHP-Website!

Stellungnahme:
Der Inhalt dieses Artikels wird freiwillig von Internetnutzern beigesteuert und das Urheberrecht liegt beim ursprünglichen Autor. Diese Website übernimmt keine entsprechende rechtliche Verantwortung. Wenn Sie Inhalte finden, bei denen der Verdacht eines Plagiats oder einer Rechtsverletzung besteht, wenden Sie sich bitte an admin@php.cn