06
2012
09

lua io库

 

I/O库为文件操作提供两种模式。简单模式(simple model)拥有一个当前输入文件和一个当前输出文件,并且提供针对这些文件相关的操作。完全模式(complete model使用外部的文件句柄来实现。它以一种面对对象的形式,将所有的文件操作定义为文件句柄的方法。简单模式在做一些简单的文件操作时较为合适。在本书的前面部分我们一直都在使用它。但是在进行一些高级的文件操作的时候,简单模式就显得力不从心。例如同时读取多个文件这样的操作,使用完全模式则较为合适。I/O库的所有函数都放在表(tableio中。
...
20
2012
08

IcePubDLL api揭秘

 icePubDLL揭秘20110713.pdf----------------------- Page 1-----------------------IcePubDLL api 揭秘               版本号:1.5.0.4 

20
2012
08

获取本机硬盘物理系列号

Private Declare Function icePub_machineGetInfo Lib "icePubDll.dll" (ByVal typeFlag As Integer, ByVal strInfo As String) As Integer

Dim a2 As Integer
Dim str1 As String

str1 = Space(1024 * 10)

a2 = icePub_machineGetInfo(1, str1)
...

20
2012
08

icePubDll应用.发送邮件函数

  • windows os;vc6/vb6;icePubDll.dll;

步骤/方法

...
27
2012
07

SQL Server中 DateDiff计算时间差 [转]

关键词:Sql中日期差   Sql中 DateDiff   Sql 中时间差   

 

DATEDIFF 函数 [日期和时间]

功能
返回两个日期之间的间隔。

语法
...

03
2012
07

用vb编程将彩色图像转换为黑白

  Private Type BITMAP
          bmType   As Long
          bmWidth   As Long
          bmHeight   As Long
          bmWidthBytes   As Long
          bmPlanes   As Integer
          bmBitsPixel   As Integer
          bmBits   As Long
  End Type
  Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
  Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
  Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
  

11
2012
06

VB SendMessageA

先我们了解一下Windows的消息机制。Windows是一个消息驱动式系统,Windows消息提供应用程序与应用程序之间,应用程序与Windows系统之间进行通信的手段。举个例子,打开记事本程序,该程序有一个 “文件“菜单。那么,在运行该程序的时候,如果用户单击“文件菜单“里的“新建“命令,这个动作将被Windows所捕捉,Windows经过分析得知这个动作应该由我们打开的记事本程序所来处理,然后Windows就发送个消息。譬如我们编程的时候有时用到的WM_COMMAND的消息给记事本,然后记事本就把这个消息处理掉,这个过程就是消息处理。

...
11
2012
06

Windows XP下安装SQL Server 2000企业版

SQL Server 2000企业版本适用于WIN 2000操作系统,Windows 2003操作系统和Windows XP一般装不了,只能安装个人版,这让我们用XP操作系统的程序员很头疼,为了使用SQL Server 2000还得装个Windows 2000操作系统,下面介绍一下在Windows XP下安装SQL Server 2000企业版的方法。    一、在S

10
2012
06

利用windows自带的gzip.dll进行压缩(VB版本)

Option Explicit Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long) Private Declare Function InitDecompression Lib "gzip.dll" () As Long Private Declare Function CreateDecompression Lib "gzip.dll" (ByRef context As Long, ByVal Flags As Long) As Long ...
10
2012
06

vb关闭应用程序

最简单的 shell "cmd.exe /c taskkill /im 进程名称 /f" 其次 sendmessage WM_QUIT。。。 再次 OpenProcess, TerminateProcess