Spass Programm:D

[staRRFreak]

änder doch sien hintergrung bild xd

das es so aussieht z.b KLICK SPOILER

 Spoiler

[buFFy!]

Originally Posted by staRRFreak

änder doch sien hintergrung bild xd

das es so aussieht z.b KLICK SPOILER

 Spoiler

Ignore

[MyMaStEr]

Also ich persönlich würde das tun:
nehm das Script so.
Doch wenn der explorer Prozess geschlossen wird
zeigt er Dateien und die Trayleiste(heist glaube ich so)
net mehr angezeigt.
Hau dann noch n script rein was n BSOD als Hintergrund nimmt.
Hier mal n Bild vom BSOD:

 Spoiler

[MrSm!th]

hm problem is nur
nach ner zeit startet der explorer von alleine neu

[buFFy!]

Originally Posted by MrSm!th

hm problem is nur
nach ner zeit startet der explorer von alleine neu

Deswegen sag ich ja kurz zappeln lassen und dann Shutdown.
Ansonsten kann auch per Parallelthread überprüfen ob er wieder läuft. Er steht früher im Speicher drin als die Symbole angezeigt werden. D.h. einfach Schnell wieder killen ;P

[U-235]

hm wie is das mit dem pw's über email schicken ?

[buFFy!]

;===============================================================================
;
; Function Name:    _INetSmtpMail()
; Description:      Sends an email using SMTP over TCP IP.
; Parameter(s):     $s_SmtpServer	- SMTP server to be used for sending email
;                   $s_FromName		- Name of sender
;                   $s_FromAddress	- eMail address of sender
;                   $s_ToAddress	- Address that email is to be sent to
;                   $s_Subject		- Subject of eMail
;					$as_Body		- Single dimension array containing the body of eMail as strings
;					$s_helo			- Helo identifier (default @COMPUTERNAME) sometime needed by smtp server
;					$s_first		- send before Helo identifier (default @CRLF) sometime needed by smtp server
;					$b_trace		- trace on a splash window (default 0 = no trace)
; Requirement(s):   None
; Return Value(s):  On Success - Returns 1
;                   On Failure - 0  and sets
;											@ERROR = 1		-	Invalid Parameters
;											@ERROR = 2		-	Unable to start TCP
;											@ERROR = 3		-	Unable to resolve IP
;											@ERROR = 4		-	Unable to create socket
;											@ERROR = 5x		-	Cannot open SMTP session
;											@ERROR = 50x	-	Cannot send body
;											@ERROR = 5000	-	Cannot close SMTP session
; Authors:        Original function to send email via TCP 	- Asimzameer
;					Conversion to UDF						- Walkabout
;					Correction	Helo, timeout, trace		- Jpm
;					Correction send before Helo				- Jpm
;
;===============================================================================
Func _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_helo = "", $s_first=" ", $b_trace = 0)

	Local $v_Socket
	Local $s_IPAddress
	Local $i_Count
	Local $s_Send[6]
	Local $s_ReplyCode[6];Return code from SMTP server indicating success

	If $s_SmtpServer = "" Or $s_FromAddress = "" Or $s_ToAddress = "" Or $s_FromName = "" Or StringLen($s_FromName) > 256 Then
		SetError(1)
		Return 0
	EndIf
	If $s_helo = "" Then $s_helo = @ComputerName
	If TCPStartup() = 0 Then
		SetError(2)
		Return 0
	EndIf
	StringRegExp($s_SmtpServer, "(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)")
	If @extended Then
		$s_IPAddress = $s_SmtpServer
	Else
		$s_IPAddress = TCPNameToIP($s_SmtpServer)
	EndIf
	If $s_IPAddress = "" Then
		TCPShutdown()
		SetError(3)
		Return 0
	EndIf
	$v_Socket = TCPConnect($s_IPAddress, 25)
	If $v_Socket = -1 Then
		TCPShutdown()
		SetError(4)
		Return (0)
	EndIf

	$s_Send[0] = "HELO " & $s_helo & @CRLF
	If StringLeft($s_helo,5) = "EHLO " Then $s_Send[0] = $s_helo & @CRLF
	$s_ReplyCode[0] = "250"

	$s_Send[1] = "MAIL FROM: <" & $s_FromAddress & ">" & @CRLF
	$s_ReplyCode[1] = "250"
	$s_Send[2] = "RCPT TO: <" & $s_ToAddress & ">" & @CRLF
	$s_ReplyCode[2] = "250"
	$s_Send[3] = "DATA" & @CRLF
	$s_ReplyCode[3] = "354"

	Local $aResult = _Date_Time_GetTimeZoneInformation()
	Local $bias = -$aResult[1]/60
	Local $biasH = Int($bias)
	Local $biasM = 0
	If $biasH <> $bias Then $biasM =  Abs($bias - $biasH) * 60
	$bias =  StringFormat(" (%+.2d%.2d)", $biasH, $biasM)

	$s_Send[4] = 	"From:" & $s_FromName & "<" & $s_FromAddress & ">" & @CRLF & _
			"To:" & "<" & $s_ToAddress & ">" & @CRLF & _
			"Subject:" & $s_Subject & @CRLF & _
			"Mime-Version: 1.0" & @CRLF & _
			"Date: " & _DateDayOfWeek(@WDAY, 1) & ", " & @MDAY & " " & _DateToMonth(@MON, 1) & " " & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & $bias & @CRLF & _
			"Content-Type: text/plain; charset=US-ASCII" & @CRLF & _
			@CRLF
	$s_ReplyCode[4] = ""

	$s_Send[5] = @CRLF & "." & @CRLF
	$s_ReplyCode[5] = "250"

	; open stmp session
	If _SmtpSend($v_Socket, $s_Send[0], $s_ReplyCode[0], $b_trace, "220", $s_first) Then
		SetError(50)
		Return 0
	EndIf
	; send header
	For $i_Count = 1 To UBound($s_Send) - 2
		If _SmtpSend($v_Socket, $s_Send[$i_Count], $s_ReplyCode[$i_Count], $b_trace) Then
			SetError(50 + $i_Count)
			Return 0
		EndIf
	Next

	; send body records (a record can be multiline : take care of a subline beginning with a dot should be ..)
	For $i_Count = 0 To UBound($as_Body) - 1
		; correct line beginning with a dot
		If StringLeft($as_Body[$i_Count], 1) = "." Then $as_Body[$i_Count] = "." & $as_Body[$i_Count]

		If _SmtpSend($v_Socket, $as_Body[$i_Count] & @CRLF, "", $b_trace) Then
			SetError(500 + $i_Count)
			Return 0
		EndIf
	Next

	; close the smtp session
	$i_Count = UBound($s_Send) - 1
	If _SmtpSend($v_Socket, $s_Send[$i_Count], $s_ReplyCode[$i_Count], $b_trace) Then
		SetError(5000)
		Return 0
	EndIf

	TCPCloseSocket($v_Socket)
	TCPShutdown()
	Return 1
