你不是一个人在学习VB6-CSDN博客

原创在VB中使用API“SHFileOperation”删除文件的三个问题

使用API“SHFileOperation”来删除文件，一般的写法是：Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As LongPublic Const FO_DELETE = &H3Public Const

2016-08-15 19:20:16 1694

原创游戏自动按键脚本4：飞车追捕

游戏中，玩家驾驶警车，在高速公路上追捕罪犯，接近目标车辆并将其撞毁。用左右方向键控制左右移动，上方向键（键盘38）加速，下方向键减速，不按会自己慢慢停下来。为此设计的自动按键脚本如下：方案1：键盘38_发声;键盘38按住5000;发声;延时300;发声方案2：间隔1300_键盘38按住2000第一个的功能是，玩家按一次上方向键，软件模拟按住5秒。这样就不必一直按住了。玩家只要在

2016-07-26 21:48:21 930 1

原创游戏自动按键脚本3：沼泽逃生

游戏内容是要用方向键移动人物，跳到沼泽中的植物上面（植物会不断生长扩展或者缩小消失），从屏幕左下角跳到右上角的地面。要避开鳄鱼等。如果落入水中或者被吃掉就失去一条命。为此设计的自动按键脚本如下：间隔500~2500_键盘37^键盘40^键盘38^键盘39^键盘38^键盘39^键盘38^键盘39就是，以500到2500毫秒（每次随机取值）为间隔，每次模拟按一下方向键，是在上下左右四个方向

2016-06-18 00:33:39 884

转载 VB模拟出的按键精灵大部分功能

原贴：[原创帖]VB模拟出的按键精灵大部分功能http://www.52pojie.cn/thread-46719-1-1.html(出处: 吾爱破解论坛)模块部分: Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As L

2016-06-09 21:38:00 8505

原创游戏自动按键脚本2：海空战斗

玩家控制战斗机，在海上与敌人的战机和军舰作战。用鼠标移动战斗机以避开敌人的炮火或瞄准敌人，按鼠标左键用机关枪射击敌人飞机，按空格键发射鱼雷导弹轰炸敌人的军舰和货船。为此设计的自动按键脚本如下：方案1：间隔1500_鼠标左键双击;键盘32。定时器控制，每隔1500毫秒，软件模拟鼠标双击，然后模拟空格键。方案2：间隔1200_鼠标左键双击|间隔2000_键盘32。这个方案用两个定时器分别控

2016-06-09 21:29:22 845

原创游戏自动按键脚本1：田径四项

这个游戏的内容是四项体育赛事，包括百米短跑、跳远、标枪、跨栏。其中基本动作是要求不停地按空格键以快速跑动。而Ctrl键需要稍微按住一会儿然后放开，来控制起跳或投掷的角度。为此设计的自动按键脚本如下：1.间隔20_键盘32; 定时器控制，每隔20毫秒模拟按一次空格键。2.键盘38_键盘162按住500; 用户按向上的光标键，软件就模拟按住Ctrl键500毫秒。3.键盘38_键盘162

2016-06-05 00:21:29 1902

原创 Vb生成一定范围内的随机数（含小数部分）

下面这个函数，可以生成一定范围内的随机数，可以指定小数位数。比如 RndBetween (10, 99, 2) 返回 [10.00~99.00] 范围内的随机数。Function RndBetween(ByVal Lowbound As Long, ByVal Upbound As Long, Optional ByVal Dcml As Integer = 0) As Double

2016-05-01 22:29:44 11289

原创 VB延时模块，6种做法汇总

Option Explicit'延时模块，根据网上资料加以整理改写，共6种做法及参数可选'要点是：sleep(较长时间)会造成假死甚至崩溃'反复读取和比较时间则导致占用大量CPU'doevents能够在sleep或反复循环的“间隙”响应其他事件或操作'再加上sleep 1，就基本上不占用CPU了'但要防止重复响应造成类似于“层叠事件”或多个过程彼此“交错”运行，最好把不

2016-04-16 20:34:29 3829

原创毫秒级和纳秒级计时的API--timeGetTime、GetTickCount、QueryPerformanceCounter

原文链接：实现毫秒级和纳秒级计数的几个API--timeGetTime、GetTickCount、QueryPerformanceCounhttp://club.excelhome.net/thread-907289-1-1.html(出处: ExcelHome技术论坛)本文在此基础上做了少量改动，以更好地演示几个API的计时效果。窗体上放一个命令按钮。窗体代码

2016-03-30 21:17:14 4945

原创 VB控件的左对齐和上对齐Sub

