别人定制的软件工具，有以下的功能：可以拖动组件移动到窗体上，然后软件自动获取PID。可以在软件中设置快捷键。可以一键结束进程。注：软件最小化之后将会在后台隐藏。可以双击任务栏，呼出软件窗体。软件下载地址：https://www.123pan.com/s/AHC0Vv-NYwc.html
代码测试可用，使用这个库的操作还是不错的。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())
首先在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
取自程序的一段代码，放到博客，省得下次再找了。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()
目前在用的ChatGPT网站点击访问：Forefront Chat注意：使用之前，请检测自己是否具有以下的条件：1、Ti子2、谷歌账号或自行使用手机号注册账号。
此版主题感觉很符合审美。而且此版主题增加了文章浏览量的显示。采用了Jasmine主题。
转换方式如下图：直接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
水一篇文章啦，今天给别人写程序遇到的一个。感觉下面的代码挺不错的，能实现向远程服务器上传文件。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
前段时间发现易语言调用的一个DLL文件，参与了某个网站的登陆，发现有这样的一个功能。研究了下DLL的参数，改为了可以使用VB.NET来进行参与的代码。效果感觉不错，识别率还是挺高的。软件源码下载：https://www.123pan.com/s/AHC0Vv-vsMc.html软件在Visual Studio2019 编译通过。
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
LaoDan
鱼头网络工作室
