【HSP3】HSPからIHTMLDocument(HTMLパーサー)を使ってみる | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
#define IID_IHTMLDocument "{626FC520-A41E-11CF-A731-00A0C9082637}"
#define IID_IHTMLDocument2 "{332C4425-26CB-11D0-B483-00C04FD90119}"
#define IID_IHTMLDocument3 "{3050f485-98b5-11cf-bb82-00aa00bdce0b}"
#define IID_IHTMLDocument4 "{3050f69a-98b5-11cf-bb82-00aa00bdce0b}"
#define CLSID_HTMLDocument "{25336920-03F9-11CF-8FD0-00AA00686F13}"
#usecom IHTMLDocument IID_IHTMLDocument CLSID_HTMLDocument
#usecom IHTMLDocument2 IID_IHTMLDocument2 CLSID_HTMLDocument
#usecom IHTMLDocument3 IID_IHTMLDocument3 CLSID_HTMLDocument
#usecom IHTMLDocument4 IID_IHTMLDocument4 CLSID_HTMLDocument
#comfunc IHTMLDocument4_createDocumentFromUrl 8 int, int, int
#uselib "urlmon"
#func CreateURLMoniker "CreateURLMoniker" int, wstr, int
#uselib "ole32"
#func CreateBindCtx "CreateBindCtx" int, int
#define IID_IMoniker "{0000000f-0000-0000-C000-000000000046}"
#define IID_IBindCtx "{0000000e-0000-0000-C000-000000000046}"
#define IID_IPersistMoniker "{79eac9c9-baf9-11ce-8c82-00aa004ba90b}"
#define STGM_READ 0x00000000
#define STGM_READWRITE 0x00000002
#usecom IPersistMoniker IID_IPersistMoniker
#comfunc IPersistMoniker_Load 5 int, int, int, int
#comfunc IPersistMoniker_Release 2
#usecom IMoniker IID_IMoniker
#comfunc IMoniker_Release 2
#usecom IBindCtx IID_IBindCtx
#comfunc IBindCtx_Release 2
    // http://eternalwindows.jp/browser/mshtml/mshtml01.html
    
    url = "http://hsp.tv/"
    
    newcom pDoc, IHTMLDocument2
    
    ppMoniker = 0
    CreateURLMoniker 0, url, varptr(ppMoniker)
    newcom pMoniker, IID_IMoniker, -1, ppMoniker
    
    ppBindCtx = 0
    CreateBindCtx 0, varptr(ppBindCtx)
    newcom pBindCtx, IID_IBindCtx, -1, ppBindCtx
    
    querycom pPersistMoniker, pDoc, IPersistMoniker
    IPersistMoniker_Load pPersistMoniker, 0, ppMoniker, ppBindCtx, STGM_READWRITE
    delcom pPersistMoniker
    delcom pBindCtx
    delcom pMoniker
    
    // 準備が完了するまで待つ
    repeat 
        if pDoc("readyState") == "complete" : break
        wait 10
    loop
    
    pBody = pDoc("body")
    mes pBody("innerHTML")
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX