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