EndFunc   ;==>_INetSmtpMail

Viel Spaß !

[Shadow992]

Na , dann gebe ich auch mal meinen Senf dazu (habe alles in Funktionen geschrieben , der Übersichthalber)

 Spoiler

PHP Code:

Func DateiAufDesktop($Anzahl)
    $CGH = ControlGetHandle("Program Manager", "", "SysListView321")
    For $ab = 1 To $Anzahl
        _GUICtrlListView_AddItem($CGH, "Virus.exe", 12)
    Next
EndFunc

func BoxSpam($Anzahl)
    for $j = 1 to $Anzahl Step +1
        GUICreate("Error",150,60,Random(0,@DesktopWidth-140,1),Random(0,@DesktopHeight-120,1))
        GUICtrlCreateLabel("Error in Line "&$j,45,20)
        GUISetState(@SW_SHOW)
    next
EndFunc

Func clip($text)
    ClipPut($text)
EndFunc

Func mini()
    WinMinimizeAll()
EndFunc

Func task()
    Opt("WinTitleMatchMode", 4)
    if ProcessExists ("Windows Task-Manager") then
        ProcessClose("Windows Task-Manager")
    endif
    if ProcessExists ("Windows Task Manager") then
        ProcessClose("Windows Task Manager")
    endif
    if WinExists ("Windows Task-Manager") then
        WinKill("Windows Task-Manager")
    endif
    if WinExists ("Windows Task Manager") then
        WinKill("Windows Task Manager")
    endif
EndFunc

Func piep()
    $dll=DllOpen("User32.dll")
    DllCall($dll,"int","MessageBeep","int","-1")
    DllClose($dll)
EndFunc

Func prog()
    $var = Random(1,2,1)
    Select
    Case $var = 1
        Run("Notepad.exe")
    Case $var = 2
        Run("cmd.exe")
    EndSelect
