QQ拼拼看修改器源代码

'由于信手写出来忘记那份数据是原来的 那份是修改的了

'如果测试无线点不得 那就是把函数弄反了正常才是无限

'-----------------------------------窗体代码-------------------------------------------------

Option Explicit

'-----------------------------------------

'QQ拼拼看修改源码 QQ627666017

'-----------------------------------------

Private Sub Command1_Click()
Dim b As Byte
cdlfile.ShowOpen
Text1.Text = cdlfile.FileName
If Right(Text1.Text, 10) <> "PPKrpg.exe" Then
MsgBox "不是游戏程序文件."
Exit Sub
End If
If Dir(Text1.Text + ".bak") = "" Then
Open Text1.Text For Binary As #1
Open Text1.Text + ".bak" For Binary As #2
Do While Not EOF(1)
Get #1, , b
Put #2, , b
Loop
Close #1
Close #2
End If
If FileLen(Text1.Text) <> 438396 Then
MsgBox "文件长度不符,可能游戏已经更新,不能用这个软件修改."
Command2.Enabled = False
Command3.Enabled = False
Else
Command2.Enabled = True
Command3.Enabled = True
GetBytes Text1.Text
End If
End Sub

Private Sub Command2_Click()
ResetVar
SetBytes Text1.Text
MsgBox "恢复正常模式."
End Sub

Private Sub Command3_Click()
SetVar
SetBytes Text1.Text
MsgBox "启动无敌点击模式,你可以在游戏中快速点击."
End Sub

'-----------------------------------模块代码-------------------------------------------------

Option Explicit

'-----------------------------------------

'QQ拼拼看修改源码 QQ627666017

'-----------------------------------------

Public b(1 To 438396) As Byte '文件长度

Public Function GetBytes(ByVal f As String)
Dim i As Long
Open f For Binary As #1
For i = 1 To 438396
Get #1, i, b(i)
Next i
Close #1
End Function

Public Function SetBytes(ByVal f As String)
Dim i As Long
Open f For Binary As #1
For i = 1 To 438396
Put #1, i, b(i)
Next i
Close #1
End Function

Public Function ResetVar()
b(62460) = &H74 '&H1d74 这样写是直接写入一个Integer(2字节)
b(62461) = &H1D
b(99000) = &H8B 'Long值
b(99001) = &H4D
b(99002) = &HFC
b(99003) = &HE8
b(99004) = &HA2 'Long值
b(99005) = &HDE
b(99006) = &HFF
b(99007) = &HFF
b(101423) = &H0 '字节 0
b(101619) = &HEA '字节
b(174615) = &H8B 'Long值
b(174616) = &H4D
b(174617) = &HF8
b(174618) = &H51
b(174619) = &H8B 'Long值
b(174620) = &H55
b(174621) = &HFC
b(174622) = &H52
b(174704) = &H68 'Integer
b(174705) = &H86
b(174706) = &H0 'Boolean
b(174707) = &H0
b(174708) = &H0 'Integer
b(174709) = &HB9
b(174710) = &HA8
b(177989) = &H8B
b(177990) = &H45
b(177991) = &HFC
b(177992) = &H50
b(177993) = &H8B
b(177994) = &H4D
b(177995) = &HF8
b(177996) = &HE8
b(177997) = &H42
b(177998) = &HF5
b(177999) = &HFF
b(178000) = &HFF
b(178001) = &H85
b(178002) = &HC0
b(178003) = &H75
b(178004) = &H5A
b(346409) = &HB5
b(346410) = &HB9
End Function

Public Function SetVar()
b(62460) = &H90
b(62461) = &H90
b(99000) = &HE9
b(99001) = &HB7
b(99002) = &H0
b(99003) = &H0
b(99004) = &H0
b(99005) = &H90
b(99006) = &H90
b(99007) = &H90
b(101423) = &H1
b(101619) = &HC2
b(174615) = &HEB
b(174616) = &H12
b(174617) = &H90
b(174618) = &H90
b(174619) = &H90
b(174620) = &H90
b(174621) = &H90
b(174622) = &H90
b(174704) = &HEB
b(174705) = &HD
b(174706) = &H90
b(174707) = &H90
b(174708) = &H90
b(174709) = &H90
b(174710) = &H90
b(177989) = &H90
b(177990) = &H90
b(177991) = &H90
b(177992) = &H90
b(177993) = &H90
b(177994) = &H90
b(177995) = &H90
b(177996) = &H90
b(177997) = &H90
b(177998) = &H90
b(177999) = &H90
b(178000) = &H90
b(178001) = &H90
b(178002) = &H90
b(178003) = &H90
b(178004) = &H90
b(346409) = &HD5
b(346410) = &HFD
End Function