Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Pytanie] Napisz Mi Bota!

Hussar

Rekomendowane odpowiedzi

Hussar Specjalista

Hussar

Opublikowano
Specjalista

Hussar

Opublikowano

Witam!

 

Założyłem temat, w którym prosicie o napisanie bota w AutoIt!

 

Wzór Prośby:


  •  
  • Nazwa Bota ( w celu rozpoznania dla kogo )
  • Funkcje Bota
  • Hotkey ( podstawowe Home i End )
  • Jaki Upload?

 

Wzór Pisania:

 


  •  
  • Nazwa bota lub osoby dla której piszesz.
  • Program skonwertowany z au3 i wrzucony na podany upload wraz z skanem.
  • Inne uwagi.

 

Przykład:

 

Wzór Prośby:


  •  
  • PickUpBot
  • Co 500 ms naciska przycisk " Z ".
  • Poproszę o podstawowe hotkey.
  • Speedyshare.com

Wzór Pisania:


  •  
  • PickUpBot
  • Download - 
    http://www.speedyshare.com/4562456/blebleble


  • Skan - 
    http://www.virustotal.com/456-6g2456-g2456g245-624g56-245/



  • Bot został zrobiony dokładnie tak jak prosiłeś :)

 

Proszę pisać według wzorów. Musi być porządek!

579571423327107377857.png


  • Odpowiedzi 68
  • Dodano
  • Ostatniej odpowiedzi
adwi32 Specjalista

adwi32

Opublikowano
Specjalista

adwi32

Opublikowano

NApisz mi bota bo nie umiem

 

-AutoPIckUp

- wciska "z" co 0,2 sek

-Home start end stop

-speedyshare

liczylem na barce lecz ona niemogla wygrac.

Przez kibicow ktorzy przy rzutach roznych wolnych swiecili w messiego laserami

4ggr35510n Mentor

4ggr35510n

Opublikowano
Mentor

4ggr35510n

Opublikowano

IMHO bez sensu... Ludzie powinni się uczyć, a nie dostawać za darmochę :/

 

$4gr35510n_jest_zajebista = 0
While True
While $4gre5510n_jest_zajebista
Send("z")
Sleep(200)
WEnd
Sleep(200)
WEnd
Func naprawde_zajebista
If $4gr35510n_jest_zajebista == 0 Then
$4gr35510n_jest_zajebista = 1
Else
$4gr35510n_jest_zajebista = 0
EndIf
EndFunc
Hotkeyset("{HOME}","naprawde_zajebista")

Ta sygnatura jest pusta.

Hussar Specjalista

Hussar

Opublikowano
Specjalista

Hussar

  • Autor
Opublikowano


  •  
  • Shotdown
  • Wyłączenie komputera o danej godzinie.
  • Buttonsy wole
  • Mi wystarczy kod. :D

579571423327107377857.png


Zafi xD Pomocnik

Zafi xD

Opublikowano
Pomocnik

Zafi xD

Opublikowano

Poproszę o napisanie bota:

AutoF8

- wciska "F8" co 0,2 sek

- przycisk "Home" start "end" stop

-speedyshare lub wrzuta

