- 博客(25)
- 收藏
- 关注
转载 计算 字符串数学表达式
‘参考自 http://blog.youkuaiyun.com/laviewpbt/article/details/1806217 ,并修改了一小点内容(带参数调用时,第二次调用出错问题)Option Explicit'定义的各算子的优先级Private Const PREC_NONE = 11 'Private Const PREC_UNARY = 10 '实际中没有用
2014-02-10 11:42:26
1132
转载 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
1080
转载 三角函数
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
613
原创 DCOM的學習和配置
DCOM的學習和配置概述COM: COM的分類:以VB的來講 Dll---進程內的COM Exe—進程外的COM Ocx—控件 一、 DCOM的應用 跨網域的分布式,負載平衡的應用,應用的擴展性及本身有應用程序就是分布式的 二、COM與DCOM的區別和聯系 COM DCOM 運行的地點 本地执行 网络上的另
2012-07-13 11:06:34
1242
原创 VB 精确的定时与计时
Option Explicit'****************************************'Function:用于精确的定时与计时'author: QJP'Date: 20120626'****************************************Private Declare Function QueryPerformanceCou
2012-06-26 12:03:31
2008
转载 常用汇编指令
原文 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
1895
转载 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
378
转载 在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
2071
转载 VB HOOK(钩子)超级无敌详细用法(介绍)
转自 http://hi.baidu.com/ljl88900/home hook是WINDOWS提供的一种消息处理机制,它使得程序员可以使用子过程来监视系统消息,并在消息到达目标过程前得到处理。 下面将介绍WINNDOWS HOOKS并且说明如何在WINDOWS 程序中使用它。关于HOOKS 使用HOOK 将会降低系统效率,因为它增加了系统处量消
2011-12-16 11:46:31
7957
转载 自定义消息框上的按钮的文字
'/////////////////////////////////////'自定义消息框上的按钮的文字'\\\\\\\\\\\\\\\\\\'鬼龙之舞'2004-3-1'以下代码在模块Option ExplicitPrivate Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hw
2011-11-04 16:34:27
1095
转载 在VB类模块中使用计时器
Option Explicit'* ******************************************** *'* 模块名称:clsTimer.cls'* 功能:在VB类模块中使用计时器'* 作者:lyserver'* ******************************************** *Private Declare Sub Cop
2011-11-04 15:27:30
1867
转载 通过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
2812
转载 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
3367
转载 VB与MATLAB混合编程探讨
原文地址:http://blog.sina.com.cn/s/blog_3f2c99eb0100jd9g.html MATLAB是MathWorks公司开发的科学计算环境,具有强大的计算绘图能力,提供大量的函数库、工具箱,几乎涵盖了所有的工程计算领域,被誉为“演算纸”式的工程计算工具。但是MATLAB语言是一种解释执行的脚本语言,运算速度较慢是一个比较突出的问题。 Visual Ba
2011-06-28 14:25:00
1496
转载 VB 进程死亡的自动复活
原文地址 http://yulv.net/archives/10/ 前两天看了Delphi版面精华区中的《进程死亡的自动复活》一文,觉得作者的思路很不错,利用api来监视进程的活动,当被销毁时就自动再创建进程。仔细推敲之后,发觉其实用vb也是可以做到的。于是花了半天的时间写了以下的程序,实现了使用WaitForSingleObject API来监视被创建的进程的活动,一旦返回除 time
2011-06-23 09:02:00
988
原创 腐蚀膨胀细化算法
<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
3642
转载 结构之法 算法之道
<br />http://blog.youkuaiyun.com/v_JULY_v/default.aspx?PageNumber=2
2011-03-12 14:36:00
524
转载 检查进程是否存在
<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
574
转载 Hough变换原理
<br />转自:http://wsyjwps1983.blog.163.com/blog/static/6800900120100192832116/<br /> Hough变换原理 <br />Hough( 霍夫)变换 是在图像中提取特定图形的一种算法,目前已经应用到车牌照识别、指纹、手相识别等领域;在其它开发环境中如VB、VC、DELPHI、MATLAB应用比较广泛,且在网络上能搜到现在的源代码,可惜的是现在还没有人用易做这方面的研究或没有发布出来。下面是我在网络上找到一些其它语言的源代码,基于水平有
2010-12-22 11:23:00
560
转载 20多个在线操作系统(WebOS)一览
<br />互联网上有很多在线软件,而说到在线软 件,不能不提在线操作系统(WebOS),相比起单个的在线软件,在线操作系统功能更全面,所有功能都是基于浏览器(如果你所在的地方禁用的MSN,不妨 尝试使用WebOS来登录)。有人相信webOS会成为未来的主流,因为和在线软件一样,你能在任何地方连接到自己的工作平台和文件存储。这里介绍20多 个WebOS,其中有不少是提供中文界面的。 1、I-Cube提供1G的在线存储和文件共享,多媒体支持和一些常用办公工具。同时拥有一个email客户端和编程开发工具。 2、
2010-12-20 17:01:00
842
转载 使用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
537
原创 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
786
转载 进制转换
次内容来自网络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
320
转载 API模拟发送按键.鼠标动作
Attribute VB_Name = "mdlMain" **************************************************************************** 安全警戒线整理 网 站:http://www.hackeroo.com/ e-mail :hackeroo@hotmail.com OICQ :266370 *
2010-04-20 01:06:00
1091
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人