Realistisch – die besten Beiträge

Wie kann man einen guten Fake-Virus erstellen?

Ich habe diesen Fake-Virus in Visual Basic Skript erstellt:

Option Explicit

Dim Antwort
Dim msgCount
msgCount = 0

Antwort = MsgBox("Dies ist kein schädlicher Virus, aber dein Computer könnte abstürzen. Willst du fortfahren?", vbYesNo + vbExclamation, "Warnung!")

If Antwort = vbNo Then
  WScript.Quit
End If

' Display the first message and wait for completion
CreateAndRunMsgBox "Bei diesem Virus wird dein Computer neu gestartet oder bekommt einen Bluescreen. Keine Sorge, es passiert nichts und du kannst nach einem Neustart deinen PC wieder ganz normal benutzen.", "Warnung", True

' Start the file Brauchtman.txt
StartFile "Brauchtman.txt"

' Wait for 10 seconds
WScript.Sleep 10000

Do
  ' Display the second message without waiting
  CreateAndRunMsgBox "Benutzt du immer noch diesen Computer?", "lol", False
  msgCount = msgCount + 1
  If msgCount >= 190 Then
    ShutDownComputer
    Exit Do
  End If

  ' Start the file Music.mp3
  StartFile "Music.mp3"
   
  ' Open the Rick Roll link multiple times
  Dim i
  For i = 1 To 16
    StartURL "https://www.youtube.com/watch?v=xvFZjo5PgG0"
    ' Randomly display the hacked message
    If RandomlyDisplayMessage() Then
      CreateAndRunMsgBox "Hacked by ᴎͥoɘͣmͫiꙄ", "Warnung", False
    End If
  Next
   
  ' Display the second message again without waiting
  CreateAndRunMsgBox "Benutzt du immer noch diesen Computer?", "lol", False
  msgCount = msgCount + 1
  If msgCount >= 190 Then
    ShutDownComputer
    Exit Do
  End If
   
  ' Open the Rick Roll link a few more times
  For i = 1 To 2
    StartURL "https://www.youtube.com/watch?v=xvFZjo5PgG0"
    ' Randomly display the hacked message
    If RandomlyDisplayMessage() Then
      CreateAndRunMsgBox "Hacked by ᴎͥoɘͣmͫiꙄ", "Warnung", False
    End If
  Next
Loop

Sub CreateAndRunMsgBox(message, title, waitForCompletion)
  Dim fso, tempFolder, tempFile, fileStream, shell
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set shell = CreateObject("WScript.Shell")
  tempFolder = fso.GetSpecialFolder(2) ' 2 = TemporaryFolder
  tempFile = tempFolder & "\" & fso.GetTempName() & ".vbs"
   
  ' Create the temporary VBS file
  Set fileStream = fso.CreateTextFile(tempFile, True)
  fileStream.WriteLine "msgbox """ & message & """, vbInformation, """ & title & """"
  fileStream.Close
   
  ' Run the temporary VBS file asynchronously
  shell.Run """" & tempFile & """", 0, waitForCompletion
   
  ' Delete the temporary VBS file after a short delay if not waiting for completion
  If Not waitForCompletion Then
    shell.Run "cmd /c ping 127.0.0.1 -n 3 > nul && del """ & tempFile & """", 0, False
  End If
End Sub

Sub StartFile(fileName)
  CreateObject("WScript.Shell").Run """" & fileName & """", 1, False
End Sub

Sub StartURL(url)
  CreateObject("WScript.Shell").Run """" & url & """", 1, False
End Sub

Sub ShutDownComputer()
  CreateObject("WScript.Shell").Run "shutdown -s -t 0", 1, False
End Sub

Function RandomlyDisplayMessage()
  Randomize
  ' 50% Chance to display the message
  If Int(Rnd * 2) = 0 Then
    RandomlyDisplayMessage = True
  Else
    RandomlyDisplayMessage = False
  End If
End Function

und ich wollte fragen, wie man z.B. solche Memz Effekte reinmacht.

Ich weiß, Memz ist ja nicht in VBS geschrieben, aber geht das trotzdem?

realistisch

Ich tue mich schwer mit Formen, Linien(führung) und Perspektive beim digitalen Zeichnen?

Hallo, bin m/19 und ich tue mich schwer beim digitalen Zeichnen.

Als ich mal mit Papier und Bleistift gezeichnet habe, ging dies einfacher und hatte das Gefühl, wie die Formen und Perspektiven sein sollen. Ich war schon vorher ein Zeichenanfänger.

Als ich mit meinem Wacom One Medium Zeichentablett angefangen habe auf Krita mal zu zeichnen, habe ich diese Probleme (siehe oben bei der Frage) gehabt, die ich vorher nicht hatte beim Traditionellen Zeichnen.

Aber ich will lernen Digital zu zeichnen, weil ich erstens kein extra Zeichenequipment kaufen möchte, zweitens nicht für Zeichenpapier ausgeben möchte und drittens Digitales Zeichnen ist einfach interessanter und wirkt zugänglicher für mich als wenn ich traditionell anfange Gouache oder ein Ölgemälde machen will, dann mache ich und lerne das lieber digital.

Mein Ziel ist es gerne Realistisch zeichnen zu lernen, weil ja es gibt viele die gerne den Anime/Manga zeichnen möchten. Ich wollte das auch gerne, aber irgendwie will ich gerne realistisch zeichnen können, weil dann kann ich alles zeichnen, was ich wir vorstellen kann.

Aber ich Versuche mein Perfektionismus zu reduzieren, weil es mich beim Zeichnen lernen mich sehr kaputt gemacht. Und Versuche lieber meine Fehler und Imperfektionen zu akzeptieren, Schritt für Schritt besser zu sein, dann wird es gehen.

Habe gehört, dass Inkscape (Alternative zu Adobe Illustrator) ein gutes Zeichenprogramm, aber konnte noch nichts damit anfangen, aber bin auch offen dazu.

Was kann ich machen?

Bilder, Kunst, Bleistift, Zeichnung, Malerei, malen, zeichnen, Inkscape, Manga zeichnen, realistisch, realistisch-zeichnen, digital zeichnen, zeichnenprogramm, krita, Zeichnen am Tablet, Krita zeichnen tool

Meistgelesene Beiträge zum Thema Realistisch