Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[PORADNIK][VB.NET]Warrock TriggerBot


Rekomendowane odpowiedzi

Opublikowano

Popierwsze dodaj ten moduł (module)

Declarations:

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

 

Subs:

Public Sub LeftDown() 
                     Call mouse_event(&H2, 0, 0, 0, 0) 
               End Sub 

               Public Sub LeftUp() 
                     Call mouse_event(&H4, 0, 0, 0, 0) 
               End Sub

 

i jedna myśl potrzebujesz, ReadNOP :)

Public Function ReadNOP(ByVal Address As Integer) 
            Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock") 
            If warrockLookUp.Length = 0 Then 
            End 
            End If 
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id) 
            ReadProcessMemory(processHandle, Address, RBuff1, 1, Nothing) 
            CloseHandle(processHandle) 
            Return RBuff1 
            End Function

 

Stwórz 2 Button'y i 1 Timer

 

Declarations:

Dim BOT As Boolean

 

On Button:

Timer1.Enabled = True

 

Off Button:

Timer1.Enabled = False

 

Timer1:

 If ReadNOP(&H900458) = "2" And BOT = False Then 
                LeftDown() 
                BOT = True 
            End If 
            If ReadNOP(&H900458) <> "2" And BOT = True Then 
                LeftUp() 
                BOT = False 
            End If

 

PAMIĘTAJ wklej to w form load

BOT = False

myimageog3.gif

ban1.gif

>>> MOJE PORADNIKI DO PROGRAMOWANIA <<<

Mogę pomódz w waszych problemach w godzinach 8-24 PW

  • 1 miesiąc temu...
Opublikowano

mam problem bo w module podstawiłem przy ReadNOP ale mi wyskakuje błąd że adresy sa niezadklerowane (chodzi o te linijki :

 

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

ReadProcessMemory(processHandle, Address, RBuff1, 1, Nothing)

CloseHandle(processHandle)

 

i źle jest tutaj

 

(oczywiscie podstawiłem - OpenProcess-IXTZKRPHMY, ReadProcessMemory-WGJQVDRYEK, CloseHandle-NKCWHMEAWU)

 

a reszta chyba dobrze... (jedno pytanie w tej linijce : ReadProcessMemory(processHandle, Address, RBuff1, 1, Nothing) ) adress ma zostac czy go podstawic do adresu triggerbota czy cO?!

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...