Ir a contenido

PURCHASE MEMBERSHIP AT A 25% DISCOUNT Apply here

GET 1 MONTH OF MEMBERSHIP BY CHOOSING THE NEW NAME OF OUR COMPANY! Apply here


Photo

[Tutorial]- Trabajar con While y ReadMemory leer un valor.


      
[Tutorial]- Trabajar con While y ReadMemory leer un valor. TvOToho[Tutorial]- Trabajar con While y ReadMemory leer un valor. TvOToho
[Tutorial]- Trabajar con While y ReadMemory leer un valor.

alexmen10
#1

alexmen10
  • alexmen10
  • administrator
  • Status :
    HS4L Team
  • Mensajes :
    418
  • Reputación :
    257
  • Points :
    23
  • Registrado :
    2012-09-08
Bueno como siempre trabajando con autoit para vosotros smid_1 

con nuestros tutoriales únicos en HS4L 


Este tutorial aprenderemos:

  • Dominar el while
  • Dominar el Readmemory y entenderlo Descargar el readmemory abajo al final smid_1
  • Dejar de spamear una función y spamearla hala vez.





Primero que es un While?
Un while es un bucle que repite un conjunto de instrucciones
 Si desea repetir las instrucciones un número fijo de veces ejemplo el For 





Ejemplo de un While

Code:
Func msgbox()
   While (1000) ;repite la instrucción cada 1 segundo.
      msgbox(0,"","")
         ExitLoop  ;Pausa el While
   Wend
EndFunc







Ahora usare estas funciones al juego.

Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 328, 131, 192, 124)
$Input1 = GUICtrlCreateInput("Valor...", 72, 48, 185, 21)
$Label1 = GUICtrlCreateLabel("Hotkey Enter", 80, 88, 66, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   Dim $read = _MemoryRead(0x0227D748,_MEMORYOPEN(ProcessExists("S4Client.exe")),"char[255]")
   if $read = "value_max" Then ;Detecta value_max
      GUICtrlSetData($Input1, $read)
      ExitLoop ;Pausa el While 1 para permitir cerrar el Programa
    ElseIf $read = "value_max1" Then
      GUICtrlSetData($Input1, $read)
      ExitLoop ;Pausa el While 1 para permitir cerrar el Programa
   else
      MsgBox(64,"HS4L","No detecta el valor...")
   ExitLoop ;Pausa el While 1 para evitar 100 msgbox de golpe xD!
   EndIf
   Wend
EndFunc

Func HS4LRead()
   While 1
   Dim $read = _MemoryRead(0x0227D748,_MEMORYOPEN(ProcessExists("S4Client.exe")),"char[255]")
      GUICtrlSetData($Input1, $read) ;Lee el valor del Address es ...
      msgbox(0,"","")
         ExitLoop  ;Pausa el While 1 para permitir cerrar el programa
   Wend
EndFunc




[You must be registered and logged in to see this image.]

ire completando mas el tutorial dudas por comentarios smid_1
Attachments
NomadMemory.zip You don't have permission to download attachments.(5 Kb) Downloaded 7 times

warriornigh
#2

warriornigh
  • warriornigh
  • moderator
  • Mensajes :
    25
  • Reputación :
    14
  • Points :
    0
  • Registrado :
    2014-10-30
¡Está muy bien el post alexmen10! ¡Como siempre, muchas gracias por hacer estos tutoriales!

[You must be registered and logged in to see this link.]: Seyer
[You must be registered and logged in to see this link.]: no está permitido el uso de colores en comentarios y/o títulos.

Seyer
#3

Seyer
  • Seyer
  • administrator
  • Status :
    HS4L Team
  • Mensajes :
    692
  • Reputación :
    64
  • Points :
    2
  • Registrado :
    2012-08-09
[You must be registered and logged in to see this link.]: inactividad del post.

Sponsored content
#4

Sponsored content

      

Create an account or log in to leave a reply

You need to be a member in order to leave a reply.

Create an account

Join our community by creating a new account. It's easy!


Create a new account

Log in

Already have an account? No problem, log in here.


Log in
You cannot reply to topics in this forum
Staff online
Sponsors
  •  TOTAL POSTS
  •  TOTAL MEMBERS
  •  NEWEST MEMBER