1、hta编写的软件管理工具01ie70测试通过定义分类,是归档文件,好比你可以把你的工具分为渗透、溢出、网马、浏览之类的,可无限建分类建好分类后,你可以进行第二步,根据你需要的后缀来进行分类,不建议将dll文件也分类,只把exe和webshell之类进行收集吧第二步查找结束后,可以选择程序建立的searchresult.txt,根据提示构选要存到哪一个分类,自动存进数据库第三步当然是进行查找了,根据自定义sql语句查找你的工具程序只是个雏形,可以提供建议,有时间再修正bug,进行软件升级代码如下:<html><head><hta:application id=oht
2、aapplicationname=myappborder=thinborderstyle=normalcaption=yesmaximizebutton=yesminimizebutton=yesshowintaskbar=nosingleinstance=nosysmenu=yesversion=1.0windowstate=normalscroll=yes><title>工具归类软件v0.1 code by lcx myweb:</title><meta http-equiv=content-type content=text/html; charset
3、=gb2312></head><style>bodyfont-size:12;background: #dadada;margin-left:5;inputwidth:40;overflow:visible;border:1px solid lightblue;background-color:#cccccc;cursor:text;buttonborder:1px solid gray;width:260;margin-left:2;cursor:hand;font-size:12;filter:progid:dximagetransform.microsoft
4、.gradient(startcolorstr=#eaeaff, endcolorstr=#618fff, gradienttype=0);textareafont-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><di
5、v id=start style=display:none;><div id=baobao>自定义数据库字段,也就是软件分类工作</div><button onclick=vbs:addinput><strong>设定字段名+</strong></button><button onclick=vbs:delinput><strong>减少字段名-</strong></button><button onclick=vbs:countall><strong
6、>建立数据库</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&g
7、t;<strong>工具整理第二步,列表选择写入数据库</strong></button></div><a href=# onclick=showhidelayer(starttwo) >软件整理工作</a> </br><div id=startthree style=display:none;><button onclick=vbs:mysqlecute><strong>软件查找,自定义sql语句执行</strong></button></di
8、v><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=p
9、osition: 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 col
10、or=#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 nextwindo
11、w.resizeto window.screen.availwidth/1.5,window.screen.availheight/1.5window.moveto window.screen.availwidth/4,window.screen.availheight/4-自定义建数据库表模块开始-set fso=createobject(scripting.filesystemobject)set objconnection = createobject(adodb.connection)set objrecordset = createobject(adodb.recordset)set
12、 cn=createobject(adodb.connection)set clx=createobject(adox.column)set cat=createobject(adox.catalog)set tblnam=createobject(adox.table)sub addinputfor i=1 to 6set input = document.createelement(input)input.value=分类名&ibaobao.appendchild(input)nextend subsub delinputset input=document.getelements
13、bytagname(input)if(input.length > 0)then baobao.removechild(input(input.length - 1)end subsub countalladcolnullable = 2path=document.location.hrefpath=replace(path,file:/,)path=replace(path,%20, )path=replace(path,#,)if fso.fileexists(path&.mdb) thenmsgbox 数据库已存在,请删掉end ifcat.create provider=
14、microsoft.jet.oledb.4.0;data source=&path&.mdbcn.open provider=microsoft.jet.oledb.4.0;data source=&path&.mdbset cat.activeconnection = cntblnam.name = testclx.parentcatalog = catclx.type = 3clx.name = idclx.properties(autoincrement) = truetblnam.columns.append clxfor i=0 to document.all.tags(input).length -1tblnam.columns.append document.all.tags(input).item(i).value,20
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1