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

Moje prace AutoIt


Rekomendowane odpowiedzi

Opublikowano

Moje skrypty:

 

1. Szkielet: Bot do tibii(tylko GUI i początek)

 

 

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region Całe Gui:
$Form1 = GUICreate("BloodBot", 180, 19)
$Menu1 = GUICtrlCreateMenu("Plik")
$Wczytaj = GUICtrlCreateMenuItem("Wczytaj", $Menu1)
$Zapisz = GUICtrlCreateMenuItem("Zapisz", $Menu1)
$Zakoncz = GUICtrlCreateMenuItem("Zakończ", $Menu1)
$Menu2 = GUICtrlCreateMenu("Ustawienia")
$Alarmy = GUICtrlCreateMenuItem("Alarmy", $Menu2)
$Atakowanie = GuiCtrlCreateMenuItem("Atakowanie", $Menu2)
$Cavebot = GUICtrlCreateMenuItem("Cavebot", $Menu2)
$Hotkeye = GuiCtrlCreateMenuItem("Hotkeye", $Menu2)
$Leczenie = GUICtrlCreateMenuItem("Leczenie", $Menu2)
$Sterowanie = GuiCtrlCreateMenuItem("Sterowanie", $Menu2)
$Menu3 = GuiCtrlCreateMenu("Opcje")
$Zatrzymaj = GuiCtrlCreateMenuItem("Zatrzymaj funkcje bota", $Menu3)
$Minimalizuj = GuiCtrlCreateMenuItem("Zezwól na zminimalizowanego klienta", $Menu3)
$PokazKlient = GuiCtrlCreateMenuItem("Pokaż klienta Tibia", $Menu3)
$ResetLicznik = GuiCtrlCreateMenuItem("Resetuj licznik exp/h", $Menu3)
$ZnajdzKlient = GuiCtrlCreateMenuItem("Znajdź nowego klienta", $Menu3)
$Zamknijbota = GuiCtrlCreateMenuItem("Zamknij bota i klienta", $Menu3)
$Menu4 = GuiCtrlCreateMenu("Pomoc")
$Pomoc = GuiCtrlCreateMenuItem("Pomoc", $Menu4)
GUISetState(@SW_SHOW)
#EndRegion
#Region Sterowanie:
While 1
  $nMsg = GuiGetMsg()
  Switch $nMsg
Case $Wczytaj
  wczytaj()
Case $Zapisz
  zapisz()
Case $Alarmy
  alarmy()
Case $Atakowanie
  atakowanie()
Case $Cavebot
  cavebot()
Case $Hotkeye
  hotkeye()
Case $Leczenie
  leczenie()
Case $Sterowanie
  sterowanie()
Case $Zatrzymaj
  zatrzymaj()
Case $Minimalizuj
  minimalizuj()
Case $PokazKlient
  pokazklient()
Case $ResetLicznik
  resetlicznik()
Case $ZnajdzKlient
  znajdzklient()
Case $Zamknijbota
  zamknijbota()
Case $Pomoc
  pomoc()
Case $Zakoncz
  Exit
  EndSwitch
  WEnd
#EndRegion

 

 

 

