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] łączenie 2 botów


Rekomendowane odpowiedzi

Opublikowano

a więc tak jak połączyć 2 boty tak aby gdy załączymy było menu i wyboru jednego z botów

 

to jest kod bota pod pvp @2EDIT coś nie działa w tym bocie pod pvp :/ powiecie mi cOOO

 

While 2
MouseMove (885,611)
MouseClick ("")
Sleep (65000)

 

exp

while 1
Sleep (1000)
MouseMove (217,264)
MouseClick("")
MouseMove (860,625)
MouseClick("")
MouseMove(616,618)
MouseClick("")
MouseMove(1133,634)
MouseClick("")
Sleep (200000)
MouseMove(867,785)

 

 

@EDIT

aha i jeszcze jedno o co chodzi z tym k@rwa GUI wiem tyle że tam się

robi przyciski nawet nie wiem jak się to załancza

Opublikowano

Zrób GUI, Dwa Buttony, 1. - Funkcja 1. 2. - Funkcja 2. I Tyle

 

Możesz też dodać _IsPressed gdy chcesz wyjść z pętli nie zamykając programu.

1352970251-U713459.png

By Maxiu
"Because limits, like fears, are often just an illusion"

Opublikowano

Zrób GUI, Dwa Buttony, 1. - Funkcja 1. 2. - Funkcja 2. I Tyle

 

Możesz też dodać _IsPressed gdy chcesz wyjść z pętli nie zamykając programu.

 

ej sorki ale ja dopiero się ucze od 2 dni :/

więc nie zbyt cię rozumiem

 

To chyba kurw@ dałem ci gotowca co i jak? I gdzie to masz?

 

