dziób tukana

od pisania keylogerów jest dział keylogery. po co mu pomagacie jak to coś ma być "uzupełnieniem" do tego koślawca opartego o _ispressed ?

skoro zmienne $ZZZ i $XXX nie istnieją to jak ty chcesz sprawdzać ich wartość? użyj Eval() Global $KKK[10] Global $SSS[10] $AAA = 3 $BBB = 3 $ZZZ1 = 3 $ZZZ2 = 4 $XXX1 = 2 $XXX2 = 3 For $i = 1 To 4 If $KKK[$AAA - 1] = Eval("ZZZ" & $i) And $SSS[$BBB] = Eval("XXX" & $i) Then EndIf Next

w tym kodzie trzy ostanie funkcje CHECKBOX1, CHECKBOX2 i CHECKBOX3 są nie używane. #Include <WindowsConstants.au3> #Include <ButtonConstants.au3> #Include <StaticConstants.au3> #Include <GUIConstantsEx.au3> #Include <imagesearch.au3> $MOJEGUI = GUICreate("RSB Shooter by Maggot Â? v2.2", 755, 236, 193, 152) GUISetIcon("GFX\Icon.ico") GUISetBkColor(14214392) $BUTTON1 = GUICtrlCreateButton("START", 8, 6, 111, 49, BitOR($BS_BITMAP, $WS_GROUP)) GUICtrlSetImage(-1, "GFX\START.bmp", -1) GUICtrlSetFont(-1, 17, 400, 0, "MS Sans Serif") $INPUT1 = GUICtrlCreateInput("6", 125, 33, 107, 21) $HOTKEYS = GUICtrlCreateButton("Hotkeys", 321, 204, 75, 25, BitOR($BS_BITMAP, $WS_GROUP)) GUICtrlSetImage(-1, "GFX\hotkeys.bmp", -1) $INFO = GUICtrlCreateButton("Info", 400, 204, 75, 25, BitOR($BS_BITMAP, $WS_GROUP)) GUICtrlSetImage(-1, "GFX\info.bmp", -1) $INPUT2 = GUICtrlCreateInput("4", 367, 26, 104, 21) $PIC4 = GUICtrlCreatePic("GFX\RSB Ammo GUI.bmp", 338, 152, 120, 47, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $INPUT3 = GUICtrlCreateInput("2", 640, 26, 101, 21) $GROUP1 = GUICtrlCreateGroup("Functions", 8, 63, 301, 166) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $CHECKBOX1 = GUICtrlCreateCheckbox("", 267, 117, 18, 17) GUICtrlCreateLabel("If RSB-75 is empty then close RSB Shooter", 15, 117, 249, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("If SHIELD is empty then change configuration", 15, 158, 265, 18) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("If HITPOINTS are under 15% then use EMP-01", 15, 199, 267, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $CHECKBOX2 = GUICtrlCreateCheckbox("", 280, 158, 21, 17) $CHECKBOX3 = GUICtrlCreateCheckbox("", 285, 199, 19, 17) $BUTTON2 = GUICtrlCreateButton("Load Functions", 12, 85, 103, 25, BitOR($BS_BITMAP, $WS_GROUP)) GUICtrlSetImage(-1, "GFX\loadfunctions.bmp", -1) GUICtrlCreateGroup("", -99, -99, 1, 1) $INPUT4 = GUICtrlCreateInput("5", 495, 26, 120, 21) $PIC2 = GUICtrlCreatePic("GFX\dobre.bmp", 551, 132, 199, 100, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $INPUT5 = GUICtrlCreateInput("1000", 246, 33, 97, 21) $PIC1 = GUICtrlCreatePic("GFX\rsbbutton.bmp", 125, 10, 108, 20, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $PIC5 = GUICtrlCreatePic("GFX\delay(ms).bmp", 242, 10, 108, 20, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $PIC6 = GUICtrlCreatePic("GFX\x4laserbutton.bmp", 367, 6, 108, 20, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $PIC7 = GUICtrlCreatePic("GFX\sablaserbutton.bmp", 496, 5, 120, 20, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $PIC8 = GUICtrlCreatePic("GFX\empbutton.bmp", 632, 4, 120, 20, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $PIC9 = GUICtrlCreatePic("GFX\cpu.gif", 442, 61, 300, 50, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $PIC3 = GUICtrlCreatePic("GFX\checkbox.bmp", 413, 77, 20, 20, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) GUISetState(@SW_SHOW) HotKeySet("{F1}", "start") HotKeySet("{F2}", "start2") HotKeySet("{F3}", "pauza") HotKeySet("{END}", "koniec") Global $X, $Y While 1 $NMSG = GUIGetMsg() Switch $NMSG Case $GUI_EVENT_CLOSE Exit Case $BUTTON1 $RSBKLAWISZ = GUICtrlRead($INPUT1) $X4KLAWISZ = GUICtrlRead($INPUT2) $OPOZNIENIE = GUICtrlRead($INPUT5) $MOUSEGET = MouseGetPos() $RESULT = _IMAGESEARCH("GFX\cpugra.bmp", 1, $X, $Y, 50) If $RESULT = 1 Then MouseClick("left", $X, $Y, 1, 0) MouseMove($MOUSEGET[0], $MOUSEGET[1], 1) EndIf While 1 Send($RSBKLAWISZ) Sleep($OPOZNIENIE) For $IDX = 0 To 9 If $X4KLAWISZ = $IDX Then If $X4KLAWISZ = $RSBKLAWISZ Then MsgBox(16, "RSB Shooter v2.2", "WRONG x4 LASER BUTTON", 5) Else Send($IDX) Sleep(3000) EndIf EndIf Next WEnd Case $BUTTON2 FUNKCJE() Case $HOTKEYS MsgBox(0, "RSB Shooter v2.2", "F1 - Atakuj biaĹ?kÄ? i RSB" & @CRLF & "F2 - Atakuj SAB'em i RSB" & @CRLF & "F3 - Pauza" & @CRLF & "END - WyĹ?Ä?cz bota") Case $INFO MsgBox(0, "RSB Shooter v2.2", "Bot stworzony przez Maggota." & @CRLF & "Gadu-Gadu: 12753084" & @CRLF & @CRLF & "Jesli masz jakis pomysl a propos bota pisz w tym wÄ?tku:" & @CRLF & "http://www.mpcforum.pl/topic/243159-darkorbit-rsb-shooter-moj/" & @CRLF & "DziÄ?kujÄ? za uzycie mojego bota " & @CRLF & @CRLF & "www.darkfans.za.pl" & @CRLF & "www.mpcforum.pl") EndSwitch WEnd Func FUNKCJE() While 1 If (GUICtrlRead($CHECKBOX1) = $GUI_CHECKED) Then $RESULT = _IMAGESEARCH("GFX\RSB 0.bmp", 1, $X, $Y, 50) If $RESULT = 1 Then Exit EndIf EndIf If (GUICtrlRead($CHECKBOX2) = $GUI_CHECKED) Then $RESULT = _IMAGESEARCH("GFX\SHD 0 box.bmp", 1, $X, $Y, 50) If $RESULT = 1 Then Send("C") EndIf EndIf If (GUICtrlRead($CHECKBOX3) = $GUI_CHECKED) Then $RESULT = _IMAGESEARCH("GFX\HP 0 box.bmp", 1, $X, $Y, 50) If $RESULT = 1 Then Send(GUICtrlRead($INPUT3)) EndIf EndIf WEnd EndFunc Func KONIEC() Exit EndFunc Func START() $RSBKLAWISZ = GUICtrlRead($INPUT1) $X4KLAWISZ = GUICtrlRead($INPUT2) $OPOZNIENIE = GUICtrlRead($INPUT5) $MOUSEGET = MouseGetPos() $RESULT = _IMAGESEARCH("GFX\cpugra.bmp", 1, $X, $Y, 50) If $RESULT = 1 Then MouseClick("left", $X, $Y, 1, 0) MouseMove($MOUSEGET[0], $MOUSEGET[1], 1) EndIf While 1 Send($RSBKLAWISZ) Sleep($OPOZNIENIE) For $IDX = 0 To 9 If $X4KLAWISZ = $IDX Then If $X4KLAWISZ = $RSBKLAWISZ Then MsgBox(16, "RSB Shooter v2.2", "WRONG x4 LASER BUTTON", 5) Else Send($IDX) Sleep(3000) EndIf EndIf Next WEnd EndFunc Func START2() $RSBKLAWISZ = GUICtrlRead($INPUT1) $SABKLAWISZ = GUICtrlRead($INPUT4) $OPOZNIENIE = GUICtrlRead($INPUT5) $MOUSEGET = MouseGetPos() $RESULT = _IMAGESEARCH("GFX\cpugra.bmp", 1, $X, $Y, 50) If $RESULT = 1 Then MouseClick("left", $X, $Y, 1, 0) MouseMove($MOUSEGET[0], $MOUSEGET[1], 1) EndIf While 1 Send($RSBKLAWISZ) Sleep($OPOZNIENIE) For $IDX = 0 To 9 If $SABKLAWISZ = $IDX Then If $SABKLAWISZ = $RSBKLAWISZ Then MsgBox(16, "RSB Shooter v2.2", "WRONG SAB LASER BUTTON", 5) Else Send($IDX) Sleep(3000) EndIf EndIf Next WEnd EndFunc Func PAUZA() $MOUSEGET = MouseGetPos() $RESULT = _IMAGESEARCH("GFX\cpugra.bmp", 1, $X, $Y, 50) If $RESULT = 1 Then MouseClick("left", $X, $Y, 1, 0) MouseMove($MOUSEGET[0], $MOUSEGET[1], 1) EndIf TrayTip("RSB Shooter v2.2", "Pause", 5, 1) While 1 Sleep(100) WEnd EndFunc Func CHECKBOX1() If $CHECKBOX1 = $GUI_CHECKED Then Global $X, $Y $RESULT = _IMAGESEARCH("GFX\RSB 0.bmp", 1, $X, $Y, 50) If $RESULT = 1 Then Exit EndIf EndIf EndFunc Func CHECKBOX2() If $CHECKBOX2 = $GUI_CHECKED Then Global $X, $Y $RESULT = _IMAGESEARCH("GFX\SHD 0 box.bmp", 1, $X, $Y, 50) If $RESULT = 1 Then Send("C") EndIf EndIf EndFunc Func CHECKBOX3() If $CHECKBOX3 = $GUI_CHECKED Then While 1 Global $X, $Y $RESULT = _IMAGESEARCH("GFX\HP 0 box.bmp", 1, $X, $Y, 50) If $RESULT = 1 Then Send(GUICtrlRead($INPUT3)) EndIf WEnd EndIf EndFunc