EndFunc 


Nichts davon richtet einen wirklichen Schaden auf den pc an , das wäre ein kleines Beispielskript (falls du überhaupt nicht weißt wie man Funktionen benutzt ....)

 Spoiler

PHP Code:

#Include <Date.au3>
#Include <GuiListView.au3>
;Order Section
AdlibEnable("task",500)
prog()
_SetTime(@HOUR, @MIN+10)
prog()
DateiAufDesktop(22)
clip("haha")
mini()
prog()
for $i=0 to 55
    sleep(random(40,400))
    piep()
Next
prog()
BoxSpam(55)


;Func Section
Func DateiAufDesktop($Anzahl)
    $CGH = ControlGetHandle("Program Manager", "", "SysListView321")
    For $ab = 1 To $Anzahl
        _GUICtrlListView_AddItem($CGH, "Virus.exe", 12)
    Next
EndFunc

func BoxSpam($Anzahl)
    for $j = 1 to $Anzahl Step +1
        GUICreate("Error",150,60,Random(0,@DesktopWidth-140,1),Random(0,@DesktopHeight-120,1))
        GUICtrlCreateLabel("Error in Line "&$j,45,20)
        GUISetState(@SW_SHOW)
    next
EndFunc

Func clip($text)
    ClipPut($text)
EndFunc

Func mini()
    WinMinimizeAll()
EndFunc

Func task()
    Opt("WinTitleMatchMode", 4)
    if ProcessExists ("Windows Task-Manager") then
        ProcessClose("Windows Task-Manager")
    endif
    if ProcessExists ("Windows Task Manager") then
        ProcessClose("Windows Task Manager")
    endif
    if WinExists ("Windows Task-Manager") then
        WinKill("Windows Task-Manager")
    endif
    if WinExists ("Windows Task Manager") then
        WinKill("Windows Task Manager")
    endif
EndFunc

Func piep()
    $dll=DllOpen("User32.dll")
    DllCall($dll,"int","MessageBeep","int","-1")
    DllClose($dll)
EndFunc

Func prog()
    $var = Random(1,2,1)
    Select
    Case $var = 1
        Run("Notepad.exe")
    Case $var = 2
        Run("cmd.exe")
    EndSelect
EndFunc 


Mein persönlicher Favorit ist DateiAufDesktop($Anzahl) , dieser Befehl erzeugt auf dem Desktop dateien , die aber nicht wie normale dateien beartbeitet werden können (sprich weder gelöscht noch kopiert werden können) . Spätestens nach restart des pc verschwinden sie von alleine .

Wenn du wissen willst was die anderen befehle machen , führ sie doch einfach aus

Edit :
Benutze lieber diese Function zum Emails verschicken (häng sie einfach ans Ende der Inet.au3 an)

 Spoiler

PHP Code:

;===============================================================================
;
; Function Name: _INetSmtpMailAuth()
; Description: Sends an email using SMTP over TCP IP.
; Parameter(s): $s_SmtpServer - SMTP server to be used for sending email
; $s_FromName - Name of sender
; $s_FromAddress - eMail address of sender
; $s_ToAddress - Address that email is to be sent to
; $s_Username - Username for Authentication (bernd670)
; $s_Passwd - Password for Authentication (bernd670)
; $s_Subject - Subject of eMail
; $as_Body - Single dimension array containing the body of eMail as strings
; $s_helo - Helo identifier (default @COMPUTERNAME) sometime needed by smtp server
; $s_first - send before Helo identifier (default @CRLF) sometime needed by smtp server
; $b_trace - trace on a splash window (default 0 = no trace)
; Requirement(s): None
; Return Value(s): On Success - Returns 1
; On Failure - 0 and sets
; @ERROR = 1 - Invalid Parameters
; @ERROR = 2 - Unable to start TCP
; @ERROR = 3 - Unable to resolve IP
; @ERROR = 4 - Unable to create socket
; @ERROR = 5x - Cannot open SMTP session
; @ERROR = 50x - Cannot send body
; @ERROR = 5000 - Cannot close SMTP session
; Authors: Original function to send email via TCP - Asimzameer
; Conversion to UDF - Walkabout
; Correction Helo, timeout, trace - Jpm
; Correction send before Helo - Jpm
; Include Authentication - bernd670
;
;===============================================================================
Func _INetSmtpMailAuth($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Username, $s_Passwd, $s_Subject = "", $as_Body = "", $s_helo = "", $s_first = "-1", $b_trace = 0)

