Run at StartUp [ VB6 ]

โค๊ด: [Select]

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 ครับผม ...

ประยุกต์เป็นไวรัสงามเลย อิๆ ...

อันนี้ไม่เคยทำ ต้องลอง ใจมากจร้า!!