按键精灵开发教程：获取特殊文件夹路径
1、获取方法
2、命令代码
命令说明
MsgBox CreateObject("Shell.Application").Namespace(&H0).Self.Path
“桌面”的桌面图标
MsgBox CreateObject("Shell.Application").Namespace(&H1).Self.Path
IE浏览器的桌面图标
MsgBox CreateObject("Shell.Application").Namespace(&H2).Self.Path
当前用户的“程序”菜单文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H3).Self.Path
“控制面板”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H4).Self.Path
“打印机”的桌面图标
MsgBox CreateObject("Shell.Application").Namespace(&H5).Self.Path
当前用户的“我的文档”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H6).Self.Path
当前用户的“收藏夹”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H7).Self.Path
当前用户的“启动”菜单文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H8).Self.Path
当前用户的“文档”菜单文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H9).Self.Path
当前用户的“发送到”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&HA).Self.Path
回收站
MsgBox CreateObject("Shell.Application").Namespace(&HB).Self.Path
当前用户的“开始”菜单文件夹
MsgBox CreateObject("Shell.Application").Namespace(&HC ).Self.Path
logical"My Documents"desktop icon
MsgBox CreateObject("Shell.Application").Namespace(&HD).Self.Path
当前用户的“音乐文件”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&HE).Self.Path
"My Videos" folder
MsgBox CreateObject("Shell.Application").Namespace(&H10).Self.Path
当前用户的“桌面”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H11).Self.Path
“我的电脑”桌面图标
MsgBox CreateObject("Shell.Application").Namespace(&H12).Self.Path
“网上邻居”的桌面图标
MsgBox CreateObject("Shell.Application").Namespace(&H13).Self.Path
当前用户的“网络连接”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H14).Self.Path
“系统字体”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H15).Self.Path
系统中存储文档模块的文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H16).Self.Path
所有用户的“开始菜单”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H17).Self.Path
所有用户的“程序”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H18).Self.Path
所有用户的“启动”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H19).Self.Path
所有用户的“桌面”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H1A).Self.Path
当前用户的“应用数据”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H1B).Self.Path
当前用户的“网络打印机”桌面图标
MsgBox CreateObject("Shell.Application").Namespace(&H1C).Self.Path
当前用户的“应用数据”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H1D).Self.Path
non localized startup
MsgBox CreateObject("Shell.Application").Namespace(&H1E).Self.Path
non localized common startup
MsgBox CreateObject("Shell.Application").Namespace(&H1F).Self.Path
所有用户的“我的收藏”夹文件
MsgBox CreateObject("Shell.Application").Namespace(&H20).Self.Path
当前用户IE的“Cache”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H21).Self.Path
当前用户IE的“Cookie”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H22).Self.Path
IE的“历史记录”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H23).Self.Path
所有用户的“应用数据”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H24).Self.Path
系统中的Windows目录
MsgBox CreateObject("Shell.Application").Namespace(&H25).Self.Path
WINDOWS系统的“System32”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H26).Self.Path
“程序文件”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H27).Self.Path
当前用户的“图片收藏”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H28).Self.Path
当前用户的“用户配置文件”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H29).Self.Path
x86 system directory on RISC
MsgBox CreateObject("Shell.Application").Namespace(&H2A).Self.Path
x86 C:\Program Files on RISC
MsgBox CreateObject("Shell.Application").Namespace(&H2B).Self.Path
系统程序共用组件文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H2C).Self.Path
x86 Program Files\Common on RISC
MsgBox CreateObject("Shell.Application").Namespace(&H2D).Self.Path
所有用户的“模块”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H2E).Self.Path
所有用户的“我的文档”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H2F).Self.Path
所有用户的“管理工具”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H30).Self.Path
当前用户的“管理工具”文件夹
MsgBox CreateObject("Shell.Application").Namespace(&H31).Self.Path
Network and Dial-up Connections
MsgBox CreateObject("Shell.Application").Namespace(&H35).Self.Path
All Users\My Music
MsgBox CreateObject("Shell.Application").Namespace(&H36).Self.Path
All Users\My Pictures
MsgBox CreateObject("Shell.Application").Namespace(&H37).Self.Path
All Users\My Video
MsgBox CreateObject("Shell.Application").Namespace(&H38).Self.Path
Resource Direcotry
MsgBox CreateObject("Shell.Application").Namespace(&H39).Self.Path
Localized Resource Direcotry
MsgBox CreateObject("Shell.Application").Namespace(&H3A).Self.Path
Links to All Users OEM specific apps
MsgBox CreateObject("Shell.Application").Namespace(&H3B).Self.Path
USERPROFILE\Local Settings\Application Data\Microsoft\CD Burning
MsgBox CreateObject("Shell.Application").Namespace(&H3D).Self.Path
Computers Near Me (computered from Workgroup membership)
组合命令&H8000
combine with CSIDL_ value to force folder creation in SHGetFolderPath()
组合命令&H4000
combine with CSIDL_ value to return an unverified folder path
组合命令&H1000
combine with CSIDL_ value to insure non-alias versions of the pidl
组合命令&H800
combine with CSIDL_ value to indicate per-user init (eg. upgrade)
组合命令&HFF00
mask for all possible flag values
3、代码：
网页源文件=取网页源码("http://bbs.anjian.com/forum.php")
TracePrint 网页源文件
Function 取网页源码(URL)
Set objXML=CreateObject("Microsoft.XMLHTTP")
objXML.Open "Get", Url, False
objXML.send
If objXML.readyState=4 then
取网页源码 =objXML.ResponseText
End If
objXML.Abort
Set objXML = Nothing
End Function
4、代码解析：
objXML.Open "Get", Url, False
XMLHTTP对象的Open方法，它的参数是这样的 bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword 一共五个参数：
bstrMethod： 数据传送方式，即GET或POST。我们要获取数据，所以使用GET方式。
bstrUrl： 服务网页的URL。
varAsync： 是否同步执行。缺省为True，即异步执行。False，即同步执行。我们选择False，同步执行，意思就是：发送完要获取网页源文件的指令之后，等待返回值，等值返回了才执行下一句代码。
bstrUser： 用户名，可省略。
bstrPassword：用户口令，可省略。
If objXML.readyState=4 then
XMLHTTP对象的readystate属性，它的值是0-4：
0 ：Response对象已经创建，但XML文档上载过程尚未结束
1 ：XML文档已经装载完毕
2 ：XML文档已经装载完毕，正在处理中
3 ：部分XML文档已经解析
4 ：文档已经解析完毕，客户端可以接受返回消息
5、药方二
使用按键自带的web网页插件的save命令保存网页源文件。
代码：
call Plugin.Web.Bind("wqm.exe")//绑定wqm
Call Plugin.Web.Save("http://bbs.anjian.com/forum.php", "C:\1.txt") //保存网页源文件到c盘下的1.txt文本中
RunApp "C:\1.txt"
注意：此方法有个缺点，那就是，运行过程中会弹出wqm窗口。
6、药方三
懒人插件、365插件都有读取网页源文件的命令，小编这里用365插件的GetWebText 命令做个例子。
使用方法：1、下载365插件2、解压之后将：Mini365.dll 这个文件放到按键精灵安卓目录下的plugin文件夹中 Plugin.Mini365.GetWebText URL,Mode GetWebText命令有两个参数：网址（URL）和 网页编码（Mode） 网页编码常见的是：GB2312和UTF-8 如何得知网页的编码是哪种呢？
我们打开网页，按下F12调出网页代码分析器，绿色圈圈里的那个GBK就是当前网页的编码：
7、代码：
网页源文件= Plugin.Mini365.GetWebText ("http://bbs.anjian.com/forum.php", "GBk")
TracePrint 网页源文件