ليس فيروس بمعنى الكلمة ولكن يقوم بعمل فيروس
وطريقة صنعه بالنسبة للمبتدئين هي كالآتي
ابدأ مشروع جديد وضع أداة تايمر على الفورم
وضع الكود الآتي في قسم التصريحات Declarations في General
هذا هو الكود :
'فيروس يفتح أسطوانة الليزر
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'---------------
Private Sub Timer1_Timer()
Timer1.Interval = Timer1.Interval + "1000"
If Timer1.Interval = "2000" Then
Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
End If
If Timer1.Interval = "5000" Then
Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
End If
End Sub