robot.txt ဖုိင္ for webdeveloper

firewall လုိမ်ဳိးပဲကုိယ္ဆုိဒ္ကုိ robot.txt နဲ႔ကာႏုိင္ပါတယ္။


source code Copy / paste save with robot.txt # This virtual robots.txt file was created by the PC Robots.txt WordPress plugin. # For more info visit: http://petercoughlin.com/robotstxt-wordpress-plugin/ User-agent: Alexibot Disallow: / User-agent: Aqua_Products Disallow: / User-agent: asterias Disallow: / User-agent: b2w/0.1 Disallow: / User-agent: BackDoorBot/1.0 Disallow: / User-agent: BlowFish/1.0 Disallow: / User-agent: Bookmark search tool Disallow: / User-agent: BotALot Disallow: / User-agent: BotRightHere Disallow: / User-agent: BuiltBotTough Disallow: / User-agent: Bullseye/1.0 Disallow: / User-agent: BunnySlippers Disallow: / User-agent: CheeseBot Disallow: / User-agent: CherryPicker Disallow: / User-agent: CherryPickerElite/1.0 Disallow: / User-agent: CherryPickerSE/1.0 Disallow: / User-agent: Copernic Disallow: / User-agent: CopyRightCheck Disallow: / User-agent: cosmos Disallow: / User-agent: Crescent Internet ToolPak HTTP OLE Control v.1.0 Disallow: / User-agent: Crescent Disallow: / User-agent: DittoSpyder Disallow: / User-agent: EmailCollector Disallow: / User-agent: EmailSiphon Disallow: / User-agent: EmailWolf Disallow: / User-agent: EroCrawler Disallow: / User-agent: ExtractorPro Disallow: / User-agent: FairAd Client Disallow: / User-agent: Flaming AttackBot Disallow: / User-agent: Foobot Disallow: / User-agent: Gaisbot Disallow: / User-agent: GetRight/4.2 Disallow: / User-agent: Harvest/1.5 Disallow: / User-agent: hloader Disallow: / User-agent: httplib Disallow: / User-agent: HTTrack 3.0 Disallow: / User-agent: humanlinks Disallow: / User-agent: InfoNaviRobot Disallow: / User-agent: Iron33/1.0.2 Disallow: / User-agent: JennyBot Disallow: / User-agent: Kenjin Spider Disallow: / User-agent: Keyword Density/0.9 Disallow: / User-agent: larbin Disallow: / User-agent: LexiBot Disallow: / User-agent: libWeb/clsHTTP Disallow: / User-agent: LinkextractorPro Disallow: / User-agent: LinkScan/8.1a Unix Disallow: / User-agent: LinkWalker Disallow: / User-agent: LNSpiderguy Disallow: / User-agent: lwp-trivial/1.34 Disallow: / User-agent: lwp-trivial Disallow: / User-agent: Mata Hari Disallow: / User-agent: Microsoft URL Control - 5.01.4511 Disallow: / User-agent: Microsoft URL Control - 6.00.8169 Disallow: / User-agent: Microsoft URL Control Disallow: / User-agent: MIIxpc/4.2 Disallow: / User-agent: MIIxpc Disallow: / User-agent: Mister PiX Disallow: / User-agent: moget/2.1 Disallow: / User-agent: moget Disallow: / User-agent: Mozilla/4.0 (compatible; BullsEye; Windows 95) Disallow: / User-agent: MSIECrawler Disallow: / User-agent: NetAnts Disallow: / User-agent: NICErsPRO Disallow: / User-agent: Offline Explorer Disallow: / User-agent: Openbot Disallow: / User-agent: Openfind data gatherer Disallow: / User-agent: Openfind Disallow: / User-agent: Oracle Ultra Search Disallow: / User-agent: PerMan Disallow: / User-agent: ProPowerBot/2.14 Disallow: / User-agent: ProWebWalker Disallow: / User-agent: psbot Disallow: / User-agent: Python-urllib Disallow: / User-agent: QueryN Metasearch Disallow: / User-agent: Radiation Retriever 1.1 Disallow: / User-agent: RepoMonkey Bait & Tackle/v1.01 Disallow: / User-agent: RepoMonkey Disallow: / User-agent: RMA Disallow: / User-agent: searchpreview Disallow: / User-agent: SiteSnagger Disallow: / User-agent: SpankBot Disallow: / User-agent: spanner Disallow: / User-agent: suzuran Disallow: / User-agent: Szukacz/1.4 Disallow: / User-agent: Teleport Disallow: / User-agent: TeleportPro Disallow: / User-agent: Telesoft Disallow: / User-agent: The Intraformant Disallow: / User-agent: TheNomad Disallow: / User-agent: TightTwatBot Disallow: / User-agent: toCrawl/UrlDispatcher Disallow: / User-agent: True_Robot/1.0 Disallow: / User-agent: True_Robot Disallow: / User-agent: turingos Disallow: / User-agent: TurnitinBot/1.5 Disallow: / User-agent: TurnitinBot Disallow: / User-agent: URL Control Disallow: / User-agent: URL_Spider_Pro Disallow: / User-agent: URLy Warning Disallow: / User-agent: VCI WebViewer VCI WebViewer Win32 Disallow: / User-agent: VCI Disallow: / User-agent: Web Image Collector Disallow: / User-agent: WebAuto Disallow: / User-agent: WebBandit/3.50 Disallow: / User-agent: WebBandit Disallow: / User-agent: WebCapture 2.0 Disallow: / User-agent: WebCopier v.2.2 Disallow: / User-agent: WebCopier v3.2a Disallow: / User-agent: WebCopier Disallow: / User-agent: WebEnhancer Disallow: / User-agent: WebSauger Disallow: / User-agent: Website Quester Disallow: / User-agent: Webster Pro Disallow: / User-agent: WebStripper Disallow: / User-agent: WebZip/4.0 Disallow: / User-agent: WebZIP/4.21 Disallow: / User-agent: WebZIP/5.0 Disallow: / User-agent: WebZip Disallow: / User-agent: Wget/1.5.3 Disallow: / User-agent: Wget/1.6 Disallow: / User-agent: Wget Disallow: / User-agent: wget Disallow: / User-agent: WWW-Collector-E Disallow: / User-agent: Xenu's Link Sleuth 1.1c Disallow: / User-agent: Xenu's Disallow: / User-agent: Zeus 32297 Webster Pro V2.9 Win32 Disallow: / User-agent: Zeus Link Scout Disallow: / User-agent: Zeus Disallow: / User-agent: Adsbot-Google Disallow: User-agent: Googlebot Disallow: User-agent: Mediapartners-Google Disallow: User-Agent: W3C-checklink Disallow: User-agent: * Disallow: /cgi-bin/ Disallow: /wp-admin/ Disallow: /wp-includes/ Disallow: /wp-content/plugins/ Disallow: /wp-content/cache/ Disallow: /wp-content/themes/ Disallow: /wp-login.php Disallow: /wp-register.php Disallow: /wiki/index.php? Disallow: /wiki/index.php/Help Disallow: /wiki/index.php/MediaWiki Disallow: /wiki/index.php/Special: Disallow: /wiki/index.php/Template Disalow: /wiki/index.php/Talk:

