大家好.....好長時間沒上網了...祝大家新年快樂....好了.工程開始
現建一個普通窗口..放上3個textBox控件.
一個是用來輸入ip的txtaddres..還有就是用戶名txtuser和密碼txtpass...為相應的控件起個好聽地名字
還有1個按鈕用來確定連接...
定義一個連接對象..和記錄集對象
publicconnasnewADODB.Connect'連接的
publicrecvasnewADODB.Resordset'用來接收數據的
'''''''''''''''''''''''''''''''''''''''''''''''''''
連接按鈕事件click()
dimsqlasstring
sql="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:[email protected]
