分类 VB.NET 下的文章 - LaoDan 的博客

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

VB.NET 定义F4全局热键

Imports System.Runtime.InteropServices Public Class Form1 <DllImport("user32.dll")> Private Shared Function RegisterHotKey(ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean End Function <DllImport("user32.dll")> Private Shared Function UnregisterHotKey(ByVal hWnd As IntPtr, ByVal id As Integer) As Boolean End Function ' 窗体句柄 Private hwnd As IntPtr ' 热键标识符 Private

VB.NET · 2023-07-01 · 560 人浏览

无阻塞延迟不卡死窗体代码2

Public Sub 延时秒(ByVal 延时 As Integer, Optional ByVal 单位 As String = "毫秒") Dim 延时时间 As Int64 '因为时间是以100纳秒为单位。 If 单位 = "毫秒" Then 延时时间 = 延时 * 10000 If 单位 = "秒" Then 延时时间 = 延时 * 10000 * 1000 If 单位 = "分" Then 延时时间 = 延时 * 10000 * 1000 * 60 If 单位 = "时" Then 延时时间 = 延时 * 10000 * 1000 * 60 * 60 If 单位 = "天" Then 延时时间 = 延时 * 10000 * 1000 * 60 * 60 * 24 Dim 临时时间 As DateTime = DateTime.Now Whil

VB.NET · 2023-06-29 · 592 人浏览

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

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

几句话实现任务栏加载小图标样式

运行图代码记得在工具栏中加载NotifyIcon1组件！Imports System.ComponentModel Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load NotifyIcon1.Icon = Me.Icon '将 NotifyIcon 的图标设置为窗体的图标 NotifyIcon1.ContextMenuStrip = ContextMenuStrip1 '将 ContextMenuStrip 关联到 NotifyIcon NotifyIcon1.Visible = True '显示 NotifyIcon End Sub End Class

VB.NET · 2023-06-18 · 487 人浏览

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

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

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

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

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

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