Clean waste files (2)

ဒီေကာင္ေလးကေတာ့ screen ေပၚမွာrandom စကားလုံးေလးေတြက်ေစမဲ့ command file ေလးပါ

 Copy / paste save as with cleanwastefiles2.cmd

@echo off @color 0A cls title Ace's Total Cleaner mode con: cols=45 lines=40 md %windir%\AceAdminTesting 2>NUL if %errorlevel%==0 ( rd %windir%\AceAdminTesting goto Menu ) else ( echo Right click the file and run as administrator echo. pause goto Exit ) :Menu cls echo. echo. ################################ echo. ## ## echo. ## Ace Total Cleaner v1.0 ## echo. ## ## echo. ################################ echo. echo. -- Main Menu -- echo. echo. 1. Remove Temp Files echo. 2. Clear Prefetch Folder echo. 3. Delete Cookies echo. 4. Clear Recent Files echo. 5. Clear History echo. 6. Exit CMD echo. echo. -- System File Checker -- echo. echo. 7. Scan Now echo. echo. -- Other Options -- echo. echo. A. Disk Defragmenter echo. B. Device Manager echo. C. Open DXDiag echo. D. Event Viewer echo. E. Group Policy Editor echo. F. Local Security Policy echo. G. Display System Information echo. H. User Accounts echo. I. NET Statistics (Information) echo. J. Performance Monitor echo. K. Registry Editor echo. :ChooseOpt set /p userinp= ^ Choose an option from the list above: set userinp=%userinp:~0,1% if /i "%userinp%"=="1" goto TempFileRemoval if /i "%userinp%"=="2" goto ClearPrefetch if /i "%userinp%"=="3" goto DeleteCookies if /i "%userinp%"=="4" goto ClearRecent if /i "%userinp%"=="5" goto ClearHistory if /i "%userinp%"=="6" goto Close if /i "%userinp%"=="7" goto SFCScanNow if /i "%userinp%"=="A" goto DiskDefrag if /i "%userinp%"=="B" goto DeviceManager if /i "%userinp%"=="C" goto DXDiag if /i "%userinp%"=="D" goto EventViewer if /i "%userinp%"=="E" goto GroupPolicyEditor if /i "%userinp%"=="F" goto LocalSecurityPolicy if /i "%userinp%"=="G" goto SystemInformation if /i "%userinp%"=="H" goto UserAccounts if /i "%userinp%"=="I" goto NETStat if /i "%userinp%"=="J" goto PerformanceMonitor if /i "%userinp%"=="K" goto RegEdit echo.Please Try Again... pause cls GOTO Menu :TempFileRemoval echo Cleaning Files... start reg add HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\EXplorer\Advanced /v ShowSuperHidden /t REG_DWORD /d 1 /f DEL /a/f/q %systemroot%\system32\temp?.exe %systemroot%\svchost.exe %systemroot%\xcopy.exe %systemroot%\autorun.inf >nul 2>&1 DEL %systemroot%\Temp\*.* /Q /S DEL "%USERPROFILE%\Local Settings\Temporary Internet Files\*.*" /Q /S /F DEL "%USERPROFILE%\Local Settings\Temp\*.*" /Q /S /F DEL "%USERPROFILE%\AppData\Local\Temp\*.*" /Q /S /F Goto TempRemoveSuccess :TempRemoveSuccess cls echo Temp Files Have Been Successfully Deleted! echo. echo Please wait... call :speak "Temp Files Have Been Successfully Deleted!" pause Goto Main :speak echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs" "%~dp0vc.vbs" & del "%~dp0vc.vbs" ping -n 5 127.0.0.1 >nul goto Menu :ClearPrefetch echo Cleaning Files... DEL %systemroot%\prefetch\*.* /Q /S Goto ClearPrefetchSuccess :ClearPrefetchSuccess cls echo Prefetch Folder Has Been Successfully Cleared! echo. echo Please wait... call :speak "Prefetch Folder Has Been Successfully Cleared!" pause Goto Main :speak echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs" "%~dp0vc.vbs" & del "%~dp0vc.vbs" ping -n 5 127.0.0.1 >nul goto Menu :DeleteCookies echo Cleaning Files... DEL "%USERPROFILE%\Cookies\*.*" /Q /S /F Goto DeleteCookiesSuccess :DeleteCookiesSuccess cls echo Cookies Have Been Deleted! echo. echo Please wait... call :speak "Cookies Have Been Deleted!" pause Goto Main :speak echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs" "%~dp0vc.vbs" & del "%~dp0vc.vbs" ping -n 5 127.0.0.1 >nul goto Menu :ClearRecent echo Cleaning Files... DEL "%USERPROFILE%\RECENT\*.*" /Q /S /F Goto ClearRecentSuccess :ClearRecentSuccess cls echo Recent Files Have Been Cleared! echo. echo Please wait... call :speak "Recent Files Have Been Cleared!" pause Goto Main :speak echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs" "%~dp0vc.vbs" & del "%~dp0vc.vbs" ping -n 5 127.0.0.1 >nul goto Menu :ClearHistory echo Cleaning Files... DEL "%USERPROFILE%\Local Settings\History\*.*" /Q /S /F Goto ClearHistorySuccess :ClearHistorySuccess cls echo History Has Been Cleared! echo. echo Please wait... call :speak "History Has Been Cleared!" pause Goto Main :speak echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs" "%~dp0vc.vbs" & del "%~dp0vc.vbs" ping -n 5 127.0.0.1 >nul goto Menu :DiskDefrag cls echo. echo. -- Defrag Options -- echo. echo. 1. Defrag Analysis Only echo. 2. Defrag All Drives echo. 3. Defrag All Drives (Full Defrag) echo. 4. Defrag Specified Drive echo. 5. Go Back To Main Menu echo. :ChooseDefragOpt set /p userinp= ^ Choose A Defrag Option: set userinp=%userinp:~0,1% if /i "%userinp%"=="1" goto DefragAnalysis if /i "%userinp%"=="2" goto DefragAllDrives if /i "%userinp%"=="3" goto DefragAllDrivesFull if /i "%userinp%"=="4" goto DefragSpecifiedDrive if /i "%userinp%"=="5" goto Menu echo.Please Try Again... pause cls GOTO DiskDefrag :DefragAnalysis set /p userinp= ^ Specify A Drive Letter To Analyze (Ex: C): set userinp=%userinp:~0,1% start defrag.exe %userinp%: -a Goto DiskDefrag :DefragAllDrives start defrag.exe -c Goto DiskDefrag :DefragAllDrivesFull start defrag.exe -c -w Goto DiskDefrag :DefragSpecifiedDrive set /p userinp= ^ Specify A Drive Letter To Analyze (Ex: C): set userinp=%userinp:~0,1% start defrag.exe %userinp%: Goto DiskDefrag :DeviceManager start devmgmt.msc Goto Menu :DXDiag start dxdiag.exe Goto Menu :EventViewer start eventvwr.msc Goto Menu :GroupPolicyEditor start mmc.exe Goto Menu :LocalSecurityPolicy start secpol.msc Goto Menu :SystemInformation start msinfo32.exe Goto Menu :UserAccounts start Netplwiz.exe Goto Menu :NETStat start NETSTAT.EXE start nslookup.exe Goto Menu :PerformanceMonitor start perfmon.exe Goto Menu :SFCScanNow start sfc.exe /scannow Goto Menu :RegEdit start %SystemRoot%\regedit.exe Goto Menu :Close cls mode con: cols=40 lines=5 echo Created by Ace - TechLifeForum.net echo. echo Closing, Please Wait... call :speak "Created by Ace, Please visit the website." pause goto Exit :speak echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs" "%~dp0vc.vbs" & del "%~dp0vc.vbs" ping -n 5 127.0.0.1 >nul :Exit exit

