| 标题 | 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") |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。