小隐的博客

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

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

摘要： 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... 阅读全文