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

好了...我們的軟件現在已經可以正確的連接上sql服務器了
現在我們要能執行dos命令...

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

編寫:特務
QQ:27272855
E-mail:XF_Mengqier@163.com