天天向上... ...

前几天领导给了一个任务，就是重新把现在用的后台写一下，说起来简单。虽然看起来很简单，但对我这个刚入门的“菜鸟”来说，可是说难上加难了。记得以前学VB的时候，还可以记得一些，可是如今也有半年多没用了。以前学的也是一些基础知识。没办法，只能发扬那种“现学现卖”的精神了。 这几个星期，脑子里基本上都是想的如何把这个软件做好。如何才能实现某种功能，遇到不会的，我会拿到优快云上来让大家帮我一起解决，渐渐的

引用ADO(Microsoft ActiveX Data Objects 2.X Library)Private Sub Command1_Click()    On Error GoTo err    Dim cn As New ADODB.Connection    具体的数据库连接请自己改过来    cn.ConnectionString = "Provider=SQLOLEDB.1;P

以下在.BasOption ExplicitDeclare Function SetWindowsHookEx Lib "user32" Alias _"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _ByVal hmod As Long, ByVal dwThreadId As Long) As LongDecl

写文件操作Public Function WriteFile(strWhat As String, strFilePath As String, strFileName As String) As Boolean     WriteFile = False     Dim fso As New FileSystemObject     Dim fFile As File     Dim ts A

Option Explicit// define constantsPrivate Const IP_SUCCESS As Long = 0Private Const SOCKET_ERROR As Long = -1Private Const MAX_WSADescription As Long = 256Private Const MAX_WSASYSStatus As Long = 128

　随着计算机应用的普及，信息的安全性越来越受到人们的重视，对数据加解密算法的研究也在不断地深入，但一般的加解密算法如DES和RSA等过于复杂，且运算速度慢，特别是它的移位操作，对于VB这样的高级语言实现起来也比较困难。而一般的MIS（Management Information System）系统多用高级语言开发，对数据的加密要求不高，因此，研究简易数据加解密算法还是有相当的现实意义。  简易加解

Ken J　　控制面板 模块： control.exe 命令： rundll32.exe shell32.dll,Control_RunDLL 结果： 显示控制面板窗口。 例子： Dim x x = Shell("rundll32.exe shell32.dll,Control_RunDLL") 辅助选项 模块： access.cpl 命令： rundll32.exe shell32.dll,Co