![](https://img-blog.csdnimg.cn/20201014180756754.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Visual Basic
文章平均质量分 54
星江月
士不分心终有志,工能用力必成功!
展开
-
一段代码,求解数独(九宫格)游戏
数独(Sudoku)游戏是从1-9共9个数字中,装在3x3x3x3的单元格内每个小的3x3内的数值只能重复一遍,同时每行及每列的数值也只能重复一遍每个单元格都必须有数值,不能留空解法简介:创建一个行列表,标定各个数值的使用情况创建9个方块表,标定各个数值的使用情况递归每一个不是预设的单元格,找出没有被标定的数值,直到所有单元格被填充Visual Basi原创 2015-12-16 18:20:24 · 4772 阅读 · 0 评论 -
VB运行时动态注册添加控件的方法
其实我不想写关于此类方法的文章,但是提问者还是不少,因此我还是写出来,发链接算了 VB中的控件都是指ActiveX DLL或OCX,这些都是COM组件,如果熟悉API可以调用这个文件输出的注册函数即可。这个函数是DllRegisterServer,相关的反注册函数是D原创 2011-09-28 13:34:16 · 4510 阅读 · 0 评论 -
VB动态添加控件的问题
之前曾经写过关于在VB6动态添加可执行代码的文章http://blog.csdn.net/prsniper/article/details/5811251也有关于纯代码设计程序的文章http://blog.csdn.net/prsniper/article/detai原创 2011-08-31 13:12:52 · 2702 阅读 · 0 评论 -
[哎]关于ftp扫描工具的破解问题
先前发布过一个工具,用于ftp弱口令扫描 文章地址:http://blog.csdn.net/prsniper/article/details/6101770 当时为了吸引一些反汇编方面的高手交流,故意把DLL使用期限限制在2010年,可惜没人鸟我~~~~~~~~~原创 2011-08-08 09:36:13 · 1669 阅读 · 1 评论 -
另外一种风格的VB6程序设计
<br />通常我们使用VB,VB.NET,C#,VC等都是"画" 写代码然后编译<br /> <br />以VB为例,我们使用一个计时器按秒数计时,通常的步骤是:<br /> <br />1.画一个Timer 画一个Label 画一个Command <br /> <br />2.把属性设置好,或者在Form_Load()等地方初始化<br /> <br />下面演示一种新的设计方法,什么都不画,直接在窗体添加这些代码:<br />Option ExplicitPrivate WithEvents原创 2010-11-21 18:47:00 · 2178 阅读 · 0 评论 -
VB关于矩阵的操作问题
<br />简单的代码,在百度回答的时候顺便写下,可能有人会重复的问到 <br />添加一个Form,Paste如下代码即可看效果<br /> <br />Option ExplicitPrivate Type MATRIX nRowCount As Long nColCount As Long pMatData() As DoubleEnd TypePrivate Sub Form_Load() '[11 12 13] '[21 22原创 2011-01-09 18:54:00 · 2137 阅读 · 0 评论 -
DNA-批量域名转IP程序使用方法
最近做的一些工作出了与3D开发有关,还涉及到了黑客攻防,所以写一个程序辅助一下 如何快速的搜集想要的信息,也是黑客技术水平的体现 在我的CSDN下载可以下载到程序(不需要积分),还有源代码(需要积分) 下面是程序的使用方法:原创 2010-12-25 16:59:00 · 1405 阅读 · 1 评论 -
ftp弱口令扫描工具及源代码
结合上一篇文章(关于从搜索引擎批量获取域名转成IP),这次应该说更牛B:对ftp弱口令进行扫描为了不至于成为泛滥的诱因,部分组件将在2010年新年到来之际失效,希望学习的抓紧时间啦!!!下载地址:http://download.csdn.net/source/2942279原创 2010-12-28 01:10:00 · 7534 阅读 · 6 评论 -
程序员进阶之一
前段时间写过几篇,对广大青菜还是有用的,现在给有一定基础的写几篇 以前我不怎么重视数学,尤其是高等数学,高考时候就是因为数学不及格,与重点大学擦肩而过...近期搞些3D啊什么的算法,才发现高级的数学知识还是挺有用的~也证明了那句话:书到用时方恨少! 还好我只缺数学,而且重视一下问题就可以解决了. 第一个例子,我们自己画一个圆角的窗口. 首先,任何窗口(Window)在Windows下都是一个矩形的区域,常见的做法是:原创 2010-11-01 10:58:00 · 1096 阅读 · 1 评论 -
VB窗口大小,控件自动调整的问题
<br />很多人 还老在问VB窗口大小的问题<br />不多废话了,贴代码<br />Option ExplicitPrivate nWndHeight As LongPrivate nWndWidth As LongPrivate nControl As LongPrivate lpTop() As LongPrivate lpLeft() As LongPrivate lpWidth() As LongPrivate lpHeight() As LongPr原创 2010-12-15 17:21:00 · 5138 阅读 · 8 评论 -
VB动态更改窗口图标的类(支持WinXP的32位图标)
<br />Option Explicit<br /> <br />'======== clsIcon.cls ========<br />Private Type ICONDIRENTRY<br /> bWidth As Byte<br /> bHeight As Byte<br /> bColorCount As Byte<br /> bReserved As Byte<br /> wPlanes As Integer<br /> wBitCount As原创 2010-12-10 13:09:00 · 1836 阅读 · 0 评论 -
VB关于精确限制鼠标活动区域
演示 用API精确控制 鼠标在窗体上的位置 对游戏开发的新手也许有用如果窗体的ScaleMode不为Twip可以自行修改一下原创 2010-09-07 20:43:00 · 1650 阅读 · 1 评论 -
游侠在线自由测试版正式发布啦!!!
游侠在线自由测试版 下载:http://www.duote.com/soft/5633.html 经过一段时间的反复测试和修改,自由测试版的发布版本号为 2.0.0 修订号0078 这里演示一下不同环境下的使用:1.注册和登录 不要认为这里和QQ一样的注册,游侠在线是半开源是自由服务器模式的聊天软件,注册只是为了你能在Internet上由一个个性化的身份,注册的所有信息保存在你的计算机上,没有等级,没有特权! 要修改脚本请参照原创 2010-08-26 17:40:00 · 979 阅读 · 0 评论 -
VB动态添加执行代码完整版(一)
VB6动态添加代码的教程演示以及下载地址,为那些喜欢用脚本拓展程序功能的新手而写,其他人士也可以看看.源码可以在我的CSDN下载中心下载:最新更新:http://download.csdn.net/source/2619000最旧文件:http://download.csdn.net/source/2617537原创 2010-08-14 01:28:00 · 5338 阅读 · 0 评论 -
VB动态添加执行代码完整版(三)
VB6动态添加代码的教程演示以及下载地址,为那些喜欢用脚本拓展程序功能的新手而写,其他人士也可以看看. 源码可以在我的CSDN下载中心下载:最新更新:http://download.csdn.net/source/2619000最旧文件:http://download.csdn.net/source/2617537原创 2010-08-14 03:16:00 · 5090 阅读 · 4 评论 -
各种语言的Hello,World程序大集合(四)
上一篇这里继续一点,因为js只能嵌入其他(如网页)运行,所以就不写例子了,vbs双技能运行是因为windows自动指定了宿主程序,这是更深一层的技术,点到为止。 此外,在各种语言的Hello,World程序大集合(三)中,有同志回复了易语言的Hello,World!,老实说,我没研究过易语言,看到过一些代码,很不爽,呵呵。 下面,我们走进“编译型”的语言,最好学的一个,VB原创 2011-12-31 11:24:25 · 1227 阅读 · 0 评论 -
贡献一个小程序,用于辅助页面设计的,喜欢的来顶下
正常情况下,我们的页面中链接是这样的虎胆游侠这样,我们点击“虎胆游侠”就会弹出一个新窗口,然后打开我的主页…… 然而,这样的a标签只能用一个矩形把文字区域框住,十分单调。在一些特殊的情况下,我们需要不规则的链接,比如艺术化的导航菜单,不规则按钮,地图……等等。给a标签内嵌套img并不能完全满足,这些需求。 一个可行的做法是用img做map,相信很多人都会,usema原创 2012-01-05 17:04:55 · 4589 阅读 · 1 评论 -
关于VB的指针以及VB和C/C++间的参数传递
首先,我们使用C/C++创建一个WIN32 DLL,这样VB才可以使用C/C++的代码。此前我对DLL导出函数已有专文讲述,这里就不再赘述,当然为了各位能够去验证,我还是把步骤截图上来:打开VC6,新建一个Win32 DLL工程(使用VS.NET的朋友因为有中文版MSDN我就不截图了,我也不喜欢用.NET)选择空白的DLL就可以了,代码我们自己写。创建头文件和代码文件,其实原创 2012-10-14 14:57:06 · 3748 阅读 · 1 评论 -
关于VB6弹出菜单的问题
写一个小程序, 用VB6随意做下界面,离奇的发现弹出菜单居然没有效果,过程如下创建一个窗体Form1,用菜单编辑器创建一个弹出菜单弹出菜单子菜单项在这里名称为mPopup1,事件代码为:Option ExplicitPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As原创 2015-11-01 05:06:33 · 2634 阅读 · 0 评论 -
关于PropertBag的读写问题
写一个小程序,通过网络或者数据库读写得到的内存数据直接显示到图片控件如果用GDI+或者Windows API是没有问题的,不过偷懒不想那么麻烦,于是用PropertyBag先试验一下结果立刻就爆了Private Sub SavePropDemo() 'Save property Dim pb As PropertyBag Set pb = New Propert原创 2015-11-04 10:50:23 · 696 阅读 · 2 评论 -
如何判断一个数是否是2的N次方
今天写一个小程序, 一个功能是用二进制位代表某种属性, 而程序则是图形化的配置这个功能于是, 就遇到了如何检测配置值是否是2的N次方形式的检测, 解决方法目前想到的有如下几种1.定义法由于N次方(幂)为N个数相乘,那么反过来一直除以这个数最终的结果将为1,且余数总是零int IsPower2(int n){ while(n) { if(n % 2) return原创 2015-10-16 18:22:18 · 2548 阅读 · 0 评论 -
致佳音: 推箱子游戏自动求解算法设计(四)
这一节是本文的核心内容,即推箱子游戏求解算法的设计思路过程前面已经说过过,判断局面重复的最好标准不是局面完全一致,而是坐标排序相同且角色坐标通行如下图,角色无论怎么移动,不推动箱子的时候,都能回到原来的位置,算作同一个局面:再如下图,两个箱子互换位置,结果与没有移动箱子是一样的,所以排序箱子坐标以后一致,还是相同局面问:有必要判断局面重复吗?是不是只是提升一原创 2015-03-14 23:56:50 · 5903 阅读 · 0 评论 -
致佳音: 推箱子游戏自动求解算法设计(一)
本来酷爱音乐, 老衲也想谱一曲之类, 通俗又有境界的曲子, 奈何没有那个水平, 也不是一个程序员做的勾当,于是就有了本文.希望莲花妹妹跟着思路走,能遗忘那些太多的忧伤……本文分以下四个小节:一、平面寻路算法(Alpha Star)二、闭合图形填充算法(扫描线种子填充)三、推箱子求解四、执行效率的优化日本人有个程序叫Sokuban Automatic So原创 2015-03-14 21:57:54 · 8439 阅读 · 2 评论 -
致佳音: 推箱子游戏自动求解算法设计(五)
说了这么多,这一节是本文最后一节啦,就是程序的进一步优化。这一节呢,还分那么几个小意思,- -!1.程序逻辑和机制的优化2.源码级代码的优化3.针对CPU和操作系统的编译优化问:大侠,我是过来人,排序哈希我渐渐习惯了,不痛了,还有哪些地方可以更刺激的答:前面我们提到检测局面重复,不要让后面的局面有跟走过的局面一样,导致无限的堕落,无法自拔,还有一样是可以算作原创 2015-03-15 00:35:13 · 3808 阅读 · 5 评论 -
致佳音: 推箱子游戏自动求解算法设计(三)
这一节我们说说闭合曲线的填充,为什么会有这个东西呢当我们递归一个场景时,我们以推动箱子为标志,如果不推动箱子,那么跑到哪里都白跑,而出现重复的判别最好就是所有坐标相同包括这些坐标互换位置(排序结果相同),而后一个场景搬运工坐标能移动到另一个场景搬运工的位置(求解算法部分再详细说)由于场景有多个箱子,每个箱子可以有几个方向移动,反复的寻路效率不高,起初我想删除路径部分,只检测能否原创 2015-03-14 23:16:26 · 2413 阅读 · 0 评论 -
EM_SETLIMITTEXT(MSDN)
EM_SETLIMITTEXTAn application sends the EM_SETLIMITTEXT message to set the text limit for an edit control. The text limit is the maximum amount of text, in bytes, that the edit control can contain.转载 2014-10-24 15:45:16 · 1903 阅读 · 0 评论 -
关于TextBox.Locked属性
几个月了,突然才发现草稿箱有篇翻译文章70%这样了没发表,干脆不管了.有时候真的发现时间就像乳沟,怎么挤还是那么一点突然写个小程序, 用文物级的VB6随便写两行代码, 又回忆起坑爹的TextBox, 虽然你设置了Locked为True, 不能编辑但是右键->粘贴仍然可以在光标处粘贴文字,,,当然啦,这里TextBox主要用于输出,其实地球人都知道TextBox就是Windows原创 2014-09-05 14:33:33 · 3116 阅读 · 0 评论 -
设计中的手写识别(输入法)笔画--中篇
之所以有此篇是因为上篇中的算法在不同人测试时得到不同的识别率,一个人的书法适应之后对另一个人的书法进行识别又降低当学习大量的写法之后,发现对单一写法的识别率反而总体降低了,因此需要借笔画识别来进行辅助,以大幅提高识别率当然,路不可能走QQ拼音的路 具体的算法就不写出来了,标题也没说我要公布算法,这里只提供DLL的输出函数说明,相关的动态库和DEMO源码在我的下载那里可以下载到不原创 2013-10-24 12:55:53 · 2458 阅读 · 0 评论 -
关于控件的背景透明
世界上总是有些东西让你不得不用,因为别人都在用,比如钱和OLE世界上总有些东西让你很不想用,因为用起来很纠结,比如钱和OLE世界上总有问题时让你废寝忘食,以期解决它,还是他妈的钱和OLE 开发一个背景透明的控件,有很多方法了,比如很多用MFC的会重载对话框的OnCtlColor来透明子控件,效果不错但是这种方法仅限于MFC,即便扩展到其他C++编译平台,都可能不适用,更不用说转原创 2013-09-18 13:16:34 · 2156 阅读 · 0 评论 -
VB6给MDI窗口(父窗口)动态绘制背景的种种方法
VB6就不说了,要快速写一个程序,.NET(C#)可能还更好更强大,但是要说安全,VB6反到强过他们有时候两者就是一种矛盾,所以越是用户友好,越是易维护和扩展的程序,越容易被破解.MDI窗口没有refresh方法,没有paint事件,没有hDC,更没有PaintPicture方法.等等,我们先说动态绘制的必要性.MDI父窗口有个Picture属性,可以加载一幅图像,然而动态绘制可以根据窗口的大小调整背景图片.不要告诉我,你要做Width * Height张图片,每次都用Loa原创 2013-08-18 06:12:12 · 3007 阅读 · 2 评论 -
VB6关于判断模态窗体的问题
模态窗体也有人叫模式窗体,是否为模态窗体由Show方法的参数决定:语法object.Show style, ownerformShow 方法的语法包含下列部分:部分 描述 object 可选的。一个对象表达式,其值为“应用于”列表中的一个对象。如果省略 object,则与活动窗体模块关联的窗体缺省为 object。 Style 可选的。一个整数,它用以决定窗体是模式还是无模式 。如果 style 为 0,则窗体是无模式的;如果 style 为 1,则窗体是模式的。 ownerform原创 2013-08-23 06:02:46 · 2416 阅读 · 2 评论 -
详解vb字符串与C/C++动态库的交互
又是崭新的一年,大侠又来雷人了。 QQ版本更新以后,偶然翻看一下以前写的自动聊天机器人,居然不适用了!于是重写了个动态库,为String传递所困扰,于是决定借假期搞翻这颗钉子。 之前也写过关于参数传递的文章,不过对字符串的讲述很少,原因是我没亲自测试过,呵呵先说C/C++的两个函数:EXPORT_API DWORD __stdcall fnHook(DWORD dwIn原创 2013-01-02 01:38:12 · 3492 阅读 · 2 评论 -
关于VB中Timer停止的问题
学VB的一个朋友在有关Timer控件停止的问题,我给了一个回答:将Enabled设为False,或者将Interval设为0于是TA问,两者有什么区别呢?就这个问题,我们还是来做一个实验吧。 创建一个新工程,在默认新建的窗体上,创建3个Command和一个Timer使用如下代码: Option ExplicitPrivate dwCount As Long原创 2012-12-07 21:50:11 · 6836 阅读 · 2 评论 -
VB动态添加执行代码完整版(二)
VB6动态添加代码的教程演示以及下载地址,为那些喜欢用脚本拓展程序功能的新手而写,其他人士也可以看看. 源码可以在我的CSDN下载中心下载:最新更新:http://download.csdn.net/source/2619000最旧文件:http://download.csdn.net/source/2617537原创 2010-08-14 01:43:00 · 2412 阅读 · 0 评论 -
[i] 关于求素数的问题
<br />还是有很多新手对素数的求法迷糊,总希望有个函数直接判断素数,这种想法只会让你离计算机底层机理越来越远。<br />其实素数就是只能被自身和1整除的数:<br /> <br />Function IsPrime(n As Long) As Boolean Dim l As Long For l = 2 To n - 1 If n Mod l = 0 Then Exit Function Next l IsPrime =原创 2010-07-04 15:08:00 · 865 阅读 · 0 评论 -
C语言的DLL怎么给VB返回String(char*)呢
这个问题很少有资料可以搜索得到,主要是因为现在的程序员要么是C/C++,要么VB(.NET),即有一种钟爱的语言.跟罗sir交流了一下,罗sir是C#骨灰级玩家,专攻网络开发,他认为DLL加载到exe里成为一个模块,不能对上一级的变量赋值. 除了我这种患有代码痴迷症的人,不会有人去研究这个问题了,经过几天研究,发现了一些窍门,最近又遇上用它的地方,所以干脆发达这里来,希望对大原创 2010-03-28 06:56:00 · 4758 阅读 · 0 评论 -
[技术] 在水晶报表(Crystal Report)中时间日期显示的问题
水晶报表据说是非常专业的保镖工具;不经意间,我也用到了它,然而有个很多人遇到的问题的是:长时间字段在报表中显示出来只有日期部分,而没有了时分秒部分,比如2010-01-01 00:00:01 显示的是2010-01-01这方面的资料很少有的查,而且帮助资料都是英文(也许有中文的),但是我看过了帮助资料里没有专门介绍这个的,一般人可就"姚明"了~ 一个很简单的方法:选择F原创 2009-12-12 21:39:00 · 4438 阅读 · 4 评论 -
[技术] 在VB里面Me关键字有什么意义呢
<br /> 很多新手在使用VB 的时候发现用Me代表当前窗体,比如:<br /> 在一个窗体[frmMain]中,<br /> frmMain.Show<br /> Me.Show<br /> Unload frmMain<br /> Me.txtMessage.Text<br /> 其实都是一回事,那么Me是不是多余的,是不是为了书写方便呢?<br /> <br /> 答案是否定的,学过C++的朋友都知道this关键字,虽然用的不多,至少会知道<br />this是当前对象原创 2009-12-06 00:52:00 · 2307 阅读 · 0 评论 -
VB 中关于多重循环的执行问题
在程序设计中,变量、类型等是基础,语句才是直接影响程序功能发挥的因素程序的功能无非就是这么几个: 判断:判断某个变量是不是某个值,然后执行某个动作 跳转:通常在判断后转到对应的语句上,而不是一路执行下来 循环:其实循环可以说是判断+跳转,如汇编的修改IP指针,C++和VB的Goto语句,C/C++也可以用指针来跳转,但是专门的循环语句要容易用的多,VB中原创 2009-12-07 21:00:00 · 2753 阅读 · 0 评论 -
[RP] RP注册表防御监控软件 - 选自游侠小秘书组件
框架完成,添加完函数以后可以完成360一样的IE防御功能;当然目前不能对服务和插件进行深入的监控,功能的强弱与使用者设置有关:主要功能是:注册表和文件系统监控~,别废话,看图: *注意Config文件夹里面的IExplorer.ini 是配置,中括号内的标识随便写,接着是注册表路径 紧接着下一行(一定是下一行)是注册表的值,配置好了就可以启动了,如果主页什么的被 流氓网站改了原创 2009-12-02 12:14:00 · 844 阅读 · 0 评论