- 博客(12)
- 资源 (31)
- 收藏
- 关注
原创 【CBM666 的图片保存信息】
利用图片将你的信息保存起来, 随时可以调用或更新. 下载地址:http://download.youkuaiyun.com/source/374797
2008-03-09 23:53:00
994
原创 【CBM666 的递归文件搜索】
下面代码是从我写的 Dll 里面的 .cls 抽出来的, 因此,下面代码,除了Command1事件是本地代码, 其它另两个Sub与Function你可以活用, 摆在你的 .cls里面*************** 本代码是在指定的文件夹中以 "递归" 方式搜索多媒体文件*.mp3;*.mid;*.wav;*.wma;*.dat;*.rm;*.rmi;*.rmvb添加 Command
2008-03-08 19:29:00
1005
1
原创 【CBM666 的如何制作与使用 .RES 资源文件】
2007年04月30日 星期一 08:01 这是从资源文件里调用msvbvm60.dll 注册的代码 本代码是放在模块 Moudule1.bas 里面,不是放在Form1里面的. 要注册.dll .ocx最好是放在.ba
2008-03-08 13:11:00
1989
1
原创 【CBM666 的枚举子文件夹】
添加 Command1 Option ExplicitDim strrec$(), TFolders&Dim i&, fs, f, sPrivate Sub Command1_Click() s = GetFolders("e:/music") If TFolders Me.Cls For i = 0 To UBound(s) Print s(i) Nex
2008-03-08 12:50:00
1024
原创 【CBM666 爬满您桌面的甲虫】
下载地址: http://d.download.youkuaiyun.com/down/361095/cbm666
2008-02-26 15:07:00
1300
原创 【CBM666 的全局检测鼠标移动】
Option Explicit*********************** 得知鼠标位置的 API *******************************Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Type POINTAPI X As Long Y
2008-02-26 12:43:00
859
原创 【CBM666 的最简单歌曲播放】
添加 Command1 Option ExplicitDim songnm$ Private Sub Command1_Click() songnm = "c:/test.mp3" Call playmusic(so
2008-02-26 12:37:00
666
原创 【CBM666 的全盘文件查找】
添加 Command1 List1故意拷一个文件到几个盘中的某一目录测试看是否都能搜寻到 支援通配符*.*与多项扩展名(当然 Dir 那行的代码得修改一下)Option ExplicitPrivate Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) A
2008-02-25 23:52:00
1658
1
原创 【CBM666 的自制开立方涵数】
Private Sub Form_Load() MsgBox Cubic(125)End SubPublic Function Cubic(Cval&) As Long 开4次方 1/4 ,开5次方 1/5 ....类推 Cubic = Cval ^ (1 / 3)End Function
2008-02-25 17:46:00
706
原创 【CBM666 的动画分割】
VB编写的将一张图片分割, 并以透明背景动画显示. 下载地址: http://d.download.youkuaiyun.com/down/361295/cbm666
2008-02-24 12:47:00
1347
1
【CBM666 爬满你您桌面的甲虫】
2008-02-26
【CBM666 的随机数组甲虫】
2008-02-26
【CBM666 搜集的Windows消息大全(转帖)】
2008-02-23
【CBM666 的木马EXE专杀】
2008-02-22
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人