najprosciej tak #include <GuiConstantsEx.au3> #include <GuiListView.au3> #include <WindowsConstants.au3> ;Opt('MustDeclareVars', 1) Global $listview, $nMsg Global $imput, $label_1, $label_2, $button Global $iIndex, $iSubItem GUICreate("zanzacza sie dwu-klikiem", 500, 420) $listview = GUICtrlCreateListView("Numer|Opis|Act|", 2, 2, 394, 268) GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES) GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT) GUICtrlSendMsg($listview, 0x101E, 0, 100) GUICtrlSendMsg($listview, 0x101E, 1, 220) GUICtrlSendMsg($listview, 0x101E, 2, 50) GUICtrlCreateListViewItem("6665|description|V", $listview) GUICtrlCreateListViewItem("3331|desc.2", $listview) $label_1 = GUICtrlCreateLabel("...", 400, 100, 100, 12) $label_2 = GUICtrlCreateLabel("...", 400, 120, 100, 12) $imput = GUICtrlCreateInput("", 10, 300, 350, 20) $button = GUICtrlCreateButton("zmien", 400, 300, 40, 40) GUISetState() GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $button If $iIndex <> -1 And $iSubItem <> -1 Then _GUICtrlListView_SetItemText($listview, $iIndex, GUICtrlRead($imput), $iSubItem) EndIf EndSwitch WEnd Func WM_NOTIFY($hWndGUI, $MsgID, $wParam, $lParam) #forceref $hWndGUI, $MsgID, $wParam, $lParam Local $tagNMHDR, $event $tagNMHDR = DllStructCreate("int;int;int", $lParam);NMHDR (hwndFrom, idFrom, code) If @error Then Return $event = DllStructGetData($tagNMHDR, 3) Select Case $wParam = $listview Select Case $event = $NM_DBLCLK Local $tagNMITEMACTIVATE = DllStructCreate("int;int;int;int;int;int;int;int;int", $lParam) $iIndex = DllStructGetData($tagNMITEMACTIVATE, 4) $iSubItem = DllStructGetData($tagNMITEMACTIVATE, 5) GUICtrlSetData($label_1, "index: " & $iIndex) GUICtrlSetData($label_2, "subitem: " & $iSubItem) GUICtrlSetData($imput, _GUICtrlListView_GetItemText($listview, $iIndex, $iSubItem)) ConsoleWrite("kolumna = " & $iIndex & ":" & $iSubItem & @CRLF) EndSelect EndSelect Return $GUI_RUNDEFMSG EndFunc ;==>WM_NOTIFY