2. Włącznik: v1.1a(Tylko programy(Mozilla Firefox, Kalkulator, notatnik, paint i edytor SciTE, może nie działać niektórym[jeśli zmieniałeś standardową ścieżkę instalowanych plików, może nie działać]).

 

 

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region GUI
$Form1 = GuiCreate("Włącznik", 180, 19)
$Menu2 = GuiCtrlCreateMenu("Programy")
$Menu3 = GuiCtrlCreateMenu("Opcje")
$MozillaFirefox = GuiCtrlCreateMenuItem("Mozilla Firefox", $Menu2)
$Notatnik = GuiCtrlCreateMenuItem("Notatnik", $Menu2)
$AutoIt = GuiCtrlCreateMenuItem("AutoIt Edytor", $Menu2)
$Kalkulator = GuiCtrlCreateMenuItem("Kalkulator", $Menu2)
$Paint = GuiCtrlCreateMenuItem("Paint", $Menu2)
$Koniec = GuiCtrlCreateMenuItem("Wyjście", $Menu3)
GUISetState(@SW_SHOW)
#EndRegion
#Region Funkcje
While 1
  $nMsg = GuiGetMsg()
  Switch $nMsg
Case $MozillaFirefox
  Run(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe")
Case $Notatnik
  Run(@SystemDir & "\notepad.exe")
Case $AutoIt
  Run(@ProgramFilesDir & "\AutoIt3\SciTE\SciTE.exe")
Case $Kalkulator
  Run(@SystemDir & "\calc.exe")
Case $Paint
  Run(@SystemDir & "\mspaint.exe")
Case $Koniec
  Exit
  EndSwitch
  WEnd
#EndRegion

 

 

3. Pianino v1.1a(Nie śmiejcie się z kodu, myliłem się z nutami i musiałem je jakoś zapisać) :)

 

PS. Zapomniałem zmienić wersji w label, w kodzie jest już zmieniona.

 

 

1.1a

Link:

Skan:

 

1.0a

Link:

Skan:

 

// Skany oczywiście znowu nie działały.

Protecto

 

Zmiany:

 

1.1a

 

- Optymalizacja programu.

- Niestety, zepsuty dźwięk i spowolnienie programu(chociaż mniej waży, jest powolniejszy, dziwne...)

 

1.0a

 

- Stworzenie programu.

- Dodanie dźwięków.

- Zrobienie całego GUI.

 

Skrypt:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 502, 173, 445, 512)
$Button1 = GUICtrlCreateButton(",", 8, 48, 25, 41)
$Button2 = GUICtrlCreateButton(".", 32, 48, 25, 41)
$Button3 = GUICtrlCreateButton("/", 56, 48, 25, 41)
$Button4 = GUICtrlCreateButton("Q", 80, 48, 25, 41)
$Button5 = GUICtrlCreateButton("W", 104, 48, 25, 41)
$Button6 = GUICtrlCreateButton("E", 128, 48, 25, 41)
$Button7 = GUICtrlCreateButton("R", 152, 48, 25, 41)
$Button8 = GUICtrlCreateButton("T", 176, 48, 25, 41)
$Button9 = GUICtrlCreateButton("Y", 200, 48, 25, 41)
$Button10 = GUICtrlCreateButton("U", 224, 48, 25, 41)
$Button11 = GUICtrlCreateButton("I", 248, 48, 25, 41)
$Button12 = GUICtrlCreateButton("O", 272, 48, 25, 41)
$Button13 = GUICtrlCreateButton("P", 296, 48, 25, 41)
$Button14 = GUICtrlCreateButton("[", 320, 48, 25, 41)
$Button15 = GUICtrlCreateButton("]", 344, 48, 25, 41)
$Button16 = GUICtrlCreateButton("ENT", 368, 48, 25, 41)
$Button17 = GUICtrlCreateButton("DEL", 392, 48, 25, 41)
$Button18 = GUICtrlCreateButton("END", 416, 48, 25, 41)
$Button19 = GUICtrlCreateButton("PGD", 440, 48, 33, 41)
$Button20 = GUICtrlCreateButton("L", 16, 8, 25, 41)
$Button21 = GUICtrlCreateButton(";", 48, 8, 25, 41)
$Button22 = GUICtrlCreateButton("2", 88, 8, 25, 41)
$Button23 = GUICtrlCreateButton("3", 112, 8, 25, 41)
$Button24 = GUICtrlCreateButton("4", 136, 8, 25, 41)
$Button25 = GUICtrlCreateButton("6", 184, 8, 25, 41)
$Button26 = GUICtrlCreateButton("7", 216, 8, 25, 41)
$Button27 = GUICtrlCreateButton("9", 256, 8, 25, 41)
$Button28 = GUICtrlCreateButton("0", 280, 8, 25, 41)
$Button29 = GUICtrlCreateButton("-", 304, 8, 25, 41)
$Button30 = GUICtrlCreateButton("BS", 352, 8, 25, 41)
$Button31 = GUICtrlCreateButton("INS", 384, 8, 25, 41)
$Button32 = GUICtrlCreateButton("PGU", 424, 8, 33, 41)
$Label1 = GUICtrlCreateLabel("Program zrobiony przez: BloodRiderPL"& @LF &"wersja: 1.1a", 8, 104, 484, 65)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### Instalacja ###
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(,).mid", @TempDir & "\nuta(,).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(.).mid", @TempDir & "\nuta(.).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(znaczek obok kropki).mid", @TempDir & "\nuta(znaczek obok kropki).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(Q).mid", @TempDir & "\nuta(Q).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(W).mid", @TempDir & "\nuta(W).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(E).mid", @TempDir & "\nuta(E).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(R).mid", @TempDir & "\nuta(R).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(T).mid", @TempDir & "\nuta(T).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(Y).mid", @TempDir & "\nuta(Y).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(U).mid", @TempDir & "\nuta(U).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(I).mid", @TempDir & "\nuta(I).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(O).mid", @TempDir & "\nuta(O).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(P).mid", @TempDir & "\nuta(P).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta([).mid", @TempDir & "\nuta([).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(]).mid", @TempDir & "\nuta(]).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(ENTER).mid", @TempDir & "\nuta(ENTER).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(DELETE).mid", @TempDir & "\nuta(DELETE).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(Backspace).mid", @TempDir & "\nuta(Backspace).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(END).mid", @TempDir & "\nuta(END).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(Insert).mid", @TempDir & "\nuta(Insert).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(Page Down).mid", @TempDir & "\nuta(Page Down).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(Page Up).mid", @TempDir & "\nuta(Page Up).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(L).mid", @TempDir & "\nuta(L).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(.mid", @TempDir & "\nuta(.mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(2).mid", @TempDir & "\nuta(2).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(3).mid", @TempDir & "\nuta(3).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(4).mid", @TempDir & "\nuta(4).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(6).mid", @TempDir & "\nuta(6).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(7).mid", @TempDir & "\nuta(7).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(9).mid", @TempDir & "\nuta(9).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(0).mid", @TempDir & "\nuta(0).mid")
FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(-).mid", @TempDir & "\nuta(-).mid")
#EndRegion ### Instalacja ###
#Region ### Przyciski ###
HotkeySet("{,}", $Button1)
HotkeySet("{.}", $Button2)
HotkeySet("{/}", $Button3)
HotkeySet("{Q}", $Button4)
HotkeySet("{W}", $Button5)
HotkeySet("{E}", $Button6)
HotkeySet("{R}", $Button7)
HotkeySet("{T}", $Button8)
HotkeySet("{Y}", $Button9)
HotkeySet("{U}", $Button10)
HotkeySet("{I}", $Button11)
HotkeySet("{O}", $Button12)
HotkeySet("{P}", $Button13)
HotkeySet("{[}", $Button14)
HotkeySet("{]}", $Button15)
HotkeySet("{ENTER}", $Button16)
HotkeySet("{DELETE}", $Button17)
HotkeySet("{END}", $Button18)
HotkeySet("{PGDN}", $Button19)
HotkeySet("{L}", $Button20)
HotkeySet("{;}", $Button21)
HotkeySet("{2}", $Button22)
HotkeySet("{3}", $Button23)
HotkeySet("{4}", $Button24)
HotkeySet("{6}", $Button25)
HotkeySet("{7}", $Button26)
HotkeySet("{9}", $Button27)
HotkeySet("{0}", $Button28)
HotkeySet("{-}", $Button29)
HotkeySet("{BS}", $Button30)
HotkeySet("{INS}", $Button31)
HotkeySet("{PGUP}", $Button32)
#EndRegion ### Przyciski ###
#Region ### Case ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	 Case $Button1
		_SoundPlay(@TempDir & "\nuta(,).mid")
	 Case $Button2
		_SoundPlay(@TempDir & "\nuta(.).mid")
	 Case $Button3
		_SoundPlay(@TempDir & "\nuta(znaczek obok kropki).mid")
	 Case $Button4
		_SoundPlay(@TempDir & "\nuta(Q).mid")
	 Case $Button5
		_SoundPlay(@TempDir & "\nuta(W).mid")
	 Case $Button6
		_SoundPlay(@TempDir & "\nuta(E).mid")
	 Case $Button7
		_SoundPlay(@TempDir & "\nuta(R).mid")
	 Case $Button8
		_SoundPlay(@TempDir & "\nuta(T).mid")
	 Case $Button9
		_SoundPlay(@TempDir & "\nuta(Y).mid")
	 Case $Button10
		_SoundPlay(@TempDir & "\nuta(U).mid")
	 Case $Button11
		_SoundPlay(@TempDir & "\nuta(I).mid")
	 Case $Button12
		_SoundPlay(@TempDir & "\nuta(O).mid")
	 Case $Button13
		_SoundPlay(@TempDir & "\nuta(P).mid")
	 Case $Button14
		_SoundPlay(@TempDir & "\nuta([).mid")
	 Case $Button15
		_SoundPlay(@TempDir & "\nuta(]).mid")
	 Case $Button16
		_SoundPlay(@TempDir & "\nuta(ENTER).mid")
	 Case $Button17
		_SoundPlay(@TempDir & "\nuta(DELETE).mid")
	 Case $Button18
		_SoundPlay(@TempDir & "\nuta(END).mid")
	 Case $Button19
		_SoundPlay(@TempDir & "\nuta(PAGE DOWN).mid")
	 Case $Button20
		_SoundPlay(@TempDir & "\nuta(L).mid")
	 Case $Button21
		_SoundPlay(@TempDir & "\nuta(.mid")
	 Case $Button22
		_SoundPlay(@TempDir & "\nuta(2).mid")
	 Case $Button23
		_SoundPlay(@TempDir & "\nuta(3).mid")
	 Case $Button24
		_SoundPlay(@TempDir & "\nuta(4).mid")
	 Case $Button25
		_SoundPlay(@TempDir & "\nuta(6).mid")
	 Case $Button26
		_SoundPlay(@TempDir & "\nuta(7).mid")
	 Case $Button27
		_SoundPlay(@TempDir & "\nuta(9).mid")
	 Case $Button28
		_SoundPlay(@TempDir & "\nuta(0).mid")
	 Case $Button29
		_SoundPlay(@TempDir & "\nuta(-).mid")
	 Case $Button30
		_SoundPlay(@TempDir & "\nuta(Backspace).mid")
	 Case $Button31
		_SoundPlay(@TempDir & "\nuta(Insert).mid")
	 Case $Button32
		_SoundPlay(@TempDir & "\nuta(PAGE UP).mid")
EndSwitch
WEnd
#EndRegion ### Case ###

 

Lista będzie z czasem uzupełniana.

Opublikowano

Cieszę się, że kilku nowych adeptów mamy w dziale. :)

Niestety nie przetestuję bocika, bo nie mam Tibii na kompie.

 

@DOWN

Haha, faktycznie. Nawet nie zajrzałem do spoilera. :P

 

@EDIT

Ludzie, pamiętajcie o code. Proszę. :)

 

