hta編寫的軟件管理工具0.1(IE7.0測(cè)試通過)

當(dāng)前位置：首頁 > 范文|應(yīng)用文 > IT技術(shù)專欄 > 腳本欄目

來源：易賢網(wǎng) 閱讀：1770 次日期：2014-08-12 17:19:11

溫馨提示：易賢網(wǎng)小編為您整理了“hta編寫的軟件管理工具0.1(IE7.0測(cè)試通過)”,方便廣大網(wǎng)友查閱！

定義分類，是歸檔文件，好比你可以把你的工具分為滲透、溢出、網(wǎng)馬、瀏覽之類的，可無限建分類

建好分類后，你可以進(jìn)行第二步，根據(jù)你需要的后綴來進(jìn)行分類，不建議將dll文件也分類，只把exe和webshell之類進(jìn)行收集吧

第二步查找結(jié)束后，可以選擇程序建立的SearchResult.txt，根據(jù)提示構(gòu)選要存到哪一個(gè)分類，自動(dòng)存進(jìn)數(shù)據(jù)庫

第三步當(dāng)然是進(jìn)行查找了，根據(jù)自定義sql語句查找你的工具

程序只是個(gè)雛形，可以提供建議，有時(shí)間再修正bug，進(jìn)行軟件升級(jí)

代碼如下:

<HTML>

<HEAD>

<HTA:Application ID="oHTA"

　　Applicationname="myApp"

　　border="thin"

　　borderstyle="normal"

　　caption="yes"

　　maximizebutton="yes"

　　minimizebutton="yes"

　　showintaskbar="no"

　　singleinstance="no"

　　sysmenu="yes"

　　version="1.0"

　　windowstate="normal"

　　scroll="yes">

<TITLE>工具歸類軟件v0.1 code by lcx myweb:http://www.haiyangtop.net</TITLE>

</head>

<style>

body

{

font-size:12;

BACKGROUND: #DADADA;

margin-left:5;

}

input

{

width:40;

overflow:visible;

border:1px solid lightblue;

background-color:#cccccc;

cursor:text;

}

button

{

border:1px solid gray;

width:260;

margin-left:2;

cursor:hand;

font-size:12;

filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#eaeaff', endColorStr='#618fff', gradientType='0');

}

textarea

{

font-family:Verdana;

font-size:12px;

overflow-x:visible;

overflow-y:scroll;

}

</style>

<body>

<div id=baobao>自定義數(shù)據(jù)庫字段，也就是軟件分類工作</div>

<button onclick=vbs:delinput><strong>減少字段名-</strong></button>

</div>

<a href=# onclick="ShowHideLayer('start')" >程序初始化</a> </br>

<button onclick=vbs:startwo><strong>工具整理第一步</strong></button>

<button onclick=vbs:showpath><strong>工具整理第二步，列表選擇寫入數(shù)據(jù)庫</strong></button>

</div>

<a href=# onclick="ShowHideLayer('starttwo')" >軟件整理工作</a> </br>

<button onclick=vbs:mysqlecute><strong>軟件查找,自定義sql語句執(zhí)行</strong></button>

</div>

<a href=# onclick="ShowHideLayer('startthree')" >軟件查找工作</a> </br>

<a href=# onclick=vbs:showHelp >軟件使用說明</a> </br>

</div>

</div>

</div>

</div></div>

</center>

on error resume next

window.resizeTo window.screen.availWidth/1.5,window.screen.availHeight/1.5

window.moveTo window.screen.availWidth/4,window.screen.availHeight/4

'------------------------------------------自定義建數(shù)據(jù)庫表模塊開始---------------------------------------------------------------

set fso=CreateObject("Scripting.FileSystemObject")

Set objConnection = CreateObject("ADODB.Connection")

Set objRecordSet = CreateObject("ADODB.Recordset")

set cn=CreateObject("ADODB.Connection")

set clx=CreateObject("ADOX.Column")

set cat=CreateObject("ADOX.Catalog")

set tblnam=CreateObject("ADOX.Table")

sub addinput

For i=1 to 6