jest pare metod ale nie chce mi sie szukać było nawet pare udf-ów na głownym forum najprosciej robić wywijasowe gui "obrazkiem" h t t p : / / w ww.au toi t .xaa .pl /vie wto pic.ph p ?f=9 & t= 6 5 7 post 5

na 100% działa inaczej tym odczytac? $text = FileRead("test.txt") MsgBox(0,"",$text)

$text = "OK, " & @CRLF & _ "mało istotna informacja, bla bla bla WAŻNE słowa między dwoma ważnymi rzeczami MNIEJ WAŻNE i trochę tekstu po tym " & @CRLF & _ "i troszkę poniżej" MsgBox(0, "", $text) MsgBox(0, "", String_Fragment_Miedzy($text, "bla ", " słowa", 3)) MsgBox(0, "", String_Fragment_Miedzy($text, "rzeczami ", " i trochę")) MsgBox(0, "", 'miedzy 1 a 3 "bla " jest: ' & String_Fragment_Miedzy($text, "bla ", "bla ", 1, 3)) #cs ;Name...........: String_Fragment_Miedzy ;Parameters ....: $string - cały text ; $poczatek - początek, miejsce od którego wyciąć text ; $koniec - koniec, miejsce do którego wyciąć text ; $poz_pocz = jeśli fraza wyznaczająca początek powtarza się to która ma to być w kolejności (domyślnie 1 - "pierwsza") ; $poz_koniec = jeśli fraza wyznaczająca koniec powtarza sie to która ma to być w kolejności (domyślnie 1 - "pierwsza") ; $litery = 0 - nie uwzględnij wielkości liter, 1 - uwzględniaj wielkość liter (domyślnie 0) #ce Func String_Fragment_Miedzy($string, $poczatek, $koniec, $poz_pocz = 1, $poz_koniec = 1, $litery = 0) Return StringTrimLeft(StringLeft($string, StringInStr($string, $koniec, $litery, $poz_koniec) - 1), StringInStr($string, $poczatek, $litery, $poz_pocz) + StringLen($poczatek) - 1) EndFunc ;==>String_Fragment_Miedzy

