看流星社区

 找回密码
 注册账号
楼主: 没有不可能

[VB] 给所有0基础的新手学VB 包会 必看!

[复制链接]

该用户从未签到

发表于 2013-1-31 09:15:47 | 显示全部楼层
!!!!!!!!!!!!!!!!!!!!!

该用户从未签到

发表于 2013-2-1 20:17:29 | 显示全部楼层
学习下来錒

该用户从未签到

发表于 2013-2-3 22:20:01 | 显示全部楼层
有这么神奇吗?谢谢楼主 呵呵

该用户从未签到

发表于 2013-2-6 08:09:50 | 显示全部楼层
支持看看学习

该用户从未签到

发表于 2013-2-7 16:09:42 | 显示全部楼层
高效率的VB特征码搜索

本人的全部测试代码

本帖隐藏的内容需要回复才可以浏览

Option Explicit
Private Declare Function GetTickCount Lib kernel32  () As Long
Dim 缓冲区() As Byte, 字节数 As Long
Dim Hex字符串 As String

Private Sub 测试1_Click()
Dim 测试字符串 As String
测试字符串 = 我爱狼狼
缓冲区 = StrConv(测试字符串, vbFromUnicode)
Debug.Print StrConv(BinToHex(缓冲区), vbUpperCase)
End Sub

Public Function BinToHex(iArray() As Byte) As String
Dim iXml As New MSXML2.DOMDocument30
With iXml.createElement(Encoder)
.dataType = bin.hex
.nodeTypedValue = iArray()
BinToHex = .Text
End With
'Set iXml = Nothing
End Function

Private Sub 测试2_Click()
Dim Temp As Long
Temp = GetTickCount
Call 打开文件(E游戏类网络游戏《完美世界》国际版elementclient.exe)
Text2.Text = 特征码查找(Hex字符串, Text3.Text)
'Text2.Text = 特征码查找(Hex字符串, 6489250000000083EC18535556575068, YYYYYYYYYYYYYY)
MsgBox 字节数: & 字节数 & 字节 & vbCrLf & 耗时: & Trim(GetTickCount - Temp)  1000 & 秒, , 我爱狼狼

End Sub

Function 打开文件(ByVal 文件名 As String) As Byte()
On Error Resume Next
Dim 序号 As Integer
序号 = FreeFile '自动生成序号

Open 文件名 For Binary As #序号
    字节数 = LOF(序号)
    ReDim 缓冲区(1 To 字节数) As Byte
    Get #序号, , 缓冲区
Close #序号
Me.Caption = BinToHex测试 By 克隆狼 -  & 文件名
Hex字符串 = BinToHex(缓冲区)
'Text1.Text = Hex字符串
'Debug.Print UCase(Hex字符串)
End Function

Function 特征码查找(ByVal Hex格式字符串 As String, ByVal 特征码 As String, Optional ByVal 替换成的字符 As String = Y) As String
Dim 需要替换长度 As Long, 替换字符 As String
Dim 找到的位置 As Long
特征码 = LCase(Replace(Trim(特征码),  , ))
需要替换长度 = (Len(特征码)  2)  2
替换字符 = Trim(String(需要替换长度, LCase(Mid(替换成的字符, 1, 1))))

Hex格式字符串 = LCase(Replace(Trim(Hex格式字符串), 特征码, 替换字符))
找到的位置 = InStr(Hex格式字符串, 替换字符)  2
特征码查找 = Hex(找到的位置)
'Debug.Print UCase(Hex格式字符串)
'Debug.Print UCase(特征码)
'Debug.Print UCase(替换字符)
End Function
复制代码

该用户从未签到

发表于 2013-2-11 21:41:49 | 显示全部楼层
相信樓主。。學習啦

该用户从未签到

发表于 2013-2-21 13:40:09 | 显示全部楼层
一天看5篇 都要10天左右也能完全学会

该用户从未签到

发表于 2013-2-24 11:58:46 | 显示全部楼层
而哈儿瓜哈尔规划

该用户从未签到

发表于 2013-3-3 12:16:08 | 显示全部楼层
回复 1# 没有不可能


    谢谢分享啊

该用户从未签到

发表于 2013-3-21 21:43:52 | 显示全部楼层
觉得门口。。dkdwddfefe
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-28 20:30

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表