set input = document.createElement("input")

input.value="分類名"&i

baobao.appendChild(input)

end sub

sub delinput

set input=document.getElementsByTagName("input")

if(input.length > 0)then baobao.removeChild(input(input.length - 1))

end sub

sub countall

adColNullable = 2

path=document.location.href

path=replace(path,"file:///","")

path=replace(path,"%20"," ")

path=replace(path,"#","")

if fso.FileExists(path&".mdb") Then

msgbox "數(shù)據(jù)庫已存在，請(qǐng)刪掉"

End if

cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&path&".mdb"

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&path&".mdb"

Set cat.ActiveConnection = cn

tblnam.Name = "Test"

clx.ParentCatalog = cat

clx.Type = 3

clx.Name = "Id"

clx.Properties("AutoIncrement") = true

tblnam.Columns.Append clx

for i=0 to document.all.tags("input").length -1

tblnam.Columns.Append document.all.tags("input").item(i).value,202,255

tblnam.Columns(document.all.tags("input").item(i).value).Attributes = adColNullable

tblnam.Columns.Append "demo",202,255

tblnam.Columns("demo").Attributes = adColNullable

cat.Tables.Append tblnam

cat.Tables.Refresh

if fso.FileExists(path&".mdb") Then

msgbox "數(shù)據(jù)庫已建好，可以下一步了"

End if

Set clx = Nothing

Set cat = Nothing

Set fso = Nothing

cn.Close

Set cn = Nothing

End Sub

'------------------------------------------自定義建數(shù)據(jù)庫表模塊結(jié)束-------------------------------------------------------

'-------------------------------------工具整理模塊第一步----------------------------------------

on error resume next

Dim keyWord, DirTotal, TimeSpend, FileTotal, Fso, outFile, txtResult, txtPath, sPath

Const MY_COMPUTER = &H11&

Const WINDOW_HANDLE = 0

Const OPTIONS = 0

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace(My_Computer)

Set objFolderItem = objFolder.Self

strPath = objFolderItem.Path

Function myFind(ByVal thePath)

Dim fso, myFolder, myFile, curFolder

Set fso = CreateObject("scripting.filesystemobject")

Set curFolders = fso.getfolder(thePath)

DirTotal = DirTotal + 1

If curFolders.Files.Count > 0 Then

For Each myFile In curFolders.Files

If InStr(1, LCase(myFile.Name), keyWord) > 0 Then

outFile.WriteLine FormatPath(thePath) & "\" & myFile.Name

FileTotal = FileTotal + 1

End If

If curFolders.subfolders.Count > 0 Then

For Each myFolder In curFolders.subfolders

myFind FormatPath(thePath) & "\" & myFolder.Name

End If

End Function

Function FormatPath(ByVal thePath)

thePath = Trim(thePath)

FormatPath = thePath

If Right(thePath, 1) = "\" Then FormatPath = Mid(thePath, 1, Len(thePath) - 1)

End Function

SUB startwo

Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "選擇你要搜索的文件夾，文件夾不宜過大超過幾G哪樣:", OPTIONS, strPath)

If objFolder Is Nothing Then

msgbox "您沒有選擇任何有效目錄!"

else

Set objFolderItem = objFolder.Self

sPath = objFolderItem.Path

txtpath=sPath

Set Fso = CreateObject("scripting.filesystemobject")

FileTotal = 0

DirTotal = 0

keyWord = LCase(inputbox("請(qǐng)輸入要整理的文件后綴:","文件搜索",".exe或.bat或.php,一般就這些，至于.dll手工添加吧"))

set outFile = Fso.createtextfile(sPath & "\SearchResult.txt")

TimeSpend = Timer

myFind txtPath

TimeSpend = round(Timer - TimeSpend,2)

txtResult = "搜索完成!" & vbCrLf & "共找到文件:" & FileTotal & "個(gè)." & vbCrLf & "共搜索目錄:" & DirTotal & "個(gè)." & vbCrLf & "用時(shí):" & TimeSpend & "秒."

msgbox txtResult &"結(jié)果保存在"&sPath &"\SearchResult.txt"

