搜索资源列表
-
0下载：
KnightOnLine
Private Declare Sub mouse_event Lib \"user32\" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos Lib \"user32\" (ByVal X As Long, ByVa
-
-
0下载：
Private Declare Sub mouse_event Lib \"user32\" (ByVal dwFlags As L
-
-
0下载：
如何获取ie地址和更改
Option Explicit
Private Declare Function EnumWindows Lib \"user32\" (ByVal lpEnumFunc As Any, ByVal lParam As Long) As Long
Start the enumeration.
Private Sub cmdFindAddress_Click()
lblAddress.Caption = \"\"
EnumWindows
-
-
0下载：
用VB做QQ强制聊天器
用VB做QQ强制聊天器
大家好..我是愚罪..QQ：303931726
今天教大家来用VB做QQ强制聊天器.....
废话不多说了```
直接打开VB 新建一个EXE文件..新建一个Text和一个Command按纽
最后直接把代码写上去就可以了...
Private Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" _
(
-
-
0下载：
Option Explicit
Private Declare Function CDdoor Lib \"winmm.dll\" Alias \"mciSendStringA\" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim state1 As
-
-
0下载：
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
'*************************************************************
Public Function ImportPhoto(sPicFile As String, sEmpID As
-
-
2下载：
软件限时使用与注册功能的实现
众所周知，一些共享软件往往提供给使用者的是一个功能不受限制的限时使用版，在试用期内使用者可以无限制的使用软件的全部功能（只是可能会出现提示使用者注册的窗口），试用期一过部分（或全部）功能失效，要想继续使用只能向作者索取注册码（或注册文件）完成对软件的合法注册，注册后的软件将解除一切使用限制。如果您也开发出一个有价值的作品，是否也希望为自己的软件增加一个这样的功能呢？这里笔者就提供一个实现软件限时的完整代码。
软件启动后会首先运行本代码并从注册表HKEY_
-
-
0下载：
双进程守护开发库
VB 声明
Private Declare Sub StartMon Lib "MonHelper.dll" ()
Private Declare Sub StopMon Lib "MonHelper.dll" ()
Private Declare Function IsMainAPP Lib "MonHelper.dll" () As Boolean
Delphi 声明
procedure StartMon stdcall external
-
-
0下载：
完美挂机挂源码VB
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function SelectFunc Lib "call.dll" (ByVal hwnd As Long, ByVal id As Long) As Long
Private Declare Function PickFunc Lib "call.dll" (ByVal hw
-
-
0下载：
Option Explicit
Dim vChar() As String
Dim outbte() As Byte
Dim snum As Integer
Dim rnum As Integer
Dim p As Integer
Dim s As String
Dim out(100) As Byte
Dim varP As Variant
API函数，用于取得Windows系统自启动以来所经过的时间（单位为毫秒）
Private Declare Fu
-
-
0下载：
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL A
-
-
0下载：
KnightOnLinePrivate Declare Sub mouse_event Lib user32 (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Private Declare Function SetCursorPos Lib user32 (ByVal X As Long, ByVal Y As Long) A
-
-
0下载：
vb 模仿 Windows运行 程序
Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As Long, ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As Long) As
-
-
0下载：
Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As Long, ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As Long) As Long
Private Sub
-
-
2下载：
VB鼠标按键精灵（VB模拟出的按键精灵大部分功能）(Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long
-
