VB.NET 读取exe文件版本号 代码

你可以使用以下代码来读取 .NET 程序集的版本号：

Dim assemblyName As String = Assembly.GetExecutingAssembly().GetName().Name
Dim version As Version = Assembly.GetExecutingAssembly().GetName().Version
Dim versionString As String = version.ToString()
MessageBox.Show($"The version of {assemblyName} is {versionString}.")

这个例子中，我们使用 `Assembly.GetExecutingAssembly()` 方法来获取当前正在运行的程序集的信息，然后使用 `GetName()` 方法获取程序集的名称，最后使用 `Version` 属性来获取程序集的版本号。你也可以将 `Assembly.GetExecutingAssembly()` 替换为 `Assembly.LoadFile("path/to/your/file.exe")` 来读取其他程序集的版本号。

相关问题

vb.net TcpClient

VB.NET 中的 TcpClient 是用于网络通信的一个基础组件，它允许你在客户端应用程序中创建 TCP 连接。TcpClient 类主要用于建立客户端到服务器的连接，常用于实现简单的客户机/服务器架构，比如聊天应用、远程过程调用等。

当你创建一个 TcpClient 实例后，你可以使用以下几个主要方法：

1. Connect 方法：用于连接到指定的 IP 地址和端口号。
2. BeginConnect 和 EndConnect：异步版本的连接方法，适合处理长距离连接或在网络不稳定时提高响应速度。
3. GetStream()：获取到连接后的网络流，可以读写数据。
4. Close 或 Dispose：关闭当前连接，释放资源。

以下是一个基本示例，展示如何在 VB.NET 中使用 TcpClient 进行TCP连接：

Imports System.Net.Sockets

Dim client As New TcpClient()
client.Connect("localhost", 12345)
Dim networkStream As NetworkStream = client.GetStream()

' 读取服务器数据
Dim buffer(1024) As Byte
Dim bytesRead As Integer
Do While (bytesRead = IO.StreamReader.networkStream.EndOfStream = False)
    bytesRead = networkStream.Read(buffer, 0, buffer.Length)
    Dim receivedData As String = System.Text.Encoding.ASCII.GetString(buffer, 0, bytesRead)
    Console.WriteLine(receivedData)
Loop

' 发送数据到服务器
Dim sendData As String = "Hello from client"
networkStream.Write(System.Text.Encoding.ASCII.GetBytes(sendData), 0, sendData.Length)

' 关闭连接
client.Close()

vb.net excel 導入

VB.NET中导入Excel文件通常需要使用Microsoft Office的Interop服务或者第三方库如EPPlus、NPOI等。这里介绍使用Microsoft Office的Interop服务导入Excel文件的基本步骤：

1. 首先，确保计算机上安装了Microsoft Excel，因为Interop服务是与Excel程序交互的。

2. 在VB.NET项目中添加对Microsoft Excel对象库的引用。可以通过Visual Studio的“添加引用”对话框，浏览并选择“Microsoft Excel XX.0 Object Library”，其中XX代表版本号。

3. 引用添加后，使用以下代码来导入Excel文件：

Imports Excel = Microsoft.Office.Interop.Excel

Public Sub ImportExcelFile(filePath As String)
    ' 创建Excel应用程序实例
    Dim xlApp As New Excel.Application
    ' 打开Excel工作簿
    Dim xlWorkbook As Excel.Workbook = xlApp.Workbooks.Open(filePath)
    
    ' 获取第一个工作表
    Dim xlWorksheet As Excel.Worksheet = xlWorkbook.Sheets(1)
    
    ' 读取数据
    ' 假设要读取A1单元格的数据
    Dim cellValue As Object = xlWorksheet.Range("A1").Value
    
    ' 输出读取的数据
    Console.WriteLine("数据在A1单元格: " & cellValue.ToString())
    
    ' 关闭工作簿和Excel应用程序
    xlWorkbook.Close(False)
    xlApp.Quit()
    
    ' 清理COM对象
    ReleaseObject(xlWorksheet)
    ReleaseObject(xlWorkbook)
    ReleaseObject(xlApp)
End Sub

Private Sub ReleaseObject(ByVal obj As Object)
    Try
        System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
        obj = Nothing
    Catch ex As Exception
        obj = Nothing
    Finally
        GC.Collect()
    End Try
End Sub

4. 在上面的代码中，`ReleaseObject`函数是用来释放COM对象，避免内存泄漏。

使用Microsoft Office Interop服务导入Excel文件是一种直接的方法，但它有一些缺点，比如需要在运行环境中安装Office，以及可能的性能问题。因此，对于需要部署到没有安装Office环境的服务器上，或者对性能要求较高的场景，建议使用第三方库如EPPlus或NPOI。