按键精灵开发教程：获取特殊文件夹路径

获取方法

命令代码命令说明MsgBox  CreateObject('Shell.Application').Namespace(&H0).Self.Path“桌面”的桌面图标MsgBox  CreateObject('Shell.Application').Namespace(&H1).Self.PathIE浏览器的桌面图标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.Pathlogical'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.Pathnon localized startup  MsgBox  CreateObject('Shell.Application').Namespace(&H1E).Self.Pathnon 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.PathIE的“历史记录”文件夹MsgBox  CreateObject('Shell.Application').Namespace(&H23).Self.Path所有用户的“应用数据”文件夹MsgBox  CreateObject('Shell.Application').Namespace(&H24).Self.Path系统中的Windows目录MsgBox  CreateObject('Shell.Application').Namespace(&H25).Self.PathWINDOWS系统的“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.Pathx86 system directory on RISC  MsgBox  CreateObject('Shell.Application').Namespace(&H2A).Self.Pathx86 C:\Program Files on RISC  MsgBox  CreateObject('Shell.Application').Namespace(&H2B).Self.Path系统程序共用组件文件夹MsgBox  CreateObject('Shell.Application').Namespace(&H2C).Self.Pathx86 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.PathNetwork and Dial-up Connections  MsgBox  CreateObject('Shell.Application').Namespace(&H35).Self.PathAll Users\My MusicMsgBox  CreateObject('Shell.Application').Namespace(&H36).Self.PathAll Users\My PicturesMsgBox  CreateObject('Shell.Application').Namespace(&H37).Self.PathAll Users\My VideoMsgBox  CreateObject('Shell.Application').Namespace(&H38).Self.PathResource DirecotryMsgBox  CreateObject('Shell.Application').Namespace(&H39).Self.PathLocalized Resource DirecotryMsgBox  CreateObject('Shell.Application').Namespace(&H3A).Self.PathLinks to All Users OEM specific appsMsgBox  CreateObject('Shell.Application').Namespace(&H3B).Self.PathUSERPROFILE\Local Settings\Application Data\Microsoft\CD  BurningMsgBox  CreateObject('Shell.Application').Namespace(&H3D).Self.PathComputers Near Me (computered from Workgroup membership)组合命令&H8000combine with CSIDL_ value to force folder creation in  SHGetFolderPath()组合命令&H4000combine with CSIDL_ value to return an unverified folder path组合命令&H1000combine with CSIDL_ value to insure non-alias versions of the  pidl组合命令&H800combine with CSIDL_ value to indicate per-user init (eg.  upgrade)组合命令&HFF00mask for all possible flag values

代码：网页源文件=取网页源码('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 = NothingEnd Function

代码解析： 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 thenXMLHTTP对象的readystate属性，它的值是0-4：    0 　：Response对象已经创建，但XML文档上载过程尚未结束   1 　：XML文档已经装载完毕   2 　：XML文档已经装载完毕，正在处理中   3 　：部分XML文档已经解析   4 　：文档已经解析完毕，客户端可以接受返回消息

药方二使用按键自带的web网页插件的save命令保存网页源文件。 代码：call Plugin.Web.Bind('wqm.exe')//绑定wqmCall Plugin.Web.Save('http://bbs.anjian.com/forum.php', 'C:\1.txt') //保存网页源文件到c盘下的1.txt文本中RunApp 'C:\1.txt' 注意：此方法有个缺点，那就是，运行过程中会弹出wqm窗口。

药方三懒人插件、365插件都有读取网页源文件的命令，小编这里用365插件的GetWebText 命令做个例子。使用方法：1、下载365插件2、解压之后将：Mini365.dll  这个文件放到按键精灵安卓目录下的plugin文件夹中        Plugin.Mini365.GetWebText URL,Mode     GetWebText命令有两个参数：网址（URL）和 网页编码（Mode）     网页编码常见的是：GB2312和UTF-8    如何得知网页的编码是哪种呢？我们打开网页，按下F12调出网页代码分析器，绿色圈圈里的那个GBK就是当前网页的编码：

代码：网页源文件= Plugin.Mini365.GetWebText ('http://bbs.anjian.com/forum.php', 'GBk')TracePrint 网页源文件