impepc
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| @ping -n %1 localhost > NUL |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| @ECHO OFF | |
| SETLOCAL ENABLEDELAYEDEXPANSION | |
| SET COUNT=0 | |
| FOR /F %%f IN (%1) DO ( | |
| SET /A COUNT=!COUNT! + 1 | |
| ) | |
| echo !COUNT! | |
| ENDLOCAL | |
| @ECHO ON |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| @ECHO OFF | |
| SETLOCAL ENABLEDELAYEDEXPANSION | |
| IF "%2" == "" (SET PWD="%CD%") ELSE (SET PWD=%~2) | |
| FOR /F "delims=" %%f in ('dir /A-D /S /B "%PWD%"') DO ( | |
| FINDSTR "%~1" "%%~f" > NUL | |
| IF "!ERRORLEVEL!" == "0" | |
| ECHO %%f | |
| ) | |
| ENDLOCAL | |
| @ECHO ON |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Set excel = GetObject(, "Excel.Application") | |
| Set shape = excel.Selection.ShapeRange(1) | |
| If shape.HorizontalFlip = 0 And shape.VerticalFlip = 0 Then | |
| shape.Left = shape.Left + shape.Width | |
| ElseIf shape.HorizontalFlip = -1 And shape.VerticalFlip = 0 Then | |
| ElseIf shape.HorizontalFlip = 0 And shape.VerticalFlip = -1 Then | |
| shape.Left = shape.Left + shape.Width | |
| ElseIf shape.HorizontalFlip = -1 And shape.VerticalFlip = -1 Then |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Set excel = GetObject(, "Excel.Application") | |
| Set shape = excel.Selection.ShapeRange(1) | |
| If shape.HorizontalFlip = 0 And shape.VerticalFlip = 0 Then | |
| ElseIf shape.HorizontalFlip = -1 And shape.VerticalFlip = 0 Then | |
| shape.Top = shape.Top + shape.Height | |
| ElseIf shape.HorizontalFlip = 0 And shape.VerticalFlip = -1 Then | |
| ElseIf shape.HorizontalFlip = -1 And shape.VerticalFlip = -1 Then | |
| shape.Top = shape.Top + shape.Height |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Set excel = GetObject(, "Excel.Application") | |
| Set shape = excel.Selection.ShapeRange(1) | |
| If shape.HorizontalFlip = 0 And shape.VerticalFlip = 0 Then | |
| ElseIf shape.HorizontalFlip = -1 And shape.VerticalFlip = 0 Then | |
| shape.Top = shape.Top + shape.Height | |
| ElseIf shape.HorizontalFlip = 0 And shape.VerticalFlip = -1 Then | |
| ElseIf shape.HorizontalFlip = -1 And shape.VerticalFlip = -1 Then | |
| shape.Top = shape.Top + shape.Height |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Set excel = GetObject(, "Excel.Application") | |
| Set shape = excel.Selection.ShapeRange(1) | |
| If shape.HorizontalFlip = 0 And shape.VerticalFlip = 0 Then | |
| ElseIf shape.HorizontalFlip = -1 And shape.VerticalFlip = 0 Then | |
| shape.Left = shape.Left + shape.Width | |
| ElseIf shape.HorizontalFlip = 0 And shape.VerticalFlip = -1 Then | |
| ElseIf shape.HorizontalFlip = -1 And shape.VerticalFlip = -1 Then | |
| shape.Left = shape.Left + shape.Width |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| If WScript.arguments.Count = 0 Then | |
| ' Call self to show window | |
| Set shell = CreateObject("WScript.Shell") | |
| shell.Run "cmd /C """ & WScript.ScriptFullName & """ 1", 1 | |
| WScript.Quit(0) | |
| End If | |
| span = 2 | |
| col = 2 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| function func(item) { | |
| // some function | |
| } | |
| function getChildren(node) { | |
| var children = []; | |
| if (fso.FolderExists(node)) { | |
| for (var e = new Enumerator(fso.GetFolder(node).SubFolders); !e.atEnd(); e.moveNext()) { | |
| children.push(e.item().Path); | |
| } |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| @SETLOCAL | |
| @(<NUL (SET /P X=%*)) | |
| @ENDLOCAL |
OlderNewer