Bem-vindo ao Fórum!

Registre-se agora mesmo e fique por dentro da maior comunidade de Cheats do Brasil!

ProDiiGeoBoyy

Bronze Member
  • Content Count

    350
  • Joined

  • Last visited

  • Days Won

    1
  • WCoins

    0 [ Donate ]

ProDiiGeoBoyy last won the day on August 19 2017

ProDiiGeoBoyy had the most liked content!

Community Reputation

54 Excellent

5 Followers

About ProDiiGeoBoyy

  • Rank
    execl
  • Birthday 12/17/1998

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Eae sumido, não entra mais skype sumiu de tudo cade vocêeeee, add eu no skype la: screen.anonymous OLD kk
    1. ProDiiGeoBoyy

      ProDiiGeoBoyy

      estou com o mesmo ainda
    2. Edhorne

      Edhorne

      [A]bs0lut aqui, @[4665719:@ppkanervosa] Nathan sumido '-'
  2. Kill("local do arquivo")
  3. matemática básica. x*(total de kb)/100 = (kbs baixados) exemplo: 1,40MB = 1400KBS (total de MB para baixar) 0,33MB = 330KBS (MB baixados) x*1400/100=0330 1400x = 33000 x=23% agora é só aplicar na linguagem que esta fazendo
  4. Bom, estava sem nada para fazer e decidir montar essa função para Combat Arms ja que nunca vi nesta area. Lembrando que não é 100% eficaz pois não usa algum tipo de chams, porém da pra quebrar um galho em partida com sniper. O fov eu deixei no 1.0 pois foi a melhor opção na minha opinião, mas fica a escolha. void triggerbot() { GetPlayerByIndex = (lpGetPlayerByIndex)PlayerByIndex; GetLocalPlayer = (lpGetLocalPlayer)LocalPlayer; unsigned long ulThis = *(unsigned long *)ClientInfoMgr; cSFXMgr *SFXMgr = pGameClientShell->GetSFXMgr(); if(ValidPointer(SFXMgr)) { for(INT i = 0; i < SFXMgr->SFXList[0x18].Num; i++) { cCharacterFX *Player = (cCharacterFX*)SFXMgr->SFXList[0x18].List[i]; if(ValidPointer(Player) && ValidPointer(Player->Object)) { pPlayerInfo *pLocal = GetLocalPlayer(ulThis); pPlayerInfo *pPlayer = GetPlayerByIndex(ulThis, Player->Index); if( ValidPointer(pPlayer) && ValidPointer(pPlayer->Object) ) { Transform AimTransform; pLTModel->GetNodeTransform((INT *)Player->Object, 8, &AimTransform, TRUE); if( pPlayer->IsDead == 0) { if(pPlayer->Time != pLocal->Time ) { if(!IsVisible(MyGetObjectMaxPos(pPlayerManager->CameraObject), AimTransform.Pos)) continue; if(!GetAimbotFOV(1.0f, MyGetObjectMaxPos(pPlayerManager->CameraObject), AimTransform.Pos)) continue; if(Hacker[12]) // sua tecla para ativar { mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); } } } } } } } } [spoiler=TriggerBot]quando o inimigo esta em cima de sua mira e ela dispara automaticamente;
  5. Desenhe as Tabs do menu, depois faça uma checagem do click da tab com GetCursorPos. ficando mais ou menos assim: INT ChecarTabs(INT x, INT y, INT w, INT h, INT Key) { POINT cPos; GetCursorPos(&cPos); if(cPos.x > x && cPos.x < x + w && cPos.y > y && cPos.y < y + h) { if(GetAsyncKeyState(Key)<0) { return 1; } return 2; } return 0; } void MouseTab() { extern int PosX, PosY; if(ChecarTabs(PosX + 0, PosY + 13, 50, 50, VK_LBUTTON) == 1) // seleção das tabs { if(tabs!= 0) { tabs= 0; } } else if(ChecarTabs(PosX + 60,PosY + 13,50,50,VK_LBUTTON) == 1) { if(tabs!= 1) { tabs= 1; } } } } no menu if(Folder == 0) { Additem(...); } a logica é essa, não costumo usar menu com tabs
  6. mais uma! class PlayerInfo { public: __int32 Index; //0x0000 __Object *Object; //0x0004 BYTE IsDead; //0x0008 char _0x0009[3]; __int32 Time; //0x000C char _0x0010[24]; char Name[20]; //0x0028 char _0x003C[4]; __int32 Baixas; //0x0040 __int32 Mortes; //0x0044 char _0x0048[1016]; };//Size=0x0440
  7. Eae sumido da uma aparecida no skype dps.
  8. Não entendo muito de RPGMMO, mas é como o amigo disse, basta achar a posição real do personagem e modifica-la.
  9. parece está tudo certo, deve ter algo errado em alguma linha de outro código!
  10. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If IO.File.Exists(OpenFileDialog1.FileName) Then Dim TargetProcess As Process() = Process.GetProcessesByName(Label4.Text) If TargetProcess.Length = 0 Then Label5.Visible = True Label5.ForeColor = Color.Red Label5.Text = ("Esperando: " + Label4.Text + ".exe" + "....") Else '// aqui diz que o processo foi encontrado!!! Timer1.Stop() MsgBox("DLL injetada com sucesso!") '// como você diz que foi injetada se ainda nem chamou a função "Inject" ? Me.Close() Label5.ForeColor = Color.Green Label5.Text = "DLL Injetada com sucesso!" '// mesma coisa! Call Inject() End If End If End Sub Private Sub Inject() On Error GoTo 1 ' Se ocorrer um erro, o programa é fechado sem qualquer mensagem de erro use um "Try" Timer1.Stop() Dim TargetProcess As Process() = Process.GetProcessesByName(Label4.Text) TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id) pszLibFileRemote = OpenFileDialog1.FileName pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA") TargetBufferSize = 1 + Len(pszLibFileRemote) Dim Rtn As Integer Dim LoadLibParamAdr As Integer LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE) Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0) CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0) CloseHandle(TargetProcessHandle) 1: Me.Show() 'aqui seria Me.Close() End Sub Estou sem tempo pra testa, porém fiz uns comentários onde estava errado, porem pode funcionar assim!
  11. Função inject! Private Function Inject(ByVal pID As Integer, ByVal dllLocation As String) As Boolean Dim hProcess As Integer = OpenProcess(&H1F0FFF, 1, pID) If hProcess = 0 Then Return False Dim dllBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(dllLocation) Dim allocAddress As Integer = VirtualAllocEx(hProcess, 0, dllBytes.Length, &H1000, &H4) If allocAddress = Nothing Then Return False Dim kernelMod As Integer = GetModuleHandle("kernel32.dll") Dim loadLibAddr = GetProcAddress(kernelMod, "LoadLibraryA") If kernelMod = 0 OrElse loadLibAddr = 0 Then Return False WriteProcessMemory(hProcess, allocAddress, dllBytes, dllBytes.Length, 0) Dim libThread As Integer = CreateRemoteThread(hProcess, 0, 0, loadLibAddr, allocAddress, 0, 0) If libThread = 0 Then Return False Else WaitForSingleObject(libThread, 5000) CloseHandle(libThread) End If CloseHandle(hProcess) Return True End Function como usar: Dim TempFile As String = My.Computer.FileSystem.GetTempFileName IO.File.WriteAllBytes(TempFile, My.Resources.nomedadll) Dim ProcID As Integer = Process.GetProcessesByName("processo")(0).Id Inject(ProcID, TempFile)