我在 Form1 中有 Module Main() 和一个名为 Main() 的函数
Public Module Main
Public Sub Main()
End Sub
End Module
Run Code Online (Sandbox Code Playgroud)
我想从 Form2 运行它,但 Form1.Main() 不起作用,因为它将在 form2 中查找名为 form1 的类。
那么我该怎么做呢?
我收到一个返回值错误,我不知道我做错了什么.我不知道哪里有值可以有人帮我?
Function bot_loop()
Dim pointer_to_localplayer As Integer
Dim pointer_to_incross_player As Integer
Dim player_index_incross As Integer
Dim my_team As Integer
Dim incross_team As Integer
While (Not exit_thread)
If triggeron = True Then
ReadProcessMemory(ffa_process(0).Handle, client_dll_base + LocalPlayer_offset, pointer_to_localplayer, 4, 0)
ReadProcessMemory(ffa_process(0).Handle, pointer_to_localplayer + InCross_offset, player_index_incross, 4, 0)
If player_index_incross > 0 And player_index_incross < 65 Then
ReadProcessMemory(ffa_process(0).Handle, pointer_to_localplayer + Team_offset, my_team, 4, 0)
ReadProcessMemory(ffa_process(0).Handle, client_dll_base + EntityList_offset + ((player_index_incross - 1) * &H10), pointer_to_incross_player, 4, 0)
ReadProcessMemory(ffa_process(0).Handle, pointer_to_incross_player + Team_offset, incross_team, 4, …Run Code Online (Sandbox Code Playgroud)