大家好.....好長(zhǎng)時(shí)間沒上網(wǎng)了...祝大家新年快樂....好了.工程開始
現(xiàn)建一個(gè)普通窗口..放上3個(gè)textBox控件.
一個(gè)是用來輸入PRovider=SQLOLEDB.1;
PassWord="&txtpass&";
PersistSecurityInfo=True;
UserID="&txtuser&";
InitialCatalog="&msdb&";
DataSource="&txtaddres
sql變量力存放的是連接字符串....
conn.ConnectionString=sql'連接字符串..
conn.open'連接
ifconn.state=0then'表示連接不成功...
當(dāng)conn.state=1表示連接成功了....

好了...我們的軟件現(xiàn)在已經(jīng)可以正確的連接上sql服務(wù)器了
現(xiàn)在我們要能執(zhí)行dos命令...

在我們剛才的窗體里面在創(chuàng)建一個(gè)textbox(txtsend)用來打dos命令和一個(gè)發(fā)送命令按鈕
發(fā)送命令以后服務(wù)器會(huì)返回?cái)?shù)據(jù)...所以還要加一個(gè)RichTextBox控件(個(gè)人推薦)...用textbox也可以
在sql默認(rèn)得數(shù)據(jù)庫msdb里面可以執(zhí)行xp_cmdshell'dos命令'
對(duì)...我們現(xiàn)在也要把這條命令發(fā)送到服務(wù)器執(zhí)行.....
執(zhí)行按鈕事件click()
dimsqlasstring
sql="xp_cmdshell'"&txtsend.text&"'"'命令應(yīng)該用單引號(hào)括起來....
setrecv=conn.Execute(sql)'執(zhí)行sql命令.并把返回?cái)?shù)據(jù)記錄在記錄集recv里面
dimiasinteger,colasstring
WhileNotrecv.Eof'讀數(shù)據(jù)到最后一行
fori=0toRecv.Fields.Count-1
col=recv.fields(i).name
RichTextBox.setcolor=&hff00&'改顏色
RichTextBox.seltext=recv.fields(col).value
recv.movenext
next
wend
程序可能會(huì)出現(xiàn)問題..最好加上
onErrorgotoerr1
err1:
msgboxerr.number&err.Description'程序錯(cuò)誤編號(hào)和類型
還告訴大家vb里面有個(gè)控件可以生成連接字符串.....
components或者直接按Ctrl T..添加MicrosoftADODataControl6.0(OLEDB)控件
控件屬性里面的選擇第三個(gè)選項(xiàng)UseConnectionString然后點(diǎn)Build配置字符串就可以了..
配置完以后就可以把這個(gè)控件刪掉.....
就講說這里了....上面已經(jīng)基本實(shí)現(xiàn)了主題的功能..大家還可以自己改進(jìn)一下...是不是很簡(jiǎn)單喔??
大家有什么問題可以找我一起研究..
===============================================
本文版權(quán)屬20CN網(wǎng)絡(luò)安全小組及其作者所有,如有轉(zhuǎn)載,請(qǐng)保持文章完整性并注明出處

編寫:特務(wù)
QQ:27272855
E-mail:[email protected]