PLEASE READ (include full codes and instruction)
(to end the program, press "x" on your keyboard!)
Hello Guys today
im going to show you how to make a fake virus
first open vb6 -) standerd project
then add a button and add form2
On properties (in form2), change
windowstate to 2 (the last one) and boarderstyle to 0 - Non
Now change form2 backcolor to blue(dark blue)
and add a timer.(interval to 1)
Finally ,time to code
(Form1 code)type :
Private Sub Command1_Click() Form2.Show
End Sub
(Form2 code) type:
Dim i As Integer
-----------------------------------------------
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 120 Then
End
End If
End Sub
------------------------------------------------
Private Sub Form_Load()
On Error Resume Next
i = 0
End Sub
------------------------------------------------
Private Sub Timer1_Timer()
i = i + 1
If i Mod 2 = 0 Then
Form2.Show
Else
Form2.Hide
End If
End Sub
Design: In form2, add a label and change caption to
"Unnown Hard Error ()"
lets try it out!
Please rate, comment, and subscribe! :D
Please comment everyone!
householdprojects 1 year ago