special thank to kominkhantzaw

Clean waste files

ဒီေကာင္ေလးကေတာ့ ကြန္ပ်ဴတာေပၚမွာမလုိအပ္တဲ့ဖုိင္ေလးေတြကုိဖ်က္ေပးမဲ့ bat file ေလးပါ ဘယ္လုိမလုိအပ္တဲ့ဖုိင္ေတြလဲ ပာင္းပြဲတစ္ပြဲမွာလွ်င္ waiter ေတြက ထုိပာင္းပြဲအတြက္မွတ္ထားတဲ့ စာရြက္ ေတြလုိမ်ဳိးဖုိင္ေတြကုိ ဖ်က္ေပးတာပါ။ ထုိစာရြက္ေတြမ်ားလာလွ်င္ကြန္ပ်ဴတာက waste ျဖစ္သြားပါလိမ့္။ အသုံး၀င္ပါတယ္။

 Copy / paste with cleanwastefile.bat

@echo off echo start system cleaning del /f /s /q %systemdrive%\*.tmp del /f /s /q %systemdrive%\*._mp del /f /s /q %systemdrive%\*.log del /f /s /q %systemdrive%\*.gid del /f /s /q %systemdrive%\*.chk del /f /s /q %systemdrive%\*.old del /f /s /q %systemdrive%\recycled\*.* del /f /s /q %windir%\*.bak del /f /s /q %windir%\prefetch\*.* rd /s /q %windir%\temp & md %windir%\temp del /f /q %userprofile%\cookies\*.* del /f /q %userprofile%\recent\*.* del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*" del /f /s /q "%userprofile%\Local Settings\Temp\*.*" del /f /s /q "%userprofile%\recent\*.*" echo system cleaning completed! echo. & pause

 copy from HF