@UP

Fajnie, że się starasz, ale samo GUI to jeszcze nie bot.

Co do konkurencyjnego forum. Tak, brałem z tego forum PixelColor, ale zabronione jest podawanie linków. :) Pamiętaj o tym.

Opublikowano

nie prztestujesz bo niema co:P

came case nic nie robią

 

@2up i to sie mylisz ze bedzie latwiejsze:P

Wbrew pozorom nie jest latwo napisac bota do tibi cos o tym wiem hehe

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

Opublikowano

Case $MinecraftSP

Run("C:\Documents and Settings\Piotrek\Pulpit\Gry\MinecraftSP.exe")

 

Nie ma to jak multiplatformowa aplikacja, działająca na wszystkich systemach operacyjnych, przewidująca potrzeby różnych użytkowników.

 

@UP

MPC Coders? Za co? oO

Ta sygnatura jest pusta.

Opublikowano

Nie zauważyłeś lepszego?

Case $Minecraft
  Run("C:\Documents and Settings\Piotrek\Pulpit\Gry\Minecraft.exe")

 

Mam orginała :) Ta druga wersja jest tylko po to, abym mógł wejść podczas błędu serwera(wtedy nie mogę się zalogować).

 

Następną pracą, jaką próbuję zrobić, jest pianino. Będziecie jednak musieli je pobrać, gdyż plików midi nie mogę zapisać w programie(albo i mogę, jednak jeszcze nie umiem). Nie chcę zrobić programu, który wydaje marne Beep, więc trochę będziecie musieli poczekać, jednak nie zrażajcie się, nie skończę na tym mojej nauki.

 

 

Eh, dobra... Protecto, ty się na tym znasz, ale daj mi też podziałać, przecież to mój temat :) A dodatkowo: Każdy może sobie zmienić, nie pisałem, że program będzie działał u każdego. Nie znam jeszcze wszystkich funkcji programu, dlatego tak a nie inaczej napisałem. Język nie jest bardzo łatwy, ale też nie jest taki trudny, daje radę, i wreszcie dojdę do wszystkiego. Musisz poczekać, nie każdy jest od początku super skrypterem.

 

@Nerv234

 

Robię pianino, niedługo wrzucę je na tą stronę, będziecie mogli pobrać i ocenić(plików midi/wav nie wpakuje w kod, tutaj już nie pomożesz, Protecto).

Nie chwalę się, bo jeszcze niewiele umiem. Gdyby Protecto albo inni chcieli, zrobiliby to łatwo, jednak nie jestem mistrzem i nie jest to dla mnie tak łatwe, jak dla nich.

Najtrudniej jest dla mnie zdobyć dźwięki pianina, jednak jak poszukam, pewnie zdobędę je.

Opublikowano
[...] Mam orginała :) Ta druga wersja jest tylko po to, abym mógł wejść podczas błędu serwera(wtedy nie mogę się zalogować). [...]

Chodzi o to, że nie każdy ma konto w iXPeku nazwane Piotrek. Tak samo z zapisem na pulpicie. Tylko Tobie to będzie działać. Przeczytaj jeszcze raz posta 4ggr.

 

[...] gdyż plików midi nie mogę zapisać w programie [...]

Możesz, możesz. :P

FileInstall()

Opublikowano

Fajnie, że się chwalisz botami do tibii, lecz nie są one kompletne to po 1, po 2 nie pokazałeś nam funkcji,

Po 2. Bot do wowa wiadomo jest trudny do zrobienia, lecz nie tak trudny jak zrobienie bota do metina gdzie hackshielda trzeba ominąć.

A po 3, chwaląc się pokaż coś skomplikowanego.

Opublikowano

Zrób tak:

1. Usiądź..

2. Popatrz na swój kod i przemyśl go..

3. Popraw.

4. Dopiero wrzucaj swoje prace, jeśli będziesz pewien, że są w 100% dobre..

 

#Edit

 

Twój pierwszy kod:

Nie dałeś w ogóle funkcji do kodu...

Po odpaleniu, bez większych niespodzianek:

15 error(s), 0 warning(s)

 

Drugi kod:

Spoko, spoko, tylko ja nie mam konta Piotrek, a tym bardziej folderu Gry na pulpicie =d

Opublikowano

C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(33,12) : ERROR: wczytaj(): undefined function.
  wczytaj()
~~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(35,11) : ERROR: zapisz(): undefined function.
  zapisz()
~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(37,11) : ERROR: alarmy(): undefined function.
  alarmy()
