Prosba O Napisanie Skryptu...

[BorekMU]

Witam

 

Szukam osob ktore chcialy by napisac skrypt i zablysnac swwoimi umiejetnosciami^^

A wiec tak, chodzi o wciskanie danego przycisku...ktorego jest zadaniem ladowanie HP w grze...

 

-Przyciskiem ladujacym potki jest Q

-skrypt dobrze by bylo aby posiadal wlacznik wylacznik najlepiej F3-F4

-Program ma dzialac tak aby nie "draznil" sie z gra (Privat MU Online),nie blokowal myszki, i innych przyciskow na klawiaturze

-Przycisk Q ma byc wciskany bez przerwy tzn. czesciej niz 0,5 sek.

-Jezeli jest mozliwosc to zdalo by sie jakies okienko czy skrypt (pozniej BOT) jest wlaczony.

 

Wiem ze jest wiele takich postow ale zaden nie spelnia wymogu...lub nie dziala..

 

Dziekuje wszystkim ktorzy podejma sie pomocy.

 

PS: Wiem ze sa boty ktore laduja HP ale niestety robia to za wolna, a ten Bocik ma byc uzywany podczas duelu (walki) ;P

[asdek171]

Sprawdz czy dziala szybko robilem

Prosze

 

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

HotKeySet("{F3}","start")

HotKeySet("{F4}","ext")

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 346, 165, 192, 124)

$Button1 = GUICtrlCreateButton("Włącz", 88, 120, 193, 33, $WS_GROUP)

$Input1 = GUICtrlCreateInput("", 136, 8, 153, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))

$Label1 = GUICtrlCreateLabel("Co ile sekund ma używać", 8, 8, 124, 17)

$Label2 = GUICtrlCreateLabel("Klawisz F3---Włącz", 0, 56, 95, 17)

$Label3 = GUICtrlCreateLabel("Ms", 296, 8, 18, 17)

$Label4 = GUICtrlCreateLabel("Klawisz F4---Wyjdz", 0, 80, 92, 17)

$Label5 = GUICtrlCreateLabel("Mili sekund", 288, 24, 57, 17)

$Label6 = GUICtrlCreateLabel("1000Ms-1s", 280, 40, 56, 17)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

Func start()

While 1

Send("q")

Sleep($Input1)

WEnd

EndFunc

Func ext()

Exit

EndFunc

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

start()

EndSwitch

WEnd

 

 

 

[BorekMU]

Zajebiste ))))))))))))))))))))))))))))))))

Ale jeszcze mam prosbe bo mi sie wlasnie gryzie z innym botem tzn. przycina sie..

Czy moglbys do tego dodac

Trzymanie CTRL ?

Tzna ze np wciskam F5 i CTRL jest wlaczony (wcisniety caly czas) i jak znow wcisne F5 to sie CTRL zwalnia ..

Dało by rade ;p ?

Jakos do tego bota to dodac ?

 

Aha a jeszcze pytanko co zrobic zeby jak wlacze ten bot uzywam go wcisne F4 on sie zamyka calkowicie...to co zrobic zeby on sie nie zamykal tylko byl caly czas "pod reka" ?

[asdek171]

Sprawdź czy działa

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

Global $Paused

HotKeySet("{F3}","start")

HotKeySet("{F4}","ext")

HotKeySet("{F6}","pauza")

HotKeySet("{F5}","ctrl")

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 346, 165, 192, 124)

$Button1 = GUICtrlCreateButton("Włącz", 100, 130, 193, 33, $WS_GROUP)

$Input1 = GUICtrlCreateInput("", 136, 8, 153, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))

$Label1 = GUICtrlCreateLabel("Co ile sekund ma używać", 8, 8, 124, 17)

$Label2 = GUICtrlCreateLabel("Klawisz F3---Włącz", 0, 56, 95, 17)

$Label3 = GUICtrlCreateLabel("Ms", 296, 8, 18, 17)

$Label4 = GUICtrlCreateLabel("Klawisz F4---Wyjdz", 0, 80, 92, 17)

$Label4 = GUICtrlCreateLabel("Klawisz F5---Trzymanie Ctrl", 0, 106, 200, 17)

$Label4 = GUICtrlCreateLabel("Klawisz F6---Pauza", 0, 132, 92, 17)

$Label5 = GUICtrlCreateLabel("Mili sekund", 288, 24, 57, 17)

$Label6 = GUICtrlCreateLabel("1000Ms-1s", 280, 40, 56, 17)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

Func ctrl()

While 1

Send("{lCTrl}")

WEnd

EndFunc

Func start()

While 1

Send("^q")

Sleep($Input1)

WEnd

EndFunc

Func ext()

Exit

EndFunc

Func pauza()

$Paused = Not $Paused

While $Paused

Sleep(100)

WEnd

EndFunc

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

start()

EndSwitch

WEnd

 

[BorekMU]

Restart Server -_- zaraz sprawdze i dam odp...

[RobeM]

Sleep($Input1)*1000 ; i czas mozna wprowadzac w sekundach

[BorekMU]

Dobra all dziala ale jeszcze jedna prosba da sie cos zrobic auto zapis tych liczb co wprowadzam ?

Tak zeby za kazdym razem nie trzeba bylo wpisywac ?

[RobeM]

GUICtrlCreateInput("TU CZAS DOMYSLMY", 136, 8, 153, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))

[jackraymund]

@asdek

zle zrobiles

ty tylko zrobiles ze klika x1 ctrl

powinno byc

Send("{lCTrldown}")

i on napisał -Program ma dzialac tak aby nie "draznil" sie z gra (Privat MU Online),nie blokowal myszki, i innych przyciskow na klawiaturze

więc lepiej by było użyc controlsend by działał zminimalizowany

+ to -Jezeli jest mozliwosc to zdalo by sie jakies okienko czy skrypt (pozniej BOT) jest wlaczony.

można dodac traytip

[BorekMU]

Jeszcze jedna lipa jak wlaczam bota to dziala all ale jak zatrzymam to sie wylacza skrypt(bot) jak to zmienic zeby byl caly czas zminimalizowany ?

[jackraymund]

przepisz mi nazwe okienka w mu

jeżeli nie możesz to włącz autoit window info przeciągnij finder tool na mu i skopiuj title

[BorekMU]

Przeciagam to ale nic sie nie pojawia...

[jackraymund]

powinno się pojawic w basic Winow Info np

Prosba O Napisanie Skryptu... - MPC Forum - Cheaty, Boty, Bugi, Hacki do gier online - Mozilla Firefox

[BorekMU]

Na przegladarce wszystko sie wyswietla ale jak najezdzam na okno MU to w Class pojawia sie tylko MU

[jackraymund]

a co nie możesz przepisać samemu okienka? czy ma jakieś ruskie znaki?

@edit albo czekaj

w class jest tylko podane "Mu"?

[BorekMU]

Tak

[BorekMU]

To MU akurat nie uruchamia sie przez Auto-update..a tam akurat sa ruskie znaki ;p

[jackraymund]

 

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Bot", 116, 45, 192, 124)

$Button1 = GUICtrlCreateButton("Guziczek ", 8, 8, 99, 33, $WS_GROUP)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

HotKeySet("{F3}","koniec")

func koniec()

Exit

EndFunc

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

GUISetState(@SW_MINIMIZE)

TrayTip("Kuku","Jestem tutaj jeeli chcesz mnie wyłączyc kliknij F3",10)

while 1

ControlSend("[CLASS:Mu]", "", "", "Q")

wend

EndSwitch

WEnd