'VB控件的左对齐和上对齐Sub'这两个通用过程“左对齐和上对齐”可以很方便的设置控件的位置和大小，'节省了很多代码，也不需要在设计阶段就把每个控件都设置好。'在Form load过程或者其他过程都可以调用。Sub ctrLeftAlignment(CtrA As Control, CtrB As Control, Optional ctrbTopGap As Long =

2015-08-19 20:35:23 5082

原创 VB模拟下雨

窗体代码如下：Option Explicit'视觉上看到的雨，可能是这样的：'在近似位置反复看到雨丝，'而不是完全杂乱无章，也不是看到同一个雨丝下落的全过程'雨的颜色可能是浅灰色混合了背景色'基于以上认识，用vb模拟下雨。Dim tmItv As Long '定时器间隔毫秒，＞0Dim howMany As Integer '雨丝数量，≥0Dim

2015-05-11 20:20:56 1242

原创 VB 通用对话框为什么需要 CancelError

例如：Private Sub selectSong() On Error GoTo errHandler With CommonDialog1 .CancelError = True .InitDir = App.Path .Filter = "音乐文件(*.mp3;*.mid;*.wav;*.wma;*.rid)|*.mp3;*.mid;*.wav;

2014-12-17 20:48:30 2207

原创 VB的Autoredraw、refresh等等功能分析汇总及“内存作图”

vb的（图片框等控件的）autoredraw、refresh、cls等等属性和方法，与（图片框等控件的）picture属性、image属性之间，以及与vb一般的图形方法及api绘图函数等等之间，存在比较复杂的关系。通过学习了各种资料和演示程序，基本上搞清楚了。结论如下所示（不涉及更深层的机制）。请大家指正。首先，有三种相关的“图形”概念：1.屏幕（窗体、图片框等等，甚至电脑桌面）上面显示

2014-11-26 21:48:14 4357

原创 VB使用Bitblt等函数，源图片不完全显示导致不能实现功能的解决办法

'使用Bitblt等api作图函数时，如果源图片不完全显示，会导致不能实现功能'借助内存的设备场景可解决此类问题Private Sub Command1_Click()'Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByV

2014-11-26 18:44:25 2185

原创点的三维旋转坐标及在屏幕上的坐标

假定坐标系是这样的，水平面的是X轴和Y轴，垂直的是Z轴。Y轴指向屏幕里面。以下公式表示某点旋转的坐标变换。old是指某点当前的三维坐标xyz。new是指旋转后的坐标。Rx Ry Rz分别表示指该点围绕X轴 Y轴 Z轴旋转的度数（弧度）。 Xnew = Xold * (CosRy * CosRz) + Yold * (-CosRx * SinRz + SinRx * SinRy

2014-10-18 19:12:15 2976

原创分形法作2D地形图

可以利用分形法人工生成地面各点的高度值，并用line方法在图片框上作2D图形。由于画线时引入一定的“斜率”，产生“噪点”，反而给图形增加了立体感。本程序主要学习、参考了网络上“zh1110、Simon Lynn、Paul Martz、品雪”等各位的思路和代码，在此基础上有所改变。具体算法使用迭代法（递归也可以）。各参数都有一定的随机取值，每次都会根据不同的参数生成不同的图形。还可以

2014-10-11 19:31:47 978

原创 RGB递增（递减）进行颜色变换

VB的RGB函数有三个变量，把它们分别逐渐调整到另一个值，以逐渐过渡到另一种颜色。可以用“等差数列”的方法，按照需要的次数，进行调整。下图：第一行表示蓝色逐渐变浅（亮）直到变成白色。第二行表示绿色逐渐变深（暗）直到变成黑色。第三行表示红色逐渐变成灰色。RGB三个变量相等就是灰色。白色和黑色可以看作特殊的灰色。对于两种同一“色系”的颜色，也可以用这样的方法进行过渡变换。

2014-10-10 18:38:01 4689

原创随机数与排列组合：生成1亿个随机的不同16位数

。。。。。。。。。。。。。。

2014-10-08 19:00:58 1791

原创变量和常量的有效范围和同名问题

这是我自己测试，并学习了网络材料后整理的结论。参见msdn：高级变量主题，理解变量的范围。未测试类模块。未测试工程组。（请大家指正。）首先，在“相同范围”内（比如同一个过程中，同一个模块的声明部分）不能两次定义同名变量或常量（模块和其中的过程不是严格的“相同范围”）。其次，1.窗体模块的声明部分，对模块以外来说，定义的变量，

2014-10-02 17:52:21 1505

原创过程、函数的有效范围和同名问题

这是我自己测试，并学习了网络材料后整理的结论。未测试类模块。未测试工程组。测试结果如下，可能有少数是推导出来的。1.事件过程（只在窗体模块或对象模块？？）、通用过程sub、函数function都可以写以下6种方式＋sub/function：public，publicstatic，private，private static，static，（什么都不写）2.只写static

2014-10-02 16:55:36 671

vb6学习专栏