获取外网IP并发送到指定邮箱的vbs代码[已测]
''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
注意代码中的参数设置。
相关推荐
-
c#调用qq邮箱smtp发送邮件修改版代码分享
复制代码 代码如下: try { MailMessage mm = new MailMessage(); MailAddress Fromma = new MailAddress("xxxx@qq.com"); MailAddress Toma = new MailAddress("MMMMMMM@qq.com", null);
-
C#发送邮箱实现代码
之前自己从来没有做过发送邮箱的功能,前段时间项目需要,在找了很多帖子之后,终于实现了. 之后有整理了一下,写了一个类.直接给类传递信息,就可以发送了. 这里还需要说明的是,发送邮箱需要开通POP3/SMTP服务,否则QQ邮箱,网易邮箱等会报错.接收的邮箱就不用开通啦,开通方法百度一下就知道啦. public static class EmailHelper { /// <summary> /// 发送邮件 /// </summary> /// <param name=&quo
-
VBS获取外网IP地址并发送到指定邮箱的代码
复制代码 代码如下: Function GetIPAddress() Dim Flag, Source Set GetIPObj = WScript.GetObject("http://ipseeker.cn//") Flag = 0 For i=1 To 10 If GetIPObj.readyState = "complete" Then Flag=1 Exit For End If WScript.Sleep 500 Next
-
java实现163邮箱发送邮件到qq邮箱成功案例
下载和上传附件.发送短信和发送邮件,都算是程序中很常用的功能,之前记录了文件的上传和下载还有发送短信,由于最近比较忙,邮件发送的功能就没有时间去弄,现在终于成功以163邮箱发送邮件到qq邮箱,以下是相关代码,具体解释可以参考代码中注释: package test; import java.util.ArrayList; import java.util.Date; import java.util.List; import java.util.Properties; import java.ut
-
Python实现给qq邮箱发送邮件的方法
本文实例讲述了Python实现给qq邮箱发送邮件的方法.分享给大家供大家参考.具体实现方法如下: #-*-coding:utf-8-*- #========================================== # 导入smtplib和MIMEText #========================================== from email.mime.text import MIMEText import smtplib #===================
-
在Laravel框架里实现发送邮件实例(邮箱验证)
在经过一段时间的使用后,发现在项目中很多地方需要用到用户验证,以短信验证和邮箱验证为主流趋势,此篇文章小编给大家总结了如何在Laravel框架中实现发送邮件功能,以后会陆续更上如何实现短信验证..... 在.env文件下 1.配置Laravel文件 MAIL_DRIVER=smtp //建议使用smtp方式 MAIL_HOST=smtp.163.com //建议使用163邮箱 QQ邮箱会有报错 MAIL_PORT=25//smtp 默认为25 MAIL_USERNAME=null //自己的16
-
C# 邮箱mail 发送类
没有牛B的设计模式,代码精练精练实用,功能齐全,调用简单 ..全全完完为码农考虑 MailSmtp ms = new MailSmtp("smtp.qq.com","1215247044","xxxx"); //可选参数 ms.SetCC("610262374@qq.com");//抄送可以多个 ms.SetBC("610262374@qq.com");//暗送可以多个 ms.SetIsHtml(true)
-
Java基于JavaMail实现向QQ邮箱发送邮件
最近项目在做新闻爬虫,想实现这个功能:爬虫某个页面失败后,把这个页面的 url 发到邮箱.最终实现的效果图如下,后期可以加上过滤标签.失败状态码等,方便分类搜索异常. 开发人员可以根据邮件里的 url 和堆栈信息,分析爬虫失败的原因. 是不是服务器 down 了? 还是爬虫的 Dom 解析没有解析到内容? 还是正则表达式对于这个页面不适用? 开启SMTP服务 在 QQ 邮箱里的 设置->账户里开启 SMTP 服务 注意开启完之后,QQ 邮箱会生成一个授权码,在代码里连接邮箱使用这个授权码而不是原
-
使用vbs获得外网ip并发送到邮箱里
获得本地外网地址并发送到指定邮箱,还可以参考这个文章http://www.jb51.net/article/40064.htm 复制代码 代码如下: '* **************************************** * '* 程序名称:GetIP.vbs '* 程序说明:获得本地外网地址并发送到指定邮箱 '* 编码:lyserver '* **************************************** * Option Explicit Cal
-
获取外网IP并发送到指定邮箱的vbs代码[已测]
复制代码 代码如下: ''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,intS
-
获取外网IP并发送到指定的邮箱的脚本
我们编译后的exe文件,方便大家直接使用 下载地址 http://www.jb51.net/softs/44627.html 配置文件内容如下: 复制代码 代码如下: 配置文件代码 [收件人] 收件地址= 邮件标题= [发送人] 邮箱= 密码= 核心代码: 复制代码 代码如下: #region AutoIt3Wrapper 预编译参数(常用参数) #AutoIt3Wrapper_Icon=D:\ico\3444\2222.ico ;图标,支持EXE,DLL,ICO #AutoIt3Wrapper
-
python获取外网IP并发邮件的实现方法
第一步:通过ip138来爬取外网ip 第二步:通过python的smtplib模块和email来发送邮件,具体用法去网上搜索, 下面是代码示例: #!/usr/bin/env python #coding:utf-8 import urllib2 import re import smtplib from email.MIMEText import MIMEText from email.Header import Header #################################
-
python获取外网ip地址的方法总结
本文实例总结了python获取外网ip地址的方法.分享给大家供大家参考.具体如下: 一.利用脚本引擎库直接获取 import console; import web.script import inet.http; var jsVm = web.script("JavaScript") jsVm.AddCode( inet.http().get("http://fw.qq.com/ipaddress") ) var ipAddr = jsVm.CodeObject.
-
C和MFC巧妙获取外网IP的两种实现方法
本文以C与MFC的两个实例详述了取外网IP的两种实现方法,具体实现代码如下: MFC语言实现获取外网IP: # include <windows.h> # include <urlmon.h> # pragma comment(lib,"URLMON.lib") void main() { URLDownloadToFile(NULL,"http://www.ip138.com/ip2city.asp","ip.txt",
-
获取外网IP地址的批处理代码
复制代码 代码如下: ::========================================== :: IP.bat :: v0.1 :: jinminghou.cn@2009-12-22 ::========================================== @echo off title GetIP set ip=unknown echo On Error Resume Next:Set oDOM=WScript.GetObject("http://www.j
-
VBS 获取外网IP的实现代码
复制代码 代码如下: set oDOM = WScript.GetObject("http://ipseeker.cn//")flag=0for i=1 to 10 if oDOM.readyState = "complete" then flag=1 exit for end if WScript.sleep 500nextif flag=0 then WScript.Echo "timeout ..."
-
C#获取路由器外网IP,MAC地址的实现代码
C#实现的获取路由器MAC地址,路由器外网地址.对于要获取路由器MAC地址,一定需要知道路由器web管理系统的用户名和密码.至于获取路由器的外网IP地址,可以不需要知道路由器web管理系统的用户名和密码,但是需要有一个代理页面获取客户端公网ip地址的,这样C#请求此页面即可获取到路由器公网ip地址.如 //getip.ashx 测试路由为水星 MR804,水星 MR808,都可以成功重启路由和获取到路由器MAC和外网IP地址 源代码 using System.Text; using System
随机推荐
- Windows Server 2012 Hyper-V群集图文教程
- php启动时候提示PHP startup的解决方法
- ThinkPHP惯例配置文件详解
- python字典序问题实例
- MAC下MySQL忘记初始密码怎么办
- JavaScript循环_动力节点Java学院整理
- python实现线程池的方法
- 深入理解final变量的初始化
- 集群配置中IP端口转发
- 纯C语言:贪心Prim算法生成树问题源码分享
- bash获取当前路径示例
- Jquery元素追加和删除的实现方法
- ThinkPHP3.1新特性之动态设置自动完成和自动验证示例
- js tab效果的实现代码
- Spring MVC+mybatis实现注册登录功能
- web下载文件和跳转的方法
- Python+matplotlib绘制不同大小和颜色散点图实例
- 深入剖析Express cookie-parser中间件实现示例
- 小程序云函数调用API接口的方法
- 微信小程序云开发实现数据添加、查询和分页