outFile.close

set outFile = nothing

set Fso = nothing

End if

END SUB

'-------------------------------------工具整理模塊第一步結(jié)束----------------------------------------

'----------------------------------------工具整理模塊第二步開始--------------------------------------------------

path=document.location.href

path=replace(path,"file:///","")

path=replace(path,"%20"," ")

path=replace(path,"#","")

dbname=path&".mdb"

'msgbox dbname

Function showColumn(mdb)

DBDriver = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

Set objConn = CreateObject("ADODB.Connection")

objConn.ConnectionString = DBDriver & mdb

objConn.Open

Set objTableRS = objConn.OpenSchema(20,Array(Empty, Empty, Empty, "TABLE"))

Set objColumnRS = objConn.OpenSchema(4,Array(Empty, Empty, objTableRS("Table_Name").Value))

While Not objColumnRS.EOF

Columns=Columns&(objColumnRS("Column_Name"))&"|"

objColumnRS.MoveNext

Wend

showColumn=Columns

end Function

SUB showpath

Exeurl = InputBox( "請(qǐng)輸入剛才生成的SearchResult.txt地址：", "輸入", "SearchResult.txt" )

'seletclist= split(replace(showColumn(dbname),"Id|",""),"|")

seletclist= replace(showColumn(dbname),"Id|","")

seletclist=replace(seletclist,"demo|","")

seletclist=split(seletclist,"|")

sSelect="<select id='select'>"

for i=0 to UBound(seletclist)-1

sSelect=sSelect&"<option value="&seletclist(i)&">"&seletclist(i)&"</option>"

sSelect=sSelect & "</select>"

aList=Split(LoadFile(Exeurl), vbCrLf)

sHTML = "<table width='100%' border='1' cellspacing='0' cellpadding='0'>"

for i=0 to UBound(aList)-1

sHTML = sHTML & "<tr><td>"

sHTML = sHTML & aList(i)&"<input type=checkbox name=checkBox"&i& " value="&aList(i)&"> 分類"&sSelect&"工具說明：<textarea rows=1 cols=20 name=demo"&i&"></textarea>"

sHTML = sHTML & "<br /></td></tr>"

sHTML = sHTML & "</table><br /><button onclick='javascript:SelectByPreName(""checkBox"");' /><strong>全選</strong></button><button onclick='javascript:DoAction();' /><strong>寫入數(shù)據(jù)庫</strong></button>"

Document.getElementById("DivList").innerHTML = sHTML

end sub

Function LoadFile(ByVal File)

Dim objStream

On Error Resume Next

Set objStream = CreateObject("ADODB.Stream")

If Err.Number=-2147221005 Then

msgbox "<div align='center'>非常遺憾,您的主機(jī)不支持ADODB.Stream,不能使用本程序</div>"

Err.Clear

End If

With objStream

.Type = 2

.Mode = 3

.Open

.LoadFromFile File

.Charset = "GB2312" '可以根據(jù)需求，把這里的編碼修改成utf-8等編碼格式

.Position = 2

.LineSeparator=13

LoadFile = .ReadText

.Close

End With

Set objStream = Nothing

End Function

</SCRIPT>

function DoAction()

{

var conn = new ActiveXObject("ADODB.Connection");

conn.Open("DBQ="+window.location.pathname + '.mdb'+";DRIVER={Microsoft Access Driver (*.mdb)};");

　 var rs = new ActiveXObject("ADODB.Recordset");

var I, O, Memo;

O = document.getElementsByTagName('select');

I = 0;

while(true)

{

O[I];

if(!O[I]) break;

if(document.getElementsByName('checkBox' + I)[0].checked)

{

Memo = document.getElementsByName('demo' + I)[0];

input= document.getElementsByName('checkBox' + I)[0]

// alert(input.value+'\r\n'+O[I].value + '\r\n' + Memo.value+'\r\n'); 換成數(shù)據(jù)庫操作

sql="INSERT INTO test ("+O[I].value+",demo) VALUES ("+"'"+input.value+"'"+","+"'"+Memo.value+"'"+")";

//alert(sql);

rs.open(sql, conn);

//rs.close();

　 //rs = null;

　 //conn.close();

　 //conn = null;

}

I++;

}

alert("寫入成功，你可以再操作別的目錄了");

}

