Google [站内搜索]
分类: Win编程预览模式: 普通 | 列表

VB6.0实现放大镜效果

编辑:dnawo  日期:2010-10-13

在界面上添加一个PictureBox控件(Picture1)和一个Timer控件(Timer1)，然后添加如下代码：

复制内容到剪贴板程序代码 程序代码
'Win32 Api
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

查看更多...

分类:Win编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 5011

WIN32 API的分类介绍

编辑:dnawo  日期:2010-10-13

今天我们把标准WIN32 API函数分类介绍一下，虽然我们不必去刻意研究每个API函数的用法，但是在需要的时候，至少应该知道它属于哪一类的API函数，这样才能正确查找和使用。

按照通常的划分标准，WIN32 API函数分为七大类：

1、窗口管理类：这类API函数向应用程序提供了一些创建和管理用户界面的方法，我们可以使用它们来做出程序的界面。

查看更多...

分类:Win编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 4123

VB6.0调用SetTimer实现定时器

编辑:dnawo  日期:2010-10-12

Timer.bas：
复制内容到剪贴板程序代码 程序代码
Option Explicit

Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

查看更多...

分类:Win编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 7090

按键精灵8读取网卡MAC物理地址

编辑:dnawo  日期:2010-10-10

复制内容到剪贴板程序代码 程序代码
//读取网卡MAC物理地址(C8:0A:A9:5D:E8:83)
Function GetMAC()
    Dim mc,mo
    Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
    For Each mo in mc

查看更多...

分类:Win编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 6079

VB6.0添加Microsoft Internet controls部件提示文件未找到解决方法

编辑:dnawo  日期:2010-10-09

VB6.0添加Microsoft Internet controls部件出错，提示文件未找到，百度后知道是机子上安装了高版本IE导致的。将以下内容保存为reg文件，并导入注册表即可解决：

复制内容到剪贴板程序代码 程序代码
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}]

查看更多...

分类:Win编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 5210

VB6.0调用win32api模拟鼠标单击等操作

编辑:dnawo  日期:2010-09-30

1.获取窗口坐标

复制内容到剪贴板程序代码 程序代码
'Win32 Api
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As Rect) As Long

查看更多...

分类:Win编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 6621

VB6.0注册全局热键

编辑:dnawo  日期:2010-09-29

第一步：添加一个模块(Module1.bas)：

复制内容到剪贴板程序代码 程序代码
Option Explicit

Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

查看更多...

分类:Win编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 5968

按键精灵8脚本(1.1)：QQ连连看

编辑:dnawo  日期:2010-09-28

复制内容到剪贴板程序代码 程序代码
//按键精灵8.10.7234测试版 测试通过

//用户定义变量
UserVar LLKWIDTH=19 "水平方块数"
UserVar LLKHEIGHT=11 "垂直方块数"

查看更多...

分类:Win编程 | 固定链接 | 评论: 5 | 引用: 0 | 查看次数: 19137

按键精灵8插件开发示例

编辑:dnawo  日期:2010-09-28

第一步：在按键精灵8安装目录下打开source文件夹，找到"QMPlugin插件制作模版(VB 6.0).zip"并解压；

第二步：使用Microsoft Visual Basic 6.0打开QMPlugin.vbp文件；

第三步：打开MyPlugin.cls，修改如下：

查看更多...

分类:Win编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 6452

按键精灵8后台命令使用示例

编辑:dnawo  日期:2010-09-27

使用后台命令可以将一些操作放在后台中进行，这样不会占用到前台的资源，比如鼠标、键盘等。比如下边的例子，将鼠标单击按钮放在后台中操作，这样前台鼠标可以做自己的事件，即使是按钮所在的窗体失去了焦点，单击仍在继续：



脚本内容

查看更多...

分类:Win编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 7819