Wednesday, February 23, 2011

Logo Maker

ကၽြန္ေတာ္တို႔ ကိုယ္ပိုင္ logo ေလးေတြလုပ္ခ်င္တဲ့သူေတြ၊ logo လုပ္တာ၀ါသနာပါတဲ့သူေတြ အိုေကပါ ဘယ္လိုဘဲျဖစ္ျဖစ္ logo လုပ္ဖို႔ အလြန္ကို အစဥ္ေျပေစမယ့္ Software ေလးတစ္ခုပါ။
Download: Logo Maker

Tuesday, February 15, 2011

လက္ဆင့္ကမ္း Virus


Microsoftႏွင့္Nortonတုိ႔မွေပးပို႔လုိက္ေသာသတင္းျဖစ္ပါသည္။ေက်းဇူးျပဳျပီး ဒီသတင္းကိုလက္ဆင့္ကမ္းေပးၾကပါ သင္တုိ႔ဆီသို႔
Power Point Presentation, Life is beautiful ဆုိျပီးေမးလ္တစ္ခု၀င္လာပါခဲ့လွ်င္ မဖြင့္ပါႏွင့္ခ်က္ခ်င္းdeleteလုပ္ပစ္ပါ။ ထုိေမးကိုဖြင့္ခဲ့မိလွ်င္ သင္၏ computer secreen တြင္
It is too late now, your life is no longer beautiful ဆုိသည့္စာေပၚလာပါလိမ့္မယ္။
ထုိအခါသင္၏ PCမွအရာအားလံုးေပ်ာက္ ဆံုးသြားျပီး၊ ဒီေမးလ္ကိုပို႔သူထံ သင္၏ အမည္၊ e-mail
ႏွင့္ password အားလံုးေရာက္ရွိသြားပါလိမ့္မယ္။ သည္အရာသည္ အဂၤါေန႔ ေန႔လည္က
စတင္ခဲ့ေသာ virus အသစ္ျဖစ္ပါသည္။ Virus ဖန္တီးသူကေတာ့ life owner ဟု မိမိကုိယ္ကုိ
အမည္ေပးထားသူတစ္ဦးျဖစ္ပါသည္။ သည္ေမးလ္ကိုခ်က္ခ်င္းလက္ဆင့္ကမ္းေပးၾကပါ။
Source: Forwardmail

Sunday, February 13, 2011

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 ျပန္လုပ္ထားတာ ဟိဟိ....

Wednesday, February 9, 2011

Microsoft Word & Excel ျမန္မာလို

ကၽြန္ေတာ္တို႔ Microsoft Word နဲ႔ Excel ကို ေလ့လာခ်င္ၾကသူမ်ားအတြက္ ရည္ရြယ္ပါတယ္။ ကၽြမ္းက်င္ၿပီးသား ပုဂၢိဳလ္ထူးပုဂၢိဳလ္ျမတ္မ်ားကို မရည္ရြယ္ပါဘူးခင္ဗ်ာ။ ကၽြန္ေတာ္လဲခုမွ ေလ့လာဖို႔ရာ ရွိတာေလးေတြ လိုက္လွန္ေႏွာၾကည့္ရင္း ေတြ႕တာနဲ႔ ျပန္လည္မွ်ေ၀လိုက္ပါတယ္။
Download: Microsoft Word, Microsoft Excel


Tuesday, February 8, 2011

XWindows Dock add MAC OS X Style Dock on Windows

ကၽြန္ေတာ္တို႔ Window Xp သံုးၿပီးေတာ့ Mac Style Dock ေလး မသံုးခ်င္ၾကဘူးလား။ သံုးၾကည့္ပါဗ်ာ.. အကယ္၍ မႀကိဳက္ရင္လဲ အခ်ိန္မေရြးျပန္ျဖဳတ္ခ်လို႔ရတာဘဲေနာ့္။ အိုေကပါ အကယ္၍ ေဒါင္းခ်င္ရင္ေတာ့ ထံုးစံအတိုင္း..
Download: Mediafre
ကၽြန္ေတာ့္ဆိုဒ္သို႔အလည္လာၾကသူမ်ားအားလံုး မဂၤလာပါဗ်ာ....