为您找到相关结果1,992个
VB6校验文件防破解 · 红黑防线
1、开始窗体验证MD5值 1PrivateSubForm_Load()2DimstrAsString3str=IIf(Len(App.Path)>3, App.Path&"\"&App.EXEName&".exe", App.Path&App.EXEName&".exe")4Print"MD5:"&HashFile(str)'获取exe文件的MD5校验码5Print"大小:"&FileLen(str)&"
www.hkfx.net/p/2... 2025-5-15
VB6实现拖拽 · 红黑防线
1Private Sub Form_Load() 2 Me.
hkfx.net/p/2... 2025-4-11
VB6雷池编码 · 红黑防线
1Private Sub Label1_Click() 2Dim str As String '以下载入函数 QQ:3925993 3 str = Text1.
hkfx.net/p/... 2025-5-19
日常随笔 · 红黑防线
1. 前言(博主一个不得不说故事) 服务器三年到期停掉了,没有最打算续费,因为真的贵的离谱,重新购买是可以、但是又得重新部署各种环境,少折腾不想折腾,网站运营以来一直非盈利模式,建站10多年花费将近不少费用,光是域名支出高达一千多元,服务器费用,以及个人精力维护
www.hkfx.net/p... 2025-5-25
VB6校验文件防破解 · 红黑防线
1、开始窗体验证MD5值 1Private Sub Form_Load() 2 Dim str As String 3str = IIf(Len(App.
hkfx.net/p/2... 2025-3-8
Github实现CDN加速访问网站 · 红黑防线
提示
www.hkfx.net/p/2... 2025-2-10
VB6快速读取txt · 红黑防线
一、快速读取txt,空白内容则会出错。 1、建立模版 1Function GetFile(FileName As String) As String 2Dim i As Integer, s As String, BB() As Byte 3If Dir(FileName) = "" Then Exit Function 4i = FreeFile 5ReDim BB(FileLen(FileName) - 1) 6Open FileName For Binar
hkfx.net/p/1... 2025-4-19
Visual Studio2015下载离线包 · 红黑防线
1、Visual studio2015 Community 强大的 IDE,对学生、开源贡献者和个人免费 1http://download.
hkfx.net/p/2... 2025-3-8
VB6复制文件的区别 · 红黑防线
1'先声明复制函数 2Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long 方法一:带属性 1s = App.
hkfx.net/p/2... 2025-5-7
C#winform任务栏显示小图标及右击操作 · 红黑防线
1.创建一个项目,向窗体中添加右下角图标NotifyIcon1控件和右击按钮ContextMenuStrip1控件。
www.hkfx.net/p/2... 2025-5-27