![](https://img-blog.csdnimg.cn/20201014180756754.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB.Net
文章平均质量分 55
一念工作室
Heart like iron can be fearless.
展开
-
vb.net 快捷启动栏 添加 图标 【锁定到任务栏】
'vb.net 快捷启动栏 添加 本程序快捷图标 【锁定到任务栏】Imports Shell32 '首先引用Microsoft Shell Controls And AutomationImports System.IOPublic Class Form1 Public Shared Function LockApp(ByVal isLock As Boolean, ByVal appPath As String) As Boolean Dim shell As New S...原创 2023-03-04 10:42:59 · 505 阅读 · 0 评论 -
VB c# .net 图片转GIF动画/GIF分解/图片批量修改文件名/图片批量加水印/图片批量压缩
VB c# .net 图片转GIF动画1、视频播放实现 截图(动态) GIF2、将 jpg,png,bmp。。。。转换GIF动画图片3、核心代码 采用 C# + .net 编译。使用方法:shell *.exe 即可。将 jpg 图片 转换 gif 动画图片。需要组件留言。...原创 2020-10-10 23:31:06 · 753 阅读 · 1 评论 -
20款密码破解工具
20款密码破解工具,觉得好就顶吧没有密码不用急!20种超全的解密工具任你选!!值得下载珍藏的呀!!以下含扩了从系统密码到应用软件、最高深的BIOS到最常见的ZIP、RAR压缩文件几乎所有的密码解读、解密工具(共计190条),以方便大家使用。唯有一点请朋友们切记:不要将这些超级解密工具用于非法的或有损他人利益的情况!!-----------------------------------...转载 2018-08-29 15:03:07 · 25367 阅读 · 1 评论 -
System.IO.File.Create 不会自动释放,一定要加Dispose
System.IO.File.Create 不会自动释放,一定要Dispose这样会导致W3P进程一直占用这个文件System.IO.File.Create(HttpContext.Current.Server.MapPath(strName)) 最好加上DisposeSystem.IO.File.Create(HttpContext.Current.Server.MapPa...原创 2018-08-28 11:15:15 · 1105 阅读 · 0 评论 -
System.Diagnostics.Process.Start 用法
Process.Start()方法详解_System.Diagnostics.Process.Start()的用法 ,转 System.Diagnostics.Process.Start(); 能做什么呢?它主要有以下几个功能:1、打开某个链接网址(弹窗)。2、定位打开某个文件目录。3、打开系统特殊文件夹,如“控制面板”等。那么它是怎么实现这几个功能的呢?在讲应...原创 2018-08-27 12:39:52 · 30282 阅读 · 3 评论 -
.NET
.NET是 Microsoft XML Web services 平台。XML Web services 允许应用程序通过 Internet 进行通讯和共享数据,而不管所采用的是哪种操作系统、设备或编程语言。Microsoft .NET 平台提供创建 XML Web services 并将这些服务集成在一起之所需。对个人用户的好处是无缝的、吸引人的体验。.NET就是微软用来实现XML,Web Se...转载 2018-04-02 20:25:16 · 602 阅读 · 0 评论 -
VB.net CheckedListBox1 单选
If CheckedListBox1.Items.Count <> 0 Then For u As Integer = 0 To CheckedListBox1.Items.Count - 1 CheckedListBox1.SetItemChecked(u, System.Windows.Forms.CheckSta...原创 2018-03-12 16:12:38 · 1109 阅读 · 0 评论 -
VB.NET System.IO.Path 文件名、路径、扩展名 处理
string filePath =@"E:/Randy0528/中文目录/JustTest.rar";更改路径字符串的扩展名。System.IO.Path.ChangeExtension(filePath, "txt");E:/Randy0528/中文目录/JustTest.txt返回指定路径字符串的目录信息。System.IO.Path.GetDirectoryName(filePath);E:...原创 2018-03-03 21:23:31 · 3465 阅读 · 1 评论 -
文件卫士病毒检测报告(virscan.org)
文件卫士病毒检测报告(virscan.org)virscan.org:http://r.virscan.org/language/zh-cn/report/ec577c45a88ccddd8eaffb9274991a9fVirSCAN.org Scanned Report :扫描结果:2%的杀软(1/49)报告发现病毒时间: 2019-04-20 17:24:03...原创 2018-03-01 17:49:17 · 1507 阅读 · 0 评论 -
文件卫士问题反馈及建议
文件卫士问题反馈及建议文件卫士问题反馈请留下您的联系方式:QQ、邮箱、微信、微博,意见描述,提交您的意见及建议。意见反馈及建议例子: QQ:13400358 ,邮箱:13400358@qq.com,微信:13400358,微博:https://weibo.com/u/1224730201 意见/建议:在使用文件卫士时发现某功能问题或某窗口出现BUG,建议更新。备注:请在下方 ↓↓↓...原创 2018-03-01 14:22:37 · 224 阅读 · 0 评论 -
VB.NET Resources文件保存本地
'Dim read As Resources.ResourceManager = My.Resources.Resource1.ResourceManager()Dim read As Resources.ResourceManager =My.Resources.ResourceManager '‘VS2013’ Dim Bytes As Byte()Bytes = DirectC...原创 2018-03-01 13:30:46 · 1473 阅读 · 0 评论 -
VB.NET FORM 窗口 透明 显示 关闭 动画效果
FORM 窗口 透明 显示 关闭 动画效果Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Label1.Text = Val(Label1.Text) + 0.1 If Val(Label1.Text) < "0.9" Then M...原创 2018-03-01 12:33:04 · 535 阅读 · 0 评论 -
VB.NET 右下角窗外位置
右下角窗外位置 Location = New Point(My.Computer.Screen.WorkingArea.Width - Me.Width, My.Computer.Screen.WorkingArea.Bottom - Me.Height)原创 2018-03-01 12:10:53 · 346 阅读 · 0 评论 -
VB.net 删除正在运行的自身exe文件
Public Sub TestForKillMyself() Dim bat As String = "@echo off" & vbCrLf & _ ": tryagain " & vbCrLf & _ "del %1" & vbCrLf & _ ..原创 2018-08-29 14:32:40 · 743 阅读 · 0 评论 -
VB.net检查文件是否正在被使用的函数
Public Function IsFileReady(ByVal filepath As String) As Boolean '检查文件是否正在被使用的函数If File.Exists(filepath) = False ThenReturn TrueExit Function '如果filpath文件不存在,也就不没有被占用,应该返回trueEnd IfTryFile.Open(...原创 2018-08-29 14:43:58 · 1570 阅读 · 0 评论 -
VB.NET结束进程
'Imports System.Diagnostics Dim ps As Process() = Process.GetProcessesByName("notepad") For Each p As Process In ps p.Kill() Next Public Sub Main() ...原创 2018-08-29 14:49:27 · 1228 阅读 · 0 评论 -
vb.net form事件
form 事件 名称 说明 Activated 当使用代码激活或用户激活窗体时发生。 AutoSizeChanged 当AutoSize属性更改时发生。 AutoValidateChanged 当AutoValidate属性更改时发生。 BackColorChanged 当BackCol...原创 2019-06-25 17:59:03 · 1224 阅读 · 0 评论 -
VB.NET 收邮件 (JMail)
VB.NET 收邮件 (JMail) 在网上看到有很多JMail 插件 发邮件代码,收邮件很少,所以,今天就自己做了一个,基本功能还是比较齐全的。 1、显示邮件总数。 2、显示未读邮件数。 3、显示邮件标题及邮件内容。 4、可查看邮件 附件 。 5、附件 图片 预览 6、新邮件 提醒。 删除邮件我就没写了,其实很简单,这里不作描述...原创 2019-06-20 12:01:16 · 1065 阅读 · 2 评论 -
VB .net WebBrowser (document.execCommand())
document.execCommand()方法可用来执行很多我们无法实现的操作.execCommand方法是执行一个对当前文档,当前选择或者给出范围的命令。document.execCommand()方法处理Html数据时常用语法格式如下: 复制内容到剪贴板代码:document.execCommand(sCommand[,交互方式, 动态参数]) 其中:sCommand为指令参...原创 2019-05-23 14:58:32 · 497 阅读 · 0 评论 -
VB.NET webbrowser控件(execCommand)
webbrowser控件 document.execCommand() 解析2D-Position 允许通过拖曳移动绝对定位的对象。AbsolutePosition 设定元素的 position 属性为“absolute”(绝对)。BackColor 设置或获取当前选中区的背景颜色。BlockDirLTR 目前尚未支持。BlockDirRTL 目前尚未支持。Bold 切换当...原创 2019-05-23 14:35:29 · 648 阅读 · 0 评论 -
vb.net 禁止调整窗口大小
将窗口边体属性(FormBorderStyle)设定为:Fixed3D '模式FixedDialog '模式FixedSingle '模式FixedToolWindow中的任意一个,都可以使窗体不可调整大小。原创 2019-05-20 10:44:57 · 2245 阅读 · 0 评论 -
VB.Net 注册表 读写
'写入注册表 WebBrowser1设定内核Private Function SetRegistry(ByVal strKey As String, ByVal strName As String, ByVal strValue As String) As Boolean Try Dim Key_LocalMachine As Microsoft.Win...原创 2019-05-20 02:34:13 · 1095 阅读 · 0 评论 -
PDF文件编辑工具 V9.0.01
PDF文件编辑工具 V9.0.01 应用图标PDF文件编辑工具 V9.0.01 应用环境:PCPDF文件编辑工具 V9.0.01 应用分类 软件 - 办公商务PDF文件编辑工具 V9.0.01 版本号 V9.0.01PDF文件编辑工具 V9.0.01 大小 2.78MBPDF文件编辑工具 V9.0.01 包名 pc-L5E0LM5TIlvwY4kwPDF文件编辑工具 V...原创 2019-05-09 17:50:12 · 333 阅读 · 0 评论 -
VB.net 文件下载示例
Imports System.IOImports System.Net Public Class Form1 Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click Dim hwq As HttpWebRequest Dim hwp As Htt...原创 2018-10-10 17:40:15 · 3761 阅读 · 0 评论 -
VB.NET 检查 网络连接
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Integer, ByVal dwReserved As Integer) As Integer Public ...原创 2018-10-01 18:20:04 · 1054 阅读 · 0 评论 -
vb.net 网页加载完成判断
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load WebBrowser1.ScriptErrorsSuppressed = True '网页错误提示 【屏蔽】 WebBrowser1.Navigate("https://blog.csdn.net") En...原创 2018-09-01 11:44:53 · 897 阅读 · 0 评论 -
VB.NET 添加控件方法
“工具箱”——“所有Windows窗体”中单击右键,选择“选择项”菜单打开“选择工具箱项”窗口,选择“COM组件”标签,在列表中找到并勾选“Windows Media Player”组件,单击“确定”按钮。将该组件添加到指定的工具箱选项卡中然后在工具箱里面找 Windows Media Player 控件拉到form里面拉出来的控件就是AxWindowsMediaPlayerAxWindowsMe...原创 2018-03-01 11:17:08 · 4145 阅读 · 0 评论 -
VB.Net - 指令
VB.Net - 指令VB.Net编译器指令给编译器指令,以便在实际编译开始之前预处理信息。所有这些指令以#开头,并且在一行上的指令之前只能出现空格字符。 这些指令不是语句。VB.Net编译器没有单独的预处理器; 然而,指令被处理,就像有一个。 在VB.Net中,编译器指令用于帮助条件编译。 与C和C ++指令不同,它们不用于创建宏。在 VB.Net 中的编译器指令VB.Net提供了以下一组编译器...原创 2018-03-01 09:57:13 · 324 阅读 · 0 评论 -
VB.NET 内存占用率 CPU占用率
Dim nutzram As Double Dim ArgC nutzram = (My.Computer.Info.TotalPhysicalMemory - My.Computer.Info.AvailablePhysicalMemory) / 1048576 / 1024 ArgC = "内存占用率:" & nutzram.T...转载 2018-02-28 21:34:04 · 1561 阅读 · 0 评论 -
VB.NET CheckedListBox1操作
If CheckedListBox1.Items.Count <> 0 Then'全部选中 For u As Integer = 0 To CheckedListBox1.Items.Count - 1 CheckedListBox1.SetItemChecked(u, True) N...原创 2018-02-28 21:31:50 · 4367 阅读 · 0 评论 -
VB.NET 遮盖控件方法
Private Sub Label1_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave Label1Visible = True End Sub Private Sub Label1_MouseEnter(sender As Object, e As EventArgs) Handles...原创 2018-02-28 21:19:16 · 356 阅读 · 0 评论 -
VB.NET FORM窗口透明度
Me.Opacity = 0.1~0.9 '数值越低 越透明Me.Opacity = 1 '不透明转载 2018-02-28 21:16:24 · 485 阅读 · 0 评论 -
VB.NET 调用资源Resources
Form1.BackgroundImage = My.Resources.FekFek是图片文件名原创 2018-02-28 21:14:06 · 3335 阅读 · 1 评论 -
VB.NET 拖放效果
Private Sub form1_DragEnter(sender As Object, e As DragEventArgs) Handles form1.DragEnter e.Effect = DragDropEffects.Link End SubPrivate Sub form1_DragDrop1(sender As Object, e As DragEvent...转载 2018-02-28 21:11:29 · 302 阅读 · 0 评论 -
VB.NET CheckedListBox1 删除重复项
For i = 0 To CheckedListBox1.Items.Count - 1 For j = CheckedListBox1.Items.Count - 1 To i + 1 Step -1 If CheckedListBox1.Items(i) = CheckedListBox1.Items(...转载 2018-02-28 21:08:33 · 683 阅读 · 0 评论 -
VB.NET 文件路径
Public Function App_Path() As String '本程序目录 Return System.AppDomain.CurrentDomain.BaseDirectory() End Function '判断目录是否存在的函数,传入String值,返回Boolean值 Private Function Boo_DirExist(ByVal Str...转载 2018-02-28 21:07:31 · 1330 阅读 · 0 评论 -
SHA1加密算法
Function mySHA(ByVal SourceStr As String) As String 'SHA1加密算法 Dim SHA As New System.Security.Cryptography.SHA1CryptoServiceProvider 'sha1加密 'Dim sha As New System.Security.Cryptography....转载 2018-02-28 21:06:46 · 437 阅读 · 0 评论 -
VB.net MD5加密
Function MD5(ByVal strSource As String, ByVal Code As Int16) As String Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(strSource) Dim hashvalue As Byte() = CType(Sys...转载 2018-02-28 21:05:42 · 776 阅读 · 0 评论 -
VB.NET 生成DLL文件 调用DLL文件
VB.NET 生成DLL文件 调用DLL文件打开VS2013选择 类库 (1)写入一下代码Public Class Class1 Public Function world() world=“哈喽世界!” End FunctionEnd Class(2)选择 生成——生成world.DLL文件Class1.DLL(3)新建——Visual Basic——Windows—...原创 2018-02-28 21:02:48 · 2749 阅读 · 0 评论 -
.net reactor
安装了.net reactor之后,可以在安装目录下找到帮助文档REACTOR_HELP.chm,目前没有中文版本,里面详细介绍了.net reactor的各功能及使用场景。本系列文章是基于此帮助文档来写的。.net reactor主要有三大面板:菜单面板:- 文件就是普通的创建操作环境,打开操作环境,加载程序集等操作- 运行保护程序集 - 对当前选中的程序集执行保护操作创建许可证文件 - 根据...转载 2018-02-28 20:40:27 · 516 阅读 · 1 评论