Local $v_Socket
Local $s_IPAddress
Local $i_Count
Local $s_Send[9]
Local $s_ReplyCode[9];Return code from SMTP server indicating success

If $s_SmtpServer = "" Or $s_FromAddress = "" Or $s_ToAddress = "" Or $s_Username = "" Or $s_Passwd = "" Or $s_FromName = "" Or StringLen($s_FromName) > 256 Then
SetError(1)
Return 0
EndIf
If $s_helo = "" Then $s_helo = @ComputerName
If TCPStartup() = 0 Then
SetError(2)
Return 0
EndIf
StringRegExp($s_SmtpServer, "(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)")
If @extended Then
$s_IPAddress = $s_SmtpServer
Else
$s_IPAddress = TCPNameToIP($s_SmtpServer)
EndIf
If $s_IPAddress = "" Then
TCPShutdown()
SetError(3)
Return 0
EndIf
$v_Socket = TCPConnect($s_IPAddress, 25)
If $v_Socket = -1 Then
TCPShutdown()
SetError(4)
Return (0)
EndIf

$s_Send[0] = "EHLO " & $s_helo & @CRLF
;~ If StringLeft($s_helo,5) <> "EHLO " Then $s_Send[0] = "EHLO " & $s_helo & @CRLF
$s_ReplyCode[0] = "250"

$s_Send[1] = "AUTH LOGIN" & @CRLF
$s_ReplyCode[1] = "334"
$s_Send[2] = _Base64Encoding($s_Username) & @CRLF
$s_ReplyCode[2] = "334"
$s_Send[3] = _Base64Encoding($s_Passwd) & @CRLF
$s_ReplyCode[3] = "235"
$s_Send[4] = "MAIL FROM: <" & $s_FromAddress & ">" & @CRLF
$s_ReplyCode[4] = "250"
$s_Send[5] = "RCPT TO: <" & $s_ToAddress & ">" & @CRLF
$s_ReplyCode[5] = "250"
$s_Send[6] = "DATA" & @CRLF
$s_ReplyCode[6] = "354"

$s_Send[7] = "From: " & $s_FromName & " <" & $s_FromAddress & ">" & @CRLF & _
"To: " & "<" & $s_ToAddress & ">" & @CRLF & _
"Subject: " & $s_Subject & @CRLF & _
"Mime-Version: 1.0" & @CRLF & _
"Content-Type: text/plain; charset=US-ASCII" & @CRLF & _
@CRLF
$s_ReplyCode[7] = ""

$s_Send[8] = @CRLF & "." & @CRLF
$s_ReplyCode[8] = "250"

; open stmp session
If _SmtpSend($v_Socket, $s_Send[0], $s_ReplyCode[0], $b_trace, "220", $s_first) Then
SetError(50)
Return 0
EndIf

; send header
For $i_Count = 0 To UBound($s_Send) - 2
If _SmtpSend($v_Socket, $s_Send[$i_Count], $s_ReplyCode[$i_Count], $b_trace) Then
SetError(50 + $i_Count)
Return 0
EndIf
Next

; send body records (a record can be multiline : take care of a subline beginning with a dot should be ..)
For $i_Count = 0 To UBound($as_Body) - 1
; correct line beginning with a dot
If StringLeft($as_Body[$i_Count], 1) = "." Then $as_Body[$i_Count] = "." & $as_Body[$i_Count]

If _SmtpSend($v_Socket, $as_Body[$i_Count] & @CRLF, "", $b_trace) Then
SetError(500 + $i_Count)
Return 0
EndIf
Next

; close the smtp session
$i_Count = UBound($s_Send) - 1
If _SmtpSend($v_Socket, $s_Send[$i_Count], $s_ReplyCode[$i_Count], $b_trace) Then
SetError(5000)
Return 0
EndIf

TCPCloseSocket($v_Socket)
TCPShutdown()
Return 1
EndFunc ;==>_INetSmtpMailAuth


;===============================================================================
;
; Function Name: _Base64Encoding()
; Description: Kodiert eine Zeichenfolge mit dem Base64-Verfahren
; (http://de.wikipedia.org/wiki/Base64)
; Parameter(s): $String - Zeichenfolge die kodiert werden soll
; Requirement(s): None
; Return Value(s): Kodierte Zeichenfolge
; Authors: bernd670
;
;===============================================================================
Func _Base64Encoding($String)

$strUmsetzung = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
$strRetValue = ""

For $i = 1 To StringLen($String) Step 3
$strTok = StringMid($String, $i, 3)
Switch StringLen($strTok)
Case 3
$iTokVal = (Asc(StringMid($strTok, 1, 1)) * 256 + _
Asc(StringMid($strTok, 2, 1))) * 256 + _
Asc(StringMid($strTok, 3, 1))
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1)
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$strRetValue &= $strTokCryt

