tongsin35768491 發表於 2017-7-14 14:39:49

【VB.NET】已用CE找到cs1.6的基址與一些功能,請問怎麼寫入VB.NET

本帖最後由 tongsin35768491 於 2017-8-31 16:34 編輯

如題,使用ReadWritingMemory編寫CS1.6外掛
Code如下:
Public Class Form1

    Function GetModuleHandle(ByVal processx As String, ByVal modulex As String) As IntPtr
        Dim prs As Process() = Process.GetProcessesByName(processx)
        If prs.Length > 0 Then
            On Error Resume Next
            Dim pi As ProcessModuleCollection = prs(0).Modules
            For Each pmod As ProcessModule In pi
                If pmod.ModuleName = (modulex) Then
                    Return pmod.BaseAddress
                Else
                End If
            Next
        End If
    End Function
    Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Timer1.Enabled = True
        ElseIf CheckBox1.Checked = False Then
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        WriteDMAInteger("cstrike", GetModuleHandle("cstrike", "cstrike.exe") + &H1101CFC, {&H1E0}, 255, 1, 4)
    End Sub
End Class
'-----------
WriteDMAInteger("cstrike", GetModuleHandle("cstrike", "cstrike.exe") + &H1101CFC, {&H1E0}, 255, 1, 4),這段是我CS1.6版本的數據生命
WriteDMAFloat也試過了...但改了之後不是沒動靜,就是數據變成0,人物斜一邊,有用ReadDMAInteger查看一下改的數據,是破千萬的...是LV的問題嗎?
頁: [1]
查看完整版本: 【VB.NET】已用CE找到cs1.6的基址與一些功能,請問怎麼寫入VB.NET