~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(39,15) : ERROR: atakowanie(): undefined function.
  atakowanie()
~~~~~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(41,12) : ERROR: cavebot(): undefined function.
  cavebot()
~~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(43,12) : ERROR: hotkeye(): undefined function.
  hotkeye()
~~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(45,13) : ERROR: leczenie(): undefined function.
  leczenie()
~~~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(47,15) : ERROR: sterowanie(): undefined function.
  sterowanie()
~~~~~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(49,14) : ERROR: zatrzymaj(): undefined function.
  zatrzymaj()
~~~~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(51,16) : ERROR: minimalizuj(): undefined function.
  minimalizuj()
~~~~~~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(53,16) : ERROR: pokazklient(): undefined function.
  pokazklient()
~~~~~~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(55,17) : ERROR: resetlicznik(): undefined function.
  resetlicznik()
~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(57,17) : ERROR: znajdzklient(): undefined function.
  znajdzklient()
~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(59,16) : ERROR: zamknijbota(): undefined function.
  zamknijbota()
~~~~~~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3(61,10) : ERROR: pomoc(): undefined function.
  pomoc()
~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Nowy AutoIt v3 Script.au3 - 15 error(s), 0 warning(s)

Daj Like'a ;D

Opublikowano

@up i pare tam @up

Pokazałem wam już wersję testową mojego bota, jest to jego "szkielet"

 

@down

bo _ispressed jest za nie uznawane.

potem pobiore, na razie mi się nie chce ;p

Opublikowano

Dzięki sopelek, oni jak widać nie czytają ze zrozumieniem :)

 

Zaraz wrzucę moje pianino/fortepian. Waży 2mb i ma dźwięki, jeszcze się zacina, ale działa. Próbuje dodać kilka funkcji jeszcze i sprawić, aby się tak nie cięło.

 

Hotkeye zrobiłem, ale nie działają, dlatego pojawią się one w Pianino v1.0a

 

Pianino:

 

Link:

http://www.speedyshare.com/file/a4ukS/Pianino.exe

Skan:

http://www.virustotal.com/file-scan/report.html?id=28ff3e98ebe64a3281332d0f62a8a8e710b16b7e963f89db99c688d9f3dcc8e1-1325094135

 

Nie wiem czemu są 2 wirusy, jednak prosiłbym też o sprawdzenie przez kogoś innego, najlepiej moda/zaufanych(minimum +1000 postów)

 

Edit:

 

Zmiana 1 posta w temacie, teraz wszystkie linki, kody są tam wstawiane.

 

Down:

 

Kazał ci ktoś dekompilować? Następnym razem chyba założę hasło... poza tym: spam...

Twoje posty nic do tematu nie wnoszą.

Opublikowano

Spoko. Fajnie, że są normalne dźwięki, a nie raniące beepy.

Postaraj się teraz robić do tego grafikę. Użyj Guictrlcreatepic(), który tworzy obrazek.

Z klikaniem będzie tak samo jak z buttonem. Poprzez guigetmsg() sprawdzasz czy został kliknięty akurat ten obrazek

Mógłbyś jeszcze zrobić animacje, że po kliknięciu przez chwile jest obrazek wciśniętego klawisza.

 

I przydałoby się mieć klawisze na hotkeyu w podobnym ułożeniu jak na klawiaturze.

Ogólnie jest spoko, rozwijaj to ^^

Opublikowano

FileInstall("C:\Documents and Settings\Piotrek\Pulpit\nuty\nuta(znaczek obok kropki).wav", @TempDir & "\nuta(znaczek obok kropki).wav")

xD

 

Programik fajny, ale trochę wolno chodzi.

 

@PS

Wstaw kod.

Zarchiwizowany

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

×
×
  • Dodaj nową pozycję...