自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(25)
  • 收藏
  • 关注

转载 计算 字符串数学表达式

‘参考自 http://blog.csdn.net/laviewpbt/article/details/1806217 ,并修改了一小点内容(带参数调用时,第二次调用出错问题)Option Explicit'定义的各算子的优先级Private Const PREC_NONE = 11 'Private Const PREC_UNARY = 10 '实际中没有用

2014-02-10 11:42:26 1053

转载 vb6 Add-In 错误处理用获取当前函数名

"引用Microsoft   Add-In   Designer Global   gVBE   As   VBIDE.VBE   "模块中 gVBE.ActiveCodePane.GetSelection   sl,   sc,   el,   ec   "获取选中的行号 MsgBox   gVBE.ActiveCodePane.CodeModule.ProcOfLine(sl,

2014-01-03 11:11:13 1025

转载 三角函数

Function Sec(X) As Double '正割 Sec = 1 / Cos(Angle)End FunctionFunction Csc(X) As Double '余割 Csc = 1 / Sin(Angle)End FunctionFunction Cot(X) As Double '余切 Cot = 1 / Tan(Angle)E

2013-05-14 11:25:00 568

原创 DCOM的學習和配置

DCOM的學習和配置概述COM: COM的分類:以VB的來講         Dll---進程內的COM         Exe—進程外的COM         Ocx—控件 一、 DCOM的應用 跨網域的分布式,負載平衡的應用,應用的擴展性及本身有應用程序就是分布式的 二、COM與DCOM的區別和聯系   COM DCOM 運行的地點 本地执行 网络上的另

2012-07-13 11:06:34 1150

原创 VB 精确的定时与计时

Option Explicit'****************************************'Function:用于精确的定时与计时'author: QJP'Date: 20120626'****************************************Private Declare Function QueryPerformanceCou

2012-06-26 12:03:31 1927

转载 常用汇编指令

原文 http://hi.baidu.com/someprojects/blog/item/d4b3d7eec7adf72c2cf534fb.html 一,破解时常用的汇编指令如下,汇编较弱者可先强行背住,以后就可慢慢理解了。 cmp a,b //比较a与b mov a,b //把b的值送给a,使a=b ret //返回主程序 nop //无作用,英文"no opera

2012-06-02 12:02:25 1664

转载 QuickSort 排序

Option ExplicitPrivate Sub QuicksortInt(list() As Integer, ByVal min As Integer, ByVal max As Integer)Dim med_value As IntegerDim hi As IntegerDim lo As IntegerDim i As Integer    ' If the

2012-05-31 11:51:29 346

原创 Dll 查看工具

http://www.dependencywalker.com/

2012-05-23 08:55:19 469

转载 在VB里利用Explorer.exe的过程

set ws = wscript.CreateObject("Wscript.Shell")'打开windows文件夹ws.run "%systemroot%\explorer.exe /e, %systemroot%"'打开我的文档ws.run "%systemroot%\explorer.exe"'打开我的电脑ws.run "%systemroot%\explorer.

2011-12-16 11:50:47 1839

转载 VB HOOK(钩子)超级无敌详细用法(介绍)

转自  http://hi.baidu.com/ljl88900/home  hook是WINDOWS提供的一种消息处理机制,它使得程序员可以使用子过程来监视系统消息,并在消息到达目标过程前得到处理。       下面将介绍WINNDOWS HOOKS并且说明如何在WINDOWS 程序中使用它。关于HOOKS      使用HOOK 将会降低系统效率,因为它增加了系统处量消

2011-12-16 11:46:31 7629

转载 自定义消息框上的按钮的文字

'/////////////////////////////////////'自定义消息框上的按钮的文字'\\\\\\\\\\\\\\\\\\'鬼龙之舞'2004-3-1'以下代码在模块Option ExplicitPrivate Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hw

2011-11-04 16:34:27 863

转载 在VB类模块中使用计时器

Option Explicit'* ******************************************** *'* 模块名称:clsTimer.cls'* 功能:在VB类模块中使用计时器'* 作者:lyserver'* ******************************************** *Private Declare Sub Cop

2011-11-04 15:27:30 1812 1

转载 通过IP获取MAC地址

