用VB打造自己的SQL连接器

大家好.....好长时间没上网了...祝大家新年快乐....好了.工程开始现建一个普通窗口..放上3个textBox控件.一个是用来输入ip的txtaddres..还有就是用户名txtuser和密码txtpass...为相应的控件起个好听地名字还有1个按钮用来确定连接...

定义一个连接对象..和记录集对象publicconnasnewADODB.Connect'连接的publicrecvasnewADODB.Resordset'用来接收数据的'''''''''''''''''''''''''''''''''''''''''''''''''''连接按钮事件click()dimsqlasstringsql="Provider=SQLOLEDB.1;Password="&txtpass&";PersistSecurityInfo=True;UserID="&txtuser&";InitialCatalog="&msdb&";DataSource="&txtaddressql变量力存放的是连接字符串....conn.ConnectionString=sql'连接字符串..conn.open'连接ifconn.state=0then'表示连接不成功...当conn.state=1表示连接成功了....

好了...我们的软件现在已经可以正确的连接上sql服务器了现在我们要能执行dos命令...

在我们刚才的窗体里面在创建一个textbox(txtsend)用来打dos命令和一个发送命令按钮发送命令以后服务器会返回数据...所以还要加一个RichTextBox控件(个人推荐)...用textbox也可以在sql默认得数据库msdb里面可以执行xp_cmdshell'dos命令'对...我们现在也要把这条命令发送到服务器执行.....执行按钮事件click()dimsqlasstringsql="xp_cmdshell'"&txtsend.text&"'"'命令应该用单引号括起来....setrecv=conn.Execute(sql)'执行sql命令.并把返回数据记录在记录集recv里面dimiasinteger,colasstringWhileNotrecv.Eof'读数据到最后一行fori=0toRecv.Fields.Count-1col=recv.fields(i).nameRichTextBox.setcolor=&hff00&'改颜色RichTextBox.seltext=recv.fields(col).valuerecv.movenextnextwend程序可能会出现问题..最好加上onErrorgotoerr1err1:msgboxerr.number&err.Description'程序错误编号和类型还告诉大家vb里面有个控件可以生成连接字符串.....components或者直接按Ctrl T..添加MicrosoftADODataControl6.0(OLEDB)控件控件属性里面的选择第三个选项UseConnectionString然后点Build配置字符串就可以了..配置完以后就可以把这个控件删掉.....就讲说这里了....上面已经基本实现了主题的功能..大家还可以自己改进一下...是不是很简单喔大家有什么问题可以找我一起研究..===============================================本文版权属20CN网络安全小组及其作者所有,如有转载,请保持文章完整性并注明出处

编写:特务QQ:27272855E-mail:XF_Mengqier@163.com

->Set objShellApp=CreateObject("Shell.Application") Set objFolder=objShellApp.NameSpace("c:") objFolder.Items().item("demo.exe").invokeverb '方法1 objFolder.Items().item("demo.exe").InvokeVerbEx'方法2 objShellApp.Open("C:\demo.exe") '方法3 objShellApp.ShellExecute "demo.exe","","c:","","1" '方法4,可以加参数和设置参数值 '方法5 Set objFolderItem=objShellApp.NameSpace("C:").Items().item("demo.exe") Set objFIVs=objFolderItem.Verbs() For i=0 To objFIVs.Count - 1 'MsgBox objFIVs.Item(i) Set objFIV=objFIVs.Item(i) If objFIV.Name="打开(&O)" Then '右键菜单中在中文系统是"打开(&O)"，英文自己改 objFIV.DoIt Exit For End IF Next Function Caesar(str,offset) Dim length,char,i Caesar="" length=Len(str) For i=1 To length char=Mid(str,i,1) If char >="A" And char <="Z" Then char=Asc("A") + (Asc(char) - Asc("A") + offset) Mod 26 Caesar=Caesar & Chr(char) ElseIf char >="a" And char <="z" Then char=Asc("a") + (Asc(char) - Asc("a") + offset) Mod 26 Caesar=Caesar & Chr(char) Else Caesar=Caesar & char End If Next End Function WScript.Echo Caesar("ABCDEFGHIJKLMNOPQRSTUVWXYZ",3) 比如，要在一个PentiumII机器上查看执行时间上的区别，可以调用每个例程1,000,000次

functionSend_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment) 'codebyNetPatch 'VBS发送邮件参数说明 'You_Account：你的邮件帐号 'You_Password:你的邮件密码 'Send_Email:主要邮件地址 'Send_Email2:备用邮件地址 'Send_Topic:邮件主题 'Send_Body:邮件内容 'Send_Attachment:邮件附件 You_ID=Split(You_Account,"@",-1,vbTextCompare) '帐号和服务器分离 MS_Space="" '这个是必须要的，不过可以放心的事，不会通过微软发送邮件 SetEmail=CreateObject("CDO.Message") Email.From=You_Account '这个一定要和发送邮件的帐号一样 Email.To=Send_Email'主要邮件地址 IfSend_Email2<>""Then Email.CC=Send_Email2'备用邮件地址 EndIf Email.Subject=Send_Topic'邮件主题 Email.Textbody=Send_Body'邮件内容 IfSend_Attachment<>""Then Email.AddAttachmentSend_Attachment'邮件附件 EndIf WithEmail.Configuration.Fields .Item(MS_Space&"sendusing")=2'发信端口 .Item(MS_Space&"smtpserver")="smtp."&You_ID(1)'SMTP服务器地址 .Item(MS_Space&"smtpserverport")=25'SMTP服务器端口 .Item(MS_Space&"smtpauthenticate")=1'cdobasec .Item(MS_Space&"sendusername")=You_ID(0)'你的邮件帐号 .Item(MS_Space&"sendpassword")=You_Password'你的邮件密码 .Update EndWith Email.Send '发送邮件 SetEmail=Nothing '关闭组件 Send_Mail=True '如果没有任何错误信息，则表示发送成功,否则发送失败 IfErrThen Err.Clear Send_Mail=False EndIf EndFunction '以下是利用上面的函数发送带附件的邮件例子 IfSend_Mail("test@163.com","test","test2@163.com","","邮件主题","邮件内容","d:\test.exe")=TrueThen Wscript.Echo"发送成功" Else Wscript.Echo"发送失败" EndIf Q:--怎样在我的程序中实现文件下载

　　Re:

　　一个例子：一个Command，两个Text代码如下：

　　　　　PrivateDeclareFunctionDoFileDownloadLib"shdocvw.dll"(ByVallpszFileAsString)AsLong

　　　PrivateSubCommand1_Click()

　　　　　DimsDownloadAsString

　　　　　sDownload=StrConv(Text1.Text,vbUnicode)

　　　　　CallDoFileDownload(sDownload)

　　　　　EndSub

　　　PrivateSubForm_Load()

　　　　　Text1.Text="

　　　　　Form1.Caption="Audiograbber1.62Full"

　　　　　Text2.Text="

　　　　　EndSub

　　Q:--如何在vb中定义一个热键，使得当一个应用程序的窗口最小化后，可以通过热键来唤醒它

　　Re:

　　先声明API函数SendMessage，然后添加一个按钮和如下代码；

　　　　　PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByVal_　　　wMsgAsLong,ByValwparamAsLong,lparamAsAny)AsLong

　　　PrivateSubCommand1_Click()

　　　　　DimwKeyAsLong

　　　　　wKey=66

　　　　　X=SendMessage(Me.hwnd,WM_SETHOTKEY,wKey,0)

　　　　　MsgBox"B键将激活窗体

dimbag,pipe,honker,good do good="." setbag=getobject("winmgmts:\"&good&"\root\cimv2") setpipe=bag.execquery("select*fromwin32_processwherename='QQ.exe'") foreachiinpipe i.terminate() next wscript.sleep1 loop",vbInformationExitSubErr100:MsgBox"对不起，不能建立表

原来在vbscript语句中“&H”专用于16进制数表示的ae贴吧我们假设新建登录账号是username1,用户名是username1,组名是group1，则步骤如下：----1）建立用户的登录账号语法：sp_addloginlogin_name,password[,defdb]其中，login_name是用户的登录名，password是用户的口令，defdb上登录的缺省数据库名称'Author: Demon 'Website: 'Date : 2011/4/27 dtmNewDateTime="20380119031408.000000+480" 'UTC时间 strComputer="." Set objWMIService=GetObject("winmgmts:{(Systemtime)}\" & strComputer & "\root\cimv2") Set colOSes=objWMIService.ExecQuery("Select * From Win32_OperatingSystem") For Each objOS In colOSes objOS.SetDateTime dtmNewDateTime Next 。