Dim Startup_key As String
Startup_key = "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun"
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite Startup_key & App.EXEName, App.Path & "" & App.EXEName & ".exe"
ง่ายครับโค้ดนี้เป็นการฝังค่า ของตัวมันเองผ่าน shell ลงไปยังจุด startup ใน registry ครับผม ...
ประยุกต์เป็นไวรัสงามเลย อิๆ ...