(chodzi mi o podobnego bota którego stworzył kamer lecz mi potrzeba jest klawisza F8 zamiast F7 tongue.gif

PS: polecą + lub - kto jak woli xD

Woj96 Specjalista

Woj96

Opublikowano
Specjalista

Woj96

Opublikowano

AutoPickUp jak ktoś chce

 

 

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <GUIConstants.au3>

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

HotKeySet("{END}", "stop")

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

GUICreate("", 100, 200)

$btn1 = GUICtrlCreateButton("Auto Drop", 10, 10, 80, 18)

$btn2 = GUICtrlCreateButton("instrukcja", 10, 30, 80, 80)

$btn4 = GUICtrlCreateButton("koniec", 10, 113, 80, 80)

GUISetState()

 

WinWait ("METIN2")

While 1

 

 

$msg = GUIGetMsg()

Switch $msg

 

Case $btn1

GUIDelete()

start()

Case $gui_event_close

exit

 

Case $btn2

MsgBox(0, "INFO", "AutoPickUpBot by Woj96")

sleep(10)

MsgBox(0, "INFO", "start AutoPickUpBot - HOME, STOP AutoPickUpBot - END, KONIEC - DELETE")

sleep(10)

MsgBox(0, "INFO", "Uwaga nie musisz wyłączać bota w czasie rozmowy na czacie!!")

sleep(10)

MsgBox(0, "INFO", "Uwaga matin2 musi być włączony inaczej bot sie nie włączy!")

exit

Case $gui_event_close

Exit

Case $btn4

koniec()

Case $gui_event_close

exit

EndSwitch

wend

 

 

 

func start()

While 1

send("{z}")

sleep(200)

wend

 

endfunc

 

func stop()

while 1

sleep(1000)

wend

endfunc

MouseMove(532 , 215)

func koniec()

exit

endfunc

 

4143_1.png

adwi32 Specjalista

adwi32

Opublikowano
Specjalista

adwi32

Opublikowano

Shutdowner:

 

; Script Start - Add your code below here
#include <GuiConstantsEx.au3>
HotKeySet("{End}","stop")
$GUI_Tytul = "Shutdown'er by adwi32"
$szerokosc_gui=360
$wysokosc_gui=175
$przycisk_start_wys=55
$przycisk_start_szer=85
$gui=GUICreate($GUI_Tytul,$szerokosc_gui,$wysokosc_gui)
$pole_text = GUICtrlCreateInput("",20,40,200,23,0x2000)
GUICtrlCreateLabel("Tu wpisz czas za po jakim twój komputer ma się wyłączyć (w minutach)",15,20)
GUICtrlCreateLabel("minut",225,42)
$przycisk_start = GUICtrlCreateButton("Start!",250,70,$przycisk_start_szer,$przycisk_start_wys)
GUISetState(@SW_SHOW)
GUICtrlSetTip($przycisk_start, "Kliknij by uruchomic odliczanie")
While 1
       $msg = GUIGetMsg()
   Select
       Case $msg = $GUI_EVENT_CLOSE
           Exit
               Case $msg = $przycisk_start
                       $licznik = GUICtrlRead($pole_text)

While $licznik >0
           GUIDelete()
                   ToolTip("Wyłaczę komputer za:" &$licznik,0,0,$GUI_Tytul,1)
                   Sleep(60000)
                   $licznik = $licznik- 1
                               WEnd
                               ToolTip("")
                               Shutdown(5)
                       Exit


  EndSelect
WEnd
Func stop ()
       Exit
EndFunc

 

liczylem na barce lecz ona niemogla wygrac.

Przez kibicow ktorzy przy rzutach roznych wolnych swiecili w messiego laserami

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

mój shutdownej styknie

nie trzeba w minutach podawac tylko godzina i minuta wylaczenia

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Szutdolner", 161, 39, 192, 124)

$Guziczek = GUICtrlCreateButton("Guziczek", 80, 8, 75, 25, $WS_GROUP)

$dupa = GUICtrlCreateInput("", 8, 8, 25, 21)

global $stop, $stop1,$start,$start1

$dupa1 = GUICtrlCreateInput("", 48, 8, 25, 21)

$Label1 = GUICtrlCreateLabel(":", 40, 8, 15, 17)

GUISetState(@SW_SHOW)

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

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

func lol()

Exit

EndFunc

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

case $Guziczek

While 1

$start1 = GUICtrlRead($dupa)

$stop1 = GUICtrlRead($dupa1)

TrayTip("Informacja",$start1 & ":" & $stop1,10)

Traytip("Informacja","jezeli chcesz wylaczyc program kliknij f5",10)

$start = @HOUR

if $start = $start1 then

while 1

$stop = @MIN

If $stop = $stop1 Then

ToolTip("MUHAHAHAHAHAHAHSHDASHDGHASGDHASD", 5)

Sleep(1000)

Shutdown(5)

EndIf

WEnd

EndIf

WEnd

 

 

EndSwitch

WEnd

 

d'emploi Weteran

d'emploi

Opublikowano
Weteran

d'emploi

Opublikowano

* AutoSkiller

* FUNCKE BOTA:

1.ramka - wpisujesz czas (sec) po którym:

2.ramka - wciskane jest ctrl + h (1 sec) F3 (0,5 sec) ctrl +h [czyli. ctrl + h (czeka 1sec) F8 (czeka 0,5 sec) ctrl +h]

* Start - Home Stop - End

* speedyshare

wrobelptak1 Budowniczy

wrobelptak1

Opublikowano
Budowniczy

wrobelptak1

Opublikowano

* Nazwa Bota: FajnyBot

* Funkcje Bota ma wciskać f8 jak najszybciej

* Hotkey start-Home stop-End

* Jaki Upload? Megaupload speedyshare wrzuta byle co nawet rapidshare

beznazwy1x.png
adwi32 Specjalista

adwi32

Opublikowano
Specjalista

adwi32

Opublikowano

@up i 2xup jutro wstawię boty dam edita chyba że ktoś mnie uprzedzi

liczylem na barce lecz ona niemogla wygrac.

Przez kibicow ktorzy przy rzutach roznych wolnych swiecili w messiego laserami

robo15 Pasjonat

robo15

Opublikowano
Pasjonat

robo15

Opublikowano

Wzór Prośby:

 

* Mu Online AFK bot

* trzymać wciśnięty prawy przycisk myszki z regulatorem czasu trzymania w ms OFC. klikać "2" co 10s nie na numpadzie tylko te u góry klawy ,po kliknięciu "2" kliknąć PPM , klik "1" i dalej wciśnięty PPM

* Hotkey ( podstawowe Home i End )

* Speedyshare

 

 

*

 

 

jak można to proszę source,trochę objaśnię funkcje na 1 i 2 są skille 1 to taki który cały czas używa a 2 to buff który am używać co 10s i spowrotem przełączać na 1 tj.główny skill i używać go przez trzymanie wciśniętego PPM

 

 

 

wiem że chaotycznie napisałem jak co to PW.

"W dzisiejszych czasach mamy nowych graczy metin'a.

Nie wiedza co to Oldschool, oni nie widzieli metina jaki był na początku.

Przyszli grać w niego w czasach DMG Hacka, EasyMetin, epików z epvp itd.

Nie doceniają serwerów Hard. " - Pewien user.

 

Pow3r / robo12 | Konto nieaktywne.

michal9909 Pasjonat

michal9909

Opublikowano
Pasjonat

michal9909

Opublikowano

Dzień Dobry ;D

 

Mogę prosić o bota który sam klika F7 co 1 sec

 

na megaupload z góry dzięki +/-

Antaris to shit

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

a co , inwalida że sam tego nie zrobi ? zrób ty ;)

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

