标签 VB.NET 下的文章 - LaoDan 的博客

VB.NET 操作EXCEL数据操作ExcelDataReader库

代码测试可用，使用这个库的操作还是不错的。Dim filePath As String = "E:\1.xlsx" ' 创建一个文件流来打开Excel文件 Using stream As FileStream = File.Open(filePath, FileMode.Open, FileAccess.Read) ' 使用ExcelDataReader打开Excel文件 Using reader As IExcelDataReader = ExcelReaderFactory.CreateReader(stream) ' 选择要读取的工作表，默认为第一个工作表 reader.Read() ' 循环读取每一行的第二列的值 While reader.Read() Dim value As Object = reader.GetValue(1) ' 第二列的索引为1 Console.WriteLine(value.ToString())

转载软件 · 2023-11-08 · 1034 人浏览

VB.NET FTP文件上传源码

水一篇文章啦，今天给别人写程序遇到的一个。感觉下面的代码挺不错的，能实现向远程服务器上传文件。Dim ftpServer As String = "ftp://1.1.1.1:21/" Dim ftpUsername As String = 账号 Dim ftpPassword As String = 密码 Dim localFilePath As String = "1.jpg" '本地目录 Dim remoteFilePath As String = TextBox7.Text & "合成_" & 全局变量_当前命名 & ".jpg" ' 需要上传的目录 Dim request As FtpWebRequest = DirectCast(WebRequest.Create(ftpServer + remoteFilePath), FtpWebRequest) request.Metho

VB.NET · 2023-10-19 · 847 人浏览

VB.NET 读取ini文件模块采用UTF8编码

Module ini读写模块 Private Declare Unicode Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntW" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringW" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVa

转载软件 · 2023-09-19 · 941 人浏览

VB.NET 寻找微信窗体所有的按钮组件

Imports System.Windows.AutomationImports System.Runtime.InteropServicesPublic Class Form1<DllImport("user32.dll", SetLastError:=True)> Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr End Function Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click GetChatWndElements() End Sub Public Sub GetChatWndElements() ' 根据快速窗口类名查找窗口 Dim text As String Dim condition As Condition = New Proper

VB.NET · 2023-06-24 · 778 人浏览

VB.NET 窗体中插入子窗体

Imports System.Runtime.InteropServices Public Class Form1' 导入 SetParent 函数 <DllImport("user32.dll", SetLastError:=True)> Private Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr End Function ' 导入 MoveWindow 函数 <DllImport("user32.dll", SetLastError:=True)> Private Shared Function MoveWindow(ByVal hwnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As

VB.NET · 2023-06-23 · 837 人浏览

VB.NET 使用API调用默认浏览器打开网页

头部API写：Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Int32, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Int32) As Long 响应过程写：Dim lngReturn As Long lngReturn = ShellExecute(0, "open", "https://lxjc.com", "", "", 0)

VB.NET · 2023-05-27 · 717 人浏览

VB.NET 与 PHP互通进行的AES网络验证

本来很早就想搞个这玩意了，就是校验软件是否可用性，当然也可以进行请求数据的加密！软件远程请求PHP文件，PHP进行AES的加密。加密内带入时间戳。软件接收到了PHP的加密值，然后在软件内进行解密。解密之后校验时间戳，判断当前的时间戳是否在返回的时间戳六十秒之内（提高安全性）。判断无误的话，则提取解密数据的|之前的字符，进行校验。校验成功，进软件。校验失败，弹出服务器返回的失败内容。软件生成之后记得使用VMP加壳软件加壳，不然被破解还是轻轻松松，加上壳之后破解难度就飙升了。代码如下：PHP代码：<?php function EncryptAES($key, $data) { $ivLength = 16; $iv = openssl_random_pseudo_bytes($ivLength); $encryptedText = openssl_encrypt($data, 'AES-128-CBC', $key, OPENSSL_RAW_DATA, $iv); $combinedData = $iv . $encryptedText; $e

VB.NET · 2023-05-27 · 889 人浏览

VB.NET 字符串转Unicode十进制编码源码

运行图源码Sub Main(args As String()) 跳过: Console.Clear() Dim inputString As String Console.WriteLine("请输入字符串：") inputString = Console.ReadLine() Dim unicodeArray(inputString.Length - 1) As Integer For i As Integer = 0 To inputString.Length - 1 unicodeArray(i) = Char.ConvertToUtf32(inputString, i) Next Console.Write("输出的十进制Unicode编码为：" & Environment.NewLine) For Each code As Integer In unicodeArray Console.Write("&#" & code.To

VB.NET · 2023-05-26 · 760 人浏览

.NET 平台下使用Sunny UI库美化窗体

首先，点击项目-右键-点击管理 nuget程序包再点击浏览，输入sunnyui，搜索到之后选择安装最新版本。在右侧，选择form1-form1，点击Dispose(Boolean)修改下面的代码：修改为：导入Sunny.UI命名空间：Imports Sunny.UIForm1类继承UIForm类：Inherits UIForm然后打开窗体设计页面，这个时候发现窗体已生效。

VB.NET · 2023-05-08 · 959 人浏览

VB.NET 解决GET或POST请求时，提示“未能创建 SSL/TLS 安全通道。”的问题

给别人定制软件时遇到的一个问题，使用HttpWebRequest请求类时，提示错误。这个应该是HTTPS证书的问题。以下是解决方法。代码如下：'使用TLS12安全协议连接 ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 '创建HTTP请求对象，并指定URL地址 Dim request As HttpWebRequest = WebRequest.Create(TextBox2.Text) '设置HTTP请求方法为POST request.Method = "POST" '设置HTTP User-Agent头信息 request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/109.0.0.0 Safari/537.36 Edg/109.0.1518.100" '不保持连接状态 request.KeepAl

VB.NET · 2023-05-08 · 1082 人浏览