NSIS使用ie尝试打开一个url,nsis,ie,打开url,打开网址
文章转自王牌软件
站长推荐:NSetup一键部署软件
一键式完成美化安装包制作，自动增量升级，数据统计，数字签名。应对各种复杂场景，脚本模块化拆分，常规复杂的脚本代码，图形化设置。无需专业的研发经验，轻松完成项目部署。(www.nsetup.cn)
只回答业务咨询
站长推荐:NSetup一键部署软件
一键式完成美化安装包制作，自动增量升级，数据统计，数字签名。应对各种复杂场景，脚本模块化拆分，常规复杂的脚本代码，图形化设置。无需专业的研发经验，轻松完成项目部署。(www.nsetup.cn)
|
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 |
#使用ie尝试打开一个url !include "LogicLib.nsh" SetCompressor /SOLID lzma SetCompress force XPStyle on OutFile "Test.exe" !define VARIANT_TRUE -1 !define VT_ERROR 10 !define DISP_E_PARAMNOTFOUND 0x80020004 !define CLSCTX_LOCAL_SERVER 0x4 !define CLSID_InternetExplorer {0002DF01-0000-0000-C000-000000000046} !define IID_IWebBrowserApp {0002DF05-0000-0000-C000-000000000046} !define IWebBrowserApp.Navigate ->11(i,i,i,i,i)i !define IWebBrowserApp.put_Visible ->41(&i2)i Function InternetExplorerAuto_OpenURL exch $2 push $0 push $1 System::Call "ole32::CoCreateInstance( \ g '${CLSID_InternetExplorer}', i 0, \ i ${CLSCTX_LOCAL_SERVER}, \ g '${IID_IWebBrowserApp}', *i 0 r0)" ${If} $0 <> 0 System::Call "$0${IWebBrowserApp.put_Visible} (${VARIANT_TRUE}).r1" ${If} $1 = 0 System::Call "*(i ${VT_ERROR},i ${DISP_E_PARAMNOTFOUND},i)i.r1" System::Call 'Oleaut32::SysAllocString(w "$2")i.r2' System::Call "$0${IWebBrowserApp.Navigate} ($2,$1,$1,$1,$1)" System::Free $1 System::Call 'Oleaut32::SysFreeString(ir2)' ${EndIf} System::Call "$0->2()" ${EndIf} pop $1 pop $0 pop $2 FunctionEnd section push "http://WWW.pythonschool.com" call InternetExplorerAuto_OpenURL sectionend |
学习日记，兼职软件设计，软件修改，毕业设计。
本文出自 学习日记，转载时请注明出处及相应链接。
本文永久链接: https://www.softwareace.cn/?p=1248
