Valentine's Day အတြက္လက္ေဆာင္

ဒီ​ေအာက္​မွာ ေပး​ထား​တဲ့ VBscript ေတြ​ကို copy ယူ​ပါ..Notepad ကို​ဖြင့္​ၿပီး copy / paste လုပ္​ပါ..ေနာက္ မိမိႏွစ္သက္တဲ့နာမည္.vbs နဲ႔ save လိုက္​ပါ..ေနာက္ save ထား​တဲ့ မိမိႏွစ္သက္တဲ့နာမည္.vbs ကို​ဖြင့္​ၾကည့္​လိုက္​ပါ..ဘာ​ျဖစ္​မ​လဲ ဆို​တာ​ေပါ့ .. စမ္း​ၾကည့္​လိုက္​ၾက​ပါ​ဦး​း ႀကိဳက္​တယ္​ဆို​ရင္​လည္း တစ္ ​ခုခု​ေတာ့ ေျပာ​ခဲ့​ၾက​ေပါ့ .. :) ( CD ROM ရွိ​တဲ့ အိမ္​က စက္​ေတြ​မွာ​ဆို ပို အဆင္​ေျပ​မယ္ေနာ္.. net ဆိုင္​ေတြ​မွာ​ဆို​ရင္​ေတာ့ ROM ေတြ ရွိ​မွာ မဟုတ္​ဘူး​းး)
အရင္ဆုံး ဒီ file ​ေလးကို စမ္းသပ္ အသုံးျပဳၾကည့္ၿပီး ကၽြန္ေတာ္ အေရာင္ေလးေတြနဲ႔ေရးေပးထားတဲ့ ေနရာမွာမိမိ စိတ္ႀကိဳက္ စာသားမ်ားကို ေျပာင္းလဲထည့္ၿပီး မိမိ စိတ္တိုင္းက် စာသားမ်ားနဲ႔ မိမိ ခ်စ္သူ ဆီကို ေပးၿပီး ၂၀၁၁ ရဲ႕ valentine's day ကို ႏွစ္​ေယာက္သား ေပ်ာ္ေပ်ာ္႐ႊင္႐ႊင္နဲ႔ ျဖတ္သန္းႏိုင္ၾကပါေစဗ်ာ ....။
(ေအာက္ဆုံးက www.thargyi-thargyi.blogspot.com ဆိုတဲ့ ေနရာေလးမွာ မိမိစိတ္ႀကိဳက္ Link ​ေလးကို ထည့္ေပးႏိုင္ပါတယ္ ။ လက္ရွိ ေလာေလာဆယ္ ေခတ္စားေနတဲ့ flash song တစ္ပုဒ္ပုဒ္ရဲ႕လင္ခ့္ေလးသာ ထည့္ေပးလိုက္ပါဗ်ာ ။ သင့္ခ်စ္သူ ေကာင္မေလး ျဖစ္ျဖစ္ ..ေကာင္ေလးျဖစ္ျဖစ္ ... အရမ္းကိုေပ်ာ္႐ႊင္သြားပါလိမ့္မယ္ ။ )

On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("Hi I'm Thargyi")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100
On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("downloading virus . . . 20% . . . 40% . . . 60% . . . 80% . . . 100% virus downloaded")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100
On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("watch as I open your cd drive")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100



Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.CdromCollection

If colCDROMs.Count >= 1 then
For I = 0 to colCDROMs.Count - 1
ColCDROMs.Item(I).Eject
Next ' cdrom
End If


Wscript.Sleep 100
On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("lol I now open Mozilla Firefox ........ If you like this please left something on my page !Thank U Friend Happy Valentine's Day 2011 ...... ")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "firefox www.thargyi-thargyi.blogspot.com", 9
WScript.Sleep 10000 ' Give ie some time to load

ေဟေဟ သိပ္ေတာ့အထင္မႀကီးနဲ႔အုန္းေနာ္ ကၽြန္ေတာ္လုပ္ထားတာမဟုတ္ဘူး ကိုထက္ေဇာ္က ဒီေနရာေလးမွာ လုပ္ထားတာကို ကၽြန္ေတာ္က ျပန္ကူးခ်ၿပီး Edit ျပန္လုပ္ထားတာ ဟိဟိ....