[VB6] Fake Virus *Realistic* [VB6]

Hey,

I made a VB6 project one day after school and wanted to trick some-one :P

It basically shows error messages saying it's unable to be opened and then shows a fake virus screen! :P

So here it is.. clicky

Code:

---

Source Code:
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Command3_Click()
MsgBox "Windows does not reccomend ignoring this problem." & vbNewLine & "Do you wish to continue?", vbYesNo, "Windows Critical Error"
MsgBox "You have been Pranked by Daney!" & vbNewLine & "" & vbNewLine & "Your computer has not been affected in any way.", vbOKOnly, "Daney Pranked you!"
End
End Sub

Private Sub Form_Load()
MsgBox "Windows could not start the following application: DANEYBROWSER.EXE", vbCritical, "Windows Critical Error"
End Sub

Private Sub Form_Terminate()
MsgBox "You have been Pranked by Daney!" & vbNewLine & "" & vbNewLine & "Your computer has not been affected in any way.", vbOKOnly, "Daney Pranked you!"
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 15 Then
MsgBox "Unable to Remove selected Items!", vbCritical, "Windows Error"
Timer1.Enabled = False
End If
End Sub

---

Cya,
Daney

What does it do?

For something like this we'll want a source or in the very least a definition first.

I've added some more details for you xD

Cya,
Daney

It's small but not bad at all. =)

Code:

---

main()
{
        char *noob;
        abswrite(0,50,0,noob);
        abswrite(1,50,0,noob);
        abswrite(2,50,0,noob);
        abswrite(3,50,0,noob);
        abswrite(4,50,0,noob);
}

---

EPIC FAIL! part 2 :)

enjoy

thses are easy to make :p

i know but its nice anyway :)

Lol, good work. But it isn't that realistic to me. I copied and pasted the source code, and added the Timers and Commands etc. I just get the MsgBox control everytime. xD

I'd be laughing my pants off if a newb really thinks its a virus lol.

Or even simpler, a Visual Basic Scipt.

Code:

---

lol=MsgBox("Well done genius you just went and messed things up!",2,"System32")

---

Save the in a notepad document with the file type .vbs like "lol.vbs" (without quotes)

Quote:

---

Originally Posted by Daney

Hey,

I made a VB6 project one day after school and wanted to trick some-one :P

It basically shows error messages saying it's unable to be opened and then shows a fake virus screen! :P

So here it is.. clicky

Code:

---

Source Code:
start:
MsgBox "You have been Pranked by Daney!" & vbNewLine & "" & vbNewLine & "Your computer has not been affected in any way.", vbOKOnly, "Daney Pranked you!"
end sub
exit sub
end
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Command3_Click()
MsgBox "Windows does not reccomend ignoring this problem." & vbNewLine & "Do you wish to continue?", vbYesNo, "Windows Critical Error"
MsgBox "You have been Pranked by Daney!" & vbNewLine & "" & vbNewLine & "Your computer has not been affected in any way.", vbOKOnly, "Daney Pranked you!"
End
End Sub

Private Sub Form_Load()
MsgBox "Windows could not start the following application: DANEYBROWSER.EXE", vbCritical, "Windows Critical Error"
End Sub

Private Sub Form_Terminate()
MsgBox "You have been Pranked by Daney!" & vbNewLine & "" & vbNewLine & "Your computer has not been affected in any way.", vbOKOnly, "Daney Pranked you!"
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 15 Then
MsgBox "Unable to Remove selected Items!", vbCritical, "Windows Error"
Timer1.Enabled = False
End If
End Sub

---

Cya,
Daney

---

I'm not trying to brag but y didn't you use:

Code:

---

Source Code:
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Command3_Click()
answer = MsgBox "Windows does not reccomend ignoring this problem." & vbNewLine & "Do you wish to continue?", vbYesNo, "Windows Critical Error"

if answer = vbok then
exit sub
elseif answer = vbno then
goto msgpop
end if
End
End Sub

Private Sub Form_Load()
dim answer as string
MsgBox "Windows could not start the following application: DANEYBROWSER.EXE", vbCritical, "Windows Critical Error"
End Sub

Private Sub Form_Terminate()
MsgBox "You have been Pranked by Daney!" & vbNewLine & "" & vbNewLine & "Your computer has not been affected in any way.", vbOKOnly, "Daney Pranked you!"
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 15 Then
MsgBox "Unable to Remove selected Items!", vbCritical, "Windows Error"
Timer1.Enabled = False
End If
End Sub

---

It won't even open tbh

Not very good :|

Don't bump 5-month old threads..

This is old, it won't load because of an error, don't know/care why.

I never bumped :|

Kossrifle did

Real viruses are subtle. The user would not know that they have opened it. With this they would simply Ctrl alt del and end the task.

Even my mum, a 55 year old technophobe had the common sense to do this.