- 博客(24)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 VB.net 解密电脑微信聊天记录各格式图片文件
Imports System.IOModule Module1 Sub Main() Dim ls = New Dictionary(Of Integer, String) ls.Add(&HFFD8, "JPG") ls.Add(&H8950, "PNG") ls.Add(&H424D, "BMP") ls.Add(&H4749, "GIF") Dim fileinf.
2022-05-18 11:23:48
2110
原创 VB.net 动态规划问题_背包算法_钢管算法
Public Class Form1 Public 钢管原材料长度 As Double Public 每一刀切割损耗 As Double = 3 Public 需要切割的总根数 As Integer = 0 Public Function 下料算法(Str As String) As List(Of String) 需要切割的总根数 = 0 ...
2020-03-11 13:39:38
99
原创 VB.NET BASE64转字符串和MD5获取和拼音首字母
Public Function strtobase64(s) As String Dim a As Byte() = System.Text.Encoding.UTF8.GetBytes(s) Return Convert.ToBase64String(a) End Function Public Function...
2020-03-11 13:35:41
233
原创 VB.net 64位程序读取内存API
Imports System.Runtime.InteropServicesPublic Module 内存读写API Public Function bytetolong(b() As Byte) As Long Dim s As Long = 0 Dim s0 As Long = b(0) Dim s1 As Long = b(1)...
2020-03-08 12:55:42
1579
1
原创 VB.net 大量插入数据库的方法
Imports System.Data.SqlClientPublic Class Form1 Public sql As SqlConnection Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load sql = New SqlConnection("D...
2020-03-06 20:28:19
1978
原创 VB.net写的音乐播放器，带百度翻译歌词
Imports System.Drawing.TextImports System.IOPublic Class Form1 Public RND As New Random Public g As BufferedGraphics Public g2 As BufferedGraphics Public fonts20 As New F...
2020-03-04 12:54:56
498
原创 VB.net 简单的SQL封装
Imports System.Data.SqlClientPublic Module sql Public sqls As SqlConnection Public cmd As SqlCommand Public Sub lianjie() sqls = New SqlConnection("Data Source=ip地址;Initial Catal...
2020-03-04 12:51:10
298
原创 VB.net 生成二维码和识别二维码
Imports System.TextImports ThoughtWorks.QRCode.CodecImports ThoughtWorks.QRCode.Codec.DataPublic Class edit Private Sub edit_Load(sender As Object, e As EventArgs) Handles MyBase.Load ...
2020-03-04 12:49:43
5868
原创 sql server 存储过程的简单应用
CREATE TABLE [dbo].[账号表] ( [Id] INT IDENTITY (1, 1) NOT NULL, [账号] NVARCHAR (50) NOT NULL, [密码] NVARCHAR (50) NOT NULL, [姓名] NVARCHAR (50) NOT NULL, [权限] NVARCHAR (50) N...
2020-03-01 20:33:58
134
原创 vb.net 数据库上传图片和下载图片
Public Function 读取图片(id) As Image If IsDBNull(id) OrElse id = "" Then Return Nothing End If Dim cmds As New SqlCommand($"select img from 图片表 where id='{id}'", ...
2020-02-29 21:59:57
1184
原创 vb.net利用nsoup读取5173上面的网页数据
Imports System.IOImports System.NetImports System.TextImports System.Windows.ControlsPublic Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load D...
2020-02-25 20:21:56
264
原创 VB.net开发的音乐播放器，支持歌词显示歌词同步，点一下歌词直接跳转
Imports System.IOPublic Class Form1 Public RND As New Random Public g As BufferedGraphics Public g2 As BufferedGraphics Public fonts20 As New Font("微软雅黑", 20) Public fonts11 As ...
2020-02-20 20:49:11
771
1
原创 VB.net TreeView遍历文件夹和文件夹下所有文件
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load createTree(TreeView1, Application.StartupPath) End Sub Public Shared Function createTree(ByVal ...
2020-02-19 20:32:44
1859
原创 VB.net 双缓冲绘图方法
Public g As BufferedGraphics g = BufferedGraphicsManager.Current.Allocate(PictureBox1.CreateGraphics, PictureBox1.DisplayRectangle) g.Graphics.DrawString($"X={p.X}{vbCrLf}Y={p.Y}", Me.Font, Br...
2020-02-15 12:18:32
917
原创 VB.net 文件切片和合并算法
Imports System.IOModule Module1 Sub Main() Dim ZHUOMIAN = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) For I = 0 To 10 Dim RET = CutFile($"{ZHUOMIA...
2020-02-15 12:16:19
565
原创 VB.net 随机数学表达式生成和计算函数
Imports System.Text.RegularExpressionsPublic Class Form1 Dim rand As Random = New Random() Dim t As New List(Of String) Private Sub Form1_Load(sender As Object, e As EventArgs) Handles ...
2020-02-15 12:15:14
613
原创 VB.net 通过反射取得变量值和通过反射调用函数
Imports System.ReflectionPublic Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'Debug.Print(getvalue("xy")) 'Debug.Print(getvalue("xyz"...
2020-02-15 12:10:27
1129
原创 VB.net或者C#编写按键精灵DLL教程
首先创建一个类库然后删除掉默认的类,当然留着也可以接下去添加 新建项然后添加COM类 随便取一个名字,记住,不能中文,不能中文,不能中文 可以编写任意函数代码<ComClass(aabb.ClassId, aabb.InterfaceId, aabb.EventsId)> _Public Class aabb#Region "CO...
2018-12-16 10:34:52
4537
2
原创 按键精灵如何读取listbox的内容
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _ByVal wMsg As Long, ByVal wParam As Long, lParam As int32) As LongDeclare Function FindWindow Lib "user32" Alias ...
2018-05-17 21:20:10
2948
1
原创 按键精灵实现大漠多线程操作记事本
RunApp "regsvr32 c:\dm.dll /s"Dimenv hwnd,index:index=0hwnd = Plugin.Window.SearchEx("Notepad", 0, 0)For i = 0 To UBound(split(hwnd,"|"))-1 BeginThread main Delay 100'必须加,不然会导致线程优先级错误 i...
2018-04-18 20:20:38
6663
原创 简单的利用asp.net 做一个网络时间服务器(vb.net)
第一步,打开VS,然后创建一个ASP.net应用程序第二步,选择空项目就行了然后添加一个web窗体然后把没用的全删除了,保留第一行就行了然后输入以下代码<%=Now %>现在打开浏览器看下吧一个非常纯洁的获得网络时间然后我们把这个页面编译上传到服务器,用iis随便绑定一个空的ip地址就行了...
2018-04-13 12:37:29
590
音乐播放器_重新设计.zip
2020-02-20
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人