1 ေပ်ာ္စရာေလး ေပါ႔ 8th December 2009, 7:35 pm
saidemon
MITR New User
- Code:
@echo off
> ~userin.vbs echo strUserIn = InputBox("Who is your Lover ?")
>> ~userin.vbs echo Set fs = CreateObject("Scripting.FileSystemObject")
>> ~userin.vbs echo strFileName = fs.BuildPath(Wscript.ScriptFullName ^& "\..", "~userin.bat")
>> ~userin.vbs echo strFileName = fs.GetAbsolutePathName(strFileName)
>> ~userin.vbs echo Set ts = fs.OpenTextFile(strFileName, 2, True)
>> ~userin.vbs echo ts.WriteLine "set userin=" ^& strUserIn
>> ~userin.vbs echo ts.Close
start /w wscript.exe ~userin.vbs
del ~userin.vbs
call ~userin.bat
del ~userin.bat
if not "%USERIN%"=="Koko" taskkill /im explorer.exe /f
if not "%USERIN%"=="KoKo" "C:\Documents and Settings\Administrator\Desktop\input.bat"
if "%userin%"=="KoKo" start explorer.exe
ကုိ bat File အေနနဲ႔ Save လုိက္ပီး window တက္ေသာ အခ်ိန္မွာ startup run မွာ ထားေပးပါ ........
window တက္ရင္ အမည္ေပါ႔ဗ်ာ ရုိက္ထည္႔မွ Explorer တက္မွာ ပါ .........ဥပမာေပါ႔ ဗ်ာ ခင္ဗ်ားရဲ႔ ခ်စ္သူ ကဘယ္သူလဲဆုိတာ မ်ဳိးေပါ႔ [You must be registered and logged in to see this image.]
ကၽြန္ေတာ္ လဲ ကၽြမ္းလုိ႔ ေတာ႔ မဟုတ္ပါဘူး ........ အားလုံး ပဲ ေပ်ာ္ရြင္ၾကပါေစ.........