小隐的博客

人生在世，笑饮一生
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2006年9月29日

用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 隐客 阅读(2669) 评论(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 隐客 阅读(13800) 评论(5) 推荐(0)

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

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

posted @ 2006-09-29 08:57 隐客 阅读(725) 评论(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 隐客 阅读(853) 评论(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 隐客 阅读(742) 评论(0) 推荐(0)

QQ交流