复制代码 代码如下:
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
外网,IP地址,邮箱
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新日志
- 【原神】V4.7角色攻略 | 班尼特培养攻略
- 林一峰.2003-床头歌【华纳】【WAV+CUE】
- 范晓萱.2004-我要我们的MAVIS精选2CD【新艺宝】【WAV+CUE】
- 伍佰.1996-爱情的尽头【魔岩】【WAV+CUE】
- PUBG x NewJeans开启联动合作 现已更新30.1版本游戏内
- 命运圣契阵容推荐 新手最强阵容分享
- 暗影格斗3武器品质排名一览 哪个武器最强
- dnf2023春节礼包详细介绍
- 塔瑞斯世界战士和圣骑士哪个厉害 战士和骑士强度解析
- 塔瑞斯战士选什么生活职业 战士生活职业推荐
- 全球第一款RTX 4070 ITX迷你卡诞生!双插槽身材
- 宫崎英高在采访中称赞《艾尔登法环》无缝联机MOD!
- 《博德之门3》解包发现影心未披露机制 以及隐藏对话
- Jean-FranoisMaljean《侗·融DongFusion》中西音乐碰撞[WAV]
- 邓丽君《テレサ?テン-テレサ?テン生誕70年ベスト?アルバム》2024[WAV分轨]