| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 主程序集 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _启动子程序 | 整数型 | 请在本子程序中放置易模块初始化代码 | |||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| a | 对象 | |||||
| lHwnd | ||||||
| IID | 字节集 | |||||
| Guid | GUID | |||||
' HRESULT hr = ShellWindow.CoCreateInstance(CLSID_ShellWindows);
' if (FAILED(hr)) return false;
a.创建 (“{9BA05972-F6A8-11CF-A442-00A0C90A8F39}”, )
' CLSID_ShellWindows是{9BA05972-F6A8-11CF-A442-00A0C90A8F39}，下面的网址有
' https://msdn.microsoft.com/en-us/library/windows/desktop/cc836570(v=vs.85).aspx
' a.查看 () ' IShellWindows对象可以查看，没有问题
' CComVariant varloc(0);
' CComVariant varlocroot(0);
' CComPtr pdisp;
' long lHwnd = 0;
' int nOptions = SWFO_NEEDDISPATCH;
' hr = ShellWindow->FindWindowSW(&varloc, &varlocroot, 8, &lHwnd, nOptions, &pdisp);
' if (FAILED(hr)) return false;
a ＝ a.对象型方法 (“FindWindowSW”, 0, 0, 8, lHwnd, 1) ' SWFO_NEEDDISPATCH为8
' a.查看 () ' 可以查看，对象类型为IWebBrowser2
' IID_IWebBrowserApp = new Guid("0002DF05-0000-0000-C000-000000000046");
' CComPtr BrowserApp;
' hr = pdisp->QueryInterface(IID_IWebBrowserApp, (void**)&BrowserApp);
' if (FAILED(hr)) return false;
' IWebBrowser2取代了IWebBrowserApp接口
' IID_IServiceProvider = Guid("6D5140C1-7436-11CE-8034-00AA006009FA")
' CComPtr ServiceProvider;
' hr = BrowserApp->QueryInterface(IID_IServiceProvider, (void**)&ServiceProvider);
' if (FAILED(hr)) return false;
' 用IServiceProvider导航
API_CLSIDFromString (编码_Ansi到Unicode (“{6D5140C1-7436-11CE-8034-00AA006009FA}”), IID)
a.对象型方法 (“QueryInterface”, 取指针地址 (IID))
信息框 (a.取错误 (), 0, , ) ' 未找到指定成员
Guid ＝ 文本到GUID (“{6D5140C1-7436-11CE-8034-00AA006009FA}”)
a.对象型方法 (“QueryInterface”, 取指针地址 (IID))
信息框 (a.取错误 (), 0, , ) ' 未找到指定成员
a.查看 ()
' CComPtr ShellBrowser;
' hr = ServiceProvider->QueryService(SID_STopLevelBrowser, IID_IShellBrowser, (void**)&ShellBrowser);
' if (FAILED(hr)) return false;
' CComPtr ShellView;
' hr = ShellBrowser->QueryActiveShellView(&ShellView);
' if (FAILED(hr)) return false;
' pdisp.Release();
返回 (0) ' 可以根据您的需要返回任意数值
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 文本到GUID | GUID | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 文本 | 文本型 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| GUID | GUID | |||||
| 计次 | ||||||
文本 ＝ 子文本替换 (文本, “-”, “”, , , 真)
文本 ＝ 子文本替换 (文本, “}”, “”, , , 真)
GUID.Data1 ＝ 进制_十六到十 (取文本中间 (文本, 1, 8))
GUID.Data2 ＝ 进制_十六到十 (取文本中间 (文本, 9, 4))
GUID.Data3 ＝ 进制_十六到十 (取文本中间 (文本, 13, 4))
计次循环首 (8, 计次)
GUID.Data4 [计次] ＝ 进制_十六到十 (取文本中间 (文本, 15 ＋ 计次 × 2, 2))
计次循环尾 ()返回 (GUID)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 进制_十六到十 | 长整数型 | 将16进制文件转换到10进制数值(返回十进制数) | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 文本 | 文本型 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| i | 整数型 | |||||
| t | 文本型 | |||||
| 结果 | 长整数型 | |||||
| 局_文本 | 文本型 | |||||
局_文本 ＝ 到大写 (文本)
计次循环首 (取文本长度 (文本), i)结果 ＝ 结果 × 16 ＋ 寻找文本 (t, 取文本中间 (局_文本, i, 1), , 假) － 1计次循环尾 ()返回 (结果)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 编码_Ansi到Unicode | 字节集 | 将Ansi码转换为Unicode码；成功返回转换后的字节集； | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| Ansi | 文本型 | 欲转换的Ansi文本 | 非标准Unicode编码 | 逻辑型 | 默认为假，为标准Unicode编码 | ||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 数据2 | 字节集 | |||||
| 长度 | 整数型 | |||||
如果真 (Ansi ＝ “”)返回 ({ })长度 ＝ MultiByteToWideChar (936, 0, Ansi, -1, { }, 0)
数据2 ＝ 取空白字节集 (长度 × 2)
MultiByteToWideChar (936, 0, Ansi, -1, 数据2, 长度 × 2)
如果真 (非标准Unicode编码)数据2 ＝ 取字节集左边 (数据2, 取字节集长度 (数据2) － 2)返回 (数据2)
| i支持库列表 | 支持库注释 |
| shellEx | 扩展功能支持库一 |
