小隐的博客

人生在世，笑饮一生
随笔 - 304, 文章 - 0, 评论 - 349, 阅读 - 50万
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理
< 2025年3月 >
日 一 二 三 四 五 六
23 24 25 26 27 28 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31 1 2 3 4 5

09 2006 档案

用VB创建快捷方式(无需第三方DLL)

摘要：Option ExplicitPrivate Sub Command1_Click()CreateProgManGroup Me, "测试", "test.grp"CreateProgManItem Me, "d:\ghost.exe", "Ghost"CreateProgManItem Me, "d:\setupQQ.exe", "QQ"End SubSub CreateProgManGroup... 阅读全文

posted @ 2006-09-29 09:04 隐客 阅读(2651) 评论(0) 推荐(0) 编辑

启动控制面板命令大全

摘要：控制面板 模块： control.exe 命令： rundll32.exe shell32.dll,Control_RunDLL 结果： 显示控制面板窗口。 例子： Dim x x = Shell("rundll32.exe shell32.dll,Control_RunDLL") 辅助选项 模块： access.cpl 命令： rundll32.exe shell32.dll,Control_R... 阅读全文

posted @ 2006-09-29 08:59 隐客 阅读(13792) 评论(5) 推荐(0) 编辑

使用DDE技术，为您的应用程序增辉

摘要：上网的朋友一定都用过网络蚂蚁（Net Ants）的吧？不知你在使用过程中有没有注意过，那就是如果你想调动两个“蚂蚁”为您效力是不可能的——它总会把新运行的关闭。这点在VB中很容易实现：Private Sub Form_Load()If App.PrevInstance ThenMsgBox "你已经运行这个应用程序了"End ' 退出新运行的程序End IfEnd Sub这样如果你运行这个程序后在... 阅读全文

posted @ 2006-09-29 08:57 隐客 阅读(709) 评论(0) 推荐(0) 编辑

获得Windows特殊目录

摘要：两个API函数，这两个函数分别是SHGetSpecialFolderLocation和SHGetPathFromIDList，这就是我们用来获得各种路径的武器。 函数声明: Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Inte... 阅读全文

posted @ 2006-09-29 08:54 隐客 阅读(836) 评论(0) 推荐(0) 编辑

如何选定文件或文件夹

摘要：Option ExplicitPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'测试Private Sub Command1_Click()selectitem "e:\mc\mmtest.jpg"Sleep 10000selectitem "e:\mc"End SubPrivate Sub select... 阅读全文

posted @ 2006-09-29 08:52 隐客 阅读(734) 评论(0) 推荐(0) 编辑

QQ交流
点击右上角即可分享
微信分享提示