- 博客(20)
- 收藏
- 关注
原创 在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
原创 变量和常量的有效范围和同名问题
这是我自己测试,并学习了网络材料后整理的结论。参见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
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人