The Coding Way
代码测试可用，使用这个库的操作还是不错的。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
说明最近一直在寻找一款比较好用的.NET混淆工具。先后尝试了Obfuscar、VMP、还有这一款，目前的话感觉这一款使用还是非常不错的。所以根本.NET Reactor的第三方写出来这样的一个小工具，因为.NET Reactor他的程序是英文版，按照软件默认的设置，可以防止很大一部分的工具党。注：关键代码必须使用虚拟化做处理，不然的话，使用GITHUB的NETReactorSlayer工具，秒解混淆，加入虚拟化之后，NETReactorSlayer工具针对虚拟化的代码，还是无法还原。软件图使用说明将.NET软件拖动到程序窗体，然后点击“开始处理”按钮即可开始进行混淆。混淆结束之后，可以点击打开目录来查看已经混淆处理之后的程序目录。当前的使用NETReactor的功能如下：1、程序默认混淆功能2、字符串加密3、方法调用混淆4、压缩及加密程序资源5、代码执行虚拟化6、控制流模糊等级默认为9最后再说明一点，NET程序内的关键代码过程务必添加虚拟化的指令，具体可以参考软件内的说明。软件下载https://www.123pan.com/s/AHC0Vv-DEMc.html提取码:3aad
LaoDan
鱼头网络工作室
