2012年12月_蓝图

12月 11月 10月 08月 07月 06月 05月 04月 03月 02月 01月

原创 VB 延时类

Option Explicit Private Type FILETIME dwLowDateTime As Long dwHighDateTime As LongEnd Type Private Const WAIT_ABANDONED& = &H80&Private Const WAIT_ABANDONED_0& = &H80&Private C

2012-12-06 07:23:41 1248

原创 vb 读取文件指定行

Public Function ReadRowConnent(FileName As String, iRow As Integer) 'FileName = App.Path & "\Config.ini" If Len(Dir$(FileName)) = 0 Then err.Raise 53 '文件没有找到 '这里处理没找到文件事件

2012-12-06 03:38:58 3976

原创 VB 快速读取文件内容的方法

读取text文件的最快方法是使用Input$函数，就象下面的过程：Function FileText(ByVal filename As String) As StringDim handle As Integer' 判断文件存在性If Len(Dir$(filename)) = 0 Then Err.Raise 53 '文件没有找到End If' 以binary模式打开文件

2012-12-06 02:30:29 4946 1

原创 VB 注册表操作

'*****下面先声明一些常量******************************************Public Const HKEY_CLASSES_ROOT = &H80000000Public Const HKEY_CURRENT_CONFIG = &H80000005Public Const HKEY_CURRENT_USER = &H80000001Publ

2012-12-06 02:24:11 1597

原创 vb webbrowser 在原窗口打开弹出新窗口的链接

代码1：Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Dim frm As Form1Set frm = New Form1frm.Visible = TrueSet ppDisp = frm.WebBrowser1.objectEnd Sub 代码2：Private S

2012-12-05 19:51:56 9705

video-retalking项目的模型等相关大文件的下载

video-retalking 很多使用这个ai项目的朋友在部署和安装的时候都遇到下载太慢的问题，这个资源包里面有相关的一些大文件。

2023-12-14

将 exe 文件注册到windows服务中

可以将您开发的任意exe文件注册到windows的服务中，让它系统启动时自动启动

2023-03-29

解决iTunes安装错误的程序

iTunes 此windows installer 软件包有一个问题。完成此安装需要的程序不能运行。看到这个提示，只需要运行这个文件，并且把里面的Apple 开头的所有程序卸载就行了。这个软件，每运行一次只能删除一个apple开头的程序，请在卸载一个后再次运行这个软件，再进行其它的卸载。在卸载完成后，记得要重启计算机。重启后再安装iTunes就会正常。

2021-05-04

通讯调试软件集成串口、并口、USB、TCP、UDP、MQTT、蓝牙、WIFI、摄像头调试功能

集串口、并口、USB、TCP、UDP、MQTT、蓝牙、WIFI、摄像头调试功能及众多实用小工具

2021-01-03

制造虚拟来路

制造虚拟来路，可以仿各大站的虚拟来路。站长统计内也可以查正确的模仿来路。

2012-03-07

VB捆绑文件成图片的源代码

VB使用图片捆绑文件小工具带源代码，隐藏文件圣器

2012-03-07

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人