DeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByVal hwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny) AsLong PublicConstCB_FINDSTRING=H14C PrivateSubCombo1_Change() DimiStartAsInteger DimsStringAsString StaticiLeftOffAsInteger iSt...

2018-06-17 17:14:29

程序需要，我在网上找了很久才找到，刚刚把程序写好，并加写了注释，希望能帮助大家 再写程序前先引用 microsoftexcel11.0objectLibrary 我看到的文章是10.0的，我这是office2003是11.0，只要安了excel就有这个引用~ PrivateSubcmdsave_Click() MsgBox"文件保存为:D:\...

2018-06-17 17:14:28

在VisualBasic中利用Image和Timer控件能很方便地实现动画。本文将介绍VisualBasic动画编程的基本原理和实现三种不同类型动画的编程技术。 一、基本原理 ----动画是一种运动的模拟，其实现方法是在屏幕上快速地显示一组相关的图象。因此实现动画的基础是图象的显示和使...

2018-06-17 17:14:28

VB本身不支持彩色光标和动画光标，但可以通过调用Windows的API函数实现这一目的。这里用到两个API函数，LoadCursorFromFile用于装入新光标(xin)，需要指明新光标的具体路径及文件名；SetClassLong用于设置使用新光标(xin)。这一函数使用时会返回一个代表前一个光标的变...

2018-06-17 17:14:26

方法一： PublicFunctionFastReplace(SSrch$,SFind$,SRepl$)AsString DimSrc()AsByte,Dst()AsByte,R()AsByte,F()AsByte DimLenF,LenR,LenDst,i,j,OutPos ConstChunkSize=4096 IfSSrch=""OrSFind=""ThenExitFunction Src=SSrch:F=SFind:R=SRepl LenF=UBound(F):LenR=UBo...

2018-06-17 17:14:26

大家都知道，屏幕保护密码最多为16个字符。微软内置了16字节的密钥：48EE761D6769A11B7A8C47F85495975F。Windows便用上述密钥加密你输入的密码。其加密过程为：首先将你输入的密码字符逐位转换为其16进制的ASCⅡ码值（小写字母先转为大写字母），再依次与对应密钥逐位...

2018-06-17 17:14:25

现在网络上流行的木马软件基本都是客户机/服务器模式也就是所谓的C/S结构，目前也有一些开始向B/S结构转变，在这里暂且不对B/S结构进行详谈，本文主要介绍C/S结构其原理就是在本机直接启动运行的程序拥有与使用者相同的权限。因此如果能够启动服务器端（即被攻击的计算...

2018-06-17 17:14:24

一、设窗体上有若干个以Command1命名的命令按钮，现要求：点击其中一个按钮后，该按钮不可用，而其它的按钮均可用。以下几行代码可以实现这个要求，比一个一个的设置高效得多。其实，我也是看了土人的关于控件数组的一文后，认为我的方法更加简单，代码更简易。 以下是...

2018-06-17 17:14:24

'文件名SourceDB.ini文件 PrivateDeclareFunctionGetPrivateProfileStringLibkernel32Alias GetPrivateProfileStringA(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVal lpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVal lpFileName...

2018-06-17 17:14:21

PublicDeclareFunctionGetDesktopWindowLib"user32"()AsLong PublicDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLong PublicDeclareFunctionBitBltLib"gdi32"_ (ByValhDestDCAsLong,_ ByValxAsLong,_ ByValyAsLong,_ ByValnWidthAsLong,_ ByValnHeightAsLong,_...

2018-06-17 17:14:22