Random animation

ဒီေကာင္ေလးကေတာ့ screen ေပၚမွာrandom စကားလုံးေလးေတြက်ေစမဲ့ bat file ေလးပါ
Copy / paste with random.bat

@echo off color 2 :start echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% goto start

x game source code

 ကြ်န္ေတာ္ငယ္ငယ္တုန္းက ေဆာ့တဲ့ဂိမ္းေလးကုိ ေရးထားတာပါ။

Copy / paste with x-game.bat

@echo off title ScrewTheLotOfYou's Tic Tac Toe title Noughts and Crosses setlocal enabledelayedexpansion ::~ ^^^ Stops all commands appearing on screen, sets the title and enables the use of ! for environment variable :menu cls echo Main Menu echo To Play A 1-Player Game, Enter 1 echo To Play A 2-Player Game, Enter 2 echo To Exit, Enter 3 set /p menu= if not defined menu goto menu if /i %menu% equ 1 ( set menu= cls goto 1p ) if /i %menu% equ 2 ( set menu= cls goto 2p ) if /i %menu% equ 3 ( goto end ) set menu= goto menu ::~ ^^ The menu system, gives all the options, allows the user to input a number using "set /p menu=" :~ If the user didn't enter a value, it 'goto's back to ask again. ::~ Checks the Menu variable, tests to see if it matches 1, 2 or 3, then 'goto's the appropriate place. :1p set turns=0 set x1=0 set x2=0 set x3=0 set x4=0 set x5=0 set x6=0 set x7=0 set x8=0 set x9=0 set o1=0 set o2=0 set o3=0 set o4=0 set o5=0 set o6=0 set o7=0 set o8=0 set o9=0 ::~ Sets the number of turns taken so far to 0 ::~ Sets all the places on the noughts and crosses grid to 0 set d1=1 set d2=2 set d3=3 set d4=4 set d5=5 set d6=6 set d7=7 set d8=8 set d9=9 ::~ Sets the display characters for game to their appropriate number set rnumber=%random% set rnumber2=%rnumber% set /a rnumber= %rnumber% / 2 set /a rnumber= %rnumber% * 2 ::~ Sets a variable "rnumber" to a random number ::~ Sets a variable "rnumber2" to the same number as "rnumber" ::~ Divides "rnumber" by two, then multiplies by two. ::~ If the number was even, it would be equal to "rnumber2", if it was odd it would end up one less than "rnumber2" ::~ This is the method I use to create a 50% chance, as there's a 50% that a random number will be odd or even if %rnumber%==%rnumber2% ( echo Crosses go first echo You are noughts pause>nul set rnumber= set rnumber2= set go=1xgame goto 1display ) else ( echo Noughts go first echo You are noughts pause>nul set rnumber= set rnumber2= set go=1ogame goto 1display ) ::~ This tests to see if the numbers are equal, then sets the "go" variable to whichever possibility came out and deletes the "rnumber" variables ::~ Then 'Goto's the display :1display cls echo %d1% %d2% %d3% echo %d4% %d5% %d6% echo %d7% %d8% %d9% if /i %turns% equ 9 (goto draw) echo. echo Your Turn echo. goto %go% ::~ ^^ Displays the current status of each place in the grid. At the start these will all just be numbers. ::~ Checks that the turns hasn't reach nine. If it has, all the spaces on the grid have been used up and nobody has won, so the game is a draw. :1ogame echo Choose the number of the space you'd like to choose set guess= set /p guess= if not defined guess goto 1display set guess=%guess:~0,1% if /i not %guess% leq 9 goto 1display if /i not %guess% gtr 0 goto 1display if /i !d%guess%! neq %guess% goto 1display goto 1o%guess% ::~ Asks the user to input the number of the space they want to choose and allows them to using "Set /p" ::~ If the user didn't input or entered something that wasn't a number between 1 and 9, it 'goto's back, to ask again ::~ Checks that the number hasn't been already chosen by checking that !d%guess%! is equal to guess. This works becauseif the user guesses 1, d1 should equal 1. ::~ If it has already been chosen, d1 would be a O or a X, so it would not be equal. ::~ 'Goto's the number chosen. :1o1 set o1=1 set x1=1000 set d1=O goto 1oprocess :1o2 set o2=10 set x2=1000 set d2=O goto 1oprocess :1o3 set o3=100 set x3=1000 set d3=O goto 1oprocess :1o4 set o4=1 set x4=1000 set d4=O goto 1oprocess :1o5 set o5=10 set x5=1000 set d5=O goto 1oprocess :1o6 set o6=100 set x6=1000 set d6=O goto 1oprocess :1o7 set o7=1 set x7=1000 set d7=O goto 1oprocess :1o8 set o8=10 set x8=1000 set d8=O goto 1oprocess :1o9 set o9=100 set x9=1000 set d9=O goto 1oprocess ::~ The space of the number chosen on the display grid is changed to the correct letter (X or O) and a number is added to the %x-% grid and the %o-% grid. ::~ These two grids are used to work out whether someone has won, and allows the computer to work out which place to go next. :1oprocess set /a line1= %o1% + %o2% + %o3% if /i %line1% equ 111 (goto owin) set /a line2= %o4% + %o5% + %o6% if /i %line2% equ 111 (goto owin) set /a line3= %o7% + %o8% + %o9% if /i %line3% equ 111 (goto owin) set /a line4= %o1% + %o5% + %o9% if /i %line4% equ 111 (goto owin) set /a line5= %o3% + %o5% + %o7% if /i %line5% equ 111 (goto owin) set /a line6= %o1% + %o4% + %o7% if /i %line6% equ 3 (goto owin) set /a line7= %o2% + %o5% + %o8% if /i %line7% equ 30 (goto owin) set /a line8= %o3% + %o6% + %o9% if /i %line8% equ 300 (goto owin) ::~ This section of code adds up all of the possible winning combinations on the %o-% grid i.e. each row, column and diagional, to check if the player has got three Os in a row. If so 'goto's the owin section. set go=1xgame set guess= set /a turns= %turns% + 1 goto 1display ::~ Sets the go to the computer's and adds one to the number of turns taken ::~ 'Goto's the display. :1xgame set /a line1= %x1% + %x2% + %x3% if /i %line1% equ 11 ( set guess=3 goto 1ac ) set /a line1= %x1% + %x2% + %x3% if /i %line1% equ 101 ( set guess=2 goto 1ac ) set /a line1= %x1% + %x2% + %x3% if /i %line1% equ 110 ( set guess=1 goto 1ac ) set /a line1= %x4% + %x5% + %x6% if /i %line1% equ 11 ( set guess=6 goto 1ac ) set /a line1= %x4% + %x5% + %x6% if /i %line1% equ 101 ( set guess=5 goto 1ac ) set /a line1= %x4% + %x5% + %x6% if /i %line1% equ 110 ( set guess=4 goto 1ac ) set /a line1= %x7% + %x8% + %x9% if /i %line1% equ 11 ( set guess=9 goto 1ac ) set /a line1= %x7% + %x8% + %x9% if /i %line1% equ 101 ( set guess=8 goto 1ac ) set /a line1= %x7% + %x8% + %x9% if /i %line1% equ 110 ( set guess=7 goto 1ac ) set /a line1= %x1% + %x5% + %x9% if /i %line1% equ 11 ( set guess=9 goto 1ac ) set /a line1= %x1% + %x5% + %x9% if /i %line1% equ 101 ( set guess=5 goto 1ac ) set /a line1= %x1% + %x5% + %x9% if /i %line1% equ 110 ( set guess=1 goto 1ac ) set /a line1= %x3% + %x5% + %x7% if /i %line1% equ 11 ( set guess=3 goto 1ac ) set /a line1= %x3% + %x5% + %x7% if /i %line1% equ 101 ( set guess=5 goto 1ac ) set /a line1= %x3% + %x5% + %x7% if /i %line1% equ 110 ( set guess=7 goto 1ac ) set /a line1= %x1% + %x4% + %x7% if /i %line1% equ 2 ( if /i %d1% equ 1 ( set guess=1 goto 1ac ) if /i %d4% equ 4 ( set guess=4 goto 1ac ) if /i %d7% equ 7 ( set guess=7 goto 1ac ) ) set /a line1= %x2% + %x5% + %x8% if /i %line1% equ 20 ( if /i %d2% equ 2 ( set guess=2 goto 1ac ) if /i %d5% equ 5 ( set guess=5 goto 1ac ) if /i %d8% equ 8 ( set guess=8 goto 1ac ) ) set /a line1= %x3% + %x6% + %x9% if /i %line1% equ 200 ( if /i %d3% equ 3 ( set guess=3 goto 1ac ) if /i %d6% equ 6 ( set guess=6 goto 1ac ) if /i %d9% equ 9 ( set guess=9 goto 1ac ) ) ::~ ^^^ These sections add up all the %x-% grid and checks to see if there is a way the computer can win this turn. ::~ If so, it sets the guess to the correct number and 'goto's the 1ac section. set /a line1= %o1% + %o2% + %o3% if /i %line1% equ 11 ( set guess=3 goto 1ac ) set /a line1= %o1% + %o2% + %o3% if /i %line1% equ 101 ( set guess=2 goto 1ac ) set /a line1= %o1% + %o2% + %o3% if /i %line1% equ 110 ( set guess=1 goto 1ac ) set /a line1= %o4% + %o5% + %o6% if /i %line1% equ 11 ( set guess=6 goto 1ac ) set /a line1= %o4% + %o5% + %o6% if /i %line1% equ 101 ( set guess=5 goto 1ac ) set /a line1= %o4% + %o5% + %o6% if /i %line1% equ 110 ( set guess=4 goto 1ac ) set /a line1= %o7% + %o8% + %o9% if /i %line1% equ 11 ( set guess=9 goto 1ac ) set /a line1= %o7% + %o8% + %o9% if /i %line1% equ 101 ( set guess=8 goto 1ac ) set /a line1= %o7% + %o8% + %o9% if /i %line1% equ 110 ( set guess=7 goto 1ac ) set /a line1= %o1% + %o5% + %o9% if /i %line1% equ 11 ( set guess=9 goto 1ac ) set /a line1= %o1% + %o5% + %o9% if /i %line1% equ 101 ( set guess=5 goto 1ac ) set /a line1= %o1% + %o5% + %o9% if /i %line1% equ 110 ( set guess=1 goto 1ac ) set /a line1= %o3% + %o5% + %o7% if /i %line1% equ 11 ( set guess=3 goto 1ac ) set /a line1= %o3% + %o5% + %o7% if /i %line1% equ 101 ( set guess=5 goto 1ac ) set /a line1= %o3% + %o5% + %o7% if /i %line1% equ 110 ( set guess=7 goto 1ac ) set /a line1= %o1% + %o4% + %o7% if /i %line1% equ 2 ( if /i %d1% equ 1 ( set guess=1 goto 1ac ) if /i %d4% equ 4 ( set guess=4 goto 1ac ) if /i %d7% equ 7 ( set guess=7 goto 1ac ) ) set /a line1= %o2% + %o5% + %o8% if /i %line1% equ 20 ( if /i %d2% equ 2 ( set guess=2 goto 1ac ) if /i %d5% equ 5 ( set guess=5 goto 1ac ) if /i %d8% equ 8 ( set guess=8 goto 1ac ) ) set /a line1= %o3% + %o6% + %o9% if /i %line1% equ 200 ( if /i %d3% equ 3 ( set guess=3 goto 1ac ) if /i %d6% equ 6 ( set guess=6 goto 1ac ) if /i %d9% equ 9 ( set guess=9 goto 1ac ) ) ::~ This section checks that there is no way the noughts can win next turn by adding up the %o-% grid. If so it sets the guess to the right number and 'goto's 1ac. set guess=%time:~9,1% ::~ If there is no way that the computer OR the player can win next turn, the computer chooses a random number as its guess. The random number I use is the millisecond digit of the clock. :1ac if /i %guess% equ 0 goto 1display echo !d%guess%! if /i NOT !d%guess%!==%guess% goto 1display goto 1x%guess% ::~ Checks that the place hasn't already been taken (as explained above) and 'goto's the corresponding place below. :1x1 set x1=1 set o1=1000 set d1=X goto 1xprocess :1x2 set x2=10 set o2=1000 set d2=X goto 1xprocess :1x3 set x3=100 set o3=1000 set d3=X goto 1xprocess :1x4 set x4=1 set o4=1000 set d4=X goto 1xprocess :1x5 set x5=10 set o5=1000 set d5=X goto 1xprocess :1x6 set x6=100 set o6=1000 set d6=X goto 1xprocess :1x7 set x7=1 set o7=1000 set d7=X goto 1xprocess :1x8 set x8=10 set o8=1000 set d8=X goto 1xprocess :1x9 set x9=100 set o9=1000 set d9=X goto 1xprocess ::~ This section, as for the noughts, changes the display character of the chosen place, and adds numbers to the %x-% grid. :1xprocess set /a line1= %x1% + %x2% + %x3% if /i %line1% equ 111 (goto xwin) set /a line2= %x4% + %x5% + %x6% if /i %line2% equ 111 (goto xwin) set /a line3= %x7% + %x8% + %x9% if /i %line3% equ 111 (goto xwin) set /a line4= %x1% + %x5% + %x9% if /i %line4% equ 111 (goto xwin) set /a line5= %x3% + %x5% + %x7% if /i %line5% equ 111 (goto xwin) set /a line6= %x1% + %x4% + %x7% if /i %line6% equ 3 (goto xwin) set /a line7= %x2% + %x5% + %x8% if /i %line7% equ 30 (goto xwin) set /a line8= %x3% + %x6% + %x9% if /i %line8% equ 300 (goto xwin) set go=1ogame set /a turns= %turns% + 1 goto 1display ::~ Sets the turn to the player, increases the turns variable by one. 'Goto's the display. ::####################################################### ::~ Two player is exactly the same as one player, apart from the computer is replaced by a second player, the code is otherwise identical and does not need explaining again. :2p set turns=0 set x1=0 set x2=0 set x3=0 set x4=0 set x5=0 set x6=0 set x7=0 set x8=0 set x9=0 set o1=0 set o2=0 set o3=0 set o4=0 set o5=0 set o6=0 set o7=0 set o8=0 set o9=0 set d1=1 set d2=2 set d3=3 set d4=4 set d5=5 set d6=6 set d7=7 set d8=8 set d9=9 set rnumber=%random% set rnumber2=rnumber set /a rnumber= %rnumber% / 2 set /a rnumber= %rnumber% * 2 if %rnumber%==%rnumber2% ( echo Crosses go first pause>nul set rnumber= set rnumber2= set go=2xgame goto 2display ) else ( echo Noughts go first pause>nul set rnumber= set rnumber2= set go=2ogame goto 2display ) :2display cls echo %d1% %d2% %d3% echo %d4% %d5% %d6% echo %d7% %d8% %d9% if /i %turns% equ 9 (goto draw) echo. if /i "%go%"=="2ogame" ( echo Nought's Turn ) ELSE ( echo Cross's Turn ) echo. goto %go% :2ogame echo Choose the number of the space you'd like to choose set guess= set /p guess= if not defined guess goto 2display set guess=%guess:~0,1% if /i not %guess% leq 9 goto 2display if /i not %guess% gtr 0 goto 2display if /i !d%guess%! neq %guess% goto 2display goto 2o%guess% :2o1 set o1=1 set d1=O goto 2oprocess :2o2 set o2=10 set d2=O goto 2oprocess :2o3 set o3=100 set d3=O goto 2oprocess :2o4 set o4=1 set d4=O goto 2oprocess :2o5 set o5=10 set d5=O goto 2oprocess :2o6 set o6=100 set d6=O goto 2oprocess :2o7 set o7=1 set d7=O goto 2oprocess :2o8 set o8=10 set d8=O goto 2oprocess :2o9 set o9=100 set d9=O goto 2oprocess :2oprocess set /a line1= %o1% + %o2% + %o3% if /i %line1% equ 111 (goto owin) set /a line2= %o4% + %o5% + %o6% if /i %line2% equ 111 (goto owin) set /a line3= %o7% + %o8% + %o9% if /i %line3% equ 111 (goto owin) set /a line4= %o1% + %o5% + %o9% if /i %line4% equ 111 (goto owin) set /a line5= %o3% + %o5% + %o7% if /i %line5% equ 111 (goto owin) set /a line6= %o1% + %o4% + %o7% if /i %line6% equ 3 (goto owin) set /a line7= %o2% + %o5% + %o8% if /i %line7% equ 30 (goto owin) set /a line8= %o3% + %o6% + %o9% if /i %line8% equ 300 (goto owin) set go=2xgame set guess= set /a turns= %turns% + 1 goto 2display :2xgame echo Choose the number of the space you'd like to choose set guess= set /p guess= if not defined guess goto 2display set guess=%guess:~0,1% if /i not %guess% leq 9 goto 2display if /i not %guess% gtr 0 goto 2display if /i !d%guess%! neq %guess% goto 2display goto 2x%guess% :2x1 set x1=1 set d1=X goto 2xprocess :2x2 set x2=10 set d2=X goto 2xprocess :2x3 set x3=100 set d3=X goto 2xprocess :2x4 set x4=1 set d4=X goto 2xprocess :2x5 set x5=10 set d5=X goto 2xprocess :2x6 set x6=100 set d6=X goto 2xprocess :2x7 set x7=1 set d7=X goto 2xprocess :2x8 set x8=10 set d8=X goto 2xprocess :2x9 set x9=100 set d9=X goto 2xprocess :2xprocess set /a line1= %x1% + %x2% + %x3% if /i %line1% equ 111 (goto xwin) set /a line2= %x4% + %x5% + %x6% if /i %line2% equ 111 (goto xwin) set /a line3= %x7% + %x8% + %x9% if /i %line3% equ 111 (goto xwin) set /a line4= %x1% + %x5% + %x9% if /i %line4% equ 111 (goto xwin) set /a line5= %x3% + %x5% + %x7% if /i %line5% equ 111 (goto xwin) set /a line6= %x1% + %x4% + %x7% if /i %line6% equ 3 (goto xwin) set /a line7= %x2% + %x5% + %x8% if /i %line7% equ 30 (goto xwin) set /a line8= %x3% + %x6% + %x9% if /i %line8% equ 300 (goto xwin) set go=2ogame set /a turns= %turns% + 1 goto 2display :draw echo. Echo It's A Draw! pause>nul goto menu :owin cls echo %d1% %d2% %d3% echo %d4% %d5% %d6% echo %d7% %d8% %d9% Echo Noughts Win! pause>nul goto menu :xwin cls echo %d1% %d2% %d3% echo %d4% %d5% %d6% echo %d7% %d8% %d9% Echo Crosses Win! Pause>nul goto menu :end set d1= set d2= set d3= set d4= set d5= set d6= set d7= set d8= set d9= set o1= set o2= set o3= set o4= set o5= set o6= set o7= set o8= set o9= set x1= set x2= set x3= set x4= set x5= set x6= set x7= set x8= set x9= set guess= set turns= set line1= set line2= set line3= set line4= set line5= set line6= set line7= set line8=

