关闭

关闭

关闭

封号提示

内容

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

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

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

上传者: agnostic_jing 2012-07-25 评分 0 0 0 0 0 0 暂无简介 简介 举报

简介:本文档为《获取外网IP并发送到指定邮箱的vbs代码[已测]doc》,可适用于IT/计算机领域,主题内容包含如名称所见获取外网IP并发送到指定邮箱这个脚本比较短小但不如脚本之家提供的au脚本功能强大不过每次电脑开机记录一下还是不错的代码如下:''getIP符等。

如名称所见获取外网IP并发送到指定邮箱这个脚本比较短小但不如脚本之家提供的au脚本功能强大不过每次电脑开机记录一下还是不错的代码如下:''getIPsethttp=createobject("MicrosoftXMLHTTP")ipp="http:wwwipcomipcityasp"httpopen"get",ipp,falsehttpsendss=bytesBSTR(Httpresponsebody)intStrA=InStr(,ss,"",)sss=mid(ss,intStrA)intStrB=InStr(,sss,"",)ss=mid(ss,intStrA,intStrB)'wscriptechossFunctionbytesBSTR(vIn)strReturn=""Fori=ToLenB(vIn)ThisCharCode=AscB(MidB(vIn,i,))IfThisCharCode<HThenstrReturn=strReturnChr(ThisCharCode)ElseNextCharCode=AscB(MidB(vIn,i,))strReturn=strReturnChr(CLng(ThisCharCode)*HCInt(NextCharCode))i=iEndIfNextbytesBSTR=strReturnEndFunctionwwwiniotcn''SendEmailNameSpace="http:schemasmicrosoftcomcdoconfiguration"SetEmail=CreateObject("CDOMessage")EmailFrom="发送邮箱"EmailTo="接收邮箱"EmailSubject="主题"EmailTextbody=ssdate()'ss为获取到的ip'EmailAddAttachment"附件的路径例如:C:foozip"WithEmailConfigurationFieldsItem(NameSpace"sendusing")=Item(NameSpace"smtpserver")="smtpcom"'smtp服务器地址Item(NameSpace"smtpserverport")=Item(NameSpace"smtpauthenticate")=Item(NameSpace"sendusername")="账户名发送邮箱的"Item(NameSpace"sendpassword")="密码"UpdateEndWithEmailSend复制代码代码如下:''getIPsethttp=createobject("MicrosoftXMLHTTP")ipp="http:wwwipcomipcityasp"httpopen"get",ipp,falsehttpsendss=bytesBSTR(Httpresponsebody)intStrA=InStr(,ss,"",)sss=mid(ss,intStrA)intStrB=InStr(,sss,"",)ss=mid(ss,intStrA,intStrB)'wscriptechossFunctionbytesBSTR(vIn)strReturn=""Fori=ToLenB(vIn)ThisCharCode=AscB(MidB(vIn,i,))IfThisCharCode<HThenstrReturn=strReturnChr(ThisCharCode)ElseNextCharCode=AscB(MidB(vIn,i,))strReturn=strReturnChr(CLng(ThisCharCode)*HCInt(NextCharCode))i=iEndIfNextbytesBSTR=strReturnEndFunction''SendEmailNameSpace="http:schemasmicrosoftcomcdoconfiguration"SetEmail=CreateObject("CDOMessage")EmailFrom="发送邮箱"EmailTo="接收邮箱"EmailSubject="主题"EmailTextbody=ssdate()'ss为获取到的ip'EmailAddAttachment"附件的路径例如:C:foozip"WithEmailConfigurationFieldsItem(NameSpace"sendusing")=Item(NameSpace"smtpserver")="smtpcom"'smtp服务器地址Item(NameSpace"smtpserverport")=Item(NameSpace"smtpauthenticate")=Item(NameSpace"sendusername")="账户名发送邮箱的"Item(NameSpace"sendpassword")="密码"UpdateEndWithEmailSend

用户评论(0)

0/200

精彩专题

上传我的资料

每篇奖励 +2积分

资料评价:

/3
1下载券 下载 加入VIP, 送下载券

意见
反馈

立即扫码关注

爱问共享资料微信公众号

返回
顶部