- 博客(4)
- 收藏
- 关注
RSS订阅原创 两个函数
文件名SourceDB.ini文件Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String,
2007-10-16 00:53:00
265
原创 Option Explicit
Option ExplicitPublic Const WM_USER = &H400Public Const EM_EXGETSEL = WM_USER + 52Public Const EM_LINEFROMCHAR = &HC9Public Const EM_LINEINDEX = &HBBPublic Const EM_GETSEL = &HB0Public Type CHAR
2007-10-16 00:52:00
384
原创 注册DLL文件
注册DLL文件：打开HKEY_CLASSES_ROOR/Dllfile，新建项shell，再其下新建Register,你会发现Register就是右键弹出的菜单名，再在其下建command，修改其"默认值"为Regsvr32 %1 反注册DLL文件：打开HKEY_CLASSES_ROOR/Dllfile，新建项shell，再其下新建Unregister,再在其下建command，修改其
2007-10-16 00:50:00
291
原创 VB应用一
利用API中的“GetVolumeInformation”函数提取使用者机器的硬盘序列号为特征码，注册时提交此码，经过软件著作权人加以运算，给出注册码，最后软件使用人输入注册码完成整个注册过程（为使说明简单，本例中以特征码减101做为注册码）。 新建一模块文件 新建一模块文件，并将如下声明的语句和常量添加到Module1.Bas模块中：
2007-10-16 00:49:00
350
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人