定義分類，是歸檔文件，好比你可以把你的工具分為滲透、溢出、網(wǎng)馬、瀏覽之類的，可無限建分類
建好分類后，你可以進(jìn)行第二步，根據(jù)你需要的后綴來進(jìn)行分類，不建議將dll文件也分類，只把exe和webshell之類進(jìn)行收集吧
第二步查找結(jié)束后，可以選擇程序建立的searchresult.txt，根據(jù)提示構(gòu)選要存到哪一個分類，自動存進(jìn)數(shù)據(jù)庫
第三步當(dāng)然是進(jìn)行查找了，根據(jù)自定義sql語句查找你的工具
程序只是個雛形，可以提供建議，有時間再修正bug，進(jìn)行軟件升級
代碼如下:
<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>
<meta http-equiv=content-type content=text/html; charset=gb2312>
</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>
<center>
<br><br><br><br><br><br><br>
<div id=divlist></div>
<div id=start style=display:none;>
<div id=baobao>自定義數(shù)據(jù)庫字段，也就是軟件分類工作</div>
<button onclick=vbs:addinput><strong>設(shè)定字段名+</strong></button>
<button onclick=vbs:delinput><strong>減少字段名-</strong></button>
<button onclick=vbs:countall><strong>建立數(shù)據(jù)庫</strong></button>
</div>
<a href=# onclick=showhidelayer('start') >程序初始化</a> </br>
<div id=starttwo style=display:none;overflow:scroll>
<button onclick=vbs:startwo><strong>工具整理第一步</strong></button>
<button onclick=vbs:showpath><strong>工具整理第二步，列表選擇寫入數(shù)據(jù)庫</strong></button>
</div>
<a href=# onclick=showhidelayer('starttwo') >軟件整理工作</a> </br>
<div id=startthree style=display:none;>
<button onclick=vbs:mysqlecute><strong>軟件查找,自定義sql語句執(zhí)行</strong></button>
</div>
<a href=# onclick=showhidelayer('startthree') >軟件查找工作</a> </br>
<a href=# onclick=vbs:showhelp >軟件使用說明</a> </br>
<br><br><br><br><br><br><br>
<div style=position: absolute; top: 30px; left: 3px id=q00>
<div style=position: absolute; top: 30px; left: 3px; width: 3; height: 2; z-index: 4 id=q2>
<p style=font-size:44pt><font color=#ffffff>○</p>
</div>
<div style=position: absolute; top: -10px; left: 0px; width: 3; height: 2; z-index: 5 id=q3>
<p style=font-size:42pt><font color=#ffffff>○</p>
</div>
<div style=position: absolute; top: 17; left: 2px; width: 6; height: 2; z-index: 1 id=q4>
<p style=font-size:32pt><font color=#ff0000>■</p>
</div>
</div></div>
</center>
<script language=vbs>
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)
next
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ù)庫已存在，請刪掉
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
next
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
next
end if
if curfolders.subfolders.count > 0 then
for each myfolder in curfolders.subfolders
myfind formatpath(thepath) & \ & myfolder.name
next
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(請輸入要整理的文件后綴:,文件搜索,.exe或.bat或.php,一般就這些，至于.dll手工添加吧))
set outfile = fso.createtextfile(spath & \searchresult.txt)
timespend = timer
myfind txtpath
timespend = round(timer - timespend,2)
txtresult = 搜索完成! & vbcrlf & 共找到文件: & filetotal & 個. & vbcrlf & 共搜索目錄: & dirtotal & 個. & vbcrlf & 用時: & 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( 請輸入剛才生成的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>
next
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>
next
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>
<script language=javascript>
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>
<script language=vbscript>
'=============================================================軟件查找模塊開始
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)
next
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( 請輸入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>
next
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
next
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ù)庫不存在，請copy到同文件夾
end if
end sub
'=============================================================軟件查找模塊結(jié)束
sub showhelp
dim msg
msg = 軟件管理工具0.1【ie7.0測試通過】 & 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)選要存到哪一個分類，自動存進(jìn)數(shù)據(jù)庫 & vbcrlf
msg = msg & 第三步當(dāng)然是進(jìn)行查找了，根據(jù)自定義sql語句查找你的工具 & vbcrlf
msg = msg & 程序只是個雛形，可以提供建議，有時間再修正bug，進(jìn)行軟件升級 & vbcrlf
msgbox msg
end sub
</script>
<script language=javascript>
//顯示和隱藏層
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容易出問題，所以腳本之家特打包提供下載
公眾號
事業(yè)單位
當(dāng)前位置：
公考類
招聘類
各類考試