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

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

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

    用來(lái)猜后臺(tái)的hta小程序
    來(lái)源:易賢網(wǎng) 閱讀:1272 次 日期:2016-06-30 09:15:53
    溫馨提示:易賢網(wǎng)小編為您整理了“用來(lái)猜后臺(tái)的hta小程序”,方便廣大網(wǎng)友查閱!

    代碼如下:

    <input type=text id=http size=28 style=color:888888 value=http://www.haiyangtop.net>

    <input type=button onclick=vbs:isexist(http.value) value=檢測(cè)url是否存在 style=color:888888>

    <div id=t></div>

    <script language=vbs>

    function isexist(url)

    dic=c:\dic.dic

    set fso = createobject(scripting.filesystemobject)

    set zidian=fso.opentextfile(dic,1,false)

    do while zidian.atendofstream <> true

    path=zidian.readline

    set xmlhttp = createobject(microsoft.xmlhttp)

           xmlhttp.open get,http.value+path,false

           xmlhttp.send

           t.innerhtml = t.innerhtml&url&path&--------&xmlhttp.status&<br>

           loop

    end function

    </script>

    js版寫法:

    如果換js,要將第二行的“onclick=vbs:isexist(http.value)”里的vbs:去掉

    代碼如下:

    <script>

    function isexist(url)

    {

    var myobject = new object();

    myobject.lcx1 = /admin/index.asp;

    myobject.lcx2 = /safety;

    myobject.lcx3 = /safetyx;

    for (lcx in myobject)

    {

    xmlhttp = new activexobject(microsoft.xmlhttp)

    xmlhttp.open(get,http.value+myobject[lcx],false)

    xmlhttp.send()

    if(xmlhttp.status==200)

    t.innerhtml += url+myobject[lcx]+存在<br>;

    else

    t.innerhtml+= url+myobject[lcx]+不存在<br>;

    }

    }

    </script>

    字典放在頁(yè)面里的寫法vbscript版:

    代碼如下:

    <script language=vbs>

    function isexist(url)

    dim d  

           set d = createobject(scripting.dictionary)

           d.add a,/admin/index.asp

           d.add b, /safety

           d.add c, /safetyx

           a = d.keys

           for i = 0 to d.count -1 ' 遍歷數(shù)組。

           set xmlhttp = createobject(microsoft.xmlhttp)

           xmlhttp.open get,http.value+d.item(a(i)),false

           xmlhttp.send

           if xmlhttp.status=200 then

           t.innerhtml = t.innerhtml+url+d.item(a(i))+存在<br>

           else

           t.innerhtml = t.innerhtml+url+d.item(a(i))+不存在<br>

           end if

           next

           end function

    </script>

    代碼如下:

    <input type=text id=http size=28 style=color:888888 value=http://www.haiyangtop.net>

    <input type=button onclick=isexist(http.value) value=打開(kāi)字典進(jìn)行猜解 style=color:888888>

    <div id=t></div>

    <script language=vbs>

    function isexist(url)

    set objfile = createobject(safrcfiledlg.fileopen)

    intret = objfile.openfileopendlg

    if intret then

    dic= objfile.filename

    end if

    if dic<> then

    set fso = createobject(scripting.filesystemobject)

    set zidian=fso.opentextfile(dic,1,false)

    if 2 = msgbox( 字典為: & objfile.filename & vbcrlf & 您確定嗎?, 32 + 1, 請(qǐng)確認(rèn) ) then isexist(http.value)

    do while zidian.atendofstream <> true

    path=zidian.readline

    set xmlhttp = createobject(microsoft.xmlhttp)

         xmlhttp.open get,http.value+path,false

         xmlhttp.send

         t.innerhtml = t.innerhtml&url&path&--------&<font color=red>&xmlhttp.status&</font><br>

         loop

    end if

    end function

    </script>

    最后一個(gè)比較好用

    更多信息請(qǐng)查看腳本欄目
    易賢網(wǎng)手機(jī)網(wǎng)站地址:用來(lái)猜后臺(tái)的hta小程序
    由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請(qǐng)考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)!

    2026國(guó)考·省考課程試聽(tīng)報(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)