function SelectByPreName(sPreName)

{

var O;

O = document.getElementsByTagName('input');

for(var i = 0; i < O.length; i++)

{

if(O[i].name.indexOf(sPreName) == 0)

O[i].checked = !O[i].checked;

}

//---------------------------------------------------------工具整理模塊第二步結(jié)束------------------------------------------

</script>

'=============================================================軟件查找模塊開始

Sub mysqlecute

path=document.location.href

path=replace(path,"file:///","")

path=replace(path,"%20"," ")

path=replace(path,"#","")

dbname=path&".mdb"

set fso=createobject("scripting.filesystemobject")

if fso.FileExists(path&".mdb") then

DBDriver = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

Set objConn = CreateObject("ADODB.Connection")

objConn.ConnectionString = DBDriver & dbname

objConn.Open

Set objTableRS = objConn.OpenSchema(20,Array(Empty, Empty, Empty, "TABLE"))

Set objColumnRS = objConn.OpenSchema(4,Array(Empty, Empty, objTableRS("Table_Name").Value))

Do While Not objTableRS.EOF

Document.write "表名--------------->"&objTableRS("Table_Name").Value&"</br>"

objTableRS.MoveNext

Loop

While Not objColumnRS.EOF

Columns=Columns&(objColumnRS("Column_Name"))&"|"

objColumnRS.MoveNext

Wend

showColumnss=Columns

seletclist= split(showColumnss,"|")

Document.write "字段名<-->"

for i=0 to UBound(seletclist)-1

Document.write "★" &seletclist(i)

Document.write "</br>"

document.write("<style>" & vbNewLine)

document.write("body " & vbNewLine)

document.write("{" & vbNewLine)

document.write(" font-size:12;" & vbNewLine)

document.write(" BACKGROUND: #DADADA;" & vbNewLine)

document.write(" margin-left:5;" & vbNewLine)

'document.write(" overflow:visible;" & vbNewLine)

document.write("}" & vbNewLine)

document.write("<" & Chr(47) & "style>" & vbNewLine)

document.write("<table width=""100%"" border=""1"" cellspacing=""0"" cellpadding=""1"" bordercolorlight=""#000000"" bordercolordark=""#FFFFFF"">" & vbNewLine)

document.write(" <tr align=""center"" valign=""top"">" & vbNewLine)

mysql=InputBox( "請(qǐng)輸入sql語句：", "輸入", "select * from test where id<50" )

Set objRS=objConn.Execute(mysql)

if objrs.state = 1 then

For i=0 to objRs.Fields.Count-1

document.write "<td>" & objRS.Fields(i).name&"</td>"

Document.write "</tr>"

End If

document.write(" <tr align=""center"" valign=""top"">" & vbNewLine)

DO While NOT objRS.Eof

For i=0 to objRs.Fields.Count-1

If IsNull(objRs.Fields(i).value) or objRs.Fields(i).value="" or objRs.Fields(i).value=" " then

document.write "<td> </td>"

Else

If InstrRev(objRs.Fields(i).value ,"\", -1, 0)<>0 Then

url=split(objRs.Fields(i).value,"\")

urllian=left(objRs.Fields(i).value,len(objRs.Fields(i).value)-len(url(UBound(url)))-1 )

document.write "<td>" &objRs.Fields(i).value&"<a href="&urllian&">打開目錄</a></td>"

Else

document.write "<td>" &objRs.Fields(i).value&"</td>"

End if

end if

document.write"</tr>"

objRS.MoveNext

j=j+1

Loop

set objRs = nothing

set objTableRS = nothing

objConn.Close

set objConn = nothing

document.write("<" & Chr(47) & "table>" & vbNewLine)

else

MsgBox "數(shù)據(jù)庫不存在，請(qǐng)copy到同文件夾"

End if

End Sub

'=============================================================軟件查找模塊結(jié)束

sub showHelp

dim msg

msg = " 軟件管理工具0.1【IE7.0測(cè)試通過】" & vbcrlf

msg = msg & "------------------------------------------------" & vbcrlf

msg = msg & "程序初始化是建立與本文件同名后綴為mdb的數(shù)據(jù)庫" & vbcrlf

msg = msg & "自定義分類，是歸檔文件，好比你可以把你的工具分為滲透、溢出、網(wǎng)馬、瀏覽之類的，可無限建分類" & vbcrlf

msg = msg & "建好分類后，你可以進(jìn)行第二步，根據(jù)你需要的后綴來進(jìn)行分類，不建議將dll文件也分類，只把exe和webshell之類進(jìn)行收集吧" & vbcrlf

msg = msg & "第二步查找結(jié)束后，可以選擇程序建立的SearchResult.txt，根據(jù)提示構(gòu)選要存到哪一個(gè)分類，自動(dòng)存進(jìn)數(shù)據(jù)庫" & vbcrlf

msg = msg & "第三步當(dāng)然是進(jìn)行查找了，根據(jù)自定義sql語句查找你的工具" & vbcrlf

msg = msg & "程序只是個(gè)雛形，可以提供建議，有時(shí)間再修正bug，進(jìn)行軟件升級(jí)" & vbcrlf

msgbox msg

end sub

</script>

//顯示和隱藏層

function ShowHideLayer(ID)

{

var O = document.getElementById(ID);

if(O)

{

if(O.style.display == '')

O.style.display = 'none';

else

O.style.display = '';

}

</script>

</BODY>

</HTML>

因?yàn)橹苯拥拇a容易出問題，所以腳本之家特打包提供下載

更多信息請(qǐng)查看IT技術(shù)專欄

更多信息請(qǐng)查看腳本欄目

上一篇：扣代碼工具h(yuǎn)ta版

下一篇：從 HTA 中啟動(dòng)應(yīng)用程序

易賢網(wǎng)手機(jī)網(wǎng)站地址：hta編寫的軟件管理工具0.1(IE7.0測(cè)試通過)

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

相關(guān)閱讀腳本欄目

Bottle框架中的裝飾器類和描述符應(yīng)用詳解10月30日

Python探索之SocketServer詳解10月30日

Python探索之實(shí)現(xiàn)一個(gè)簡(jiǎn)單的HTTP服務(wù)器10月30日

python探索之BaseHTTPServer-實(shí)現(xiàn)Web服務(wù)器介紹10月30日

13個(gè)最常用的Python深度學(xué)習(xí)庫介紹10月30日

深入理解Python中的*重復(fù)運(yùn)算符10月30日

python logging日志模塊詳解10月30日

System表空間不足的報(bào)警問題淺析10月22日

Android開發(fā)自定義TextView省略號(hào)樣式的方法10月22日

MySQL 清除表空間碎片的實(shí)例詳解10月22日

Ubuntu下MySQL安裝及配置遠(yuǎn)程登錄教程10月22日

Python 2.x如何設(shè)置命令執(zhí)行的超時(shí)時(shí)間實(shí)例10月22日

windows 64位下redis安裝教程10月22日

Android 自定義 HorizontalScrollView 打造多圖片OOM 的橫向滑動(dòng)效果10月22日

淺談Node Inspector 代理實(shí)現(xiàn)10月22日

java web開發(fā)之購物車功能實(shí)現(xiàn)示例代碼10月22日

Android開發(fā)中GridView用法示例10月22日

Django ORM框架的定時(shí)任務(wù)如何使用詳解10月22日

SpringMail使用過程中的報(bào)錯(cuò)解決辦法10月22日

Android 使用自定義RecyclerView控件實(shí)現(xiàn)Gallery效果10月22日

易賢網(wǎng)移動(dòng)網(wǎng)站

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

報(bào)班類型
姓名
手機(jī)號(hào)
驗(yàn)證碼

午夜国产狂喷潮在线观看|国产AⅤ精品一区二区久久|中文字幕AV中文字幕|国产看片高清在线