wiem wiem jestem ci zresztą bardzo wdzięczny za to co mi podałaś to był ten kod :

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Otwieracz", 187, 29, 192, 124)
$Button1 = GUICtrlCreateButton("EXP", 0, 0, 89, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("PVP", 96, 0, 89, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button1
                       Run("Sciezka do programu");exp   <<<<<< nie rozumiem co mam wpisać w ("Sciezka do programu")
               Case $Button2
                       Run("Sciezka do programu");pvp  <<<<<< tu tak samo 
                       EndSwitch
WEnd

 

 

najlepiej podam wam cały kod jaki napisałem a wy jak coś mi powiecie co źle :D przypominam że uczę się 2 dni w autoit

 

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

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("SF bot", 187, 29, 192, 124)
$Button1 = GUICtrlCreateButton("EXP", 0, 0, 89, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("PVP", 96, 0, 89, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button1
                       Run();exp
               Case $Button2
                       Run();pvp
                       EndSwitch
				WEnd

while 1
Sleep (1000)
MouseMove (217,264)
MouseClick("")
MouseMove (860,625)
MouseClick("")
MouseMove(616,618)
MouseClick("")
MouseMove(1133,634)
MouseClick("")
Sleep (200000)
MouseMove(867,785)

WEnd




While 2
Sleep (1000)
MouseMove (221,304)
MouseClick ("")
MouseMove (885,611)
MouseClick ("")
Sleep (65000)
EndFunc


Func terminate()
MsgBox (64, "", "program zkończył pracę")
Exit
EndFunc

Opublikowano

Dodaj swój kod do mojego i usun polecenie run oraz while w swoim kodzie. I zamiast func terminate to func koniec. :) sorry, że głupio tłumacze ale pisze z mobilnego.

@edit

 

case $button1

sleep......

...

...

Mousemove..

Case $button2

sleep..

...

...

...

Sleep..

 

I powinno być func koniec, dlatego, bo wybrałeś sobie taka nazwę w hotkeyu.

Wyjaśniłem najbardziej jak umiem na mobilnym. Na komputerze bym ci dał gotowca. Pisz na moje GG w razie problemów 2983040.

mpc.png

Opublikowano

zrobiłem coś takiego

while 1
Sleep (1000)
MouseMove (217,264)
MouseClick("")
MouseMove (860,625)
MouseClick("")
MouseMove(616,618)
MouseClick("")
MouseMove(1133,634)
MouseClick("")
Sleep (200000)
MouseMove(867,785)
WEnd




While 1
Sleep (1000)
MouseMove (221,304)
MouseClick ("")
MouseMove (885,611)
MouseClick ("")
Sleep (65000)
WEnd

Func
MsgBox (64, "", "program zkończył pracę")
Exit
EndFunc

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

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("SF bot", 187, 29, 192, 124)
$Button1 = GUICtrlCreateButton("EXP", 0, 0, 89, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("PVP", 96, 0, 89, 25, $WS_GROUP)
GUISetState(@SW_SHOW)


       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button1
               Case $Button2
                       EndSwitch
				WEnd

 

wyskakuję błąd

 

 

error: "Wend" sstatemenr with no matching "WHhile" statement

Weteran
Opublikowano

"Do wszystkich: nie piszcie gotowcow, niech się nauczy. :) "

 

"Jutro to Ci dam gotowca"

 

No racja mamy nie dawać mu gotowców, bo i tak ty to zrobisz ;D

1329036830-U154499.png
Opublikowano

Chciałem mu wszystko objaśnić, a nie żebyście zarzucali gotowca bez wyjaśnienia. :]

HotKeySet("{d}", "koniec"); jezeli tu piszesz "koniec" to i w func musi pisac func koniec()
HotKeySet("{F9}", "exp1"); hotkey pod exp'a ( func exp1() )
HotKeySet("{F10}", "pvp1"); hotkey pod pvp ( func pvp1() )
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("SF bot", 187, 29, 192, 124)
$Button1 = GUICtrlCreateButton("EXP", 0, 0, 89, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("PVP", 96, 0, 89, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
; GUI
While 1 ; moze byc tylko jedna petla w skrypcie (zadne while 2 itp. tylko jedno while 1)
$nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE; odpowiada za zamkniecie
                       Exit; wychodzi jezeli klikniesz "X"
			Case $Button1; co ma zrobic jezeli klikniesz $Button1
Sleep (1000)
MouseMove (217,264)
MouseClick("")
MouseMove (860,625)
MouseClick("")
MouseMove(616,618)
MouseClick("")
MouseMove(1133,634)
MouseClick("")
Sleep (200000)
MouseMove(867,785)
               Case $Button2; co ma zrobic jezeli klikniesz $button2
Sleep (1000)
MouseMove (221,304)
MouseClick ("")
MouseMove (885,611)
MouseClick ("")
Sleep (65000)
			EndSwitch
WEnd

Func koniec(); fukcja koniec
MsgBox (64, "", "Program skończył pracę")
Exit
EndFunc

Func exp1(); funkcja exp1
Sleep (1000)
MouseMove (217,264)
MouseClick("")
MouseMove (860,625)
MouseClick("")
MouseMove(616,618)
MouseClick("")
MouseMove(1133,634)
MouseClick("")
Sleep (200000)
MouseMove(867,785)
EndFunc

Func pvp1(); funkcja pvp1
Sleep (1000)
MouseMove (221,304)
MouseClick ("")
MouseMove (885,611)
MouseClick ("")
Sleep (65000)
EndFunc
; pamietaj, ze zawsze musi byc " () " po nazwie funkcji czyli np. Manderigon_Back() itp.
;jezeli klikniesz F9 to wykona ci funkcje exp a jezeli F10 to pvp 

mpc.png

Opublikowano

To teraz ćwiczenie utrwalające:

Używając funkcji sleep,mousemove,mouseclick,send i hotkeyset, zrób mi program (kod), który nakierowuje na zegar, klika i zmienia godzinę na 00:00:00 pod hotkey'em "a". ;)

Funkcji Send używasz tak: Send("Manderigon_Back"). Moja rozdzielczość to 1024x768.

Powodzenia.

mpc.png

Opublikowano

@UP

 

Tak szczerze, to...

 

MsgBox(32, "?", "Are You Fucking Kidding Me?")

 

Masz nadzieję, że on to zrobi... Nie mówię, że nie da rady, ale wątpie.

1352970251-U713459.png

By Maxiu
"Because limits, like fears, are often just an illusion"

Opublikowano

Jeżeli chce się czegokolwiek nauczyć i utrwalać, to tak. Sam chciałbym, żeby mi takie ćwiczonka dawano. Chyba, ze to kolejny noobek, który chce kod i idzie..

Pewnie wszystkie średniki usunął i nie dał nawet plusa. <_<

mpc.png

Opublikowano

do jutra to napiszę

 

tylko gdybyś mi mogła wytłumaczyć to guI albo podżucić link

do tuta o gui :D plusów nie dawałem bo niewiedziałem co zbierasz

 

@EDIT1

admirale bartku melduje że bot jest gotowy w 40%

xD o 22-23 bedzie

 

@edit2

ehhh

chyba nie da rady bo jak otwiera zegar jrst on w losowej pozucji :(

Opublikowano

Tools --> KODA Form Designer (Alt +m)

raz_hnanrne.PNG

Po zabawie z okienkami: Generate code (F9)

dwa_hnanrnq.PNG

Insert into the SCITE

tri_hnanres.PNG

Płeć: Mężczyzna >_<

Zbieram add.png

@edit

To daj kod bota, który poprostu otwiera okno z zegarem, a potem otwiera notatnik (run notatnik) i pisze godzinę. (@hour i @min) zrozumiałes polecenie? Zawsze mogę pomoc. ;)

mpc.png

Opublikowano

Pedalski szkarłat.

 

chyba nie da rady bo jak otwiera zegar jrst on w losowej pozucji

WinGetPos()

 

Do ustawiania czasu systemowego służy _Date_Time_SetLocalTime.

 

 

 

 

Nie mów mi nic o ćwiczeniu utrwalającym.

 

Ta sygnatura jest pusta.

Opublikowano

To teraz ćwiczenie utrwalające:

Używając funkcji sleep,mousemove,mouseclick,send i hotkeyset, zrób mi program (kod), który nakierowuje na zegar, klika i zmienia godzinę na 00:00:00 pod hotkey'em "a". ;)

Funkcji Send używasz tak: Send("Manderigon_Back"). Moja rozdzielczość to 1024x768.

Powodzenia.

 

 

#include <GuiConstantsEx.au3>
#include <Date.au3>
#include <WindowsConstants.au3>
   $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)


$tNew = _Date_Time_EncodeSystemTime(7, 19, @YEAR, 22, 0, 0)
   If Not _Date_Time_SetSystemTime(DllStructGetPtr($tNew)) Then
       MsgBox(4096, "Error", "System clock cannot be SET" & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
       Exit
   EndIf
   $tNew = _Date_Time_GetSystemTime()
   MemoWrite("New system date/time .....: " & _Date_Time_SystemTimeToDateTimeStr($tNew))

Func MemoWrite($sMessage)
   GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc

 

żywcem wzięte kawałki z helpera...

Oddajcie minusy! :(

Opublikowano

Pedalski szkarłat.

 

 

WinGetPos()

 

Do ustawiania czasu systemowego służy _Date_Time_SetLocalTime.

 

 

 

 

Nie mów mi nic o ćwiczeniu utrwalającym.

 

Lub dla nooba

ControlSetText

:P

za duża sygnatura

Zarchiwizowany

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

×
×
  • Dodaj nową pozycję...