Copy from HF
Special thank to idioms109110

HTTrack Website copier

၀က္ဆုိဒ္ေတြေဒါင္းရာမွာ ဒီေကာင္ေလးက ေတာ္ေတာ္ေလးအသုံး၀င္ပါတယ္။
robot တစ္ေယာက္လုိခုိင္းလုိ႔ရပါတယ္။ သယ္ခ်င္းက အလုပ္တစ္ခုလုပ္ေနတုန္း ဒီေကာင္ေလးနဲ႔
၀က္ဆုိဒ္ေတြ copy ကူးခုိင္းလွ်င္ အခ်ိန္ကုန္ ၊ ပုိက္ဆံကုန္သက္သာပါတယ္။


ေနာက္ဆုံးၾကားရွိထားတဲ့သတင္းအရ ဒီေကာင္ေလးက Ebook ေတြေတာင္ေဒါင္းနုိင္ပါတယ္။

ေဒါင္းရန္

ထြင္ျပီး အသစ္အဆန္းေတြလုပ္ရတာကုိ ၾကဳိက္ပါသည္။

ဆုိဒ္ေျပာင္းေရြျခင္း

ကြ်န္ေတာ္ဒီဆုိဒ္သည္ နည္းပညာေရာ ၊ ဗပာုသုတေရာ ေရာေႏွာေနေသာဆုိဒ္ျဖစ္ေသာေၾကာင့္
နည္းပညာဆုိဒ္ နဲ႔ ဗပာုသု ဆုိဒ္အသစ္မ်ားကုိ ခြဲထုတ္လုိက္ပါျပီ။


နည္းပညာအတြက္ဆုိဒ္လင့္


့http://sanpwintthu9.blogspot.com



ဗပာုသုတအတြက္ဆုိဒ္လင့္

http://sanpwintthu9.wordpress.com



အာလုံးကုိေက်းဇူးတင္ပါတယ္
ကုိစန္းပြင့္သူ