Location:
Search - vb H
Search list
Description: 对于 PDFlib 客户端，除了提供 pdflib.h C 头文件之外，还提供 C++ 的面向对象的包装。这就
需要 pdflib.hpp 头文件（它又包含 pdflib.h）。相应的 pdflib.cpp 模块应针对应用程序进行链
接，而该应用程序又应针对通用 PDFlib C 库进行链接。
Platform: |
Size: 203840 |
Author: hjhjjj |
Hits:
Description: include称为文件包含命令扩展名为.h的文件也称为头文件或首部文件
定义两个实数变量，以被后面程序使用
显示提示信息
从键盘获得一个实数x
求x的正弦，并把它赋给变量s
显示程序运算结果
main函数结束
Platform: |
Size: 274635 |
Author: 王辉 |
Hits:
Description: MYIE流览器源代码(VC++),vb环境运行 ============= For your information: I build myie32src with 1) Windows2000Professional + sp2 2) VC6.0 + sp5 + new \"tlogstg.h\" + new \"exdisp.h\". Copy \"tlogstg.h\" and \"exdisp.h\" to your VC include directory, like \"C:\\Program Files\\Microsoft Visual Studio\\VC98\\Include\". Please backup and then overwrite any old file.-MYIE browser source code (VC), vb environment running ============= For your information : I build with a myie32src) Windows2000Professional sp2 2) VC6.0 SP5 new "tlogstg.h" new "exdisp.h." Copy "tlogstg.h" and "exdisp.h" to your VC include directory, like "C : \\ Program Files \\ Microsoft Visual Studio \\ VC98 \\ Include." Please backup and then overwrite any old file.
Platform: |
Size: 703226 |
Author: 房 |
Hits:
Description: 软件限时使用与注册功能的实现
众所周知，一些共享软件往往提供给使用者的是一个功能不受限制的限时使用版，在试用期内使用者可以无限制的使用软件的全部功能（只是可能会出现提示使用者注册的窗口），试用期一过部分（或全部）功能失效，要想继续使用只能向作者索取注册码（或注册文件）完成对软件的合法注册，注册后的软件将解除一切使用限制。如果您也开发出一个有价值的作品，是否也希望为自己的软件增加一个这样的功能呢？这里笔者就提供一个实现软件限时的完整代码。
软件启动后会首先运行本代码并从注册表HKEY_LOCAL_MACHINE\Software\MyProgram子键下的三个键值MyProgram1-3中读取键值数据。其中MyProgram2的值是软件首次运行日期，MyProgram3的值是软件当前运行时的日期，MyProgram1的值是软件的使用标志：如果软件在试用期内则其值为字符串sign1；如果软件试用期满则其值为字符串sign2，如果软件已经注册则其值为字符串sign3。全局变量ZHUCE依据读取的MyProgram1键值而赋值：ZHUCE=-1说明试用期满，ZHUCE=-2说明软件已注册，ZHUCE=其它值为剩余天数，您的主程序代码要依据此全局变量ZHUCE的值设计相应的交互响应。
为方便您将代码嵌入现存的程序代码中，本示例将全部代码写入一个模块.bas中（模块名随意，也可添加到已有模块中）。注意，代码中的Private Sub Main()过程为整个程序的启动入口，您需要在“工程属性”对话框中将“启动对象”设置为“Sub Main()”。
'通用模块
Global ZHUCE As Integer
'说明：全局变量ZHUCE=-1试用期满，ZHUCE=-2已注册，ZHUCE=其它值为剩余天数
Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Private Sub Main()'程序总入口
Dim a As Long, rc(3) As Long, hKey As Long, KeyValType As Long, KeyValSize(3) As Long
Dim c As String, h As String, tmpVal(3) As String
Dim datetime As Integer
datetime = 30'试用期天数
ZHUCE = -1
On Error GoTo cuowu
'以下从注册表HKEY_LOCAL_MACHINE\Software\MyProgram的三个值中取出相关数据字串tmpVal(3)
a = RegOpenKeyEx(&H80000002, "Software\MyProgram", 0, 131135, hKey) ' 打开注册表关键字
For a = 1 To 3: tmpVal(a) = String$(1024, 0): KeyValSize(a) = 1024: Next
rc(1) = RegQueryValueEx(hKey, "MyProgram3", 0, KeyValType, tmpVal(1), KeyValSize(1))
rc(2) = RegQueryValueEx(hKey, "MyProgram2", 0, KeyValType, tmpVal(2), KeyValSize(2))
rc(3) = RegQueryValueEx(hKey, "MyProgram1", 0, KeyValType, tmpVal(3), KeyValSize(3))
For a = 1 To 3
If (Asc(Mid(tmpVal(a), KeyValSize(a), 1)) = 0) Then
tmpVal(a) = Left(tmpVal(a), KeyValSize(a) - 1)
Else
tmpVal(a) = Left(tmpVal(a), KeyValSize(a))
End If
Next
a = RegCloseKey(hKey) '关闭注册表
'使用期限判断
If tmpVal(3) = "sign3" Then ZHUCE = -2: Exit Sub '查找到已注册标志sign3
If Len(tmpVal(1)) = 1023 And Len(tmpVal(2)) = 1023 And Len(tmpVal(3)) = 1023 Then
'首次使用,将当前日期分别写入tmpVal(1)和tmpVal(2)中，在tmpVal(3)中写入准许运行标志sign1
CreateObject("WScript.Shell").regWrite "HKEY_LOCAL_MACHINE\Software\MyProgram\MyProgram3", Date$, "REG_SZ"
CreateObject("WScript.Shell").regWrite "HKEY_LOCAL_MACHINE\Software\MyProgram\MyProgram2", Date$, "REG_SZ"
CreateObject("WScript.Shell").regWrite "HKEY_LOCAL_MACHINE\Software\MyProgram\MyProgram1", "sign1", "REG_SZ"
ZHUCE = datetime
MsgBox "试用期剩余" & Trim(datetime) & "天"
Else
If tmpVal(3) = "sign2" Then '查找到永久中止标志sign2中止使用
ZHUCE = -1
Exit Sub
MsgBox "试用期已满，请您注册！"
End If
If Date datetime Then '使用期超过datetime天中止使用
'写入tmpVal(3)中止使用字串sign2
CreateObject("WScript.Shell").regWrite "HKEY_LOCAL_MACHINE\Software\MyProgram\MyProgram1", "sign2", "REG_SZ"
ZHUCE = -1
MsgBox "试用期已满，请您注册！"
Else
'写入当前日期于tmpVal(2)中
CreateObject("WScript.Shell").regWrite "HKEY_LOCAL_MACHINE\Software\MyProgram\MyProgram2", Date$, "REG_SZ"
ZHUCE = datetime - (DateValue(Date) - DateValue(tmpVal(1)))
MsgBox "试用期剩余" & Trim(datetime) & "天"
End If
End If
End If
cuowu:
End Sub
从安全保密角度出发，当您应用上述代码时紫色部分应该根据您个人的保密设想进行必要的修改（当然您也可以不修改而直接应用）：①示例中的代码把软件的注册与运行信息保存在HKEY_LOCAL_MACHINE\Software\MyProgram子键下的MyProgram1-3三个键值内，请根据您个人的保密原则修改为您所需要的子键名，以隐蔽为原则！②MyProgram1键值中的数据（字符串sign1或sign2或sign3分别对应着试用/期满/注册）应根据您个人的保密设想修改成需要的字符串，也以隐蔽为原则！
主程序中当用户输入正确的注册码（注册码当然是您随意愿而设）后，请执行语句：
CreateObject("WScript.Shell").regWrite "HKEY_LOCAL_MACHINE\Software\MyProgram\MyProgram1", "sign2", "REG_SZ"
完成软件注册。（该行代码中的Software\MyProgram\MyProgram1和sign2请与上述代码保持一致！）
Platform: |
Size: 18051 |
Author: dianfeng |
Hits:
Description: MYIE流览器源代码(VC++),vb环境运行 ============= For your information: I build myie32src with 1) Windows2000Professional + sp2 2) VC6.0 + sp5 + new "tlogstg.h" + new "exdisp.h". Copy "tlogstg.h" and "exdisp.h" to your VC include directory, like "C:\Program Files\Microsoft Visual Studio\VC98\Include". Please backup and then overwrite any old file.-MYIE browser source code (VC), vb environment running ============= For your information : I build with a myie32src) Windows2000Professional sp2 2) VC6.0 SP5 new "tlogstg.h" new "exdisp.h." Copy "tlogstg.h" and "exdisp.h" to your VC include directory, like "C : \ Program Files \ Microsoft Visual Studio \ VC98 \ Include." Please backup and then overwrite any old file.
Platform: |
Size: 702464 |
Author: 房 |
Hits:
Description: 采集和压缩视频，压缩算法H.263,采用VC编写，核心用DLL形式提供可以使用VC,Delphi,VB调试使用-video frequency collection and compress,the compress arithmetic used H.263,compile with VC,debugging the core useing DLL for VC,Delphi,VB
Platform: |
Size: 347136 |
Author: 风月无边 |
Hits:
Description: 讓VB+Opengl使用者能於OPENGL內使用字型-let VB Opengl users to use OpenGL H
Platform: |
Size: 404480 |
Author: 林晉偉 |
Hits:
Description: 可供VB爱好者参考——注册系统热键的方法、和系统钩子的用法。
监视键盘输入
Ctrl+Alt+H 退出程序-reference for VB lovers-- the registration system hotkey, and hook system usage. Surveillance keyboard Ctrl Alt H exit
Platform: |
Size: 7168 |
Author: 黄和 |
Hits:
Description: VB做ActiveX控件的源码
IT人博客：记录IT人的喜怒哀乐，书写IT人的成长奋斗。
今天，你学习了吗，进步了吗，反思了吗，收获了吗，感悟了吗？
和你一起成长的，是IT人博客！我准备好了，你准备好了吗？
一起来IT人博客学习交流吧！
IT人博客：http://www.itrbk.com
建站之家：www.sea20.com
自助建站、企业建站、建站系统！为企业和个人提供建站服务！
爱搜万网：
全力打造完美搜索引擎，适合中国人的搜索引擎！
http://www.Aaiso.com
IT人博客：http://www.itrbk.com
建站之家：www.sea20.com
自助建站、企业建站、建站系统！为企业和个人提供建站服务！
爱搜万网：
全力打造完美搜索引擎，适合中国人的搜索引擎！
http://www.Aaiso.com-VB ActiveX controls do the source IT people blog : Record IT people emotions, writing for the development of IT struggle. Today, you learn there? Progress yet, to reflect on the right, harvested yet, comprehension? And you were growing up, who is the IT blog! I am well prepared, are you ready? IT people up a blog to study the exchange! IT people blog : http://www.itrbk.com establishment of the station house : www.sea20.com ebook, enterprise establishment of the station, the establishment of the station system. For enterprises and individuals to provide the establishment of the station! Love seized 10,000 Net : spare no efforts to create a perfect search engine, suited to the Chinese search engine! Http://www.Aaiso.com IT people blog : http :// www.itrbk.com establishment of the station h
Platform: |
Size: 246784 |
Author: 蒋慧中 |
Hits:
Description: canon 相机SDK,非常难得，这是以前项目时申请的，看到好多朋友再找，里面有VC、delphi、VB连接佳能相机的例子！-canon camera SDK, and very rare, it is past time for the project to see a lot of friends find, There are VC, Delphi, VB link Canon Camera example!
Platform: |
Size: 6606848 |
Author: |
Hits:
Description: 搜索引挚内核
SearchKernel.ocx控件被加载过10万个以上不同地址,通过了稳定性测试.
在VC, VB, Office, Web页上分别测试通过.
SeKel.h是控件的接口说明.
test目录中是控制的调用源代码.
控件内置多线程下载.
内置html完全解释.(解释了90％左右html脚本, 容错控制采用仿ie的技术)
内置javascrip有限解释.(解释了基本循环, 字符操作运算和整型运算)
内置正文分析的分解.(只仅中文简体)
后三项可以关掉, 采用第三方技术.-Search engines are loaded kernel SearchKernel.ocx control over more than 100,000 different addresses, the adoption of a tilt test. In VC, VB, Office, Web page, respectively, passed the test. SeKel.h is the control interface description. Test directory is called source code control. controls built multi-threaded download. built-html fully explain. (explains about 90 html script, fault-tolerant control using imitation ie the technology) built javascrip limited explanation. (explains the basic cycle of operation of computing characters and integer operations) built-in analysis of decomposition of the body. (only Simplified Chinese only) can be switched off after the three, using third-party technology.
Platform: |
Size: 59392 |
Author: xieds |
Hits:
Description: 对于 PDFlib 客户端，除了提供 pdflib.h C 头文件之外，还提供 C++ 的面向对象的包装。这就
需要 pdflib.hpp 头文件（它又包含 pdflib.h）。相应的 pdflib.cpp 模块应针对应用程序进行链
接，而该应用程序又应针对通用 PDFlib C 库进行链接。-For PDFlib clients, in addition to providing pdflib.h C header files, but also provide C++ Object-oriented packaging. This requires pdflib.hpp header file (it contains pdflib.h). Pdflib.cpp corresponding module applications should address the link, and the application also should address the generic PDFlib C library link.
Platform: |
Size: 203776 |
Author: hjhjjj |
Hits:
Description: SDK2000所使用的资源，其中有DSStream.lib，DSStream.h，ImageBrowser.dll，ImageLoad.dll，MFC42.DLL，MSVCRT.DLL，VideoBrowser.dll
和SDK2000的帮助说明等。希望对使用sdk进行编程起到一定的帮助。-SDK2000 used resources, including DSStream.lib, DSStream.h, ImageBrowser.dll, ImageLoad.dll, MFC42.DLL, MSVCRT.DLL, VideoBrowser.dll and help SDK2000 descriptions. Wish to use the sdk to program play a help.
Platform: |
Size: 1154048 |
Author: 杨峰 |
Hits:
Description: include称为文件包含命令扩展名为.h的文件也称为头文件或首部文件
定义两个实数变量，以被后面程序使用
显示提示信息
从键盘获得一个实数x
求x的正弦，并把它赋给变量s
显示程序运算结果
main函数结束-include file contains a command called extension. h the document, also known as header files, or the first document of the definition of two real variables, so as to be behind the program prompts the use of display information from the keyboard get a real number x for x sinusoidal, and it conferred to the variable s results show that the procedure computing the end of main function
Platform: |
Size: 274432 |
Author: 王辉 |
Hits:
Description: VB遥控播放器红外遥控解码
#include <regX52.h>
#define c(x) (x*110592/120000)
sbit Ir_Pin=P3^2
sbit beep=P2^1
//sbit RELAY=P2^0
#define INBUF_LEN 4 //数据长度
unsigned char inbuf1[INBUF_LEN]={ 0 , 0 , 0 , 0 } //发送缓冲区
unsigned char inbuf2[50] //接收缓冲区
unsigned char count3
void init_serialcomm( void )
{
SCON = 0x50 //SCON: serail mode 1, 8-bit UART, enable ucvr
T2CON=0x30
TH2=0x00
TL2=0x00
RCAP2H=0xFF
RCAP2L=0xDC
TR2=1
}
//向串口发送一个字符
void send_char_com( unsigned char ch)
{
SBUF=ch
while (TI== 0 )
TI= 0-VB player remote control infrared remote control decoder# Include <regX52.h># Define c (x) (x* 110592/120000) sbit Ir_Pin = P3 ^ 2 sbit beep = P2 ^ 1// sbit RELAY = P2 ^ 0# define INBUF_LEN 4// data length unsigned char inbuf1 [INBUF_LEN] = (0, 0, 0, 0)// Send buffer unsigned char inbuf2 [50]// receive buffer unsigned char count3 void init_serialcomm (void) ( SCON = 0x50// SCON: serail mode 1, 8-bit UART, enable ucvrT2CON = 0x30 TH2 = 0x00 TL2 = 0x00 RCAP2H = 0xFF RCAP2L = 0xDC TR2 = 1)// to send a serial character void send_char_com (unsigned char ch ) (SBUF = ch while (TI == 0) TI = 0
Platform: |
Size: 12667904 |
Author: 微微 |
Hits:
Description: 这只是本人对于VB DoEvents的肤浅认识，希望能给各位一点点帮助。-I only superficial understanding of VB DoEvents, I hope to give you a little bit of help.
Platform: |
Size: 4096 |
Author: 谢炎 |
Hits:
Description: RGB_HS L_这三种图像色彩的互相换算VB代码，你直接把文字复制到你的VB程序中即可使用-RGB_HSB_HSL_ of these three images of each color conversion VB code, you copy the text directly into your VB program, you can use
Platform: |
Size: 5120 |
Author: hbalphb |
Hits:
Description: 这是一个演示使用VB对USB-HID设备进行数据读取写入的通讯示例。可以遍历所有USB设备，由于没有类似调试设备，这个源代码没有测试，但里面的一些API函数可以让大家喜欢研究USB通讯开发的网友提供些帮助，这个代码转载与另外一个网站，如果作者看到有更完善的源代码可以发来更新下，感谢作者。-This is a demonstration using VB on the USB-HID device to read data written communication example. You can traverse all the USB devices, because no such test equipment, the source code is not tested, but inside some of the API functions will allow everyone likes USB communication development User research provide some help, this code is reproduced with another Web site to see if the author have a more complete source code can be made to update the next, thanks author.
Platform: |
Size: 13312 |
Author: 张利 |
Hits:
Description: VB HID类通讯源码。具有中断通道读写数据。VID,PID需要自已手动添加。-VB HID CODE，and read or send data by Interrupt。but VID and PID s value by youself.thank you.
Platform: |
Size: 11264 |
Author: maojiyu |
Hits:
Description: 这是VB和欧姆龙通讯源码经典的例子, Lettura_Dm = False
ricez_ok = -1: timeout = False
trasm = "@00RD"
trasm = trasm + Right$(Str$(10000 + dm!), 4)
trasm = trasm + "0001"
trasm = trasm + bcc(trasm) + Chr$(42) + Chr$(13)
Omron!Comm1.Output = trasm
conta = 0
Do
conta = conta + 1
If conta > 1200 Then timeout = True: Exit Do
Loop Until Omron!Comm1.InBufferCount >= 15
a = Omron!Comm1.Input
If Not timeout Then
fcs = Mid$(a, (Len(a) - 3), 2)
trasm = Left$(a, (Len(a) - 4))
If fcs <> bcc(trasm) Then
timeout = -1
Exit Function
End If
valore = Mid$(a, 8, 4)
V = Val("&H" + valore)
Lettura_Dm = True
End If
ricez_ok = 0
Omron!Comm1.InBufferCount = 0
End Function(This is a VB to omron Lettura_Dm = False
ricez_ok = -1: timeout = False
trasm = "@00RD"
trasm = trasm + Right$(Str$(10000 + dm!), 4)
trasm = trasm + "0001"
trasm = trasm + bcc(trasm) + Chr$(42) + Chr$(13)
Omron!Comm1.Output = trasm
conta = 0
Do
conta = conta + 1
If conta > 1200 Then timeout = True: Exit Do
Loop Until Omron!Comm1.InBufferCount >= 15
a = Omron!Comm1.Input
If Not timeout Then
fcs = Mid$(a, (Len(a) - 3), 2)
trasm = Left$(a, (Len(a) - 4))
If fcs <> bcc(trasm) Then
timeout = -1
Exit Function
End If
valore = Mid$(a, 8, 4)
V = Val("&H" + valore)
Lettura_Dm = True
End If
ricez_ok = 0
Omron!Comm1.InBufferCount = 0
End Function)
Platform: |
Size: 3072 |
Author: 铭铭之中 |
Hits: