[Problem] Napisany przeze mnie skrypt nie działa. Proszę o poprawę

DroniC · 16 Lipca 2013

Witam.

To jest skrypt, ktory sam napisalem:

Nie wiem czemu, ale on nie dziala. W control send specjalnie napisalem "aaaa".

Mam nadzieję, że ktoś załapie i powie o co chodzi.

Prosty skrypt - dwa buttony. Jeden Start, drugi Stop. Po nacisnieciu przycisku Start ma sie; dziac; jakas; funkcja, a po przycisku Stop po prostu ma sie ona zatrzymac. Cos jednak nie dziala ;/

Bardzo prosze o pomoc.

Sopelek997 · 16 Lipca 2013

Masz bezsensowne pętle. Przeanalizuj kod krok po kroku. Tylko jedna się wykonuję, bo do dalszych nie dochodzi.

DroniC · 16 Lipca 2013

chcialbym przede wszystkim by button1(start) działal. Siedze i kombinuję 40 min i nie potrafie nic zrobic. Tylko to pogarszam ^.-

Agent K · 16 Lipca 2013

CODA daje Ci to jak na tacy, a ty to pousuwałeś, a właściwie powieliłeś.

@Edit

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("By Oski", 310, 214, 408, 219)
$Button1 = GUICtrlCreateButton("Start", 88, 32, 137, 65)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Stop", 88, 120, 137, 65)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

$Start = 0
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$Start = 1
		Case $Button2
			$Start = 0
	EndSwitch
	If $Start == 1 Then
		Button1()
	EndIf
WEnd

Func Button1()
	send("a")
	ControlSend("Tibia", '', '', '{UP}')

	Sleep(40)

	ControlSend("Tibia", '', '', '{DOWN}')

	Sleep(100)
EndFunc   ;==>Button1

Zrobiłbym to jeszcze inaczej bo nie zawsze się zatrzymuje (to przez te sleepy).

DroniC · 16 Lipca 2013

heh ; p teraz to przerobiles to tak, ze pierwszy raz takie cos widze

skoro mowisz, ze zrobilbys to inaczej, bo nie zawsze sie zatrzymuje to jak to ogarnac? sleepy musza byc, bo musi byc przerwa pomiedzy kliknieciem stralki w gore, a w dol.

DroniC · 16 Lipca 2013

przetestowałem, usunąłem to "a" i łapię na jakiej zasadzie jest to zrobione jednak masz rację - czasami pause nie działa ; ((

hehe7 · 16 Lipca 2013

Następnym razem nie pisz posta pod postem bo dostaniesz warna:D

@TOP a dlaczego raz jest send a potem controlsend?

Agent K · 16 Lipca 2013

To ja napisałem to Send bo sprawdzałem czy program się zatrzymuje i zapomniałem usunąć.

ramblox · 16 Lipca 2013

hmmm skoro chcesz spauzować skrypt dodaj jako buton2 funkcje pauza():

Func PAUZA()
    While 1
        Sleep(10)
    WEnd
EndFunc

hehe7 · 16 Lipca 2013

Wyjscie jesli nie dziala mozesz zrobic na hotkeyu i wtedy dziala

DroniC · 16 Lipca 2013

send("a") to było kompletnie nie potrzebne Także wszystko się zgadza, ale bez tego.

Staram się zrobić teraz coś nowego z checkboxami.

Mam na myśli, że zrobiłem 2 checkboxy. Obydwa nazwałem tak, jakie są czary w grze (na szybsze bieganie).

Zrobię to na zasadzie poprzedniego, a podczas zaznaczenia jednego z checkboxów bot bedzie wklikiwał czar do gry

DroniC · 16 Lipca 2013

send("a") to było kompletnie nie potrzebne Także wszystko się zgadza, ale bez tego.

Staram się zrobić teraz coś nowego z checkboxami.

Mam na myśli, że zrobiłem 2 checkboxy. Obydwa nazwałem tak, jakie są czary w grze (na szybsze bieganie).

Zrobię to na zasadzie poprzedniego, a podczas zaznaczenia jednego z checkboxów bot bedzie wklikiwał czar do gry

Agent K. Przyznam, ze ten scrypt przerobiles nie do poznania. Bardzo cienzko jest mi sie ogarnac teraz. Moj skrypt byl niepoprawny kompletnie - z gory na dol? Nie dalo by sie go jakos tylko troszeczke edytowac? Ty mi napisales zupelnie nowy skrypt ; /

kaje11 · 16 Lipca 2013

Napisał go prawidłowo, tutaj masz nadal z użyciem warunków zamiast szufladek.

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

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

$Form1 = GUICreate("By Oski", 310, 214, 408, 219)

$Button1 = GUICtrlCreateButton("Start", 88, 32, 137, 65)

GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")

$Button2 = GUICtrlCreateButton("Stop", 88, 120, 137, 65)

GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")

GUISetState(@SW_SHOW)

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

$s = 0

While 1

$msg = GuiGetMsg()

If $msg = -3 Then

Exit

elseIf $msg = $Start Then

$s = 1

elseIf $msg = $Stop Then

$s = 0

endIf

if $s Then Button1()

WEnd

Func Button1()

ControlSend("Tibia",'','','{UP}')

sleep(40)

ControlSend("Tibia",'','','{DOWN}')

Sleep(100)

EndFunc

Co do checkboxów - tworzysz checkbox, potem GuiCtrlRead( $checkbox ) i porównujesz z wartością $GUI_CHECKED przed otworzeniem funkcji Button1. Potem w button1 dodajesz odpowiednie klawisze czarów itd.

DroniC · 16 Lipca 2013

Jaka jest różnica pomiędzy szufladkami, a warunkami ?

Przepraszam, że piszę temat pod tematem. Coś mam z tym forum ostatnio ;/

Robię jednak z radiobutton (czytałem, że lepsze).

#NoTrayIcon

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Admin\Documents\projekt.kxf

$Form1 = GUICreate("0bot", 479, 353, 266, 167)

GUISetBkColor(0xA6CAF0)

$Button1 = GUICtrlCreateButton("Start", 56, 112, 209, 73)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

$Button2 = GUICtrlCreateButton("Pause", 56, 208, 209, 73)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

$Label2 = GUICtrlCreateLabel("Simple macro to Dragon Ball Legend", 88, 40, 321, 29)

GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")

$Label3 = GUICtrlCreateLabel("by Oski ", 400, 328, 75, 21)

GUICtrlSetFont(-1, 12, 400, 2, "Segoe Script")

$Group1 = GUICtrlCreateGroup("Choose Spell", 272, 112, 145, 169)

GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Radio1 = GUICtrlCreateRadio("Bukujutsu", 288, 152, 113, 33)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

$Radio2 = GUICtrlCreateRadio("Cube Fade", 288, 208, 121, 33)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

GUISetState(@SW_SHOW)

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

$Start = 0

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

$Start = 1

Case $Button2

$Start = 0

EndSwitch

If $Start == 1 Then

Button1()

EndIf

WEnd

Func Button1()

ControlSend("Tibia", '', '', '{UP}')

Sleep(40)

ControlSend("Tibia", '', '', '{DOWN}')

Sleep(100)

EndFunc ;==>Button1

mam problem teraz z zaznaczeniem radiobutton.

Chcę, by po zaznaczeniu któregoś wysyłało wiadomość do Tibi, by napisał np "utani hur"

hehe7 · 16 Lipca 2013

Musisz dać If zmienna (wczesniej odczytujesz stan radio) = guichecked i ze ma zrobic to i to

lokuxd · 17 Lipca 2013

stan = True

HotKeySet("{f1}", "hot")

While 1
    Sleep(100)

WEnd


Func hot()
    $stan = not($stan)
    If $stan = True Then MsgBox(0, '', "start",1)
    If $stan = False Then MsgBox(0, '', "pauza",1)
EndFunc

ten sam klawisz i masz pod nim pauze i start ^.-

ps. wogole ci to dziala? V


ControlSend("Tibia", '', '', '{DOWN}') 
ControlSend("[CLASS:TibiaClient]", "", "", "{down}") chyba tak

Agent K · 17 Lipca 2013

If GUICtrlRead($Checkbox1) == 1 Then
	;Tutaj instrukcje, które mają się wykonać.
EndIf

Albo:

If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then
	;Tutaj instrukcje, które mają się wykonać.
EndIf

DroniC · 17 Lipca 2013

If GUICtrlRead($Checkbox1) == 1 Then	;Tutaj instrukcje, które mają się wykonać.EndIf

Albo:

If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then	;Tutaj instrukcje, które mają się wykonać.EndIf

To nic nie daje ; / Nie wiem czemu po prostu dzialac nie chce. PS. Zmienialem tez na Radio, bo akurat Radio uzywam.

hehe7 · 17 Lipca 2013

Musi działać tylko zobacz czy nazwa zmiennej $checkbox1 nadal jest taka sama.

DroniC · 17 Lipca 2013

#NoTrayIcon

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Admin\Documents\projekt.kxf

$Form1 = GUICreate("0bot", 479, 353, 266, 167)

GUISetBkColor(0xA6CAF0)

$Button1 = GUICtrlCreateButton("Start", 56, 112, 209, 73)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

$Button2 = GUICtrlCreateButton("Pause", 56, 208, 209, 73)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

$Label2 = GUICtrlCreateLabel("Simple macro to Dragon Ball Legend", 88, 40, 321, 29)

GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")

$Label3 = GUICtrlCreateLabel("by Oski ", 400, 328, 75, 21)

GUICtrlSetFont(-1, 12, 400, 2, "Segoe Script")

$Group1 = GUICtrlCreateGroup("Choose Spell", 272, 112, 145, 169)

GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Radio1 = GUICtrlCreateRadio("Bukujutsu", 288, 152, 113, 33)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

$Radio2 = GUICtrlCreateRadio("Cube Fade", 288, 208, 121, 33)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

GUISetState(@SW_SHOW)

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

$Start = 0

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

$Start = 1

Case $Button2

$Start = 0

EndSwitch

If $Start == 1 Then

Button1()

EndIf

WEnd

Func Button1()

ControlSend("Tibia", '', '', '{UP}')

Sleep(40)

ControlSend("Tibia", '', '', '{DOWN}')

Sleep(100)

EndFunc ;==>Button1

While 2

If GUICtrlRead($Radio1) == 1 Then

ControlSend("Tibia", '', '', '{UP}')

EndIf

Wend

Agent K · 17 Lipca 2013

No jak ma działać. Siedzi w pętli While 1 więc jak ma przejść do While 2.

DroniC · 17 Lipca 2013

No jak ma działać. Siedzi w pętli While 1 więc jak ma przejść do While 2.

tam siedzą buttony, a nie radio

Agent K · 18 Lipca 2013

Jak ma się to wykonywać nie zależnie czy jest wciśnięty start czy nie to dodaj ten warunek:

If GUICtrlRead($Radio1) == 1 Then
ControlSend("Tibia", '', '', '{UP}')
EndIf

Do pętli While 1, a jak po wciśnięciu Start to do funkcji Button1().

DroniC · 18 Lipca 2013

Działa, jednak mam problem. Podczas zaznaczenia radiobuttonu "bukujutsu" nie mogę wyłączyć bota (biały krzyżyk na czerwonym tle). Muszę zaznaczyć radiobox "cube fade" (jeszcze nie ma przydzielonej funkcji) i przeczekać to: " Sleep (25000)".

Tak samo w sumie jest z tym up/down - czasami pause nie działa.

Jak zniwelować ten problem?

Agent K · 18 Lipca 2013

Daj kod to Ci poprawie.

Zaloguj się

👋 Witaj na MPCForum!

[Problem] Napisany przeze mnie skrypt nie działa. Proszę o poprawę

Rekomendowane odpowiedzi

Zarchiwizowany