[WaldEck]

Ich soll wieda mal was für die Schule machn und zwar diesmal einen Makro Virus programmieren, aber einen harmlosen, der also keinen Schadet anrichtet. Könntet ihr mir vielleicht dabei helfen? Es kann irgendein Makro Virus sein, aber wenn's geht sollte er mit Visual Basic kompiliert werden.

Danke schon mal für eure Hilfe

[achilleus]

oha .. lange her mit dem VB

ich hab das mal schnell installiert und dir ein kleines Programm geschrieben, dass ein Fenster öffnet, das man nicht wegklicken kann, da es immer wegspringt. Einfach und dürfte wohl aussreichend sein

....

oha ... nun hab ich hier endlich mal was hinbekommen, aber es funktioniert immer noch nicht so wie ich es will. Da ist bestimmt irgendwo ein Denkfehler oder ich kann es einfach ncht mehr

Naja du musst eine Form mit einem Label (textfeld) und zwei Commands (Buttons) anlegen.

Hier mein SourceCode:

Dim random1 As Integer
Dim random2 As Integer
  
Private Sub Form_Load()

    Label1.Caption = "Virus gefunden! Soll ich ihn entfernen?"
    Command1.Caption = "Ja!"
    Command2.Caption = "Nein!"
    Form1.Left = (Screen.Width - Form1.Width) / 2
    Form1.Top = (Screen.Height - Form1.Height) / 2
    Form1.BorderStyle = 1
    Form1.Caption = "Virus Gefunden"
    

End Sub

Private Sub Command2_Click()

    random1 = Int(Rnd * (Screen.Width - 0 + 1) + Form1.Width)
    random2 = Int(Rnd * (Screen.Height - 0 + 1) + Form1.Height)
    Form1.Left = Screen.Width - random1
    Form1.Top = Screen.Height - random2

End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    random1 = Int(Rnd * (Screen.Width - 0 + 1) + Form1.Width)
    random2 = Int(Rnd * (Screen.Height - 0 + 1) + Form1.Height)
    Form1.Left = Screen.Width - random1
    Form1.Top = Screen.Height - random2

End Sub

[WaldEck]

Eigentlich wollte ich von euch nur nen paar Tipps, aber ein schon kompletter Virus is natürlich auch gut

Versuche dann, ihn abzuändern oder evtl. zu erweitern

[achilleus]

naja nen virus ist es auch nicht