05-19-2018, 12:21 AM
Still can't show content in webpages, only two buttons are displayed 
Macro Macro5
Macro Macro5
str dd=
;BEGIN DIALOG
;0 "" 0x90CF0AC8 0x0 0 0 374 232 "Dialog"
;3 ActiveX 0x54030000 0x0 0 0 374 232 "SHDocVw.WebBrowser {8856F961-340A-11D0-A96B-00C04FD705A2}"
;END DIALOG
;DIALOG EDITOR: "" 0x2040700 "*" "" "" ""
str controls = "3"
str ax3SHD
ax3SHD=
;<html>
;;;;<head>
;;;;;;;;<title>test</title>
;;;;;;;;<style type="text/css" media="screen">
;;;;;;;;;;;;html, body { height:100%;width:100% }
;;;;;;;;;;;;body { margin:0; padding:0; overflow:hidden; text-align:center;
;;;;;;;;;;;;;;;;;;;background-color: #ffffff; }
;;;;;;;;</style>
;;;;</head>
;;;;<body>
;;;;;;;;<button onclick="fullScreen()">Full screen</button>
;;;;;;;;<button onclick="exitScreen()">Exit Full Screen</button>
;;;;;;;;
;;;;;;;;<iframe style="width:100%;height:100%" src="http://fs.focusky.com.cn/jhgh/glyv/index.html" seamless="seamless" scrolling="no" frameborder="0" allowtransparency="true" allowfullscreen="true" ></iframe>
;;;;</body>
;
;;;;<script type="text/javascript">
;;;;;;;;//full screen
;;;;;;;;function fullScreen(){
;;;;;;;;;;;;var el = document.documentElement;
;;;;;;;;;;;;var rfs = el.requestFullScreen || el.webkitRequestFullScreen || el.mozRequestFullScreen || el.msRequestFullscreen;
;;;;;;;;;;;;;;;;if(typeof rfs != "undefined" && rfs) {
;;;;;;;;;;;;;;;;;;;;rfs.call(el);
;;;;;;;;;;;;;;;;};
;;;;;;;;;;;;;;return;
;;;;;;;;}
;;;;;;;;//Exit Full Screen
;;;;;;;;function exitScreen(){
;;;;;;;;;;;;if (document.exitFullscreen) {
;;;;;;;;;;;;;;;;document.exitFullscreen();
;;;;;;;;;;;;}
;;;;;;;;;;;;else if (document.mozCancelFullScreen) {
;;;;;;;;;;;;;;;;document.mozCancelFullScreen();
;;;;;;;;;;;;}
;;;;;;;;;;;;else if (document.webkitCancelFullScreen) {
;;;;;;;;;;;;;;;;document.webkitCancelFullScreen();
;;;;;;;;;;;;}
;;;;;;;;;;;;else if (document.msExitFullscreen) {
;;;;;;;;;;;;;;;;document.msExitFullscreen();
;;;;;;;;;;;;}
;;;;;;;;;;;;if(typeof cfs != "undefined" && cfs) {
;;;;;;;;;;;;;;;;cfs.call(el);
;;;;;;;;;;;;}
;;;;;;;;}
;
;;;;</script>
;</html>
WebBrowserControlDisableIE7Emulation
if(!ShowDialog(dd &sub.DlgProc &controls)) ret
#sub DlgProc
function# hDlg message wParam lParam
sel message
,case WM_INITDIALOG
,SHDocVw.WebBrowser we3
,we3._getcontrol(id(3 hDlg))
,DT_SetAutoSizeControls(hDlg "3s")
,max hDlg
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1
;BEGIN PROJECT
;main_function Macro5
;exe_file $my qm$\Macro5.exe
;icon <default>
;manifest $qm$\default.exe.manifest
;flags 6
;guid {DDF3C421-2C99-4686-99B5-02F5CD7E2DD3}
;END PROJECT