VB.net中应用CefSharp.WinForms库构建Chrome核心浏览器的方法

作者:admin 日期:2022-09-06

　　在VB.net系列的项目开发中，往往需要使用到内嵌浏览器。一般来说，使用VB.net自带的WebBrowser控件能够满足大部分的要求。但是WebBrowser控件是基于IE浏览器内核，显然对HTML5、JavaScript等的支持体验较差，不能满足某些特殊的需求，如果要在VB.net项目中嵌入其它内核的浏览器该怎么做呢？

　　网上有一些基于C#的开源项目，可以方便的在C#编译环境下用于开发WinForm或WPF的应用程序，其实这些开源项目经过正确配置也可以用于VB.net项目开发应用程序。例如WebKit.Net，相当于Chrome浏览器的早期内核，使用方便，配置简单，缺点是已经很久没有更新，对较新的HTML5支持不好；还有Geckofx，基于FireFox的浏览器核心，对Html5的支持较好，但是配置较为繁琐，初学者很难在VB.net中安装成功；再如CefSharp，同WebKit.Net一样也是基于Chrome浏览器的内核，而且更新迅速，最新版本号为67，基本接近最新版Chrome浏览器的使用效果。但是CefSharp的最大缺点是它不提供WinForm可用的控件，网上可查到的也基本是C#环境的使用方法，完全没有在VB.net中进行配置的中文说明。即便是可查到的英文资料，也只有部分代码，没有完整的说明可参考。

　　为此，在查阅了大量的英文资料之后，我进行了多次尝试，终于将VB.net中如何应用CefSharp的方法搞明白。今天将其写成教程，方便广大VB.net拥趸使用CefSharp构建基于Chrome核心的浏览器应用，并且可以举一反三，将网上大量的C#开源项目应用到VB.net中来，以此证明VB.net并没有过时。

　　以下内容均基于Visual Studio 2015、.Net FrameWork（4.52及以上），测试系统为Windows 10，也可以在Windows 7、Windows 8.1中复现，运行环境则需要有与开发版本对应的.Net FrameWork 以及VC++ Runtime（x86/x64）。

1. 安装NuGet

　　访问https://www.nuget.org/downloads或直接从CSDN下载

　　下载与Visual Studio 2015对应的NuGet安装程序，最新版本为3.6.0，该页面也提供其它版本的Nuget供选用。

　　下载后双击运行NuGet.Tools.vsix，安装过程由于太过简单不再赘述，安装后最好重启一下Visual Studio。

　　NuGet当然也可以在Visual Studio平台中直接下载安装，具体方法请自行百度。

　　正确安装NuGet之后，在Visual Studio平台的工具菜单中会多出一个名为“NuGet程序包管理器”的东东，暂且放下，之后我们要用它来安装CefSharp。

2. 下载CefSharp

可以在NuGet中安装的组件大部分都可以在NuGet网站或者管理器中找到，这里主要介绍离线下载安装的方法。

访问https://www.nuget.org/packages/CefSharp.WinForms/或直接从CSDN下载

NuGet\Install-Package CefSharp.WinForms -Version 104.4.240

下载CefSharp的最新版本67.0.0-pre01，也可以下载正式版本65.0.1。

3. 离线安装CefSharp

打开Visual Studio2015，新建一个VB.net的WinForm项目。

　　选择菜单中的工具→NuGet程序包管理器→程序包管理器设置。

在左侧折叠菜单中选择NuGet包管理器→程序包源。

点击右上角绿色“+”按钮，增加一个本地程序包源，在下方输入名称，找到“更新”按钮左侧的“…”按钮并点击它（是的，有点小），浏览到你保存CefSharp的本地文件夹，然后点击“更新”，再点击“确定”。

接着，选择菜单中的NuGet程序包管理器→程序包管理控制台。

在控制台中输入（前述CefSharp下载页面中也可以直接复制到）以下命令并回车执行安装命令：

Install-Package CefSharp.WinForms -Version 67.0.0-pre01

　　注意最后版本号必须和下载CefSharp版本号一致。

直到安装完成，应该很快。

正常情况下，CefSharp安装完成后可在右侧解决方案资源管理器窗口的“引用”中看到名为CefSharp、CefSharp.Core、CefSharp.WinForms的三个引用，如果没有看到或者缺少一个，可以手动引用这三个DLL文件，这些文件会保存在项目文件夹中的Packages中，您可以自行搜索。

保存一下项目，将Packages文件夹中的CefSharp.Common.67.0.0-pre01\CefSharp\x86（或x64）文件夹复制一份到项目文件夹中的bin文件夹之下。