Option ExplicitPrivate Declare Function OpenProcess Lib "kernel32" (ByVal _dwDesiredAccess As Long, ByVal bInheritHandle As Long, _ByVal dwP

2011-07-15 10:58:44 2724 1

转载 VB实现不占用CPU的延时

窗体:Private mobjWaitTimer As clsWaitableTimerDim mbWorkToDo As BooleanDim mbStop As BooleanPrivate Sub RunProcess()Set mobjWaitTimer = New clsWaitableTimerDoIf mbWorkToDo ThenCall ProcessWorkElsemob

2011-06-28 14:44:00 3228 1

转载 VB与MATLAB混合编程探讨

原文地址:http://blog.sina.com.cn/s/blog_3f2c99eb0100jd9g.html MATLAB是MathWorks公司开发的科学计算环境,具有强大的计算绘图能力,提供大量的函数库、工具箱,几乎涵盖了所有的工程计算领域,被誉为“演算纸”式的工程计算工具。但是MATLAB语言是一种解释执行的脚本语言,运算速度较慢是一个比较突出的问题。  Visual Ba

2011-06-28 14:25:00 1352

转载 VB 进程死亡的自动复活

原文地址  http://yulv.net/archives/10/  前两天看了Delphi版面精华区中的《进程死亡的自动复活》一文,觉得作者的思路很不错,利用api来监视进程的活动,当被销毁时就自动再创建进程。仔细推敲之后,发觉其实用vb也是可以做到的。于是花了半天的时间写了以下的程序,实现了使用WaitForSingleObject API来监视被创建的进程的活动,一旦返回除 time

2011-06-23 09:02:00 957

原创 腐蚀膨胀细化算法

<br />6.1 腐蚀<br />|"L o x%v M g!p0把结构元素B平移a后得到Ba,若Ba包含于X,我们记下这个a点,所有满足上述条件的a点组成的集合称做X被B腐蚀(Erosion)的结果。用公式表示为:E(X)={a| Ba X}=X B,如图6.8所示。<br />图6.8中X是被处理的对象,B是结构元素。不难知道,对于任意一个在阴影部分的点a,Ba 包含于X,所以X被B腐蚀的结果就是那个阴影部分。阴影部分在X的范围之内,且比X小,就象X被剥掉了一层似的,这就是为什么叫腐蚀的原因。<br

2011-03-29 11:46:00 3574

转载 结构之法 算法之道

<br />http://blog.csdn.net/v_JULY_v/default.aspx?PageNumber=2

2011-03-12 14:36:00 502

转载 检查进程是否存在

<br />Function CheckApplicationIsRun(ByVal szExeFileName As String) As Boolean<br />On Error GoTo Err<br />Dim WMI<br />Dim Obj<br />Dim Objs<br />CheckApplicationIsRun = False<br />Set WMI = GetObject("WinMgmts:")<br />Set Objs = WMI.InstancesOf("Win32_Pr

2011-01-05 13:39:00 530

转载 Hough变换原理

<br />转自:http://wsyjwps1983.blog.163.com/blog/static/6800900120100192832116/<br /> Hough变换原理 <br />Hough( 霍夫)变换 是在图像中提取特定图形的一种算法,目前已经应用到车牌照识别、指纹、手相识别等领域;在其它开发环境中如VB、VC、DELPHI、MATLAB应用比较广泛,且在网络上能搜到现在的源代码,可惜的是现在还没有人用易做这方面的研究或没有发布出来。下面是我在网络上找到一些其它语言的源代码,基于水平有

2010-12-22 11:23:00 527

转载 20多个在线操作系统(WebOS)一览

<br />互联网上有很多在线软件,而说到在线软 件,不能不提在线操作系统(WebOS),相比起单个的在线软件,在线操作系统功能更全面,所有功能都是基于浏览器(如果你所在的地方禁用的MSN,不妨 尝试使用WebOS来登录)。有人相信webOS会成为未来的主流,因为和在线软件一样,你能在任何地方连接到自己的工作平台和文件存储。这里介绍20多 个WebOS,其中有不少是提供中文界面的。 1、I-Cube提供1G的在线存储和文件共享,多媒体支持和一些常用办公工具。同时拥有一个email客户端和编程开发工具。 2、

2010-12-20 17:01:00 682

转载 使用manifest文件进行绿色化程式

下面的内容来自同事的无私讲解:XP以上的操作系统支持COM免注册技术,系统在加载EXE时会自动扫描是否包含配套的manifest信息,若有则读取manifest内容加载组件,否则读取注册表。manifest描述了EXE里面引用了哪个DLL库、DLL里面提供了什么接口等信息,只要给EXE、DLL加上配套manifest即可完成免注册工作。微软VS SDK里面包含一个MT.exe,专门用来生成组件manifest的,COMRegFree里面调用了MT.exe生成的manifest可以放到

2010-06-30 14:34:00 480

原创 26进制

'26进制转换,也就是由数字列转换为字母列Public Function Num2Col(ByVal dNum As Long) As StringDim Tstr As StringDim dtime As LongConst TBety  As Integer = 26If dNum     Num2Col = "A"    Exit FunctionEnd

2010-05-31 10:36:00 720

转载 进制转换

 次内容来自网络Option ExplicitPublic Function D_To_B(ByVal Dec As Long) As String    Do        D_To_B = Dec Mod 2 & D_To_B        Dec = Dec / 2    Loop While DecEnd FunctionPublic Function B_To_D(By

2010-04-29 22:23:00 299

转载 API模拟发送按键.鼠标动作

Attribute VB_Name = "mdlMain" **************************************************************************** 安全警戒线整理 网    站:http://www.hackeroo.com/ e-mail  :[email protected] OICQ    :266370 *

2010-04-20 01:06:00 1041

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除