Gazder Nowicjusz

Gazder

Opublikowano
Nowicjusz

Gazder

Opublikowano

Witam! Z góry przepraszam, że nie stosuję się do pierwszego "regulaminowego" postu autora tematu oraz za to, że jestem zupełnie w tym zielony.

Nie chciałem dodawać tematu z prośbą wy edytowania znalezionego kodu (znalazłem go na tym forum) do komunikatora Gadu-Gadu ponieważ znalazłem ten.

~ Bot do GG ~

Chodzi mi oto, aby dopisać do tego kodu tą opcję:

Bot po wysłaniu wiadomości dodaje osobę, która wysłała do mnie wiadomość i zapisuje ją w kontaktach pod nazwą (losowo) od 1 do 10000.

W wypadku gdyby osoba była już zapisana, to jej nie zapisuje po raz kolejny.

Byłbym bardzo wdzięczny za edycję tego kodu, jest mi on bardzo potrzebny.

Oto i on:

#include <ImageSearch.au3>

Global $x, $y

HotKeySet("{F8}","done")
HotKeySet("{F5}","ext")
HotKeySet("{F7}", "gg1")


Func ext()
       Exit
       EndFunc


MsgBox (64, "GG Bot", "Start - f7, Pauza - f8, Wyjście - f5")

While 1
       sleep(200)
WEnd

func gg()
       While 10
       $result = _ImageSearch("gg1.bmp", 1, $x, $y, 20)
               If $result = 1 Then
                       MouseClick("left", $x, $y)
                       praca()
                       EndIf
       $result = _ImageSearch("gg1.bmp", 1, $x, $y, 20)
       If $result = 0 Then
                       gg1()
               EndIf
       WEnd
EndFunc

func done()
       While 10
       Sleep(200)
       WEnd
       EndFunc

func gg1()
       While 10
       $result = _ImageSearch("gg1.bmp", 1, $x, $y, 20)
               If $result = 1 Then
                       MouseClick("left", $x, $y)
                       praca()
                       EndIf
       $result = _ImageSearch("gg1.bmp", 1, $x, $y, 20)
       If $result = 0 Then
                       gg()
               EndIf
       WEnd
EndFunc

func praca()
       While 10
        WinActive("[CLASS:QWidget")
        winwaitactivate("[CLASS:QWidget")
               Send("Dziękujemy za wiadomość, właśnie zostałeś dodany do naszej listy kontaktów!")
               Send("{ENTER}")
               Send("{ESC}")
               gg()
       EndIf
       WEnd
EndFunc

Z góry dziękuję i jeszcze raz przepraszam.

pozdrawiam, Gazder.

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

bez QWidgetu nie zrobi , co to ? i co za obrazki ?

zresztą komu chce się to robić jak sam nie bedzie używał, masz boty na necie gotowe wystarczy poszukac 

http://harvester.iglu.cz/win/

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

Dhil Znawca

Dhil

Opublikowano
Znawca

Dhil

Opublikowano

* Nazwa Bota : Dhil

* Funkcje Bota : Spamowanie : Wszyscy , Gildia , Pt , Normal

* Hotkey ( podstawowe Home i End )

* Wystarczy mi source pliczek .au3 w rar :) Megaupload

userbarwb.png

Zawsze promocje na sygnatury ^^

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...