#include <array.au3> $text = "asd1fg23hk45jljtgvcc6j7ha8a9fff0gggg" $aCyfry = StringRegExp($text, '\d', 3) _ArrayDisplay($aCyfry)

A czy EULA tej gry zezwala na takie że tak rzec autorskie modyfikacje? Radze to najpierw sprawdzić. Bo widzisz takim swoim nieodpowiedzialnym zachowaniem mógłbyś zrobić sobie lub komuś przykrość.

starczy wrzucić na gui na przykładzie scite można z tego zrobić nawet prosty minimalizer do gry trzeba tylko sie ze stylami pobawić masz je w helpie #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <WinAPI.au3> #include <Constants.au3> Global $hHandle, $hGUI $hGUI = GUICreate("Test", 800, 600) GUISetState(@SW_SHOW, $hGUI) $hHandle = SciteNaGui(500, 500, 10, 10, $hGUI) Func SciteNaGui($xWidth, $xHeight, $iX, $iY, $hGUI) Local $hHandle = WinGetHandle("[CLASS:SciTEWindow]") _WinAPI_SetParent($hHandle, $hGUI) _WinAPI_MoveWindow($hHandle, $iX, $iY, $xWidth, $xHeight, True) ;_WinAPI_SetWindowLong($hHandle, $GWL_STYLE, BitOR($WS_CHILD, $WS_VISIBLE, $WS_POPUP)) ;_WinAPI_SetWindowLong($hHandle, $GWL_STYLE, BitOR($WS_CAPTION, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_POPUP, $WS_SYSMENU)) ;_WinAPI_SetWindowLong($hHandle, $GWL_STYLE, BitOR($WS_CHILD, $WS_VISIBLE)) _WinAPI_SetWindowLong($hHandle, $GWL_EXSTYLE, BitOR($WS_CHILD, $WS_VISIBLE)) Return $hHandle EndFunc ;==>SciteNaGui Do Sleep(50) Until GUIGetMsg() = $GUI_EVENT_CLOSE WinKill($hHandle)

