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

[Dl] Program Który Blokuje Myszkę + Inne Dodatki

I ♥ BMX

Rekomendowane odpowiedzi

I ♥ BMX Specjalista

I ♥ BMX

Opublikowano
Specjalista

I ♥ BMX

Opublikowano

Cześć mam dla was programik o takich możliwościach:

 

 

 

Po nacisnięciu:

 

F1 Blokuje myszkie

F2 Blokuje myszkie i nie dopuszcza do włączenia się wygaszacza.

F3 Anty Wygaszacz

F4 Naciska ciągle "ESC" i "1" dzięki czemu niezrobimy nic w komputerze. ;D

F5 Blokuje klawiature (naciska "ESC" i "1") i blokuje myszkię.

F10 Pauza

F11 Zamyka Program

 

 

 

 

 

Tutaj Link Download: [Download] [scan]

 

Pisze że są wirki ponieważ pliczek rusza myszką co jakiś czas, (jest to funkcja anty wygaszacza)

 

 

 

Zapewniam że przez ten pliczek nic się nie stanie.! (bym dał suorce ale nie chce żeby doszło do plagiatu)

 

 

Suorce jedynie daje modernatorom, wiem że nie skopiują i nie podpiszą że to oni zrobili.. ;P

I ♥ BMX Specjalista

I ♥ BMX

Opublikowano
Specjalista

I ♥ BMX

  • Autor
Opublikowano

Tak działa, ale możesz mi powiedzieć jakie to ma zastosowanie ?

Po co to komu i gdzie tego można użyć ? ;)

 

Zastosowanie: 

Chcesz sobie zostawić żeby np ściągną się jakiś pliczek z internetu, a masz młodego brata który zawszę ci psoci i wyłącza ściąganie bo mu internet muli xD

jak to zrobisz nic nie zrobi w komputerze.  

 

 

 

gdzie można użyć:

No jak gdzie.? Wszędzie gdzie jest komputer. :P (nawet możesz zrobić psikusa w szkole na informatyce nauczycielce. (ona np wyjdzie po dziennik a ty szybko ściągniesz pliczek i włączysz..) HaH. xD

 

Po co komu:

Do zabezpieczenia komputera aby nikt ci w nim nie na grzebał.

 

a i merkon możesz przenosić.? Jak tak to poproszę to do kosza: http://www.mpcforum.pl/topic/159057-dl-anty-wygaszacz-blokada-myszki-itp-w-jednym

I ♥ BMX Specjalista

I ♥ BMX

Opublikowano
Specjalista

I ♥ BMX

  • Autor
Opublikowano

Suorce:

 

HotKeySet("{F1}", "BloMou")
HotKeySet("{F2}", "BlokAnty")
HotKeySet("{F3}", "Anty")
HotKeySet("{F4}", "Kla")
HotKeySet("{F5}", "Klawi")
HotKeySet("{F9}", "Pau")
HotKeySet("{F10}", "Zam")

MsgBox(0, "Nowość.", "Program By Marcinvx, proszę o nie kopiowanie.!")

MsgBox(0, "Info.", "Bot został zrobiony dla MPC forum")

Func BloMou()
While 1
MouseMove(1,1)
WEnd
EndFunc

Func BlokAnty()
While 1
MouseMove(1,1)
MouseMove(3,3)
Wend
EndFunc

Func Anty()
While 1
MouseMove(1,1)
MouseMove(3,3)
Wend
EndFunc

Func Kla()
While 1
Send("1")
Send("{esc}")
WEnd
EndFunc

Func Klawi()
While 1
Send("1")
MouseMove(1,1)
Send("{esc}")
WEnd
EndFunc

Func Pau()
While 1
Sleep(1)
WEnd
EndFunc

Func Zam()
Exit
EndFunc

 

 

 

 

Moge się założyć że byś zrobił 10x lepsze. ;P Bo to jest ubogie chociaż ja się za bardzo nie bawie w auto IT. 

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

dodaj do skryptu

while 1

sleep(100)

wend

i możesz sobie go udoskonalic

TrayTip("bla bla ba",30)

pokazuje w trayu przez 30 sek dany napis

i usuń te kropki z msgobxa "info." :P

I ♥ BMX Specjalista

I ♥ BMX

Opublikowano
Specjalista

I ♥ BMX

  • Autor
Opublikowano

dodaj do skryptu

while 1

sleep(100)

wend

i możesz sobie go udoskonalic

TrayTip("bla bla ba",30)

pokazuje w trayu przez 30 sek dany napis

i usuń te kropki z msgobxa "info." :P

 

Gdzie to dodać: 

 

while 1

sleep(100)

wend

 

 

.?

 

 

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

any where

byle gdzie dodaj sobie np pod msgboxem

ta funkcja jest po to by skrypt się nie wyłączył, bo jak msgbox zamkniecie to już skrypt off

a co do funkcji TrayTip("bla bla ba","lol",30)

to dodaj sobie do tego

Func Zam()
Exit
EndFunc

np.

Func Zam()
TrayTip("Informacja","Wyłączanie programu",30)
sleep(1000)
Exit
EndFunc

I ♥ BMX Specjalista

I ♥ BMX

Opublikowano
Specjalista

I ♥ BMX

  • Autor
Opublikowano

Mam coś ciekawszego w spoilerze. ;-)

 

 

 

 

