VB
文章平均质量分 57
梦田(wanao)
真的很喜欢编程
展开
-
自动批量生成VB控件
自动批量生成VB控件内容总结代码内容最近想做一个象棋程序,想用Image控件来加载棋子,这样,每个格就要放一个Image控件,共要制作90个Image控件,如下图:先别说一个一个画了,就是复制、粘贴,然后再排版也是一件非常麻烦的事情,难道是我的方法不对?因为对我来说,编程是业余爱好,且属于闭门造车型的,没人教我怎么去写这样的程序,我觉得应该这样写,所以就这样做了。能不能想个办法自动生成呢?先去看一下VB源代码吧!找到保存的文件(Form2.frm),用记事本打开查看一下,原来就是个文本文件,如下图:原创 2021-09-25 10:08:50 · 585 阅读 · 0 评论 -
VB自制函数:2、防溢出错误,大于4字节32位的数自动舍去
VB制作函数:防溢出错误,大于4字节32位的数自动舍去简介代码说明总结简介还是因为要用VB做逆向算法,经常会出现得数大于32位,即十六进制大于“&HFFFFFFFF”的数,VB就会报“溢出”错误,无法继续,为了解决这一问题,特制作此函数。代码先看代码:Public Function Keep32(bigNum As Double) Dim decNum As Double decNum = "&H100000000" Do If bigNum原创 2021-04-26 14:08:20 · 458 阅读 · 0 评论 -
VB自制函数:1、实现有符号数转无符号数
VB自制函数实现有符号数转无符号数简介代码说明简介这一年来一直在学习软件逆向,在逆向算法时,我都是用VB来写算法,经常会遇到大于&H7FFFFFFF的十六进制数,而VB都会按有符号数来转换,结果就会是负数,而我要的是无符号的正数,网上也没有搜到相关的解决办法,只好自已动手制作函数了。代码先看代码:Public Function unSigned(hNum As String) As Double Dim isDbl As Double, fNum As Byte If Le原创 2021-04-23 19:12:35 · 614 阅读 · 0 评论 -
VB 异或(Xor)字符串的方法
VB 异或(Xor)字符串的方法关键字:VB,VBA,异或,Xor,字符串文章目录VB 异或(Xor)字符串的方法前言一、方法一,比较笨。二、方法二,感觉轻松多了。三、说一说关于UltraISO的部分算法前言简介:大家都知道,异或(Xor)是最常用的加密方式,在学习逆向时,经常会见到异或(Xor)操作。最近研究 UltraISO 8.6.5.2140 版的算法,里面全是异或(Xor)操作,就试着用VB写了一下它的加密程序,用C语言写起来感觉很简单,但用VB确不会做,网上搜了一下,也没有详尽的教学原创 2020-09-28 22:36:20 · 4118 阅读 · 2 评论