获取外网IP并发送到指定邮箱的vbs代码[已测]
2013-06-18 17:27
671 查看
''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 = "发送邮箱" 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服务器地址 .Item(NameSpace&"smtpserverport") = 25 .Item(NameSpace&"smtpauthenticate") = 1 .Item(NameSpace&"sendusername") = "账户名,发送邮箱的" .Item(NameSpace&"sendpassword") = "密码" .Update End With Email.Send
相关文章推荐
- 获取外网IP并发送到指定邮箱的vbs代码[已测]
- 获取外网IP并发送到指定邮箱的vbs代码[已测]
- VBS获取外网IP地址并发送到指定邮箱的代码
- VBS获得外网IP并发送到指定邮箱
- 获取外网IP并发送到指定的邮箱的脚本
- 【python】获取本机局域网IP并发送邮件到指定邮箱
- VBS 获取外网IP的实现代码
- ddnslib.py - 更新adsl用户外网ip到动态域名网站no-ip.com,并发送新ip到指定邮箱的python脚本
- vbs-获取公网IP调用邮件控件实现邮件的自动发送到指定邮箱-可直接使用复制使用
- CentOS定时将路由器的外网IP发送到指定电子邮箱中
- 使用vbs获得外网ip并发送到邮箱里
- VBS 从指定 DNS 获取给定域名(Domain)的 IP 地址
- C++实现获取本机机器名及外网IP代码
- php中获取指定IP的物理地址的代码(正则表达式)
- XMPP框架 微信项目开发之Socket聊天室发送数据——获取键盘高度,修改控件的约束值,代码滚动UITabView到指定位置
- 牛腩购物33:发布网站,将网站上传到外网,讲数据库发布到远程服务器,如何在服务器上开数据库,更换电脑后微软企业库报错,网站异常后发送错误信息到指定邮箱,设置错误页
- 获取外网IP并发送邮件通知
- 树莓派自动发送ip到指定邮箱
- Android wifi 外网ip 完善代码,保证http和手机都能获取到