vb版主shines向大家征集精华贴，本着为大家服务的态度，高手留步，低手必看…………

版主shines先举个例子：标题：如何得知当前计算机是否上网 (lwk_hlj)
地址：http://www.csdn.net/expert/TopicView.asp?id=31453推荐理由：API的例子，两个都很经典，实用，值得一看。欢迎大家提出意见。

要看shines以前的帖子，可去精华区看，不过只收集了一小部分而已，以前的帖子很多人没有给分，加不了精华区。版主又不能给自己分，faint~~~~

赚点分：）大家知道隐藏的程序用定义热键响应热键太麻烦了！反正我是憋了半天还没有搞出来：）下面就是定义及响应热键的另一个好办法，两个函数就搞定，请各位指导！标题：定义及响应热键的另外一个办法
地址：http://ecom.xj169.net/vbgood/bbs/brow.asp?id=2207&tID=0&style=VB技巧&page=1&find=热键&kind=标题内容：
Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Long) As LongDeclare Function DefWindowProc Lib "user32" _
Alias "DefWindowProcA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As LongPublic Const WM_SETHOTKEY = &H32
Public Const WM_SHOWWINDOW = &H18
Public Const HK_SHIFTA = &H141 `Shift + A
Public Const HK_SHIFTB = &H142 `Shift * B
Public Const HK_CONTROLA = &H241 `Control + A
Public Const HK_ALTZ = &H45A
Private Sub Form_Load()
Me.WindowState = vbMinimized
`让窗口知道你需要什么热键erg& = SendMessage(Me.hwnd, WM_SETHOTKEY, _
HK_SHIFTB , 0)
If erg& <> 1 Then
MsgBox "对不起你需要定义其他热键", vbOKOnly, _
"错误"
End If`告诉窗口该怎么做，当热键按下时
erg& = DefWindowProc(Me.hwnd, WM_SHOWWINDOW, _
0, 0)
End Sub

第一贴（属转贴），庆祝一下吧，50分，分满了即送，版主名义信誉保证，感谢h_x_k。

关于"找不到可插入的ISAM"??????(急急急)（数据库）
地址：http://www.csdn.net/expert/TopicView.asp?id=49705
推荐理由：Microsoft的VSSP4中文版的BUG

clound_soft，那个帖子你还没有给分呢，所以添加不进去，精华贴必须是给分了的。

简单：如何实现在程序和Activex DLL之间传送数据与命令？http://www.csdn.net/expert/Topic/44711.shtm

谁能告诉我Uicode的编码方式，以及何处能找到相关的资料？http://www.csdn.net/expert/Topic/43388.shtm

To y1g1y1:
   你的第一个帖子很好，技术性很强，但没有实质性的回答，能否让作者贴出最终的解答？(20分)；
   第二个帖子很不错（自荐的），解答也很完整，30分；
   一下子就赚了50分。欢迎大家踊跃贴稿啊，欢迎高手们出手！你们都去哪了？

http://www.csdn.net/expert/TopicView.asp?id=44711
http://www.csdn.net/expert/TopicView.asp?id=43388已添加到精华区，但44711,“ 如何实现在程序和Activex DLL之间传送数据与命令？” 有一点点勉强。

http://www.csdn.net/expert/TopicView.asp?id=44539
我提出的问题也加到精华区了？郭子？好像在那里与您聊过!

http://www.csdn.net/expert/TopicView.asp?id=44539
这个帖子在你提供之前我已经加上去了，呵呵，还是我快了一步吧，不过还是得谢谢你，少少5分，以表谢意。vbask 你是不是neweguo啊？

VB 程序大揭秘

　　1.Visual Basic程序概况　　我用W32Dasm(Ver 8.93)解开一个比较复杂的VB程序，其中用到了许多API 函数比如GetPrivateProfileString、OSfCreateShellLink、SHBrowseForFolder 等来自很多DLL的API。解开以后却发现程序只用到了一个DLL:msvbvm50.dll(我用的还是VB5)！VC、Delphi等程序语言编译出的程序可是直接引用DLL的。经过研究发现程序使用了如下几个主要的来自MSVBVM50.dll的API：rtcRandomize ：Randomize 函数的对应API；
rtcMidCharVar ：Mid 函数的对应API；
rtcLeftCharVar、rtcRightCharVar ：看出来了吧，这些是Left、Right函数的对应API；
rtcUpperCaseVar ：UCase 函数的对应API；
rtcKillFiles ：Kill 语句的对应API；
rtcFileCopy ：FileCopy 语句的对应API；
rtcFileLength ：EOF、FileLen函数的对应API；
rtcGetTimer ：Randomize Timer中获取Timer的对应API；
rtcShell ：Shell函数的的对应API；
rtcMakeDir ：MkDir 语句的对应API；
rtcRemoveDir ：RmDir 语句的对应API；
rtcDir ：Dir 函数的对应API；
rtcSpaceVar ：Space 函数的对应API；　　没问题的人应该看出来了：VB的所有函数、语句、方法都是由调用MSVBVM50.dll 中的API实现的，一般是由“rtc”接上函数或语句的全名，涉及字符串的API一般还得在最后加上“Var”。另外还有一些函数是这样写的：__vbaUbound ： UBound 的对应API；
__vbaFileOpen ：Open 语句的对应API；
__vbaStrCmp ：比较两个字符串：If String1 = String2 Then ......
__vbaVarOr ：Or 运算符的对应API；
__vbaRedim ：Redim 语句的对应API；
__vbaRedimPreserve ：Redim 语句加上 Preserve 参数的对应API；
__vbaGet、vbaPut ：Get、Put语句的对应API…… 　　在运行时，VB程序就调用它们完成工作。　　2.其它DLL的调用　　第一部分解决了。我们知道了VB程序实际上不是一个真正的可执行文件，它只是机械性地调用MSVBVM50.dll中的API执行程序。那么VB程序既然只调用了MSVBVM50.dll，它又是怎样调用其他DLL中的API呢？　　注意这个API。它能引起我们的注意：　　DllFunctionCall：看到了吗？它就是我们的主角。　　从字面上看就能看懂了：它用来调用其它DLL。这样可以使程序使用的函数集中在MSVBVM50.dll里(怎么有点像封建制度，中央集权……)。　　3.重中之重：VB程序的启动　　我们已经知道了VB程序的运行方法。那么它是怎样启动的呢？　　再看看程序调用的API。其中有一个API雷打不动，每个VB程序都有：　　ThunRTMain 　　首先，VB程序调用ThunRTMain。ThunRTMain为程序初始化进程，并获取进程ID。　　随后它加载vb5chs.dll，为打开新窗口准备。然后它开始用LoadString等API 获取窗口属性，比如字体、标题、颜色等。再调用IMM32.dll，开始利用它打开新窗口。然后使用GetModuleFileName获得VB程序名，随后用CreateSemaphore增加信号机。信号机的作用是：当监控值大于0时，信号机工作。再调用OLE32.dll，使用CreateWindowEx打开一个叫做“DDE Server”的隐藏窗口，让它从中作梗。退出OLE32.DLL，MSVBVM50又开始调用程序管理器。　　前面的工作为我们的VB程序注册了一个类名：VBFocusRT5，下面就可以使用这个类名创建VB窗体。首先使用大量循环读取半角/全角字符，然后读取各个控件的属性，再使用Local_Function把这些属性、方法、事件等“拼”成一个完整的控件，最后把上面做的所有工作综合起来，开始VB程序。　　从过程来看，使用时间最多的自然是加载控件了，其次是加载字符集。VB程序速度慢主要是指启动速度慢。这是难以避免的，希望VB7推出时能改进这一点。　　不知大家看没看出来，编译后的VB程序只是源程序的翻版，连控件属性、方法和事件名都一模一样。VB程序的慢就是来自这里，它们只是机械地、无休止地调用MSVBVM50.dll里的API来运行程序。要想彻底摆脱这一点，只能改革VB程序编译时的方法，使其成为一个标准的资源性Win32程序。　　附：VB程序与VC++程序启动速度大火拼　　注意：这里提到的只是“启动”速度。实际上，VB程序启动后的运行速度与其它程序语言编译出来的EXE速度差不多(甚至更快)，只不过是启动速度太慢而已。　　我们知道，Windows附带的计算器是用VC++编制的。我编了一个示例计算器程序，流程很简单，单击Command1时把Text1与Text2相加，再赋值到Text3。　　代码只有一行：　　Private Sub Command1_Click() 　　Text3 = CStr(Val(Text1) + Val(Text2)) 　　End Sub 　　把它编译为EXE。为了表现出速度差异，我选择了一台比较慢的电脑：　　Pentium 166 MMX + 80M EDO + 3.2G硬盘。　　启动速度对比：为了结果公平，共测试五次，取平均值。单位：秒
运行次数 VB计算器 VC++计算器
1 2.43 0.87
2 0.85 0.74
3 0.92 0.92
4 1.02 0.78
5 0.87 0.84
平均速度 1.22 0.83 　　你会发现，VB计算器第一次比较慢，剩下几次就快了。这是因为ThunRTMain 把所有控件信息写入内存，每次打开程序时检测是否有可用控件信息而且符合本程序(大概比尔也知道VB慢吧)。另外，我们只能算加法的计算器启动速度就和功能众多的Windows计算器差不多，更可以知道我们如果用VB编出一个和Windows计算器功能相同的计算器的启动速度了。:( VB也不全是缺点，至少它的程序设计环境是其它程序语言所不具备或不擅长的。　　像VB这样简单易学，，为编程初学者指明了方向。是有它存在的理由的，至少，我SuperAPI还在用它。:) 　　后记：　　写这篇文章的灵感来自于两天前VB论坛里cy72提出的问题。昨天半夜没上网，集中精力调试一个VB程序，终于找出了答案。在DLL里转来转去的感觉真的很难受，加之我对汇编还不太懂。以每秒3条语句的速度进行，调试了49218 步，共用了4个半小时。我自从接触VB以来从没感觉过VB程序是这样复杂。　　尤其值得一提的是，4个半小时中4个小时是泡在近似无限的循环中，这种长时间重复一件枯燥而乏味的事情我可总算是见识到了，各位调试VB程序时大可不必心烦意乱，你只要想想长时间按着F7、F5键，在迎面扑来的一堆堆成山的天书般的汇编语言中寻找有用东西的滋味你就知道调试VB程序是最简单的了。:)

不过好像还是Delphi班的某某帮猪勤快多了，一点点，呵呵：））………再勤快的帮猪也没有大家的力量那么大啊，你要知道团结的力量有多大？不可估计。一两个人的力量是有限的，，

标题: 我的程序缩成标题框了，只能关闭和移动，怎么办？
地址: http://www.csdn.net/expert/Topic/59243.shtm
作者: bigstrong

http://www.csdn.net/expert/TopicView.asp?id=56973
http://www.csdn.net/expert/TopicView.asp?id=35998
上面是我回答的，我觉得有实用价值(不是技术含量)。
http://www.csdn.net/expert/TopicView.asp?id=45294
这个我觉得也不错，是别人回答的。
嗯嗯...好多都忘了...

http://www.csdn.net/expert/TopicView.asp?id=56973
题目：请问一个关于让窗体ALWAYS ON TOP的问题
：大家都应该学会这招。http://www.csdn.net/expert/TopicView.asp?id=35998
题目：通过那个函数或API能调出“选择目录”的windows框？
：很实用，但如果能做到回调就更好了。好的，Prefix大侠，两贴共60分，大侠别介意，先谢谢你了。http://www.csdn.net/expert/TopicView.asp?id=45294
题目：Hd-copy的磁盘感应功能怎么做？请给出例程！
：ASM版的。

OICQ大公开(vb版)已经放入精华区了，大家需要查号的，请到“精华区”寻找。

http://www.csdn.net/expert/TopicView.asp?id=59834主题：我找了整个CSDN都没发现那张帖子，我想知道怎么把WEBBROWSER的网页存盘而不通知用户
提问：kingxing

请问版主，俺vb编的mp3播放器想实现声波和频谱图，还有均衡功能，不知道该怎么办？
有什么好的控件吗？

关于vb编mp3的频谱分析，到目前为止我还没有看见有哪个实现了的，用vb实现的音质最好的要属用XAudio.dll实现的，本来XAudio是没有vb的例子的，有一个叫“子夜软件工作室”的做了一个VB的声明，并用vb实现了调用XAduio.dll。XAduio最新的版本中，只有VC++中才有频谱分析，连Delphi的范例都没有频谱，甭说VB了（XAudio没有vb的范例，vb的是爱好者自己模仿做的）。关于Xaduio的问题请来信[email protected]讨论，不便在此展开，请原谅，等待着你的回音。谁对于MP3有什么高见，欢迎讨论，哦忘了还有个FreeAmp也是免费的有源码。

均衡功能可以实现，vb也可以。子夜软件工作室地址：http://www.greatmidnight.com/

http://www.freeamp.org VC++的。

shines你今年多大了?当网管一定很威风吧!

shines 今年20有3了，当班竹啊，微风，一点点：）最怕大家扔臭鸡蛋，烂番茄之类的，所以请大家多多帮忙。多扔金币，金块，金砖，金山………，越来越贪心了………

Un1, NiceFeather 大侠呢？春节快乐~~~~~~

http://www.csdn.net/expert/TopicView.asp?id=55515
这个怎样？

发扬奥运精神,重在参与,大声呐喊,打倒帝国主义,欢迎与我做朋友,[email protected]
千万不要炸我!kiss 大家,新年快乐!!!!

http://www.csdn.net/expert/TopicView.asp?id=55515
主　　题：如何得知CDROM中有碟?
作　　者：QQRN其实想获知CDROM中是否有碟，可以用DEVICE_CHANGE消息来获得插入光盘的和打开光盘的信息，用不着用如此烦琐的方法。DEVICE_CHANGE是不是这样写的，我忘了，错了请更正。

是WM_DEVICECHANGE，好像等于&H219。是的, 这个需要程序一直运行于后台，像解霸那样。

调试易

vb版主shines向大家征集精华贴，本着为大家服务的态度，高手留步，低手必看…………

解决方案 »