用来猜后台的HTA小程序

    复制代码 代码如下:

    <input type=text id=http size=28 style=”color:888888″ value=”http://www.haiyangtop.net”>
    <input type=button onclick=vbs:isExist(http.value) value=”检测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>


    字典放在页面里的写法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 ‘ 遍历数组。
           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=”打开字典进行猜解” 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, “请确认” ) 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>


    最后一个比较好用

发表评论

发表评论