PB中使用microsoft Web浏览器控件的一些定义及大体使用说明

 

PB中使用microsoft Web浏览器控件的一些定义及大体使用说明  
integer olecmdexecopt_dodefault
integer olecmdexecopt_promptuser=1
integer olecmdexecopt_dontpromptuser=2
integer olecmdexecopt_showhelp=3
integer olecmdid_open=1
integer olecmdid_new=2
integer olecmdid_save=3
integer olecmdid_saveas=4
integer olecmdid_savecopyas=5
integer olecmdid_print=6
integer olecmdid_printpreview=7
integer olecmdid_pagesetup=8
integer olecmdid_spell=9
integer olecmdid_properties=10
integer olecmdid_cut=11
integer olecmdid_copy=12
integer olecmdid_paste=13
integer olecmdid_pastespecial=14
integer olecmdid_undo=15
integer olecmdid_redo=16
integer olecmdid_selectall=17
integer olecmdid_clearselection=18
integer olecmdid_zoom=19
integer olecmdid_getzoomrange=20
integer olecmdid_updatecommands=21
integer olecmdid_refresh=22
integer olecmdid_stop=23
integer olecmdid_hidetoolbars=24
integer olecmdid_setprogressmax=25
integer olecmdid_setprogresspos=26
integer olecmdid_setprogresstext=27
integer olecmdid_settitle=28
integer olecmdid_setdownloadstate=29
integer olecmdid_stopdownload=30
integer olecmdid_ontoolbaractivated=31
integer olecmdid_find=32
integer olecmdid_delete=33
integer olecmdid_httpequiv=34
integer olecmdid_httpequiv_done=35
integer olecmdid_enable_interaction=36
integer olecmdid_οnunlοad=37
integer olecmdid_propertybag2=38
integer olecmdid_prerefresh=39

ole_1.object.Navigate( ls_http  )
//通过事件检测网页是否打开成功，然后继续下面的角本

ole_1.object.execwb(olecmdid_selectall,olecmdexecopt_promptuser,asstatement!)
ole_1.object.execwb(olecmdid_copy,olecmdexecopt_promptuser,asstatement!)
dw_3.reset( )
dw_3.importclipboard( )