IDC资讯中心
大家好…..好长时间没上网了…祝大家新年快乐….好了.工程开始
现建一个普通窗口..放上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_cmdshelldos命令
对…我们现在也要把这条命令发送到服务器执行…..
执行按钮事件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
