Internet Explorer Control Fails to Open Web Page

[win]

Hello,

I embed the IE browser control in the dialog box, open the URL can not display the web page, but directly in the IE browser, is displayed

Thanks in advance


Macro Macro5

Code:

Copy      Help

str dd=
;BEGIN DIALOG
;0 "" 0x90CF0AC8 0x0 0 0 402 238 "Dialog"
;3 ActiveX 0x54030000 0x0 0 0 402 238 "SHDocVw.WebBrowser {8856F961-340A-11D0-A96B-00C04FD705A2}"
;END DIALOG
;DIALOG EDITOR: "" 0x2040700 "*" "" "" ""

str controls = "3"
str ax3SHD
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))
,we3.Navigate("https://articulateusercontent.com/review/items/k_3vO8PdhOOAup9G/story.html")
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1

[Gintaras]

http://www.quickmacros.com/forum/showthr...p?tid=6437

[win]

Thank you,

Need to be compiled into exe can open 

Macro Macro5

Code:

Copy      Help

str dd=
;BEGIN DIALOG
;0 "" 0x90CF0AC8 0x0 0 0 402 238 "Dialog"
;3 ActiveX 0x54030000 0x0 0 0 402 238 "SHDocVw.WebBrowser {8856F961-340A-11D0-A96B-00C04FD705A2}"
;END DIALOG
;DIALOG EDITOR: "" 0x2040700 "*" "" "" ""

str controls = "3"
str ax3SHD
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))
,we3.Navigate("https://articulateusercontent.com/review/items/k_3vO8PdhOOAup9G/story.html")
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1