看流星社区 › 其它编程技术 › 给所有0基础的新手学VB 包会 必看！

klxzjq98 发表于 2013-1-31 09:15:47

!!!!!!!!!!!!!!!!!!!!!

红孩儿 发表于 2013-2-1 20:17:29

学习下来錒

z128144 发表于 2013-2-3 22:20:01

有这么神奇吗？谢谢楼主 呵呵

312308080 发表于 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

相信樓主。。學習啦

ohsky 发表于 2013-2-21 13:40:09

一天看5篇 都要10天左右也能完全学会

zhangtaishan1 发表于 2013-2-24 11:58:46

而哈儿瓜哈尔规划

1228735001 发表于 2013-3-3 12:16:08

回复 1# 没有不可能


    谢谢分享啊

成长的瓜 发表于 2013-3-21 21:43:52

觉得门口。。dkdwddfefe

查看完整版本: 给所有0基础的新手学VB 包会 必看！