4. 配置CefSharp

用任意文本编辑器打开项目bin文件夹中的yourname.vbproj文件，yourname是指项目的名称，别跟我说你找不到。

打开后在第一个<PropertyGroup>的节点内添加一行，内容为：

　　保存并关闭该文件。

　　同样打开bin文件夹中的app.config文件，在<config>节点内添加如下内容：

　　</assemblyBinding>

</runtime>

　　保存并关闭该文件，至此CefSharp配置完成。

5. 配置应用程序

VB.net应用程序的默认配置是支持任何CPU（AnyCPU），但是CefSharp不支持这种方式，因此在使用CefSharp之前，还需要对应用程序的属性进行一些修改。

打开项目菜单→yourname项目属性。将应用程序标签中的.Net FrameWork的版本修改为4.52。

切换到编译标签，将目标CPU设置为x64或者x86其中之一，这里以选择x86为例，Crtl+s保存配置，完成，准备开工。

6. 创建CefSharp浏览器窗口实例

前面说过CefSharp的缺点是没有提供WinForm中可用的控件，因此不能像WebBrowser控件一样直接在Form上画出浏览器窗口，只能通过“曲线救国”的方式来进行。

　　这里要用到一个Panel控件，Panel控件是一个容器，常被用作控件分组，例如可以实现把不同类型的控件放置在一个Panel容器中，也可以通过写代码的方式实时增加控件（例如增加一个按钮或增加一个文本框）。这个特性可以被我们利用来实时创建一个CefSharp控件。

在Form1窗体上画一个Panel控件，命名为MyBrowser，将Dock属性设置为Fill，我们将利用这个控件实现CefSharp的第一步，制作一个最简单的浏览器，打开一个指定的网页，这里我们以百度为例。

切换到Form1代码标签，输入以下代码：

Imports CefSharp.WinForms

Imports CefSharp

Public Class Form1

Private WithEvents browser As ChromiumWebBrowser

Public Sub New()

InitializeComponent()

Dim settings As New CefSettings()

settings.BrowserSubprocessPath = "x86\CefSharp.BrowserSubprocess.exe"

CefSharp.Cef.Initialize(settings)

browser = New ChromiumWebBrowser("http://www.baidu.com") With {

.Dock = DockStyle.Fill

}

MyBrowser.Controls.Add(browser)

End Sub

End Class

　　按F5运行调试，成功打开百度首页。

　　更换百度网址为浏览器内核检测网址，结果如图：

点此下载本例项目工程文件源代码压缩包

7. 结束语

习惯使用C#的用户可能会发现，本教程中大部分的操作方式和C#环境中运用CefSharp的方法是一模一样的。因此在本例中，第6步中VB.net代码正确书写才是真正的重点。一个最简单的例子实现了CefSharp.WinForms在VB.net中的运用。当然，在CefSharp中还有很多特性和功能，我将在以后的日子里为大家介绍，如果有时间的话。

Tags: vb.net

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 793

VB.NET字符串函数

作者:admin 日期:2022-11-09

1:字符串函数

StrComp 比较两个字符串

StrConv 转换字符串

InStrRev、StrReverse 翻转字符串

Tags: vb.net

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 788

c# 保存文本文件

作者:admin 日期:2022-11-09

C#代码

