IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT

ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: ICheer_No0M ที่ เมษายน 11, 2010, 11:12:13

หัวข้อ: Run at StartUp [ VB6 ]
เริ่มหัวข้อโดย: ICheer_No0M ที่ เมษายน 11, 2010, 11:12:13

โค๊ด: [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 ครับผม ...

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

หัวข้อ: Re: Run at StartUp [ VB6 ]
เริ่มหัวข้อโดย: Moshi ที่ เมษายน 11, 2010, 11:13:57

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