VisualFreeBasic控件_Miniblink 小型谷歌浏览器

勇芳

2026-1-21 / 0 评论 / 63 阅读

01/21

一个标准谷歌浏览器，需要几百MB的附带文件，而这个只附带一个DLL，才 30MB 大小。
我们知道IE浏览器不支持现代浏览器特征，尤其很多CSS、JS 代码无法使用。而这个简化版可以支持大多数现代浏览器特征。唯一缺点，就是需要跟随一个 DLL文件，发行软件时，必须带上这个DLL才可以。

编译软件后，在EXE文件同文件夹下，会有一个相关DLL。

显示网页

设置网址

Miniblink1.URL ="http://www.yfvb.com"

本地网页

Miniblink1.LoadFile("X:\index.html")

直接设置网页代码

   Dim bb As String
   bb = "<html>" & vbCrLf & _
      "   <head>" & vbCrLf & _
      "   <title>网页标题 </title>" & vbCrLf & _
      "   <body>"       & vbCrLf & _
      "    网页显示内容" & vbCrLf & _
      "   </body>"      & vbCrLf & _
      "</html>"      & vbCrLf & _
      Miniblink1.LoadHTML(bb)  '显示此内容

让网页执行JS代码

可以让浏览器执行JS代码，实现软件和浏览器交互。

Miniblink1.RunJS("这里是JS的代码")

响应浏览器操作

比方，浏览器里有一个按钮，点击按钮，这里可以获取到按钮点击。网页中按钮代码为

<a href="按钮1" target="_blank">按钮文字</a>

事件中：

Function Form1_Miniblink1_CreateView(hWndForm As hWnd, hWndControl As hWnd,WebView As wkeWebView,navigationType As Integer,url As CWSTR,windowFeatures as wkeWindowFeatures)As wkeWebView

    Function = WebView
End Function

浏览器的功能非常多，我只是稍微知道一点皮毛，里面的事件和属性非常多，需要更深入的，只能自己研究了。