csgsred的专栏

MD5加密函数Option ExplicitPrivate Const OFFSET_4 = 4294967296#Private Const MAXINT_4 = 2147483647Private State(4) As LongPrivate ByteCounter As LongPrivate ByteBuffer(63) As BytePrivate Const S11 = 7

SendKeys 模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行，  其使用格式为：object.SendKeys string  “object”：表示WshShell对象  “string”：表示要发送的按键指令字符串，需要放在英文双引号中。  1.基本键  　　一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshSh

一般情况下我们在用ASP连接Access的数据库时通常都会进行如下的操作 “//Proconn.asp 如果配置好服务器，访问Proconn.asp，如果连接数据库成功会输出“数据库连结成功”。 但是这样的asp代码的安全级别非常低，如果此asp原代被人看到，那么再有此数据库文件的话，其他人就能轻而易举的 随便打开你的数据库进行操作。 所以我们的任务来了，如何将这些关键的内容封装起

该模块用于在任务管理器中隐藏进程Private Const STATUS_INFO_LENGTH_MISMATCH = &HC0000004Private Const STATUS_ACCESS_DENIED = &HC0000022Private Const STATUS_INVALID_HANDLE = &HC0000008Private Const ERROR_SUCCESS = 0&Pr

VB中创建可以输出函数的DLLVB中创建的DLL只是COM组件，无法作为输出函数的DLL。今天从袁波哪里搞到一种可以创建输出函数的DLL的方法。VB编译文件实际上采取了两次编译的方法，首先是调用c2.exe产生OBJ文件，然后调用Link.exe连接。如果在link的时候添加EXPORT选项，实际上是可以输出函数的。但是，在VB的工程选项中将这些屏蔽了。而且过分的是：VB在Build完成后会将OB

摘要 ：本文从一个具体例子出发阐述了在Visual Basic 5.0环境下进行外接程序（Add-Ins）开发的原理、关键技术和注意事项，并对其相关技术，如ActiveX、多态性与接口、事件变量等VB5新引进的编程概念也做了必要的分析和描述。 关键词：外接程序（Add-Ins），ActiveX，接口，多态，事件变量一、 概述Visual Basic下的Add-Ins，即外接程序，是扩展VB编程环境

 VB5.0/6.的MSComm通信控件提供了一系列标准通信命令的接口，它允许建立串口连接，可以连接到其他通信设备（如Modem）． 还可以发送命令、进行数据交换以及监视和响应在通信过程中可能发生的各种错误和事件，从而可以用它创建全双工 、事件驱 动的、高效实用的通信程序。但在实际通信软件设计过程中，MSComm控件并非像想像中那样完美和容易控制．特别是在中文Wln 95／98下通信时更会出现问题

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Declare Function FindWindowEx Lib "u

Public Function py(mystr As String) As String  If Asc(mystr)     If Asc(Left(mystr, 1))        py = "0"       Exit Function    End If    If Asc(Left(mystr, 1)) >= Asc("啊") And Asc(Left(mystr, 1))     

Public cn As New ADODB.ConnectionPublic rs As New ADODB.Recordset打开数据库连接Public Sub OpenConn()    Set cn = New ADODB.Connection    Set rs = New ADODB.Recordset    cn.CursorLocation = adUseClient   

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturned

 在程序流程中经常要延时一段时间后再继续往下执行,在VB中常用的有以下几种方法(因为Timer控件打乱了程序的流程所以一般不用它):1.使用Windows API函数Sleep新建一个工程,添加一个TextBox控件和一个CommandButton控件,再将以下代码复制到代码窗口声明:Private Declare Sub Sleep Lib "kernel32" (ByVal dwMill