一级无码电影,亚洲R级别AV大片一区二区三区

當前位置：首頁 > 范文|應用文 > IT技術專欄 > 腳本欄目

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

來源：易賢網(wǎng) 閱讀：1008 次日期：2016-06-17 10:11:20

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

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

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

第二步查找結束后，可以選擇程序建立的searchresult.txt，根據(jù)提示構選要存到哪一個分類，自動存進數(shù)據(jù)庫

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

程序只是個雛形，可以提供建議，有時間再修正bug，進行軟件升級

代碼如下:

<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:addinput><strong>設定字段名+</strong></button>

<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ù)庫已存在，請刪掉

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ù)庫表模塊結束-------------------------------------------------------

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

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(請輸入要整理的文件后綴:,文件搜索,.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 &結果保存在&spath &\searchresult.txt

outfile.close

set outfile = nothing

set fso = nothing

end if

end sub

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

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

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>

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'>非常遺憾,您的主機不支持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;

}

//---------------------------------------------------------工具整理模塊第二步結束------------------------------------------

</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( 請輸入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

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

'=============================================================軟件查找模塊結束

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ù)你需要的后綴來進行分類，不建議將dll文件也分類，只把exe和webshell之類進行收集吧 & vbcrlf

msg = msg & 第二步查找結束后，可以選擇程序建立的searchresult.txt，根據(jù)提示構選要存到哪一個分類，自動存進數(shù)據(jù)庫 & vbcrlf

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

msg = msg & 程序只是個雛形，可以提供建議，有時間再修正bug，進行軟件升級 & 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>

因為直接的代碼容易出問題，所以腳本之家特打包提供下載

上一篇：js驗證ip

下一篇：xmldom下載者生成器代碼(xmldown.hta)

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

由于各方面情況的不斷調整與變化，易賢網(wǎng)提供的所有考試信息和咨詢回復僅供參考，敬請考生以權威部門公布的正式信息和咨詢?yōu)闇剩?/div>

相關閱讀腳本欄目

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

Python探索之SocketServer詳解10月30日

Python探索之實現(xiàn)一個簡單的HTTP服務器10月30日

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

13個最常用的Python深度學習庫介紹10月30日

深入理解Python中的*重復運算符10月30日

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

System表空間不足的報警問題淺析10月22日

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

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

Ubuntu下MySQL安裝及配置遠程登錄教程10月22日

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

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

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

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

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

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

Django ORM框架的定時任務如何使用詳解10月22日

SpringMail使用過程中的報錯解決辦法10月22日

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

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

2025國考·省考課程試聽報名

報班類型
姓名
手機號
驗證碼