主页 > 知识库 > VBS获取外网IP地址并发送到指定邮箱的代码

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

 If Flag = 0 Then
  GetIPAddress = "Get IP Address Time Out ..."
 Else
  Source = GetIPObj.documentElement.innerText
  Set Rep = New RegExp
  Rep.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
  For Each result in Rep.Execute(Source)
    GetIPAddress = result
    Exit For
  Next
 End If
End Function

Function MailTo(MailAddress)
    Dim NameSpace, MailObject

    NameSpace = "http://schemas.microsoft.com/cdo/configuration/"

    Set MailObject = CreateObject("CDO.Message")
    MailObject.From = "*****@21cn.com"
    MailObject.To = MailAddress
    MailObject.Subject = "IP Address Information"

    MailObject.Textbody = Now ": " GetIPAddress()

    MailObject.Configuration.Fields.Item(NameSpace "sendusing") = 2
    MailObject.Configuration.Fields.Item(NameSpace "smtpserver") = "smtp.21cn.com"
    MailObject.Configuration.Fields.Item(NameSpace "smtpserverport") = 25
    MailObject.Configuration.Fields.Item(NameSpace "smtpauthenticate") = 1
    MailObject.Configuration.Fields.Item(NameSpace "sendusername") = "*****"
    MailObject.Configuration.Fields.Item(NameSpace "sendpassword") = "*****"

    MailObject.Configuration.Fields.Update
    MailObject.Send
End Function

MailTo ("******@qq.com")



原文:http://www.enun.net/?p=1199

您可能感兴趣的文章:
  • C# 邮箱mail 发送类
  • c#调用qq邮箱smtp发送邮件修改版代码分享
  • 获取外网IP并发送到指定邮箱的vbs代码[已测]
  • Java基于JavaMail实现向QQ邮箱发送邮件
  • Python实现给qq邮箱发送邮件的方法
  • 使用vbs获得外网ip并发送到邮箱里
  • 在Laravel框架里实现发送邮件实例(邮箱验证)
  • java实现163邮箱发送邮件到qq邮箱成功案例
  • C#发送邮箱实现代码
  • 局域网电脑获取外网IP发送到指定邮箱工具

标签:长治 乐山 新疆 红河 河南 沈阳 沧州 上海

巨人网络通讯声明:本文标题《VBS获取外网IP地址并发送到指定邮箱的代码》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266