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
| Sub SAPOpenSessionFromLogon() | |
| Dim SapGui | |
| Dim Applic | |
| Dim connection | |
| Dim session | |
| Dim Path | |
| Path = "'C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe' /LSXML_File='C:\sap\SAPUILandscape.xml'" | |
| SAPPath = Replace(Path, "'", Chr(34)) | |
| Shell (SAPPath) | |
| Set SapGui = GetObject("SAPGUI") |
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
| Get-ChildItem *.xml | Rename-Item -NewName { $_.Name -replace '\.xml','.tmp' } |
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
| 192.30.253.112 github.com | |
| 2.192.30.253.113 github.com | |
| 3.151.101.184.133 assets-cdn.github.com | |
| 4.151.101.185.194 github.global.ssl.fastly.net | |
| 192.30.253.118 gist.github.com |
kerrypnx
/ TriggerMacroToTunAfterNewMailIsReceived.vbs
Last active
April 22, 2020 02:27
Trigger a macro to run after a new mail is received in Outlook
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
| Option Explicit | |
| Private WithEvents inboxItems As Outlook.Items | |
| Private Sub Application_Startup() | |
| Dim outlookApp As Outlook.Application | |
| Dim objectNS As Outlook.NameSpace | |
| Set outlookApp = Outlook.Application | |
| Set objectNS = outlookApp.GetNamespace("MAPI") | |
| Set inboxItems = objectNS.GetDefaultFolder(olFolderInbox).Items |
kerrypnx
/ find last row and column
Created
January 17, 2020 03:28
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
| 'Find the last non-blank cell in column A(1) | |
| lRow = Cells(Rows.Count, 1).End(xlUp).Row | |
| 'Find the last non-blank cell in row 1 | |
| lCol = Cells(1, Columns.Count).End(xlToLeft).Column |
kerrypnx
/ thoughout column
Created
December 24, 2019 01:42
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
| bColumnCount = Cells(Rows.Count, 2).End(xlUp).Row | |
| ActiveSheet.Range("B40 : B" & CStr(bColumnCount)).Select | |
| itemsArr = ActiveSheet.Range("B40 : B" & CStr(bColumnCount)) | |
| MsgBox itemsArr(1, 1) |
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
| iRowCov = Sheet2.UsedRange.Rows.Count | |
| iColCov = Sheet2.UsedRange.Columns.Count | |
| Sheet2.Range("A2").Resize(iRowCov, iColCov).ClearContents |
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
| // TeXworksScript | |
| // Title: Search and Replace | |
| // Description: search and replace like word (support wildcase) | |
| // Author: KR | |
| // Version: 0.1 | |
| // Date: 2019-1-17 | |
| // Script-Type: standalone | |
| // Context: TeXDocument | |
| // Shortcut: Ctrl+shift+H |
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
| // ==UserScript== | |
| // @name find highlight | |
| // @namespace http://tampermonkey.net/ | |
| // @version 0.1 | |
| // @description for compare | |
| // @author ke rui | |
| // @match https://neil.fraser.name/software/diff_match_patch/demos/diff.html | |
| // @grant none | |
| // ==/UserScript== |
kerrypnx
/ sci-hub.tw
Created
March 25, 2019 10:35
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
| Sub findsciHub() | |
| With Selection.Find | |
| .ClearFormatting | |
| .text = "sci-hub.tw" | |
| .MatchWildcards = False | |
| Do | |
| .Execute | |
| If .Found Then | |
| Selection.Range.comments.add Selection.Range, "sci-hub.tw is forbidden in paper, please change." | |
| Else |
NewerOlder