vba里运行miniblink

miniblink是一个开源的、单文件、且目前已知的最小的基于chromium的，浏览器控件。通过其导出的纯C接口，几行代码即可创建一个浏览器控件。
我扫了下下最新的mb132版本,粗略地看了下mb的头文件,看样子是stdcall调用约定,偷闲翻译了一个简单的小例子。测试了下在64位的excel上跑起来了。我这只是开个头,加载网页以及事件回调。给有这方面有需求的人一个小小的参考。下面的代码放在模块里即可,miniblink 132的dll文件和excel文件放一起即可。
Option Explicit' prepared by fxl447098457
'
#If Win64 Then
Private Declare PtrSafe Function mbInit Lib "mb132_x64.dll" (ByVal settings As LongPtr) As Long
Private Declare PtrSafe Function mbCreateWebWindow Lib "mb132_x64.dll" (ByVal windowType As Long, ByVal parent As LongPtr, ByVal X As Long, ByVal Y As Long, ByVal width As Long, ByVal height As Long) As LongPtr
Private Declare PtrSafe Function mbShowWindow Lib "mb132_x64.dll" (ByVal view As LongPtr, ByVal show As Long) As Long
Private Declare PtrSafe Function mbMoveToCenter Lib "mb132_x64.dll" (ByVal view As LongPtr) As Long
Private Declare PtrSafe Function mbLoadURL Lib "mb132_x64.dll" (ByVal view As LongPtr, ByVal url As String) As Long
'Private Declare PtrSafe Sub mbRunMessageLoop Lib "mb132_x64.dll" ()  ' Might block VBA
Private Declare PtrSafe Sub mbUninit Lib "mb132_x64.dll" ()
Private Declare PtrSafe Function mbOnDocumentReady Lib "mb132_x64.dll" (ByVal webView As LongPtr, ByVal callback As LongPtr, ByVal param As LongPtr) As Long
Private Declare PtrSafe Function mbIsMainFrame Lib "mb132_x64.dll" (ByVal webView As LongPtr, ByVal frameId As LongPtr) As Long
Private Declare PtrSafe Function mbRunJs Lib "mb132_x64.dll" (ByVal webView As LongPtr, ByVal frameId As LongPtr, ByVal script As String, ByVal isEval As Long, _ByVal callback As LongPtr, ByVal param As LongPtr, ByVal flags As Long) As Long
' Optional: For better control, declare mbDestroyWebWindow if needed
Private Declare PtrSafe Function mbDestroyWebWindow Lib "mb132_x64.dll" (ByVal view As LongPtr) As Long
#Else#If VBA7 = 0 Thenenum Longptr[_]End Enum#End If
Private Declare Function mbInit Lib "mb132_x32.dll" (ByVal settings As LongPtr) As Long
Private Declare Function mbCreateWebWindow Lib "mb132_x32.dll" (ByVal windowType As Long, ByVal parent As LongPtr, ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long) As LongPtr
Private Declare Function mbShowWindow Lib "mb132_x32.dll" (ByVal view As LongPtr, ByVal show As Long) As Long
Private Declare Function mbMoveToCenter Lib "mb132_x32.dll" (ByVal view As LongPtr) As Long
Private Declare Function mbLoadURL Lib "mb132_x32.dll" (ByVal view As LongPtr, ByVal url As String) As Long
'Private Declare sub mbRunMessageLoop Lib "mb132_x32.dll" ()  ' Might block VBA
Private Declare Sub mbUninit Lib "mb132_x32.dll" ()
Private Declare Function mbOnDocumentReady Lib "mb132_x32.dll" (ByVal webView As LongPtr, ByVal callback As LongPtr, ByVal param As LongPtr) As Long
Private Declare Function mbIsMainFrame Lib "mb132_x32.dll" (ByVal webView As LongPtr, ByVal frameId As LongPtr) As Long
Private Declare Function mbRunJs Lib "mb132_x32.dll" (ByVal webView As LongPtr, ByVal frameId As LongPtr, ByVal script As String, ByVal isEval As Long, _ByVal callback As LongPtr, ByVal param As LongPtr, ByVal flags As Long) As Long
' Optional: For better control, declare mbDestroyWebWindow if needed
Private Declare Function mbDestroyWebWindow Lib "mb132_x32.dll" (ByVal view As LongPtr) As Long
#End If' --- Define Constants ---
Private Const MB_WINDOW_TYPE_POPUP As Long = 1 ' Adjust if the actual value differs
Private Const MB_WINDOW_TYPE_CONTROL As Long = 3
' --- Main Subroutine ---Sub CreateMiniblinkWindow()Dim mbView As LongPtrDim result As LongDim url As StringChDrive ThisWorkbook.PathChDir ThisWorkbook.Path' --- 1. Initialize Miniblink (with NULL settings for defaults) ---' Pass 0 (NULL pointer) for settings. If you need specific settings,' passing a complex struct from VBA is significantly more complex.result = mbInit(0&)' --- 2. Create the Web Window ---' Parameters: Type, Parent (0 = no parent), X, Y, Width, HeightmbView = mbCreateWebWindow(MB_WINDOW_TYPE_CONTROL, 0, 0, 0, 800, 600)If mbView = 0 ThenMsgBox "Failed to create Miniblink window."mbUninit ' Clean upExit SubEnd If' --- 3. Show and Position the Window ---result = mbShowWindow(mbView, 1) ' 1 = TRUEIf result <> 0 ThenMsgBox "Failed to show Miniblink window. Error code: " & result' Consider calling mbDestroyWebWindow(mbView) and mbUninit here tooEnd Ifresult = mbMoveToCenter(mbView)' --- 4. Load the URL ---url = "https://miniblink.net/views/doc/index.html"' Note: mbLoadURL likely expects a null-terminated string.' VBA strings are usually compatible, but passing ByRef (default for strings)' or ByVal StrPtr(url) might be needed depending on the DLL's expectation.' Passing ByVal url directly is common.result = mbLoadURL(mbView, url)If result <> 0 Then' 设置 Document Ready 回调mbOnDocumentReady mbView, AddressOf OnDocumentReadyCallback, 0End If' --- 5. Message Loop ---' WARNING: mbRunMessageLoop is typically a blocking call that waits' for window messages. This will freeze the VBA editor/UI until' the miniblink window is closed externally or the loop exits somehow.' This might not be desirable in an interactive VBA environment.' Consider alternatives if responsiveness is needed.'mbRunMessageLoop' --- Alternative to mbRunMessageLoop (Basic) ---' VBA itself runs a message loop. Sometimes, just creating and showing' the window is enough for it to be interactive, depending on how' miniblink integrates. However, this is less reliable than a proper loop.' Leaving the Sub ends VBA's execution path, but the window might persist' if the DLL manages its own thread/window lifecycle.' A callback mechanism (like mbOnDestroy) is usually better for cleanup.' --- 6. Uninitialize (Ideally called when done) ---' Because mbRunMessageLoop blocks, this line usually won't execute' until the loop exits. If using an alternative approach,' you need a way to trigger this (e.g., via a callback or another macro).mbUninit
End Sub'evant callback'void MB_CALL_TYPE onDocumentReady(mbWebView webView, void* param, mbWebFrameHandle frameId)
'{
'    if (mbIsMainFrame(webView, frameId)) {
'        mbRunJs(webView, frameId, "alert(1);", true, nullptr, nullptr, nullptr);
'    }
'}'callback  mbOnDocumentReadySub OnDocumentReadyCallback(ByVal webView As LongPtr, ByVal param As LongPtr, ByVal frameId As LongPtr)Dim isMain As LongDim result As Long' check is mainframeisMain = mbIsMainFrame(webView, frameId)If isMain <> 0 Then ' mbIsMainFrame' ready to run JavaScript' param: webView, frameId, script, isEval (True), callback (null), callbackParam (null), flags (0)mbRunJs webView, frameId, "alert(1);", 1, 0, 0, 0End IfEnd Sub
运行结果：
资讯详情

相关新闻
