GitHub - weolar/miniblink49: a lighter, faster browser kernel of blink to integrate HTML UI in your app. A small, lightweight browser kernel to replace wke和libcef https://github.com/weolar/miniblink49
Private Sub Command4_Click()
SBrowser1.RunJs "document.getElementById(""name1"").value='abc123'"
MsgBox "check"
SBrowser1.RunJs "document.getElementById(""submit1"").click()"
MsgBox "Web Form Value=" & SBrowser1.RunJs("return document.getElementById(""name1"").value")
End Sub
Carefully packaged, easy to call code：
Code:
Function GetValueByid(ID As String) As String
GetValueByid = SBrowser1.RunJs("return document.getElementById(""" & ID & """).value")
End Function
Function ClickWebID(ID As String) As String
ClickWebID = SBrowser1.RunJs("document.getElementById('" & ID & "').click();return 'ok'")
End Function
Function SetValueByid(ID As String, Value As String) As String
SetValueByid = SBrowser1.RunJs("document.getElementById('" & ID & "').value='" & Value & "' ;return 'ok'")
End Function
Private Sub Command5_Click()
MsgBox "GetValueByid result=" & GetValueByid("name1")
MsgBox "SetValueByid result=" & SetValueByid("name1", "abc123")
'MsgBox "ClickWebID result=" & ClickWebID("submit1")
MsgBox "ClickWebID('submit1') result=" & ClickWebID("submit1")
MsgBox "ClickWebID('submit2') result=" & ClickWebID("submit2")
End Sub
HTM CODE FOR TEST:
NEED SAVE HTM FILE WITH UTF8 FORMAT (<meta charset="UTF-8">)
Sub Form1_WM_Create(hWndForm As hWnd ,UserData As Integer) '完成创建窗口及所有的控件后，此时窗口还未显示。注：自定义消息里 WM_Create 此时还未创建控件和初始赋值。
wkeJsBindFunction("eMsg" ,@OnMsg ,null ,5)
wkeJsBindFunction("eShellExec" ,@OnShellExec ,NULL ,3)
Miniblink1.LoadFile(App.Path & "view\index.html")
End Sub
Sub Form1_WM_Size(hWndForm As hWnd ,fwSizeType As Long ,nWidth As Long ,nHeight As Long) '窗口已经改变了大小
'fwSizeType = SIZE_MAXHIDE SIZE_MAXIMIZED SIZE_MAXSHOW SIZE_MINIMIZED SIZE_RESTORED
'' 其他窗口最大化 窗口已最大化 其他窗口恢复 窗口已最小化 窗口已调整大小
'nWidth nHeight 是客户区大小，不是全部窗口大小。
if fwSizeType = SIZE_MINIMIZED Then Return
'xxx.Move AfxScaleX(5), AfxScaleY(5), nWidth - AfxScaleX(10), nHeight - AfxScaleY(30)
Miniblink1.Move 0 ,0 ,nWidth ,nHeight
End Sub
Function onMsg cdecl(es As jsExecState ,param As Any Ptr) as jsValue
'注意，必须加 cdecl ，这是 Miniblink调用约定
dim argCount As Integer = jsArgCount(es)
if argCount < 1 Then return jsUndefined()
Dim ntype As jsType = jsArgType(es ,0)
if ntype <> JSTYPE_STRING Then return jsUndefined()
Dim arg0 As jsValue = jsArg(es ,0)
Dim msgOutput As String = "eMsg:"
Dim nmsg As String = *jsToTempString(es ,arg0)
msgOutput = msgOutput + nmsg
PrintA msgOutput
Select Case nmsg
Case "close"
Me.Close
Case "max"
Me.WindowState = 2 '最大化
Case "min"
Me.WindowState = 1 '最小化
End Select
return jsUndefined()
End Function
Function onShellExec cdecl(es As jsExecState,param As Any Ptr) as jsValue
'注意，必须加 cdecl ，这是 Miniblink调用约定
if jsArgCount(es) = 0 Then return jsUndefined()
Dim arg0 As jsValue = jsArg(es ,0)
if jsIsString(arg0) = 0 Then return jsUndefined()
Dim path As String = *jsToTempStringW(es, arg0)
if path = "runEchars" Then
' createECharsTest()
ElseIf path = "wkeBrowser" Then
' wkeBrowserMain(nullptr, nullptr, nullptr, TRUE)
End if
PrintA path
return jsUndefined()
End Function
Last edited by xiaoyao; Mar 10th, 2021 at 06:47 AM.
1，make ocx from SBrowser_G.vbp
2,test vb6 project
COPY SBrowser_G_202.ocx TO HERE
COPY node.dll TO HERE
Forward: The story behind Miniblink
Chief browser architecture bragger, the world's smallest chromium kernel-author of miniblink
Miniblink is my hard work for 3 years, taking advantage of nothing to do during the Chinese New Year, I turned out a PPT I wrote before. It roughly talks about the origin and architecture of miniblink.
Another point to mention is that the latest code of miniblink is gradually not open source (but if there are bugs, it will still be merged into the open source branch). Don't spray me, I have been open source and have been committing code every day for two years. Suddenly making this decision last year, I also feel very uncomfortable. There are two main reasons. One is that there is a forum that changed my code or even the official website a few words and turned it into his result, which was very uncomfortable. The second point, the key is, I found that the open source code is produced by many hui, squeezing wool, directly used for modification, and then used for illegal purposes. Even people from Baidu came to me and asked if I did this...Of course, the guy who asked was a colleague of my colleague, not to warn me.
Based on the above two points, especially the second point, I dare not open source. A small, single-file, single-process browser kernel. At first, I just wanted to do the interface and the work related to browsing some web pages. For example, for OA systems, industrial controls and other more formal uses. But I didn’t expect to be able to produce a lot of tricks produced in Hui...
The good news is that the code for the Android version of miniblink has now been written, and it has to be adapted to more models.
My plan is to move electron to the mobile terminal. Electron has not supported mobile all the time, which I have to say is a big pity. If minibink can make up for this shortcoming, I think what the swollen swollen who sprays electron every day will say, clam.
However, on Apple, due to policy restrictions, only v8 without jit. The performance problem is estimated to be large. It is said that only 50% of the original. In this area, I want to study if there is a way to compile js directly into bin. If it does happen, then the web app will explode.
Last edited by xiaoyao; Mar 10th, 2021 at 06:54 AM.
i cant run it, everything in Chinese
even i changed files names from Chinese to English but failed
anyone can send English copy here in archive?
Code:
Private WithEvents mb_callback As MiniblinkCallBack
Private mb_api As New MiniblinkAPI
Private mb As Long
Private Sub Command1_Click()
LOADWEB1
End Sub
Private Sub Form_Load()
'COPY SBrowser_G_202.ocx TO HERE
'COPY node.dll TO HERE
Set mb_callback = New MiniblinkCallBack
End Sub
Private Sub Command2_Click()
'ADD OCX TO FORM1 (SBrowser1),SET Visible=FALSE ON LOAD
SBrowser1.Visible = True
SBrowser1.LoadURL "http://www.baidu.com"
End Sub
Sub LOADWEB1()
Me.ScaleMode = 3
mb_api.wkeInitializeEx 0
mb_api.wkeJsBindFunction "test", mb_callback.wkeJsNativeFunction, 0, 2 'js回调事件绑定（影响所有webview和webwindow）
mb = mb_api.wkeCreateWebWindow(2, Me.hWnd, 0, 0, Me.ScaleWidth, Me.ScaleHeight)
MsgBox "mb=" & mb
mb_api.wkeShowWindow mb, True
mb_api.wkeOnLoadUrlBegin mb, mb_callback.wkeLoadUrlBeginCallback, 0 'url加载事件绑定
mb_api.wkeOnCreateView mb, mb_callback.wkeCreateViewCallback, 0 '创建新窗口事件绑定
mb_api.wkeOnDownload mb, mb_callback.wkeDownloadCallback, 0 '下载事件绑定
mb_api.wkeLoadURL mb, "http://www.baidu.com"
End Sub
Private Sub mb_callback_wkeCreateViewCallback(ByVal webView As Long, ByVal param As Long, ByVal navigationType As SBrowser_G_202.wkeNavigationType, ByVal url As String, windowFeatures As SBrowser_G_202.wkeWindowFeatures)
Debug.Print "Event_wkeCreateViewCallback"
mb_callback.Return_wkeCreateViewCallback = webView '使用原webview加载
End Sub
'Private Sub mb_callback_wkeCreateViewCallback(ByVal webView As Long, ByVal param As Long, ByVal navigationType As SBrowser_G.wkeNavigationType, ByVal url As String, windowFeatures As SBrowser_G.wkeWindowFeatures)
' Debug.Print "触发了wkeCreateViewCallback"
' mb_callback.Return_wkeCreateViewCallback = webView '使用原webview加载
'End Sub
Private Sub mb_callback_wkeDownloadCallback(ByVal webView As Long, ByVal param As Long, ByVal url As String)
Debug.Print "downLoad event：" & url
'Debug.Print "触发了下载事件，下载地址：" & url
End Sub
Private Sub mb_callback_wkeJsNativeFunction(ByVal es As Long, ByVal param As Long)
Dim tret1 As Currency, tret2 As Currency
tret1 = mb_api.jsArg(es, 0)
tret2 = mb_api.jsArg(es, 1)
MsgBox mb_api.jsToTempStringW(es, tret1) & "/" & mb_api.jsToTempStringW(es, tret2)
End Sub
Private Sub mb_callback_wkeLoadUrlBeginCallback(ByVal webView As Long, ByVal param As Long, ByVal url As String, ByVal job As Long)
Debug.Print url
End Sub
Private Sub T1_Click()
mb_api.wkeRunJSW mb, "window.test('xcv','abc123');"
'mb_api.wkeRunJSW mb, "window.test('xcv','hj自行车5gj');"
End Sub
Hi,
the project is very interesting. It only works here in the Exe (W7-64), in the IDE does not work. I also tested JavaScript with Sencha ExtJS, all ok.
Greeting W. Wolf
Hi,
the project is very interesting. It only works here in the Exe (W7-64), in the IDE does not work. I also tested JavaScript with Sencha ExtJS, all ok.
Greeting W. Wolf
maybe you need Recompile and generate controls （SBrowser_G_202.ocx）,and run in ide
you can put SBrowser_G_202.ocx ，node.dll，Ocx_test.vbp,and exe together in same path
Last edited by xiaoyao; Mar 9th, 2021 at 11:09 AM.
maybe you need Recompile and generate controls （SBrowser_G_202.ocx）,and run in ide
you can put SBrowser_G_202.ocx ，node.dll，Ocx_test.vbp,and exe together in same path
how to get fill a form inside your browser?
i tried:
SBrowser1.Document.GetElementById("userName").Value = "user123"
SBrowser1.Document.GetElementById("continue").Click
but it does not work
In American restaurants, waiters serve food, help you open the door and charge a tip. This is something that has never happened in China.
Others need your service, and indicate how much you will pay, and ask you to help him work. This is not a tip, but a task, a temporary job.
In some other people’s posts, I replied to questions with the same keywords, such as the CDECL API call. I did not make a cent from it, but instead spent several thousand yuan in costs. Just want to study this technology thoroughly, I also searched and learned more than 10 related methods. Some are too slow, and some have too much code. I just think that purely binding with a VB function is the fastest and most convenient way to run.
Private Sub Command4_Click()
SBrowser1.RunJs "document.getElementById(""name1"").value='abc123'"
MsgBox "check"
SBrowser1.RunJs "document.getElementById(""submit1"").click()"
MsgBox "Web Form Value=" & SBrowser1.RunJs("return document.getElementById(""name1"").value")
End Sub
Carefully packaged, easy to call code：
Code:
Function GetValueByid(ID As String) As String
GetValueByid = SBrowser1.RunJs("return document.getElementById(""" & ID & """).value")
End Function
Function ClickWebID(ID As String) As String
ClickWebID = SBrowser1.RunJs("document.getElementById('" & ID & "').click();return 'ok'")
End Function
Function SetValueByid(ID As String, Value As String) As String
SetValueByid = SBrowser1.RunJs("document.getElementById('" & ID & "').value='" & Value & "' ;return 'ok'")
End Function
Private Sub Command5_Click()
MsgBox "GetValueByid result=" & GetValueByid("name1")
MsgBox "SetValueByid result=" & SetValueByid("name1", "abc123")
'MsgBox "ClickWebID result=" & ClickWebID("submit1")
MsgBox "ClickWebID('submit1') result=" & ClickWebID("submit1")
MsgBox "ClickWebID('submit2') result=" & ClickWebID("submit2")
End Sub
HTM CODE FOR TEST:
NEED SAVE HTM FILE WITH UTF8 FORMAT (<meta charset="UTF-8">)
In some other people’s posts, I replied to questions with the same keywords, such as the CDECL API call. I did not make a cent from it, but instead spent several thousand yuan in costs.
Most of the community publishes their work here for free without receiving a cent for it.
Most of the community publishes their work here for free without receiving a cent for it.
The free lunch is of course the best. But there are some things that no one can help you with when you spend money. I have been asking the question of cdecl for several months, and your method is considered the most convenient. Call cdecl api (function address, parameter 1, parameter 2, additional extra parameters), the other is your vb6 plug-in add-in, which is the most perfect, I am afraid that there will be BUG instability, memory CPU and so on.
The way I am binding fixcdecl_ to the vb function is to refer to your design and make improvements (the disadvantage is that each function needs to be added with a balanced stack parameter). But it is not stable in the IDE. It must be fully compiled and run. If the code is changed a few lines, it will run wrong, so I added the method of using UseCallWindowProc to call the cdecl function with any number of parameters in the IDE.
A Chinese friend of mine used to pay him, and he developed a method for me that does not require extra parameters. Unfortunately, this code was lost last year.
He helped me develop it, and I want to pay him another money to help me develop it again, but unfortunately he can't develop it.
Sometimes the money can't be solved, that's the biggest headache.
if i pay 50$,can you help me?
asm for any call cdecl,stdcall.like this
cdecl api :add(a,b)
vbcode :
function vb_add(byval a as long,byval b as long ) as long
'writeprocessmemory asm code
end function
Last edited by xiaoyao; Mar 10th, 2021 at 06:26 AM.
Private Sub Command4_Click()
SBrowser1.RunJs "document.getElementById(""name1"").value='abc123'"
MsgBox "check"
SBrowser1.RunJs "document.getElementById(""submit1"").click()"
MsgBox "Web Form Value=" & SBrowser1.RunJs("return document.getElementById(""name1"").value")
End Sub
Carefully packaged, easy to call code：
Code:
Function GetValueByid(ID As String) As String
GetValueByid = SBrowser1.RunJs("return document.getElementById(""" & ID & """).value")
End Function
Function ClickWebID(ID As String) As String
ClickWebID = SBrowser1.RunJs("document.getElementById('" & ID & "').click();return 'ok'")
End Function
Function SetValueByid(ID As String, Value As String) As String
SetValueByid = SBrowser1.RunJs("document.getElementById('" & ID & "').value='" & Value & "' ;return 'ok'")
End Function
Private Sub Command5_Click()
MsgBox "GetValueByid result=" & GetValueByid("name1")
MsgBox "SetValueByid result=" & SetValueByid("name1", "abc123")
'MsgBox "ClickWebID result=" & ClickWebID("submit1")
MsgBox "ClickWebID('submit1') result=" & ClickWebID("submit1")
MsgBox "ClickWebID('submit2') result=" & ClickWebID("submit2")
End Sub
i have a problem
i copied your code and tested it
but it does not validate the input
i had to click on button to fill form, wait for form the show error: fields not filled, and then i click button to fill form
how to fix this ?
fix it, and i will pay double $100
i have a problem
i copied your code and tested it
but it does not validate the input
i had to click on button to fill form, wait for form the show error: fields not filled, and then i click button to fill form
how to fix this ?
I TEST FOR THIS,IT'S SUCCESSFULL
Code:
COMMAND_CLICK()
SBrowser1.LoadURL App.Path & "\input_TestWebForm.htm"
'NEED SAVE HTM FILE WITH UTF8 FORMAT (<meta charset="UTF-8">)
COMMAND_CLICK()
SBrowser1.RunJs "document.getElementById(""name1"").value='abc123'"
MsgBox "check"
SBrowser1.RunJs "document.getElementById(""submit1"").click()"
MsgBox "Web Form Value=" & SBrowser1.RunJs("return document.getElementById(""name1"").value")
GitHub - weolar/miniblink49: a lighter, faster browser kernel of blink to integrate HTML UI in your app. A small, lightweight browser kernel to replace wke和libcef https://github.com/weolar/miniblink49
Private Sub Command4_Click()
SBrowser1.RunJs "document.getElementById(""name1"").value='abc123'"
MsgBox "check"
SBrowser1.RunJs "document.getElementById(""submit1"").click()"
MsgBox "Web Form Value=" & SBrowser1.RunJs("return document.getElementById(""name1"").value")
End Sub
Carefully packaged, easy to call code：
Code:
Function GetValueByid(ID As String) As String
GetValueByid = SBrowser1.RunJs("return document.getElementById(""" & ID & """).value")
End Function
Function ClickWebID(ID As String) As String
ClickWebID = SBrowser1.RunJs("document.getElementById('" & ID & "').click();return 'ok'")
End Function
Function SetValueByid(ID As String, Value As String) As String
SetValueByid = SBrowser1.RunJs("document.getElementById('" & ID & "').value='" & Value & "' ;return 'ok'")
End Function
Private Sub Command5_Click()
MsgBox "GetValueByid result=" & GetValueByid("name1")
MsgBox "SetValueByid result=" & SetValueByid("name1", "abc123")
'MsgBox "ClickWebID result=" & ClickWebID("submit1")
MsgBox "ClickWebID('submit1') result=" & ClickWebID("submit1")
MsgBox "ClickWebID('submit2') result=" & ClickWebID("submit2")
End Sub
HTM CODE FOR TEST:
NEED SAVE HTM FILE WITH UTF8 FORMAT (<meta charset="UTF-8">)
Chrome OCX,Miniblink,VB6 chromium,Chrome core only one dll
miniblinkx_ocx.zip
Originally Posted by xiaoyao
