Skocz do zawartości

konri100

Members
  • Postów

    58
  • Rejestracja

  • Ostatnia wizyta

Osiągnięcia konri100

  1. mam takie cos #include <NomadMemory.au3> ; ściągnąc i skopiowac do katalogu autoit Include #include <WindowsConstants.au3> Opt("WinWaitDelay", 100) Opt("WinTitleMatchMode", 4) Global $client = "Nostale" $PID = WinGetProcess($client) Global $hprocess = _MemoryOpen($PID) Global $hwnd = WinGetHandle($client) ; send single keyboard event to non active window ; event = pressed, down, up ; kdown = key down delay ; note: supports only lower case keys + NUMx, Fx, some special keys and @ Func KeySend($inkey, $evt = "pressed", $kdown = 50) $user32 = DllOpen("user32.dll") If $user32 = -1 Then ConsoleWrite("KeySend: cannot open user32.dll") Exit EndIf ; handling for special keys Switch StringUpper($inkey) Case "@" $skey = 0x40 $lparam = 0x00100001 DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", 0x71, "long", $lparam) DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_CHAR, "int", $skey, "long", $lparam) Sleep(20) DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", 0x71, "long", BitOR($lparam, 0xC0000000)) Case "F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "F11", "F12" $skey = 0x6f + Int(StringMid($inkey, 2)) ContinueCase Case "NUM0", "NUM1", "NUM2", "NUM3", "NUM4", "NUM5", "NUM6", "NUM7", "NUM8", "NUM9" If StringUpper(StringLeft($inkey, 3)) = "NUM" Then $skey = 0x60 + Int(StringMid($inkey, 4)) EndIf ContinueCase Case "RETURN", "SPACE", "TAB", "BACK", "END", "HOME", "SNAPSHOT", "INSERT", "DELETE", "LEFT", "RIGHT", "UP", "DOWN" Switch StringUpper($inkey) Case "RETURN" $skey = 0x0D Case "SPACE" $skey = 0x20 Case "TAB" $skey = 0x09 Case "BACK" $skey = 0x08 Case "END" $skey = 0x23 Case "HOME" $skey = 0x24 Case "SNAPSHOT" $skey = 0x2c Case "INSERT" $skey = 0x2d Case "DELETE" $skey = 0x2e Case "LEFT" $skey = 0x25 Case "RIGHT" $skey = 0x27 Case "UP" $skey = 0x26 Case "DOWN" $skey = 0x28 EndSwitch $ret = DllCall($user32, "int", "MapVirtualKey", "int", $skey, "int", 0) $lparam = BitShift($ret[0], -16) $lparam = BitOR($lparam, 1) DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", $skey, "long", $lparam) Sleep($kdown) DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lparam, 0xC0000000)) Case Else ; default lower case key handling $key = DllCall($user32, "int", "VkKeyScan", "int", Asc(StringLower($inkey))) $skey = $key[0] $ret = DllCall($user32, "int", "MapVirtualKey", "int", $skey, "int", 0) $lparam = BitShift($ret[0], -16) $lparam = BitOR($lparam, 1) Select Case $evt = "pressed" DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", $skey, "long", $lparam) Sleep($kdown) DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lparam, 0xC0000000)) Case $evt = "down" DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", $skey, "long", $lparam) Case $evt = "up" DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lparam, 0xC0000000)) EndSelect EndSwitch DllClose($user32) EndFunc ;==>KeySend HotKeySet("{HOME}", "start") HotKeySet("{END}", "stop") Local $start = 1 Func start() $start = 0 EndFunc Func stop() $start = 1 EndFunc While 1 if $start = 0 Then KeySend("Space") Sleep(500) EndIf WEnd no i sie spacja nie naciska, co zrobic zeby sie naciskala ?
  2. konri100

    Fishbot Na Hs3?

    jest
  3. a dziala na zminimalizowanym ?
  4. konri100

    Fishbot Działający

    Czy jest jakiś działa jący fishbot na zminimalizowanym, używałem xangelbot 2.7 ale nie działa już
  5. Mam tego hacka i sam nie wiem czy on działa na zwykłe hity, na skile zawsze a na hity to raz kiedyś mi coś tak jakby mrugnęło, jeżeli nie działa to jest może DMG hack na skile i na hity (bez konia)
  6. Mylisz "źle" a "nieoptymalnie" ... Jest dobrze ale nie optymalnie.
  7. Co źle ? jakoś mi działa wszystko ładnie ?
  8. Czego wy chcecie ? Ciągle ludzie piszą zróbcie mi bota co wpisuje/naciska ... To powiedziałem jak to zrobić, nie wiem po co te plusy mi plusy do szczęścia nie potrzebne.
  9. Dałem cały kod po pierwsze, po drugie autoit żre proca bo jest głodny po trzecie hotkeye nie są w zmiennej btw. kup okulary Woj96 najpierw skompiluj otworz notatnik wlacz program i wcisnij HOME a potem powiedz czy to caly kod czy czesc, ok ? po co w takim programie gui ?
  10. Ponieważ wiele osób chce aby coś im się wpisywało lub naciskało klawisz przedstawiam ten tut. Przykład Local $start = 1 ;deklaracja zmiennej Func start() ;funkcja start $start = 0 ;przypisanie 0 do zmiennej EndFunc ;koniec funkcji Func stop() $start = 1 ;tego nie będę opisywać bo można się domyśleć EndFunc Func wyjdz() exit ;wyjście z programu EndFunc While 1 ;pętla nieskończona HotKeySet("{HOME}", "start") ;jak naciśniesz HOME to włączy sie funkcja start podobnie poniższe HotKeySet("{END}", "stop") HotKeySet("{DELETE}", "wyjdz") if $start = 0 Then ;jeżeli start równe 0 to ... Send("z") ;naciska z Sleep(50) ;czeka 0,05 sekundy EndIf ;koniec instrukcji WEnd ;koniec pętli Przyciski piszemy tak {KLAWISZ} jeśli jest to tego typu: enter,shift,!,%,&,home,insert itd. A klawisze alfabetu a,b,c,d,e,f... bez {} czyli Send("z") A np. ctrl+a Send("^a") Sleep(Czas na jaki ma się zatrzymać), Sleep(1000) czeka 1 sekundę (podajemy w milisekundach Gdy będziecie robić takie proste boty możecie użyć tego Local $start = 1 Func start() $start = 0 EndFunc Func stop() $start = 1 EndFunc Func wyjdz() exit EndFunc While 1 HotKeySet("{HOME}", "start") HotKeySet("{END}", "stop") HotKeySet("{DELETE}", "wyjdz") if $start = 0 Then ;Tutaj instrukcje które mają się wykonać EndIf WEnd Mam nadzieje, że pomogłem jak macie pytania to pisać A i np. żeby wcisnęło enter i wpisało saada 123 to instrukcja Send("{ENTER}") Sleep(100) Send("saada 123")
  11. Ja radzę żebyś zaczął naukę w wieku 13-14 lat wcześniej nic ci do głowy nie wejdzie. Jak miałem 12 lat i zobaczyłem kod php jednej gry www to się przestaszyłem potem 13 latek i wszystko do główki szło :P tera mam 14 latek i robię se gierki www i to dosyć zaawansowane ale tylko w php html css mysql i trochę js (przydał by się flash i ajax ):P a i myślę że mógł byś się teraz uczyć html to nie takie drudne ale html to nie język programowania tylko język internetowy ale jak się nauczysz html to potem możesz php i po php już dowolny język powinnien ci wchodzić
  12. Mam pytanie jak włączyć 3 konta naraz bo gdy włączę 1 i zmienimalizuje to potem sie odłącza tamto i nie wiem jak trzeba to zmienimalizować aby było więcej kont
  13. oczywiście klik + odpowiedni skrypt php
  14. konri100

    [Pytanie] Co To Navicat ?

    Navicat jest to program do obsługi bazy danych jak się połączyć ? może tak
  15. INSTALACJA http://www.youtube.com/v/gOwD7nxMwhQ&hl=pl_PL&fs=1& pliki serwerowe: http://www.megaupload.com/?d=QES8WTX1 skana nie dam bo za dużo zajmuje http://www.youtube.com/v/ENshSJLCo5s&hl=pl_PL&fs=1& link: http://www.speedyshare.com/files/22687807/download/portmap.rar skan : http://www.virustotal.com/pl/analisis/f29964109121c2496eb143307e71babbc492c1a19719360011867c6b1ad310ee-1275238871 http://www.youtube.com/v/NfnvG2H3ZMM&hl=pl_PL&fs=1& plik : http://www.speedyshare.com/files/22686722/download/Metin2%20Connect%20Changer1.7.1.rar skan: http://www.virustotal.com/pl/analisis/7d9d1e8f79ca7076728fde58372767eccdf8bc1df931c57ada89968e7577f184-1275239001 Zapisywanie danych serwera http://www.youtube.com/v/DUGeHpwuKvw&hl=pl_PL&fs=1& BAZA DANYCH łączenie się + gm http://www.youtube.com/v/_nhX8VfJNaI&hl=pl_PL&fs=1&"] navicat: http://www.sciagnij.pl/programy/p/Windows-Programowanie-Bazy_danych-Navicat_for_MySQL_Lite/75 to też ma za dużo jak na moją prędkość tworzenie nowego konta http://www.youtube.com/v/NIOWiX7PoeM&hl=pl_PL&fs=1& hasło:*00A51F3F48415C7D4E8908980D443C29C69B60C9 niedługo kolejne
×
×
  • Dodaj nową pozycję...