HotKeySet("{F1}", "BloMou")
HotKeySet("{F2}", "BlokAnty")
HotKeySet("{F3}", "Anty")
HotKeySet("{F4}", "Kla")
HotKeySet("{F5}", "Klawi")
HotKeySet("{F9}", "Pau")
HotKeySet("{F10}", "Zam")

TrayTip("Informacja","Program uruchomiony. Wybierz funkcje.",40)

MsgBox(0, "Nowość.", "Program By Marcinvx, proszę o nie kopiowanie.!")

MsgBox(0, "Info.", "Bot został zrobiony dla MPC forum")

while 1
sleep(100)
wend

Func BloMou()
TrayTip("Informacja","Blokada myszki została uruchomiona",40)
While 1
MouseMove(1,1)
WEnd
EndFunc

Func BlokAnty()
TrayTip("Informacja","Anty wygaszacz oraz blokada myszki uruchomiona",40)
While 1
MouseMove(1,1)
MouseMove(3,3)
Wend
EndFunc

Func Anty()
TrayTip("Informacja","Anty wygaszacz został uruchomiony",40)
While 1
MouseMove(1,1)
MouseMove(3,3)
Wend
EndFunc

Func Kla()
TrayTip("Informacja","Blokada klawiatury została uruchomiona",40)
While 1
Send("1")
Send("{esc}")
WEnd
EndFunc

Func Klawi()
TrayTip("Informacja","Blokada klawiatury i myszki została uruchomiona",40)
While 1
Send("1")
MouseMove(1,1)
Send("{esc}")
WEnd
EndFunc

Func Pau()
TrayTip("Informacja","Zastopowanie programu. Teraz możesz wybrać inną opcje albo wyłączyć program.",40)
While 1
Sleep(1)
WEnd
EndFunc

Func Zam()
TrayTip("Informacja","Wyłączanie programu",30)
sleep(1000)
Exit
EndFunc

 

 

 

 

I ♥ BMX Specjalista

I ♥ BMX

Opublikowano
Specjalista

I ♥ BMX

  • Autor
Opublikowano

 jak zrobić żebym mogł napisać instrukcję w Gui.?@Edit. Jesteś modem. A możesz wyczyścić ten temat.? 

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

masz tu przykład

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)
   Local $Button_1, $msg
   GUICreate("lol", 288, 96, 458, 180)
HotKeySet("{F5}","lolz")
func lolz()
iksde()
EndFunc

   Opt("GUICoordMode", 2)
   $Button_1 = GUICtrlCreateButton("Blokuj myszke", 10, 30, 100)
GUICtrlCreateLabel("F5 - wyłącza bota",60,1)
   GUISetState()
iksde()	
func iksde()	
While 1
       $msg = GUIGetMsg()
       Select
           Case $msg = $GUI_EVENT_CLOSE
               Exit
           Case $msg = $Button_1
               TrayTip("Informacja","Blokada myszki została uruchomiona",40)
			While 1
			MouseMove(1,1)
			WEnd
       EndSelect
   WEnd
EndFunc

jestem modem działu tylko tibia:/

I ♥ BMX Specjalista

I ♥ BMX

Opublikowano
Specjalista

I ♥ BMX

  • Autor
Opublikowano

KingSP1 Nawet mi się podoba ten programik, w auto it łącznie bawie się może 24h. ;P

Edit.

 

Może coś jeszcze poczytam na temat wygaszaczy, np jaki proces to wygaszacz i to ulepsze aby tyle procka nie ciągneło. ;D

 

 

  • 2 tygodnie później...
I ♥ BMX Specjalista

I ♥ BMX

Opublikowano
Specjalista

I ♥ BMX

  • Autor
Opublikowano

Odświeżam, a przy okazji powiem że mam zrobione taki programik z pięknym GUI. :)  Dam w nowym temacie ( dać w pogaduszkach czy gdzie.? bo to będzie ostatnia wersja tego) xD

I ♥ BMX Specjalista

I ♥ BMX

Opublikowano
Specjalista

I ♥ BMX

  • Autor
Opublikowano

Wiem że to suorce wyżej jest bez GUI ale nie chce plagiatu. 

Sorki ale nie dam. ;/  Nie gniewajcie się...

Zarchiwizowany

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

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