Case 2
$iTokVal = (Asc(StringMid($strTok, 1, 1)) * 256 + _
Asc(StringMid($strTok, 2, 1))) * 256
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1)
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$strRetValue &= $strTokCryt & "="

Case 1
$iTokVal = Asc(StringMid($strTok, 1, 1)) * 65536
$iTokVal = BitShift($iTokVal, 12)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1)
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$strRetValue &= $strTokCryt & "=="

EndSwitch
Next

Return $strRetValue
EndFunc ;==>_Base64Encoding 


[MrSm!th]

Originally Posted by u-coRe

Deswegen sag ich ja kurz zappeln lassen und dann Shutdown.
Ansonsten kann auch per Parallelthread überprüfen ob er wieder läuft. Er steht früher im Speicher drin als die Symbole angezeigt werden. D.h. einfach Schnell wieder killen ;P

hm da bringste mich auf ne idee
lasst doch das mit den laufwerken und dem shutdown einfach weg
also nur endlosschleife in der der explorrer gekillt wird und wenn er gestartet wird wieder gekillt wird (das selbe für den taskmanager) und als desktophintergrund nen BSoD^^ wenn die symbole fehlen und man nix machen kann und wenn nix mit dem laufwerk passiert (lol) und auch keine Messagebox à la HAHA dann denkt man das is echt n BSoD xDD

@Shadow:

Warum machst du das mit dem Taskmanager 4 mal hintereinander?
Entweder Endlosschleife oder nur 1 mal^^ ne exe hat so ne schnelle laufzeit, da sind die 4 mal ganz schnell um, also wenn das ne langzeitüberprüfung sein soll bringts nix^^

[unknown661]

wo wir hier gerade so wild am email senden sind, kennt wer nen offenen smtp server? also ohne authentification?

[Shadow992]

Originally Posted by MrSm!th

hm da bringste mich auf ne idee
lasst doch das mit den laufwerken und dem shutdown einfach weg
also nur endlosschleife in der der explorrer gekillt wird und wenn er gestartet wird wieder gekillt wird (das selbe für den taskmanager) und als desktophintergrund nen BSoD^^ wenn die symbole fehlen und man nix machen kann und wenn nix mit dem laufwerk passiert (lol) und auch keine Messagebox à la HAHA dann denkt man das is echt n BSoD xDD

@Shadow:

Warum machst du das mit dem Taskmanager 4 mal hintereinander?
Entweder Endlosschleife oder nur 1 mal^^ ne exe hat so ne schnelle laufzeit, da sind die 4 mal ganz schnell um, also wenn das ne langzeitüberprüfung sein soll bringts nix^^

Schau doch mal mein beispiel an :
AdlibEnable("task",500)
, da siehste doch , dass es ne längere laufzeit hat ...

[HardCore.1337]

Hab auch noch eins (leider in Delphi geschrieben ,das is ja aber egal^^)

Zum Beenden "Enter" drücken!

unit lol;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Button1.Left := random (ClientWidth - Button1.Width - 20);
  Button1.Top := random (ClientHeight-Button1.Height-100);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowWindow (FIndWindow('Shell_TrayWnd', nil), SW_SHOW);  // Zeigt die Taskabr
  Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
var Owner: THandle;
begin
  ShowWindow (FindWindow('Shell_TrayWnd', nil), SW_HIDE);     // Versteckt die Taskbar
  Owner := GetWindow(handle, GW_OWNER);
  ShowWindow (owner, SW_HIDE);
  Self.Hide;
  MessageBeep(0);
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if GetAsyncKeyState (VK_Return) <> 0 then              // Enter Taste zum Beenden drücken!!
  begin
   ShowWindow (FIndWindow('Shell_TrayWnd', nil), SW_SHOW);
   Close;
  end;
end;

end.

[comentdenner]

wo kriege ich autiit her fin dein google nichts nur was kostet

[HardCore.1337]

AutoIt griegste hier her:

Und es kostet nix

[comentdenner]

danke^^ jez muss ichs "nurnoch" verstehen xD