nopaste
HomeAll pastesPopular pastesRecent pastes

Public paste
Undefined
By: Guest | Date: Oct 2 2011 19:46 | Format: AutoIT | Expires: never | Size: 1.89 KB | Hits: 1298
Edit & repaste | raw paste | Request removal

  1. #include <NomadMemory.au3>
  2. #include <GUIConstantsEx.au3>
  3. #include <WindowsConstants.au3>
  4. #Include <GuiComboBox.au3>
  5. #include <Security.au3>
  6.  
  7. $Pasjans = 0
  8. $PamiecPasjansa = 0
  9. $List = 0
  10.  
  11. $Okno     = GUICreate("Pasjans hack", 200, 130)                                                 ; Tworzenie okna
  12. $Dodaj100 = GUICtrlCreateButton("Dodaj punkty", 100, 40, 85, 80)        ; Dodanie przycisku
  13. $Podepnij = GUICtrlCreateButton("Podepnij", 10, 40, 85, 80)
  14.  
  15. $Lista    = GUICtrlCreateCombo("", 10, 10, 180, 10)
  16.  
  17. GUISetState(@SW_SHOW)                                   ; Pokazanie okna
  18. GuiCtrlSetState($Dodaj100, $GUI_DISABLE) ; Wy&#322;&#261;czenie przycisku
  19.  
  20. Tworz_Liste_Procesow()
  21.  
  22. While(1) ; Powtarzaj w niesko&#324;czonos&#263;
  23.         $Wydarzenie = GUIGetMsg() ; Sprawd&#378;, czy uytkownik cos zrobil
  24.        
  25.         Switch($Wydarzenie)
  26.                 Case $GUI_EVENT_CLOSE   ; Jesli nacisnieto 'X'
  27.                         ExitLoop
  28.                 Case $Podepnij
  29.                         $CurrentSelected = _GUICtrlComboBox_GetCurSel($Lista)
  30.                         if $CurrentSelected > 0 Then
  31.                                 OtworzPasjansa($List[$CurrentSelected][1])
  32.                                 GUICtrlSetState($Dodaj100, $GUI_ENABLE)
  33.                         EndIf
  34.                 Case $Dodaj100
  35.                         DodajPunkty()
  36.         EndSwitch
  38.  
  39. _MemoryClose($PamiecPasjansa)
  40.  
  41. Func Tworz_Liste_Procesow()
  42.         $List = ProcessList()
  43.         $Procesy = ""
  44.        
  45.         For $i = 0 to $List[0][0]
  46.                 $Procesy &= $List[$i][0]
  47.                 if Not($i == $List[0][0]) Then
  48.                         $Procesy &= "|"
  49.                 EndIf
  50.         Next
  51.        
  52.         GUICtrlSetData($Lista, $Procesy)
  54.  
  55. Func OtworzPasjansa($pid)
  56.         $PamiecPasjansa = _MemoryOpen($pid, 0x1F0FFF, 1)
  57.        
  58.         if($PamiecPasjansa == 0) Then
  59.                 MsgBox(0, "Errror", "Uruchom pasjansa2!")
  60.                 Exit
  61.         EndIf
  63.  
  64. Func DodajPunkty()
  65.         $Wskaznik1 = _MemoryRead(0x1007170, $PamiecPasjansa)
  66.        
  67.         $Wskaznik1 += 0x30
  68.        
  69.         $Punkty    = _MemoryRead($Wskaznik1, $PamiecPasjansa)
  70.        
  71.         $Punkty += 100
  72.  
  73.         _MemoryWrite($Wskaznik1, $PamiecPasjansa, $Punkty)
  74.         $Punkty    = _MemoryRead($Wskaznik1, $PamiecPasjansa)
  75.        
  76.         MsgBox(0, "Title", "Masz: "&$Punkty&" punktw!  ")
  77.        
Latest pastes
Изготовление квадратных номеров
16 hours ago
X-Parser Light — парсер контента для сайтов с записью в базу данных.
19 hours ago
how safe is it to buy clomid online
23 hours ago
ZennoProxyChecker - software for performing checks of proxies across many parameters.
2 days ago
4 FULL HD VIDEOS GREAT COLLECTION EXCLUSIVE XXX CONTENT 1080P
2 days ago

What's new | Credits | Contact