欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

VBS獲取外網(wǎng)IP地址并發(fā)送到指定郵箱的代碼

 更新時(shí)間：2013年07月28日 20:00:43   作者：  
以前腳本之家發(fā)過(guò)類(lèi)似功能的文章，這篇文章的獲取網(wǎng)站不同，實(shí)現(xiàn)代碼也不錯(cuò)，喜歡的朋友可以測(cè)試下

復(fù)制代碼 代碼如下:

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

相關(guān)文章

  • N年前的兩個(gè)腳本%5c暴庫(kù)

    N年前的兩個(gè)腳本%5c暴庫(kù)

    Ｎ年前，那時(shí)估計(jì)知道%5c暴庫(kù)的人還很少。這個(gè)vbs腳本應(yīng)當(dāng)是Lilo寫(xiě)的,應(yīng)當(dāng)深深表達(dá)一下敬意……
    2008-02-02
  • vbs定期監(jiān)控 值個(gè)班，定期瞄一下

    vbs定期監(jiān)控 值個(gè)班，定期瞄一下

    有些時(shí)候需要定期去執(zhí)行一段程序，怎么辦？這里提供一個(gè)方法，雖然有點(diǎn)繞，但效果還不錯(cuò),需要的朋友可以參考下
    2019-10-10
  • VBS調(diào)用Windows API函數(shù)的代碼

    VBS調(diào)用Windows API函數(shù)的代碼

    結(jié)合兩篇文章（請(qǐng)先閱讀這兩篇文章），寫(xiě)了一個(gè)示例程序，效果是移動(dòng)鼠標(biāo)至桌面左上角。
    2011-01-01
  • alpha2 shellcode解密的vbs腳本

    alpha2 shellcode解密的vbs腳本

    '說(shuō)明：只針對(duì)alpha2的TYIIIIIIIIIIIIIIII這樣的加密來(lái)解密，沒(méi)有做更多的容錯(cuò)處理，只是解出下載url的exe地址。一般情況下該url的加密字符串是RHptd4之后的字符（去掉最后4個(gè)字符）。
    2008-02-02
  • VBS教程：VBScript 語(yǔ)句-Property Let 語(yǔ)句

    VBS教程：VBScript 語(yǔ)句-Property Let 語(yǔ)句

    VBS教程：VBScript 語(yǔ)句-Property Let 語(yǔ)句...
    2006-11-11
  • VBS編程教程 (第4篇)

    VBS編程教程 (第4篇)

    VBS編程教程 (第4篇)...
    2007-07-07
  • vbs判讀盤(pán)符被雙擊的腳本

    vbs判讀盤(pán)符被雙擊的腳本

    你用WshShell.AppActivate("D:\")這個(gè)，就是說(shuō)窗體Caption里要包含"D:\"這個(gè)字符串?？赡愦蜷_(kāi)D盤(pán)看看，是這樣的嗎？
    2008-07-07
  • VBS教程：方法-Test 方法

    VBS教程：方法-Test 方法

    VBS教程：方法-Test 方法...
    2006-11-11
  • VBS基礎(chǔ)篇 - vbscript堆棧

    VBS基礎(chǔ)篇 - vbscript堆棧

    VBS中的堆棧需要使用System.Collections.Stack，下面的代碼包含堆棧的添加元素（壓棧）、刪除元素（出棧）、遍歷、統(tǒng)計(jì)元素個(gè)數(shù)、清空,需要的朋友可以參考下
    2018-05-05
  • VBScript獲取CPU使用率的方法

    VBScript獲取CPU使用率的方法

    本文給大家分享的是VBS通過(guò)WMI獲取CPU的使用率的方法，十分的簡(jiǎn)單實(shí)用，有需要的小伙伴可以參考下。
    2015-05-05

最新評(píng)論