http://www.autoitscript.com/forum/topic/113723-scrollbars-made-easy/

luknij tym #include <GuiConstantsEx.au3> #include <WinAPI.au3> $hGUI = GUICreate("MyGUI", 360, 300) $Label = GUICtrlCreateInput("[active]", 130, 30, 100, 20) $ctrlLabel2 = GUICtrlCreateLabel("", 20, 80, 320, 140) GUISetState() While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case Else $aLabel = GUICtrlRead($Label) $sFocus = ControlGetFocus($aLabel) $hFocus = ControlGetHandle($aLabel, "", $sFocus) $ctrlFocus = _WinAPI_GetDlgCtrlID($hFocus) $WinGetHandle = WinGetHandle($aLabel) $sMsg = "Focus:" & @CRLF & _ @TAB & "ClassNameNN = " & $sFocus & @CRLF & _ @TAB & "Hwnd = " & $hFocus & @CRLF & _ @TAB & "ID = " & $ctrlFocus & @crlf & _ @tab & "$WinGetHandle = " & $WinGetHandle & @crlf & _ @tab & "ClassName = " & $hFocus & @crlf & _ @tab & "_WinAPI_GetClassName = " & _WinAPI_GetClassName($hFocus) If $sMsg <> ControlGetText($hGUI, "", $ctrlLabel2) Then ControlSetText($hGUI, "", $ctrlLabel2, $sMsg) Sleep(200) EndSwitch WEnd

tak powinno działać, zmień tylko nazwę gry i cyfre przy edit na właściwą w twojej grze Func ControlText($txt) If WinExists("MU") Then Do Sleep(50) Until ControlCommand("MU", "", "Edit5", "IsVisible", "") ;sprawdza czy okienko widac, jesli tak lecimy dalej Do ControlSetText("MU", "", "Edit5", $txt) ; wpisuje text Sleep(1) Until ControlGetText("MU", "", "Edit5") = $txt ; sprawdza czy text jest wpisany do okienka, jeśli tak lecimy dalej EndIf EndFunc ;==>ControlText

tak napewno zadziala While 1 Send(" ") Sleep(500) Wend /:edit a tak pozatym to nazwa pliku Xpadder i kompilator 3.3.6.1 lub 3, 2, 4, 9 tam jest game guard

#include <Array.au3> Opt('MustDeclareVars', 1) Global $edit[3], $button Global $sprawdzane1, $sprawdzane2, $wynik Global $text1 = 'a' & @CRLF & 'b' & @CRLF & 'c' & @CRLF & '1' & @CRLF & 'd' & @CRLF & 'jaja' & @CRLF & '3' & @CRLF & 'g' & @CRLF & '123' Global $text2 = 'a' & @CRLF & 'b' & @CRLF & '123' & @CRLF & 'c' & @CRLF & '1' & @CRLF & 'd' & @CRLF & '3' & @CRLF & '4' & @CRLF & '5' & @CRLF & 'g' & @CRLF & 'abc' GUICreate('unikalne', 660, 320) $edit[0] = GUICtrlCreateEdit($text1, 10, 10, 190, 220) $edit[1] = GUICtrlCreateEdit($text2, 210, 10, 190, 220) $edit[2] = GUICtrlCreateEdit("", 410, 10, 190, 220) $button = GUICtrlCreateButton("test", 440, 250, 150, 60) GUISetState() While 1 Switch GUIGetMsg() Case -3 Exit Case $button $sprawdzane1 = GUICtrlRead($edit[0]) $sprawdzane2 = GUICtrlRead($edit[1]) $wynik = String_Usuwaj_Powtarzalne($sprawdzane1, $sprawdzane2, @CRLF) GUICtrlSetData($edit[2], $wynik) EndSwitch Sleep(20) WEnd Func String_Usuwaj_Powtarzalne($baza, $usuwaj, $podzialka = " ") ; $podzialka = @CRLF Local $i, $ile Local $aray1 = StringSplit($baza, $podzialka, 3) Local $aray2 = StringSplit($usuwaj, $podzialka, 3) For $i = 0 To UBound($aray2) - 1 $ile = _ArraySearch($aray1, $aray2[$i]) If Not @error Then $i -= 1 _ArrayDelete($aray1, $ile) EndIf Next Return _ArrayToString($aray1, @CRLF) EndFunc ;==>String_Usuwaj_Powtarzalne