隐藏程序滚动条

.如果真 (hwnd ≠ 0)
SHwnd ＝ hwnd
.如果真 (取反 (IsIEServerWindow (SHwnd)))
API_EnumChildWindows (SHwnd, 到整数 (&EnumChildProc), 取变量数据地址 (SHwnd))
.如果真结束
lMsg ＝ API_RegisterWindowMessage (#WM_HTML_GETOBJECT)
API_SendMessageTimeout (SHwnd, lMsg, 0, 0, #SMTO_ABORTIFHUNG, 1000, lRes)
' IID_IHTMLDocument GUID:{626FC520-A41E-11CF-A731-00A0C9082637}
IID_IHTMLDocument.Data1 ＝ 1651492128
IID_IHTMLDocument.Data2 ＝ 42014
IID_IHTMLDocument.Data3 ＝ 4559
IID_IHTMLDocument.Data4 [1] ＝ 167
IID_IHTMLDocument.Data4 [2] ＝ 49
IID_IHTMLDocument.Data4 [3] ＝ 0
IID_IHTMLDocument.Data4 [4] ＝ 160
IID_IHTMLDocument.Data4 [5] ＝ 201
IID_IHTMLDocument.Data4 [6] ＝ 8
IID_IHTMLDocument.Data4 [7] ＝ 38
IID_IHTMLDocument.Data4 [8] ＝ 55
.如果真 (lRes ≠ 0)
hr ＝ API_ObjectFromLresult (lRes, IID_IHTMLDocument, 0, document)
.如果真结束
API_ZeroMemory (IID_IHTMLDocument, API_LocalSize (IID_IHTMLDocument))