[VB6] Fake Virus *Realistic* [VB6]

[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

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

[MentaL]

[Kesus]

What does it do?

[Negata]

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

[Daney]

I've added some more details for you xD

Cya,
Daney

[Intelext]

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

[evill33t]

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

[fat4l]

thses are easy to make :p

[Erlend]

i know but its nice anyway :)

[PixelPro]

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.

[Junkers]

Or even simpler, a Visual Basic Scipt.

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)

[Kossrifle]

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

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:

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

[Monsta.]

It won't even open tbh

Not very good :|

[Daney]

Don't bump 5-month old threads..

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

[Monsta.]

I never bumped :|

Kossrifle did

[solpreto]

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.