private void btSave_Click(object sender, EventArgs e) //保存txt文件
{
saveFileDialog1.Filter = ("文本文件(*.txt)|*.txt"); //创建一个筛选器
if (saveFileDialog1.ShowDialog() == DialogResult.OK) //判断按下的是保存还是取消
{
string path = saveFileDialog1.FileName; //获得文件名和路径
using (StreamWriter sw = new StreamWriter(path, false)) //保存文件到指定路径
{
sw.WriteLine(txtNote.Text);
}
}
private void btOpen_Click(object sender, EventArgs e) //打开txt文件
{
openFileDialog1.Filter = ("文本文件(*.txt)|*.txt"); //创建一个筛选器
if (openFileDialog1.ShowDialog() == DialogResult.OK) //判断按下的是打开还是取消
{
string path = openFileDialog1.FileName; //获得文件名和路径
using (StreamReader sr = new StreamReader(path, Encoding.UTF8)) //打开文件
{
txtNote.Text = sr.ReadToEnd();
}
}
}

C#中StreamWriter类使用总结

1、使用的命名空间是：System.IO;
2、用来将字符串写入文件。
常用属性：
AutoFlush：获取或设置一个值，该值指示是否 System.IO.StreamWriter 将其缓冲区刷新到基础流在每次调用后 System.IO.StreamWriter.Write(System.Char)。
Encoding：获取在其中写入输出的 System.Text.Encoding。
常用方法：
WriteLine()：写入文件，并且换行。
Write()：多种重写方式，具体可以查VS文档。
Dispose()：释放由 System.IO.StreamWriter 占用的非托管资源，还可以另外再释放托管资源。
Flush()：清理当前写入器的所有缓冲区，并使所有缓冲数据写入基础流。
Close()：关闭流。
使用简单示例：

C#代码

string str = "Hello";
string path = @"D:dataWrite.txt";
// path:写入文件的路径，append:true 若要将数据追加到该文件; false 覆盖该文件。如果指定的文件不存在，该参数无效，且构造函数将创建一个新文件。
StreamWriter sr = new StreamWriter(path,true,Encoding.Default); // 保留文件原来的内容
sr.WriteLine(str);
sr.Flush(); // 清空缓存
sr.WriteLine(str);

Tags: c#

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 519

C#遍历浏览某个文件夹下的所有文件

作者:admin 日期:2022-11-09

C#遍历浏览某个文件夹下的所有文件，方法如下：

C#代码

//C#遍历指定文件夹中的所有文件
DirectoryInfo TheFolder = new DirectoryInfo(path);
if (!TheFolder.Exists)
return;
//遍历文件
foreach (FileInfo NextFile in TheFolder.GetFiles())
{
if (NextFile.Name == "0-0-11.grid")
continue;
　　　　　　　　　　// 获取文件完整路径
string heatmappath = NextFile.FullName; }

Tags: c#

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 431

Cefsharp获取网站Cookie

作者:admin 日期:2022-11-06

两个方案

1，获取js内容的方式

{

Task<CefSharp.JavascriptResponse> t = webBrower.EvaluateScriptAsync("document.cookie");

Tags: cefsharp

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 595

VB.NET模拟鼠标事件

作者:admin 日期:2022-11-06

Inherits System.Windows.Forms.Form

Declare Auto Sub mouse_event Lib "user32" (ByVal dwFlags As Int32, ByVal dx As Int32, ByVal dy As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As IntPtr)

Const MOUSEEVENTF_MOVE As Int32 = &H1 ' mouse move
Const MOUSEEVENTF_LEFTDOWN As Int32 = &H2 ' left button down
Const MOUSEEVENTF_LEFTUP As Int32 = &H4 ' left button up
Const MOUSEEVENTF_RIGHTDOWN As Int32 = &H8 ' right button down
Const MOUSEEVENTF_RIGHTUP As Int32 = &H10 ' right button up
Const MOUSEEVENTF_MIDDLEDOWN As Int32 = &H20 ' middle button down
Const MOUSEEVENTF_MIDDLEUP As Int32 = &H40 ' middle button up
Const MOUSEEVENTF_ABSOLUTE As Int32 = &H8000 ' absolute move
Const MOUSEEVENTF_WHEEL As Int32 = &H800 ' wheel button rolled

' Simulate moving the mouse to the center of the
' PictureBox and clicking.
Private Sub cmdClick_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdClick.Click
Dim cur_x As Single
Dim cur_y As Single
Dim dest_x As Single
Dim dest_y As Single

Tags: vb.net

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 457

VB.net读写二进制数据方法

作者:admin 日期:2022-10-31

一、二进制文件读写

1、写二进制数据到指定目录

dim barray() as byte
dim strFileName as string
My.Computer.FileSystem.WriteAllBytes(strFileName, barray, False)
==>将barray字节数组中的数据创建在strFilename目录文件下，存储格式为二进制，False表示不添加，直接覆盖创建。

Tags: vb.net

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 463

vb.net 中功能强大的Tostring()

作者:admin 日期:2022-10-29

功能强大的Tostring()

//2007年4月24日
this.TextBox6.Text = System.DateTime.Now.ToString("D");
//2007-4-24
this.TextBox7.Text = System.DateTime.Now.ToString("d");

//2007年4月24日 16:30:15
this.TextBox8.Text = System.DateTime.Now.ToString("F");
//2007年4月24日 16:30
this.TextBox9.Text = System.DateTime.Now.ToString("f");

//2007-4-24 16:30:15
this.TextBox10.Text = System.DateTime.Now.ToString("G");
//2007-4-24 16:30
this.TextBox11.Text = System.DateTime.Now.ToString("g");

Tags: vb.net

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 439

VB.NET中如何动态创建控件

作者:admin 日期:2022-10-29

Option Explicit
Private WithEvents NewTextBox As TextBox
'通过使用WithEvents关键字声明一个对象变量为新的命令按钮

Private Sub Command1_Click()
If NewTextBox Is Nothing Then
Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)
NewTextBox.Move 200, 200
NewTextBox.Width = Form1.Width - 450
NewTextBox.Height = Form1.Height - 1400
NewTextBox.Visible = True
End If
End Sub

Private Sub Command2_Click()
If NewTextBox Is Nothing Then
Exit Sub
Else
Controls.Remove NewTextBox
Set NewTextBox = Nothing
End If
End Sub

Tags: vb.net

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 394

VB.net线程传递参数四种方法

作者:admin 日期:2022-10-29

Thread线程启动方法,一般来说要么是一个无参数的方法,要么是一个带有object参数的方法并且在Start时传递参数的值。
但是我们可以利用一些技巧给方法传递不受限制的参数。这些方法又可以在实际使用过程相互融合。
方法简单直接上代码,供君参考。

Imports System.Threading Module Module1 Sub Main() '第一种：在Start中传递参数值，但方法中的参数类型需为object类型 Dim t1 As New Thread(AddressOf CountNumber) t1.Start(10) '第二种：通过Lambda表达式创建线程,可以传递任意的参数 Dim t2 As New Thread(Sub() PrintNumber(20) End Sub) t2.Start() '第三种：通过实例化类来传递参数,然后调用类方法 Dim c As New Count(10) Dim t3 As New Thread(AddressOf c.CountNumber) t3.Start() '第四种：通过传递类或结构,以达到向方法传递多个参数 Dim p As New Person() With { .FirstName = "严"， .LastName = "查散" } Dim t4 As New Thread(AddressOf ShowName) t4.Start(p) Console.Read() End Sub '传递单个参数 Private Sub CountNumber(number As Object) Dim sum As Integer For i As Integer = 1 To Integer.Parse(number) sum += i Next Console.WriteLine(sum) End Sub '传递非object参数 Private Sub PrintNumber(number As Integer) Console.WriteLine(number) End Sub '把方法包装成类，在实例化时传递参数 Class Count Dim number As Integer Sub New(number As Integer) Me.number = number End Sub Public Sub CountNumber() Dim sum As Integer For i As Integer = 1 To Integer.Parse(number) sum += i Next Console.WriteLine(sum) End Sub End Class '传递一个类或结构达到传递多个参数 Private Sub ShowName(person As Object) Dim myPerson As Person = CType(person, Person) Console.WriteLine(myPerson.FirstName & myPerson.LastName) End Sub Class Person Public Property FirstName As String Public Property LastName As String End Class End Module

Tags: vb.net

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3025

彻底解决VB.NET获取网页源代码的乱码问题

作者:admin 日期:2022-10-28

Function GetWebCode(ByVal strURL As String) As String
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim httpURL As New System.Uri(strURL)
Dim ioS As System.IO.Stream, charSet As String, tCode As String
Dim k() As Byte
ReDim k(0)
Dim dataQue As New Queue(Of Byte)
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
Dim sTime As Date = CDate("1990-09-21 00:00:00")
httpReq.IfModifiedSince = sTime
httpReq.Method = "GET"
httpReq.Timeout = 7000

Try
httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
Catch
Debug.Print("weberror")
GetWebCode = "<title>no thing found</title>" : Exit Function
End Try
'以上为网络数据获取
ioS = CType(httpResp.GetResponseStream, Stream)
Do While ioS.CanRead = True
Try
dataQue.Enqueue(ioS.ReadByte)
Catch
Debug.Print("read error")
Exit Do
End Try
Loop
ReDim k(dataQue.Count - 1)
For j As Integer = 0 To dataQue.Count - 1
k(j) = dataQue.Dequeue
Next
'以上，为获取流中的的二进制数据
tCode = Encoding.GetEncoding("UTF-8").GetString(k) '获取特定编码下的情况，毕竟UTF-8支持英文正常的显示
charSet = Replace(GetByDiv2(tCode, "charset=", """"), """", "") '进行编码类型识别
'以上，获取编码类型
If charSet = "" Then 'defalt
If httpResp.CharacterSet = "" Then
tCode = Encoding.GetEncoding("UTF-8").GetString(k)
Else
tCode = Encoding.GetEncoding(httpResp.CharacterSet).GetString(k)
End If
Else
tCode = Encoding.GetEncoding(charSet).GetString(k)
End If
Debug.Print(charSet)
'Stop
'以上，按照获得的编码类型进行数据转换
'将得到的内容进行最后处理，比如判断是不是有出现字符串为空的情况
GetWebCode = tCode
If tCode = "" Then GetWebCode = "<title>no thing found</title>"
End Function