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

[Problem]Rozpoczecie funkcji po kliknieciu buttona

Tieru

Przez Tieru
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

Tieru Specjalista

Tieru

Opublikowano
Specjalista

Tieru

Opublikowano

Siema!

Jestem początkujący w AutoIT'cie i mam taki mały problem.

Mam taki kod GUI stworzony w KODA.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Zapasowe\Desktop\bot\Form1.kxf
$Form1 = GUICreate("GangsterGYM BOT by dawio966", 677, 259, 185, 120)
$Pic1 = GUICtrlCreatePic("C:\Users\Zapasowe\Desktop\bot\gangster.jpg", 0, 0, 675, 257, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("Wszystkie atrybuty po 100", 368, 112, 297, 89, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Uruchom Mozille Firefox", 380, 48, 115, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label2 = GUICtrlCreateLabel("Ustaw rozdzielczosć ekranu na 1366 x 768", 376, 24, 207, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label3 = GUICtrlCreateLabel("Zaloguj się na gangsters.pl i wejdź w zakładkę Siłownia", 384, 72, 268, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label4 = GUICtrlCreateLabel("Oddal stronę tak, aby input był w kordach 708, 696 ", 392, 96, 250, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label5 = GUICtrlCreateLabel("by dawio966", 608, 232, 64, 17)
$Label6 = GUICtrlCreateLabel("Aby program przestał działać wcisnij klawisz F8", 408, 208, 228, 17)
GUICtrlSetBkColor(-1, 0x008000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

While 2
GUICtrlSetOnEvent($Button1,"")
WinActivate("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
WinWaitActive("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
MouseClick("primary", 708, 696)
Send("100")
MouseClick("primary", 730, 713)
MouseClick("primary", 730, 713)
Sleep("1800")
WEnd

Chcę zrobić, że gdy kliknę Button 1 to odpali mi się While 2 (musze chyba zrobić funkcje a nie while a nie wiem jak.

 

Za pomoc oczywiście Liki :D

Wszystkie poradniki w "O mnie" i na moim profilu YouTube.


51dd70965ae71.png


!!!HIT!!! -- Pełno klientów na DT nawet na najstarszym kompie bez zamuły!


!!!HIT!!! -- Nowa modyfikacja do Metina FastKill


World of Metin2


emkalion Budowniczy

emkalion

Opublikowano
Budowniczy

emkalion

Opublikowano 
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit


Case $Button1
While 2
GUICtrlSetOnEvent($Button1,"")
WinActivate("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
WinWaitActive("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
MouseClick("primary", 708, 696)
Send("100")
MouseClick("primary", 730, 713)
MouseClick("primary", 730, 713)
Sleep("1800")
WEnd

Tieru Specjalista

Tieru

Opublikowano
Specjalista

Tieru

  • Autor
Opublikowano 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Zapasowe\Desktop\bot\Form1.kxf
$Form1 = GUICreate("GangsterGYM BOT by dawio966", 677, 259, 185, 120)
$Pic1 = GUICtrlCreatePic("C:\Users\Zapasowe\Desktop\bot\gangster.jpg", 0, 0, 675, 257, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("Wszystkie atrybuty po 100", 368, 112, 297, 89, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Uruchom Mozille Firefox", 380, 48, 115, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label2 = GUICtrlCreateLabel("Ustaw rozdzielczosć ekranu na 1366 x 768", 376, 24, 207, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label3 = GUICtrlCreateLabel("Zaloguj się na gangsters.pl i wejdź w zakładkę Siłownia", 384, 72, 268, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label4 = GUICtrlCreateLabel("Oddal stronę tak, aby input był w kordach 708, 696 ", 392, 96, 250, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label5 = GUICtrlCreateLabel("by dawio966", 608, 232, 64, 17)
$Label6 = GUICtrlCreateLabel("Aby program przestał działać wcisnij klawisz F8", 408, 208, 228, 17)
GUICtrlSetBkColor(-1, 0x008000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit


Case $Button1
While 2
WinActivate("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
WinWaitActive("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
MouseClick("primary", 708, 696)
Send("100")
MouseClick("primary", 730, 713)
MouseClick("primary", 730, 713)
Sleep("1800")
WEnd

Nie działa ;/

>"C:\Programy\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\Zapasowe\Desktop\GangsterGym by dawio966.au3"

C:\Users\Zapasowe\Desktop\GangsterGym by dawio966.au3 (48) : ==> "While" statement has no matching "Wend" statement.:

WEnd

 

>Exit code: 1 Time: 0.214

Wszystkie poradniki w "O mnie" i na moim profilu YouTube.


51dd70965ae71.png


!!!HIT!!! -- Pełno klientów na DT nawet na najstarszym kompie bez zamuły!


!!!HIT!!! -- Nowa modyfikacja do Metina FastKill


World of Metin2


Aslani Pomocnik

Aslani

Opublikowano
Pomocnik

Aslani

Opublikowano 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Zapasowe\Desktop\bot\Form1.kxf
$Form1 = GUICreate("GangsterGYM BOT by dawio966", 677, 259, 185, 120)
$Pic1 = GUICtrlCreatePic("C:\Users\Zapasowe\Desktop\bot\gangster.jpg", 0, 0, 675, 257, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("Wszystkie atrybuty po 100", 368, 112, 297, 89, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Uruchom Mozille Firefox", 380, 48, 115, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label2 = GUICtrlCreateLabel("Ustaw rozdzielczosć ekranu na 1366 x 768", 376, 24, 207, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label3 = GUICtrlCreateLabel("Zaloguj się na gangsters.pl i wejdź w zakładkę Siłownia", 384, 72, 268, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label4 = GUICtrlCreateLabel("Oddal stronę tak, aby input był w kordach 708, 696 ", 392, 96, 250, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label5 = GUICtrlCreateLabel("by dawio966", 608, 232, 64, 17)
$Label6 = GUICtrlCreateLabel("Aby program przestał działać wcisnij klawisz F8", 408, 208, 228, 17)
GUICtrlSetBkColor(-1, 0x008000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
While 2
WinActivate("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
WinWaitActive("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
MouseClick("primary", 708, 696)
Send("100")
MouseClick("primary", 730, 713)
MouseClick("primary", 730, 713)
Sleep("1800")
WEnd
EndSwitch
WEnd

NexBot - Bot do Nostale

Uniwersalny Speed Hack do gier

Crack Maker - MultiClient do Nostale

33870.gif

47648.gif

Tieru Specjalista

Tieru

Opublikowano
Specjalista

Tieru

  • Autor
Opublikowano 

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit


Case $Button1
While 2
GUICtrlSetOnEvent($Button1,"")
WinActivate("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
WinWaitActive("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
MouseClick("primary", 708, 696)
Send("100")
MouseClick("primary", 730, 713)
MouseClick("primary", 730, 713)
Sleep("1800")
WEnd

 

Dzięki Aslani, działa :).

 

Tylko teraz nie wiem czemu muszę nacisnąć Spację aby buton się włączył, bo jak kliknę LPM to nie działa ;p.

Pewnie w KODA coś źle ustawiłem.

Wystarczylo GUICtrlSetState(-1, $GUI_DISABLE)

 

 

Pytanie 1-@Można zrobić coś takiego ze np. Jest Siła na poście pierwszym którą od razu widać a Wytrzymałość na poście 20, na który trzeba zjechać suwakiem.

I chcę aby bez oddalania widoku strony klikał nawet po odświeżaniu na Wytrzymałość?

Pytanie 2- Zrobiłem sobie w KODA menu, i chcę aby po kliknięciu w menu instrukcja wywołało mi tekst, który napisałem

To mi nie działa

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Zapasowe\Desktop\bot\Form1.kxf
$Form1 = GUICreate("GangsterGYM BOT by dawio966", 676, 266, 189, 120)
$MenuItem1 = GUICtrlCreateMenu("Opcje")
$MenuItem3 = GUICtrlCreateMenuItem("Instrukcja", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenuItem("Zamknij", $MenuItem1)
$Pic1 = GUICtrlCreatePic("C:\Users\Zapasowe\Desktop\bot\gangster.jpg", 0, 0, 675, 257, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Wszystkie atrybuty po 100", 368, 112, 297, 89, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Uruchom Mozille Firefox", 380, 48, 115, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label2 = GUICtrlCreateLabel("Ustaw rozdzielczosć ekranu na 1366 x 768", 376, 24, 207, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label3 = GUICtrlCreateLabel("Zaloguj się na gangsters.pl i wejdź w zakładkę Siłownia", 384, 72, 268, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label4 = GUICtrlCreateLabel("Oddal stronę tak, aby input był w kordach 708, 696 ", 392, 96, 250, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label5 = GUICtrlCreateLabel("by dawio966", 608, 232, 64, 17)
$Label6 = GUICtrlCreateLabel("Aby program przestał działać wcisnij klawisz F8", 408, 208, 228, 17)
GUICtrlSetBkColor(-1, 0x008000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotkeySet("{F8}","Koniec")

Func Koniec()
MsgBox(0,"Hotkey", "Wcisnąłeś F8, program wyłączony.")
Exit
EndFunc

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
While 2
WinActivate("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
WinWaitActive("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
MouseClick("primary", 708, 696)
Send("100")
MouseClick("primary", 730, 713)
MouseClick("primary", 730, 713)
Sleep("1800")
WEnd
EndSwitch
WEnd

While $MenuItem3
MsgBox( 0, "TYTUL okna", "Trzeba zrobic to to i to")
WEnd

 

 

Za każdą odpowiedź leci plusik :) i 5* w profilu.

Wszystkie poradniki w "O mnie" i na moim profilu YouTube.


51dd70965ae71.png


!!!HIT!!! -- Pełno klientów na DT nawet na najstarszym kompie bez zamuły!


!!!HIT!!! -- Nowa modyfikacja do Metina FastKill


World of Metin2


Phoenix_PL Weteran

Phoenix_PL

Opublikowano
Weteran

Phoenix_PL

Opublikowano

i z przykrością oznajmiam że twój kod jest nieco c**jowy.

poprawiony i z OnEvent zamiast sryliarda pętli, jest o wiele bardziej przejrzyście:

 

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

HotkeySet("{F8}","Koniec")
Opt('GuiOnEventMode', 1)

$Form1 = GUICreate("GangsterGYM BOT by dawio966", 676, 266)
$MenuItem1 = GUICtrlCreateMenu("Opcje")
$MenuItem3 = GUICtrlCreateMenuItem("Instrukcja", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenuItem("Zamknij", $MenuItem1)
$Pic1 = GUICtrlCreatePic("C:\Users\Zapasowe\Desktop\bot\gangster.jpg", 0, 0, 675, 257, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Wszystkie atrybuty po 100", 368, 112, 297, 89, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Uruchom Mozille Firefox", 380, 48, 115, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label2 = GUICtrlCreateLabel("Ustaw rozdzielczosć ekranu na 1366 x 768", 376, 24, 207, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label3 = GUICtrlCreateLabel("Zaloguj się na gangsters.pl i wejdź w zakładkę Siłownia", 384, 72, 268, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label4 = GUICtrlCreateLabel("Oddal stronę tak, aby input był w kordach 708, 696 ", 392, 96, 250, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label5 = GUICtrlCreateLabel("by dawio966", 608, 232, 64, 17)
$Label6 = GUICtrlCreateLabel("Aby program przestał działać wcisnij klawisz F8", 408, 208, 228, 17)
GUICtrlSetBkColor(-1, 0x008000)

GUISetOnEvent($GUI_EVENT_CLOSE, "knc")
GUICtrlSetOnEvent($Button1, "button1")
GUISetState(@SW_SHOW)

Func Koniec()
MsgBox(0,"Hotkey", "Wcisnąłeś F8, program wyłączony.")
Exit
EndFunc

Func knc()
Exit
EndFunc

Func button1()
While 2
WinActivate("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
WinWaitActive("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
MouseClick("primary", 708, 696)
Send("100")
MouseClick("primary", 730, 713)
MouseClick("primary", 730, 713)
Sleep("1800")
WEnd
EndFunc

While 1
Sleep (100)
WEnd

 

 

I mała porada - użyj IE.au3.

Albo innej rozdzielczości, bo nie każdy może sobie akurat taką ustawić.

Ale to i tak pewnie nie wypali.

Takich rzeczy się nie robi przez mouseclick bo to jest zupełnie niepraktyczne.

846331404756772371599.jpeg
Tieru Specjalista

Tieru

Opublikowano
Specjalista

Tieru

  • Autor
Opublikowano

i z przykrością oznajmiam że twój kod jest nieco c**jowy.

poprawiony i z OnEvent zamiast sryliarda pętli, jest o wiele bardziej przejrzyście:

 

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

HotkeySet("{F8}","Koniec")
Opt('GuiOnEventMode', 1)

$Form1 = GUICreate("GangsterGYM BOT by dawio966", 676, 266)
$MenuItem1 = GUICtrlCreateMenu("Opcje")
$MenuItem3 = GUICtrlCreateMenuItem("Instrukcja", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenuItem("Zamknij", $MenuItem1)
$Pic1 = GUICtrlCreatePic("C:\Users\Zapasowe\Desktop\bot\gangster.jpg", 0, 0, 675, 257, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Wszystkie atrybuty po 100", 368, 112, 297, 89, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Uruchom Mozille Firefox", 380, 48, 115, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label2 = GUICtrlCreateLabel("Ustaw rozdzielczosć ekranu na 1366 x 768", 376, 24, 207, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label3 = GUICtrlCreateLabel("Zaloguj się na gangsters.pl i wejdź w zakładkę Siłownia", 384, 72, 268, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label4 = GUICtrlCreateLabel("Oddal stronę tak, aby input był w kordach 708, 696 ", 392, 96, 250, 17)
GUICtrlSetBkColor(-1, 0x99B4D1)
$Label5 = GUICtrlCreateLabel("by dawio966", 608, 232, 64, 17)
$Label6 = GUICtrlCreateLabel("Aby program przestał działać wcisnij klawisz F8", 408, 208, 228, 17)
GUICtrlSetBkColor(-1, 0x008000)

GUISetOnEvent($GUI_EVENT_CLOSE, "knc")
GUICtrlSetOnEvent($Button1, "button1")
GUISetState(@SW_SHOW)

Func Koniec()
MsgBox(0,"Hotkey", "Wcisnąłeś F8, program wyłączony.")
Exit
EndFunc

Func knc()
Exit
EndFunc

Func button1()
While 2
WinActivate("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
WinWaitActive("Gangsters.pl - polska gra kryminalna - Mozilla Firefox")
MouseClick("primary", 708, 696)
Send("100")
MouseClick("primary", 730, 713)
MouseClick("primary", 730, 713)
Sleep("1800")
WEnd
EndFunc

While 1
Sleep (100)
WEnd

 

 

I mała porada - użyj IE.au3.

Albo innej rozdzielczości, bo nie każdy może sobie akurat taką ustawić.

Ale to i tak pewnie nie wypali.

Takich rzeczy się nie robi przez mouseclick bo to jest zupełnie niepraktyczne.

Dzięki za Twoją pomoc, czytam wszystkie twoje tutki (bardzo zrozumiałe :).

Bocika zrobie właśnie na IE bo ma więcej i lepsze możliwości.

Wszystkie poradniki w "O mnie" i na moim profilu YouTube.


51dd70965ae71.png


!!!HIT!!! -- Pełno klientów na DT nawet na najstarszym kompie bez zamuły!


!!!HIT!!! -- Nowa modyfikacja do Metina FastKill


World of Metin2


Zarchiwizowany

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

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