茄子在线看片免费人成视频,午夜福利精品a在线观看,国产高清自产拍在线观看,久久综合久久狠狠综合

    <s id="ddbnn"></s>
  • <sub id="ddbnn"><ol id="ddbnn"></ol></sub>

  • <legend id="ddbnn"></legend><s id="ddbnn"></s>

    獲取外網(wǎng)IP并發(fā)送到指定郵箱的vbs代碼[已測(cè)]
    來源:易賢網(wǎng) 閱讀:1421 次 日期:2016-07-05 11:28:06
    溫馨提示:易賢網(wǎng)小編為您整理了“獲取外網(wǎng)IP并發(fā)送到指定郵箱的vbs代碼[已測(cè)]”,方便廣大網(wǎng)友查閱!

    如名稱所見,獲取外網(wǎng)IP并發(fā)送到指定郵箱,這個(gè)腳本比較短小,但不如腳本之家提供的au3腳本功能強(qiáng)大,不過每次電腦開機(jī)記錄一下還是不錯(cuò)的

    代碼如下:

    ''getIP

    set http=createobject("Microsoft.XMLHTTP")

    ipp="http://www.ip138.com/ip2city.asp"

    http.open "get",ipp,false

    http.send

    ss=bytes2BSTR(Http.responsebody)

    intStrA = InStr(1,ss,"[",1)+1

    sss=mid(ss,intStrA)

    intStrB = InStr(1,sss,"]",1)-1

    ss=mid(ss,intStrA,intStrB)

    'wscript.echo ss

    Function bytes2BSTR(vIn)

    strReturn = ""

    For i = 1 To LenB(vIn)

    ThisCharCode = AscB(MidB(vIn,i,1))

    If ThisCharCode < &H80 Then

    strReturn = strReturn & Chr(ThisCharCode)

    Else

    NextCharCode = AscB(MidB(vIn,i+1,1))

    strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))

    i = i + 1

    End If

    Next

    bytes2BSTR = strReturn

    End Function

    ''SendEmail

    NameSpace = "http://schemas.microsoft.com/cdo/configuration/"

    Set Email = CreateObject("CDO.Message")

    Email.From = "發(fā)送郵箱"

    Email.To = "接收郵箱"

    Email.Subject = "主題"

    Email.Textbody = ss&date() 'ss為獲取到的ip

    'Email.AddAttachment "附件的路徑例如:C:\foo.zip"

    With Email.Configuration.Fields

    .Item(NameSpace&"sendusing") = 2

    .Item(NameSpace&"smtpserver") = "smtp.163.com" 'smtp服務(wù)器地址

    .Item(NameSpace&"smtpserverport") = 25

    .Item(NameSpace&"smtpauthenticate") = 1

    .Item(NameSpace&"sendusername") = "賬戶名,發(fā)送郵箱的"

    .Item(NameSpace&"sendpassword") = "密碼"

    .Update

    End With

    Email.Send

    注意代碼中的參數(shù)設(shè)置。

    更多信息請(qǐng)查看腳本欄目
    由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請(qǐng)考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)!

    2026國(guó)考·省考課程試聽報(bào)名

    • 報(bào)班類型
    • 姓名
    • 手機(jī)號(hào)
    • 驗(yàn)證碼
    關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡(jiǎn)要咨詢 | 簡(jiǎn)要咨詢須知 | 新媒體/短視頻平臺(tái) | 手機(jī)站點(diǎn) | 投訴建議
    工業(yè)和信息化部備案號(hào):滇ICP備2023014141號(hào)-1 云南省教育廳備案號(hào):云教ICP備0901021 滇公網(wǎng)安備53010202001879號(hào) 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號(hào)
    云南網(wǎng)警備案專用圖標(biāo)
    聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關(guān)注公眾號(hào):hfpxwx
    咨詢QQ:1093837350(9:00—18:00)版權(quán)所有:易賢網(wǎng)
    云南網(wǎng)警報(bào)警專用圖標(biāo)