hta编写的软件管理工具01ie70测试通过.docx
《hta编写的软件管理工具01ie70测试通过.docx》由会员分享，可在线阅读，更多相关《hta编写的软件管理工具01ie70测试通过.docx（16页珍藏版）》请在冰豆网上搜索。
hta编写的软件管理工具01ie70测试通过
定义分类，是归档文件，好比你可以把你的工具分为渗透、溢出、网马、浏览之类的，可无限建分类
建好分类后，你可以进行第二步，根据你需要的后缀来进行分类，不建议将dll文件也分类，只把exe和webshell之类进行收集吧
第二步查找结束后，可以选择程序建立的searchresult.txt，根据提示构选要存到哪一个分类，自动存进数据库
第三步当然是进行查找了，根据自定义sql语句查找你的工具
程序只是个雏形，可以提供建议，有时间再修正bug，进行软件升级
代码如下:
<html>
<head>
<hta:
applicationid=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.1codebylcxmyweb:
</title>
<metahttp-equiv=content-typecontent=text/html;charset=gb2312>
</head>
<style>
body
{
font-size:
12;
background:
#dadada;
margin-left:
5;
}
input
{
width:
40;
overflow:
visible;
border:
1pxsolidlightblue;
background-color:
#cccccc;
cursor:
text;
}
button
{
border:
1pxsolidgray;
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>
<divid=divlist></div>
<divid=startstyle=display:
none;>
<divid=baobao>自定义数据库字段，也就是软件分类工作</div>
<buttononclick=vbs:
addinput><strong>设定字段名+</strong></button>
<buttononclick=vbs:
delinput><strong>减少字段名-</strong></button>
<buttononclick=vbs:
countall><strong>建立数据库</strong></button>
</div>
<ahref=#onclick=showhidelayer（'start'）>程序初始化</a></br>
<divid=starttwostyle=display:
none;overflow:
scroll>
<buttononclick=vbs:
startwo><strong>工具整理第一步</strong></button>
<buttononclick=vbs:
showpath><strong>工具整理第二步，列表选择写入数据库</strong></button>
</div>
<ahref=#onclick=showhidelayer（'starttwo'）>软件整理工作</a></br>
<divid=startthreestyle=display:
none;>
<buttononclick=vbs:
mysqlecute><strong>软件查找,自定义sql语句执行</strong></button>
</div>
<ahref=#onclick=showhidelayer（'startthree'）>软件查找工作</a></br>
<ahref=#onclick=vbs:
showhelp>软件使用说明</a></br>
<br><br><br><br><br><br><br>
<divstyle=position:
absolute;top:
30px;left:
3pxid=q00>
<divstyle=position:
absolute;top:
30px;left:
3px;width:
3;height:
2;z-index:
4id=q2>
<pstyle=font-size:
44pt><fontcolor=#ffffff>○</p>
</div>
<divstyle=position:
absolute;top:
-10px;left:
0px;width:
3;height:
2;z-index:
5id=q3>
<pstyle=font-size:
42pt><fontcolor=#ffffff>○</p>
</div>
<divstyle=position:
absolute;top:
17;left:
2px;width:
6;height:
2;z-index:
1id=q4>
<pstyle=font-size:
32pt><fontcolor=#ff0000>■</p>
</div>
</div></div>
</center>
<scriptlanguage=vbs>
onerrorresumenext
window.resizetowindow.screen.availwidth/1.5,window.screen.availheight/1.5
window.movetowindow.screen.availwidth/4,window.screen.availheight/4
'------------------------------------------自定义建数据库表模块开始---------------------------------------------------------------
setfso=createobject（scripting.filesystemobject）
setobjconnection=createobject（adodb.connection）
setobjrecordset=createobject（adodb.recordset）
setcn=createobject（adodb.connection）
setclx=createobject（adox.column）
setcat=createobject（adox.catalog）
settblnam=createobject（adox.table）
subaddinput
fori=1to6
setinput=document.createelement（input）
input.value=分类名&i
baobao.appendchild（input）
next
endsub
subdelinput
setinput=document.getelementsbytagname（input）
if（input.length>0）thenbaobao.removechild（input（input.length-1））
endsub
subcountall
adcolnullable=2
path=document.location.href
path=replace（path,file:
///,）
path=replace（path,%20,）
path=replace（path,#,）
iffso.fileexists（path&.mdb）then
msgbox数据库已存在，请删掉
endif
cat.createprovider=microsoft.jet.oledb.4.0;datasource=&path&.mdb
cn.openprovider=microsoft.jet.oledb.4.0;datasource=&path&.mdb
setcat.activeconnection=cn
tblnam.name=test
clx.parentcatalog=cat
clx.type=3
clx.name=id
clx.properties（autoincrement）=true
tblnam.columns.appendclx
fori=0todocument.all.tags（input）.length-1
tblnam.columns.appenddocument.all.tags（input）.item（i）.value,20
升级会员 