![](https://img-blog.csdnimg.cn/20201014180756724.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
vb.net笔记
文章平均质量分 75
double294
这个作者很懒,什么都没留下…
展开
-
从图片库中批量查找指定的图片并按自己的要求命名
晚上用VB写了一个导照片的程序,其问题如下:已知有一个图片库,图片库中的图片都以学生身份证命名, 我想在这大量的图片库中找出自已班级学生的照片,然后以姓名命名,如果手动一个一个查找还要改名相当麻烦,就算使用WINDOWS系统自带的搜索功能,一次最多找到四个身份证的图片(不知是什么原因或许系统自带的搜索对输入查找字符有限制,因身份证很长所以只能找到少数的图片)。我的解决思路:首先自己原创 2007-01-25 22:36:00 · 8108 阅读 · 1 评论 -
MD5算法
Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32Private m_lOnBits(30)Private m_l2Power(30)Private Function LShift(lValue, iShiftBits)If iShiftBits =原创 2008-03-26 11:34:00 · 393 阅读 · 0 评论 -
关机程序(不怕锁定)
将timer1的时间设为你要的时间 Option Explicit Private Const EWX_LogOff As Long = 0 Private Const EWX_SHUTDOWN As Long = 1 Private Const EWX_REBOOT As Long = 2原创 2009-07-21 14:26:00 · 448 阅读 · 0 评论 -
VB对注册表的操作模块
<br />Public Const REG_SZ = 1 ' Unicode nul terminated string<br />Public Const REG_BINARY = 3 ' Free form binary<br />Public Const HKEY_CURRENT_USER = &H80000001<br />Public Const REG_OPTION_BACKUP_RESTORE = 4 ' open for backup or restore<br />Public原创 2010-08-09 00:28:00 · 607 阅读 · 0 评论 -
禁用U盘
在U盘插入或拔出时自动侦测 可以用 WMI 举个小例子吧!先工程引用Microsoft WMI Scripting V1.2 Library 窗体代码如下: Private Sub Form_Load() Dim Wql As String Set objSWbemSink = New SWbemSink Set objSWbemServices = GetObject("winmgmts://" & "." & "/root/cimv2") Wql = "Select * fr原创 2011-01-05 20:38:00 · 843 阅读 · 0 评论