LaoDan 的博客

文件数量查询删除工具

客户定制的软件。功能如下：1、文件夹可拖动或按钮选择目录的形式。2、输入文件数量值，比如输入30,那么则列出所有的此文件夹下的所有子目录内的文件数量。如果低于30，那么将此文件夹删除。软件下载：文件数量查询.rar

原创软件 · 2023-11-18 · 1089 人浏览

别人定制的全局热键进程快速结束工具

别人定制的软件工具，有以下的功能：可以拖动组件移动到窗体上，然后软件自动获取PID。可以在软件中设置快捷键。可以一键结束进程。注：软件最小化之后将会在后台隐藏。可以双击任务栏，呼出软件窗体。软件下载地址：https://www.123pan.com/s/AHC0Vv-NYwc.html

原创软件 · 2023-11-17 · 1203 人浏览

别人定制的全局热键进程快速结束工具

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 · 1147 人浏览

VB.NET 使用JSON获取数据

首先在Nuget中搜索JSON。然后下载Newtonsoft.Json.Linq然后使用下面的代码进行解析： ' 解析JSON数据 Dim jsonObject As JObject = JObject.Parse(responseContent) Dim code As String = jsonObject("code").ToString() If code = "1000" Then 全局变量_ip = jsonObject.SelectToken("data[0].ip").ToString() 全局变量_port = jsonObject.SelectToken("data[0].port").ToString() End If

VB.NET · 2023-11-03 · 1363 人浏览

DataGridView组件自动递增代码

取自程序的一段代码，放到博客，省得下次再找了。Dim rowIndex As Integer = DataGridView1.Rows.Add() With DataGridView1.Rows(rowIndex) .Cells(0).Value = rowIndex + 1 .Cells(1).Value = nickname .Cells(2).Value = unique_id .Cells(3).Value = following_count .Cells(6).Value = 待监控的粉丝数量 .Cells(8).Value = "基础数据已获取" .Cells(9).Value = id_str 'sec_uid End With DataGridView1.Refresh()

VB.NET · 2023-11-01 · 968 人浏览

LaoDan 2023-10-25

目前在用的ChatGPT网站

点击访问：Forefront Chat

注意：使用之前，请检测自己是否具有以下的条件：
1、Ti子
2、谷歌账号或自行使用手机号注册账号。

LaoDan 2023-10-24

此版主题感觉很符合审美。
而且此版主题增加了文章浏览量的显示。
采用了Jasmine主题。

通过抖音分享链接转换为抖音用户链接(MS开头)的实现方式

转换方式如下图：直接GET请求下抖音分享链接即可。注意：需要禁止重定向。在返回的内容处，可以获取用户的sec_uid（MS开头）VB.NET 实现代码：Imports System.Net Imports System.Text.RegularExpressions Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim request As HttpWebRequest = DirectCast(WebRequest.Create(TextBox1.Text), HttpWebRequest) request.AllowAutoRedirect = False Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse) Dim responseStrea

VB.NET · 2023-10-20 · 1851 人浏览

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 · 945 人浏览

OCR本地验证码识别库 VB.NET调用识别

前段时间发现易语言调用的一个DLL文件，参与了某个网站的登陆，发现有这样的一个功能。研究了下DLL的参数，改为了可以使用VB.NET来进行参与的代码。效果感觉不错，识别率还是挺高的。软件源码下载：https://www.123pan.com/s/AHC0Vv-vsMc.html软件在Visual Studio2019 编译通过。

原创软件 · 2023-09-23 · 1180 人浏览