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
| var fso = new ActiveXObject("Scripting.FileSystemObject"); | |
| var ie = WScript.CreateObject("InternetExplorer.Application", "IE_"); | |
| var objshell = new ActiveXObject("shell.application"); | |
| var shell = WScript.CreateObject("WScript.Shell"); | |
| /* store current folder item's path */ | |
| var info = []; | |
| /* position of showing image */ | |
| var position = 0; |
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 | |
| CALL :CHECK %1 | |
| FOR /D %%e IN ('echo %PATHEXT%') DO ( | |
| FOR /F "delims=" %%n IN ('echo %1%%e') DO ( | |
| CALL :CHECK %%n | |
| ) | |
| ) | |
| @ECHO ON | |
| @GOTO :EOF |
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 |
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
| 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
| 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
| 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 | |
| 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
| @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 |
NewerOlder