|
You last visited: Today at 18:46
Advertisement
Aprill Scherz Programm mit Bild und Ton + Maus und Tastatur sperre
Discussion on Aprill Scherz Programm mit Bild und Ton + Maus und Tastatur sperre within the AutoIt forum part of the Coders Den category.
04/06/2017, 22:07
|
#1
|
elite*gold: 0
Join Date: Jun 2011
Posts: 67
Received Thanks: 4
|
Aprill Scherz Programm mit Bild und Ton + Maus und Tastatur sperre
Hi
möchte ein Scherz Programm machen das wenn es geföffnet wird die Maus und die Tastatur sperrt weiter soll das Programm wärend eine angebliche Formatierung der Festplatte läuft ein Lied zu hören sein und ein Paar Bilder zu Sehen sein eine art Dia Show.
Nun soweit bin ich schon vielleicht kann mir einer beim fertigstellen Helfen.
Code:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#RequireAdmin
GUICreate("Text", 350, 300, -1, -1, $WS_SIZEBOX + $WS_SYSMENU)
GUISetBkColor(0xE0FFFF)
Local $idPic = GUICtrlCreatePic("C:\Users\****\Pictures\****.jpg", 10, 10, 325, 255)
GUISetState(@SW_SHOW)
ProgressOn("Festplatten Formatieren", "Status", "Working...",490, 660)
;BlockInput(1)
For $i = 0 To 100
ProgressSet($i)
Sleep(1000)
Do
Beep(704,750);
Beep(792,250);
Beep(880,500);
Beep(792,500);
Beep(940,500);
Beep(880,500);
Beep(792,250);
Beep(660,250);
Beep(704,500);
Beep(1188,500);
Beep(1056,500);
Beep(940,500);
Beep(880,500);
Beep(792,500);
Beep(880,250);
Beep(704,250);
Beep(1056,1000);
Beep(704,750);
Beep(792,250);
Beep(880,500);
Beep(792,500);
Beep(940,500);
Beep(880,500);
Beep(792,250);
Beep(660,250);
Beep(704,500);
Beep(1188,500);
Beep(1056,500);
Beep(940,500);
Beep(880,500);
Beep(792,500);
Beep(880,250);
Beep(704,250);
Beep(1056,1000);
Beep(792,500);
Beep(880,500);
Beep(792,250);
Beep(660,250);
Beep(528,500);
Beep(940,500);
Beep(880,500);
Beep(792,250);
Beep(660,250);
Beep(528,500);
Beep(1056,500);
Beep(940,500);
Beep(880,750);
Beep(880,250);
Beep(990,500);
Beep(940,250);
Beep(1056,250);
Beep(1056,1000);
Beep(1408,750);
Beep(1320,250);
Beep(1320,250);
Beep(1188,250);
Beep(1056,500);
Beep(1188,750);
Beep(1056,250);
Beep(1056,250);
Beep(940,250);
Beep(880,500);
Beep(792,750);
Beep(880,125);
Beep(940,125);
Beep(1056,250);
Beep(1188,250);
Beep(940,250);
Beep(792,250);
Beep(704,500);
Beep(880,250);
Beep(792,250);
Beep(704,1000);
Beep(1408,750);
Beep(1320,250);
Beep(1320,250);
Beep(1188,250);
Beep(1056,500);
Beep(1188,750);
Beep(1056,250);
Beep(1056,250);
Beep(940,250);
Beep(880,500);
Beep(792,750);
Beep(880,125);
Beep(940,125);
Beep(1056,250);
Beep(1188,250);
Beep(940,250);
Beep(792,250);
Beep(704,500);
Beep(880,250);
Beep(792,250);
Beep(704,1000);
Until ProgressSet(100)
Next
ProgressSet(100, "Fertig April April")
Sleep(750)
;BlockInput(0)
ProgressOff()
ALT+STRG+ENTF geht noch leider
Das Lied Läuft in der Schleife zu Oft sollte eigentlich nur 1 mal in der ganzen zeit wo die Progressbar läuft laufen wie krieg ich das hin? Gibt ja keine Rückgabe werte oder nach ein paar Beeps ProgressSet machen?
|
|
|
04/06/2017, 22:52
|
#2
|
elite*gold: 39
Join Date: Jun 2016
Posts: 269
Received Thanks: 804
|
Strg+Alt+Entf zu blocken ist nicht soo einfach. Deinstallier den Tastaturtreiber. Das ist auch so schon lustig genug.
Desweiteren mit der Progressbar; Mach doch die Funktion, die den Progress setzt in ne Adlib Funktion und das Lied lässt du in deiner MainFunktion laufen. Die Do-Schleife brauchst du nicht für das Lied.
Generell würd ich mich mehr mit AutoIT befassen und den Code "etwas" ordentlicher gestalten..
Dann wär's gar nicht nötig diese Frage(n) hier zu stellen.
ist es übrigens nicht etwas spät für nen Aprilscherz?
|
|
|
04/07/2017, 18:59
|
#3
|
elite*gold: 0
Join Date: Jun 2011
Posts: 67
Received Thanks: 4
|
Ja fast aber wenn´s nicht fertig wird wirds halt später Aprilt.
Konntruktivere Hilfe wäre Schön mit Code Beispiel oder so.
|
|
|
04/07/2017, 19:07
|
#4
|
elite*gold: 4
Join Date: Aug 2011
Posts: 157
Received Thanks: 24
|
man kann doch irgentwie einzelne keys blocken muss ich auch mal wieder schauen blockste einfach strg oder alt
|
|
|
04/07/2017, 19:55
|
#5
|
elite*gold: 39
Join Date: Jun 2016
Posts: 269
Received Thanks: 804
|
Quote:
Originally Posted by Vierus.exe
Ja fast aber wenn´s nicht fertig wird wirds halt später Aprilt.
Konntruktivere Hilfe wäre Schön mit Code Beispiel oder so.
|
Inwiefern war das nicht konstruktiv? Werde dir hier keinen c/p code geben und Beispiele gibts immer in der AutoIT Documentation. N bisschen Arbeit solltest du schon selbst reinstecken, hab dir nur nen Tipp gegeben wie du es machen könntest.
|
|
|
04/08/2017, 00:08
|
#6
|
elite*gold: 100
Join Date: Apr 2008
Posts: 860
Received Thanks: 1,465
|
Ctrl Alt Delete ist ein Feature des WinLogon Prozesses und wird generell nicht an Anwendungen übertragen.
Es gibt einschlägige Berichte von Leuten die behaupten man könnte mittels einen globalen Handler definieren der das abfangen kann. Bisher hab ich das aber noch nicht in freier Wildbahn getroffen.
Bei Malware sieht man gelegentlich ein Remapping der Keys per Registry; Ein Verfahren das unter anderem auch bei sog. Kiosk-Systemen zum Einsatz kommt.
Das sind alles keine direkten AutoIt-Lösungen, aber ich bin sicher man kann das irgendwie übersetzen.
Diese Funktion kommt der einer aggressiven Malware schon sehr Nahe. Wundere dich also nicht, wenn jede Heuristik einer halbwegs guten Antivirensoftware dein Programm gnadenlos in die Quarantäne verbannt.
Und bitte schreib parallel ein Tool was alle Änderungen am System wieder zuverlässig rückgängig macht. Es gibt nichts ätzenderes wie super-lustige Scherzprogramme die dein Betriebssystem scherzhaft in Scheiße verwandeln.
|
|
|
04/09/2017, 20:59
|
#7
|
elite*gold: 0
Join Date: Jun 2011
Posts: 67
Received Thanks: 4
|
So Fertig Jungs!!!
Programm Download
Erst Code lesen, dann ausführen (thx lawliet)
Code:
Code:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#RequireAdmin
BlockInput(1)
Local $GUI, $coords[4]
$GUI = GUICreate("Angela Merkel Ferkel by Vierus", 350, 300, -1, -1, $WS_SIZEBOX + $WS_SYSMENU)
GUISetBkColor(0xE0FFFF)
$Pic = GUICtrlCreatePic(@scriptdir &"\Bilder\merkel1.jpg", 10, 10, 325, 255)
GUISetState(@SW_SHOW)
$coords = WinGetPos($GUI)
_MouseTrap($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
ProgressOn("Festplatten Formatieren", "Status", "Formatierung Läuft...",490, 660)
ProgressSet(0)
Beep(704,750);
Beep(792,250);
Beep(880,500);
Beep(792,500);
Beep(940,500);
Beep(880,500);
Beep(792,250);
Beep(660,250);
Beep(704,500);
Beep(1188,500);
Beep(1056,500);
ProgressSet(15)
GUICtrlSetImage($Pic,@scriptdir &"\Bilder\merkel2.jpg")
Beep(940,500);
Beep(880,500);
Beep(792,500);
Beep(880,250);
Beep(704,250);
Beep(1056,1000);
Beep(704,750);
Beep(792,250);
Beep(880,500);
Beep(792,500);
Beep(940,500);
ProgressSet(25)
GUICtrlSetImage($Pic,@scriptdir &"\Bilder\merkel3.png")
Beep(880,500);
Beep(792,250);
Beep(660,250);
Beep(704,500);
Beep(1188,500);
Beep(1056,500);
Beep(940,500);
Beep(880,500);
Beep(792,500);
Beep(880,250);
Beep(704,250);
ProgressSet(35)
GUICtrlSetImage($Pic,@scriptdir &"\Bilder\merkel4.jpg")
Beep(1056,1000);
Beep(792,500);
Beep(880,500);
Beep(792,250);
Beep(660,250);
Beep(528,500);
Beep(940,500);
Beep(880,500);
Beep(792,250);
Beep(660,250);
Beep(528,500);
ProgressSet(45)
GUICtrlSetImage($Pic,@scriptdir &"\Bilder\merkel5.jpg")
Beep(1056,500);
Beep(940,500);
Beep(880,750);
Beep(880,250);
Beep(990,500);
Beep(940,250);
Beep(1056,250);
Beep(1056,1000);
Beep(1408,750);
Beep(1320,250);
Beep(1320,250);
ProgressSet(55)
GUICtrlSetImage($Pic,@scriptdir &"\Bilder\merkel6.jpg")
Beep(1188,250);
Beep(1056,500);
Beep(1188,750);
Beep(1056,250);
Beep(1056,250);
Beep(940,250);
Beep(880,500);
Beep(792,750);
Beep(880,125);
Beep(940,125);
Beep(1056,250);
ProgressSet(65)
GUICtrlSetImage($Pic,@scriptdir &"\Bilder\merkel7.jpg")
Beep(1188,250);
Beep(940,250);
Beep(792,250);
Beep(704,500);
Beep(880,250);
Beep(792,250);
Beep(704,1000);
Beep(1408,750);
Beep(1320,250);
Beep(1320,250);
Beep(1188,250);
ProgressSet(75)
GUICtrlSetImage($Pic,@scriptdir &"\Bilder\merkel8.jpg")
Beep(1056,500);
Beep(1188,750);
Beep(1056,250);
Beep(1056,250);
Beep(940,250);
Beep(880,500);
Beep(792,750);
Beep(880,125);
Beep(940,125);
Beep(1056,250);
Beep(1188,250);
ProgressSet(85)
GUICtrlSetImage($Pic,@scriptdir &"\Bilder\merkel9.jpg")
Beep(940,250);
Beep(792,250);
Beep(704,500);
Beep(880,250);
Beep(792,250);
Beep(704,1000);
GUICtrlSetImage($Pic,@scriptdir &"\Bilder\Vierus.jpg")
Sleep(1000)
ProgressSet(100, "Fertig April April")
Sleep(1000)
BlockInput(0)
_MouseTrap()
MsgBox(4096, "Ende", "Vierus Dankt dir für´s Ausprobieren", 60)
ProgressOff()
Exit
|
|
|
|
Similar Threads
|
Tastatur und Maus
03/07/2015 - Hardware Discussions / Questions - 4 Replies
Sers,
ich benötige dringend eine neue Tastatur und Maus fürs gaming!
Emotionale Geschichte:
Ich hatte bis jetzt immer nur billiges Zeug. Meine derzeitigen "Eingabegeräte" sind mittlerweile um die 2 Jahre alt und hattten damals zusammen 25€ gekostet. Ja, die Dinger haben echt 2 Jahre extreme Gewalt und Hass relativ "gut" überstanden. Wobei sich bei der Maus mittlerweile ein kostenloser Makro entwickelt hat, welcher die linke Maustaste immer 2x klicken lässt. Lässt sich komischer Weise mit...
|
Maus und Tastatur
04/03/2014 - Hardware Discussions / Questions - 9 Replies
Hallo,
ich habe mir ja neulich einen neuen PC gekauft, nun möchte ich gerne eine vernünftige Maus und Tastatur dazu haben.
Ich habe mich (vorerst) für die Roccat Isku FX Multicolor und die Roccat Kone XTD entschieden. Habe nun allerdings ein paar Fragen:
1. Wo kann man solche Sachen am besten bestellen? Habe jetzt erstmal um mich zu informieren bei Amazon geguckt, aber gibt es eventuell eine bessere Seite um zu bestellen?
2. Bei der Tastatur steht bei Amazon
Im Produktnamen steht...
|
Maus und Tastatur
08/30/2012 - Hardware Discussions / Questions - 17 Replies
Hallo liebe Community!
Diesmal hab ich eine Frage bezüglich Maus und Tastatur.
Ich suche Maus und Tastatur, spiele vor allem Shooter, aber schreibe auch viele lange Texte.
Die maus sollte gut in der Hand liegen, also für Rechtshänder. Keine Ambidextrouse Mouse.
Kosten darf beides Zusammen maximal 200€
|
Programm damit Gamepad als Tastatur / Maus dient?
02/05/2012 - Main - 5 Replies
Hallo!
DA manche Spiele nicht mit GAmepad kompatibel sind würde ich gerne mit meinem Gamepad diese zocken, also Das die Gamepad funktzionen alles ersetzen
Alsos uche ich soein Programm
NICHT XPADDER (Nur wenn mir jemand das erklären kann :D)
|
All times are GMT +2. The time now is 18:46.
|
|