My English reading ability is not very good, so when using QM help, I often use Google Translate. Now I want to make a small tool to translate the current help page.
However, when I embed a Google Translate URL in a child window, it prompts for a website security certificate and cannot display Google Translate pages. How can I disable security certificate prompting?
Just discovered that Microsoft Online Translator can open URLs 
Custom right-click menu with two options
1.The first option is the function that will be implemented because my programming level is not good and no code has been added yet
2.The second option is to open Google Translate directly in a child window
I hope someone can help me improve this tool, let more people use this tool, translate help files to learn QM, Thanks in advance
Macro trans help
However, when I embed a Google Translate URL in a child window, it prompts for a website security certificate and cannot display Google Translate pages. How can I disable security certificate prompting?
Just discovered that Microsoft Online Translator can open URLs Custom right-click menu with two options
1.The first option is the function that will be implemented because my programming level is not good and no code has been added yet
2.The second option is to open Google Translate directly in a child window
I hope someone can help me improve this tool, let more people use this tool, translate help files to learn QM, Thanks in advance
Macro trans help
typelib ShockwaveFlashObjects {D27CDB6B-AE6D-11CF-96B8-444553540000} 1.0
str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 900 432 "Dialog"
;4 ActiveX 0x54030000 0x0 0 0 900 432 "SHDocVw.WebBrowser {8856F961-340A-11D0-A96B-00C04FD705A2}"
;END DIALOG
;DIALOG EDITOR: "" 0x2040700 "*" "" "" ""
str controls = "4"
str ax4SHD
if(!ShowDialog(dd &sub.DlgProc &controls)) ret
#sub DlgProc
function# hDlg message wParam lParam
sel message
,case WM_INITDIALOG
,SetTimer hDlg 1 100 0
,SHDocVw.WebBrowser we4
,we4._getcontrol(id(4 hDlg))
,we4._setevents("sub.we4")
,we4.Navigate("http://www.quickmacros.com/help/")
,case WM_TIMER
,sel wParam
,,case 1
,,int wies=child("" "Internet Explorer_Server" id(4 hDlg)); if(wies=0) ret
,,SetWindowSubclass(wies &sub.WndProc_Subclass 2 0)
,,KillTimer hDlg wParam
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1
#sub WndProc_Subclass
function# hwnd message wParam lParam uIdSubclass dwRefData
;OutWinMsg message wParam lParam ;;uncomment to see received messages
sel message
,case WM_RBUTTONDOWN
,str s=
,;1 Translate this page use google
,;2 Google Translate Website
,;-
,;3 Translate this page use Microsoft
,;4 Microsoft Translate Website
,MenuPopup x.AddItems(s)
,int i=x.Show
,sel i
,,case 1
,,_s=
,,F
,,;Copy the current page or Copy selected paragraph code
,,;then open the Google Translate in subwindow
,,;then paste the page content or selected paragraph code on the left side of the sub window
,,mes _s
,,case 2
,,sub.Dialog2(hwnd "https://translate.google.com/")
,,case 3
,,mes "Translate this page use Microsoft"
,,case 4
,,sub.Dialog2(hwnd "https://cn.bing.com/translator/")
,ret
int R=DefSubclassProc(hwnd message wParam lParam)
sel message
,case WM_NCDESTROY
,RemoveWindowSubclass(hwnd &sub.WndProc_Subclass uIdSubclass)
,
,;case ...
ret R
#sub we4_NewWindow3
function IDispatch&ppDisp @&Cancel dwFlags BSTR'bstrUrlContext BSTR'bstrUrl SHDocVw.IWebBrowser2'we3
int hDlg2=sub.Dialog2
SHDocVw.WebBrowser d2_we3._getcontrol(id(3 hDlg2))
ppDisp=d2_we3
#sub Dialog2
function# [hwndOwner] [~url]
str dd=
;BEGIN DIALOG
;0 "" 0x90CF0AC8 0x0 0 0 900 432 "Dialog2"
;3 ActiveX 0x54030000 0x0 0 0 900 432 "SHDocVw.WebBrowser {8856F961-340A-11D0-A96B-00C04FD705A2}"
;END DIALOG
;DIALOG EDITOR: "" 0x2040701 "*" "" "" ""
str controls = "3"
str ax3SHD
if(!empty(url))
,ax3SHD=url
ret ShowDialog(dd &sub.DlgProc2 &controls hwndOwner 1) ;;modeless dialog
#sub DlgProc2
function# hDlg message wParam lParam
int- t_hdlg
sel message
,case WM_INITDIALOG
,SHDocVw.WebBrowser we3
,we3._getcontrol(id(3 hDlg))
,we3._setevents("sub.we3")
,t_hdlg=hDlg
,DT_SetAutoSizeControls hDlg "3s"
,SetTimer hDlg 1 100 0
,case WM_TIMER
,sel wParam
,,case 1
,,int wies=child("" "Internet Explorer_Server" id(3 hDlg)); if(wies=0) ret
,,SetWindowSubclass(wies &sub.WndProc_Subclass 2 0)
,,KillTimer hDlg wParam
,case WM_DESTROY
,case WM_COMMAND goto messages2
,case WM_CLOSE
,DT_Ok(hDlg)
ret
;messages2
sel wParam
,case IDOK
,ifk(Y)
,,key Y ;; Enter
,,ret 0
,case IDCANCEL
,ret 0
ret 1
#sub we3_WindowClosing
function @IsChildWindow @&Cancel ;;SHDocVw.IWebBrowser2'we3
Cancel=1
int- t_hdlg
clo t_hdlg