Skip to content

Instantly share code, notes, and snippets.

View hymkor's full-sized avatar

HAYAMA_Kaoru hymkor

View GitHub Profile
package kernel32ini
import (
"syscall"
"unsafe"
)
var kernel32 = syscall.NewLazyDLL("kernel32")
var getPrivateProfileString = kernel32.NewProc("GetPrivateProfileStringW")
$ go run hoge.go
# command-line-arguments
.\hoge.go:7: initialization loop:
C:\Users\…\GoSrc\tmp\hoge.go:7 funcList refers to
C:\Users\…\GoSrc\tmp\hoge.go:9 listing refers to
C:\Users\…\GoSrc\tmp\hoge.go:7 funcList
@hymkor
hymkor / chpath.js
Created April 4, 2015 14:12
Windows でデフォルトの %PATH% を変更する(JScript編)
if( WScript.Arguments.length <= 0 ){
var shellApp = new ActiveXObject("Shell.Application");
shellApp.ShellExecute( "wscript.exe","\"" + WScript.ScriptFullName + "\" uac" , "" , "runas");
shellApp = null;
WScript.Quit();
}
var wshShell=new ActiveXObject("WScript.Shell");
var objFSO = new ActiveXObject("Scripting.FileSystemObject");
var sysEnv=wshShell.Environment;
var path = sysEnv.Item("PATH");
@hymkor
hymkor / sendto.cmd
Last active February 10, 2017 22:33
(単体で動作する) sendto 管理バッチ
@if (0) == (0) echo off
cscript //nologo /E:JScript "%~f0" Sendto %*
exit /b 0
@end
var objShell = new ActiveXObject("WScript.Shell");
var sendto = objShell.SpecialFolders(WScript.Arguments.Item(0))
if( WScript.Arguments.length <= 1 ){
var shellApp=new ActiveXObject("Shell.Application");
shellApp.ShellExecute(sendto,"","","open");
WScript.Quit(0);
@hymkor
hymkor / seq.cmd
Created April 11, 2015 16:46
バッチファイルで作る seq
@echo off
setlocal
if "%3" == "" (
set "STEP=1"
) else (
set "STEP=%3"
)
if "%2" == "" (
set "START=1"
set "END=%1"
@hymkor
hymkor / please.cmd
Created April 11, 2015 19:36
コマンドラインから管理者権限でコマンドを実行するバッチファイル(JScript)
@if (0) == (0) echo off
cscript //nologo //E:JScript "%~f0" %*
exit /b 0
@end
var program = "CMD.EXE";
var argv="";
var args = WScript.Arguments;
if( args.length >= 1 ){
program = args.Item(0);
if(args.length >= 2 ){
@hymkor
hymkor / luawk.cmd
Created April 13, 2015 06:46
lua を awk っぽく使うバッチ($n → S[n]で、 NR、FNR、FILENAME、printf などはだいたいそのまま)
::rem:: --[[ vim:set ft=lua:
@lua "%~f0" %* & exit /b 0
]]--
-- requires Lua 5.3
if #arg < 1 then
print( string.format( [[Usage: %s "SCRIPT" files...
S[n] = $n on AWK
NR = NR on AWK
@hymkor
hymkor / perl.cmd
Created April 13, 2015 07:44
msysgit 添付の Perl を %PATH% が通ってなくとも使うバッチファイル
@echo off
for %%I in (git.exe) do set "PERL=%%~dp$PATH:I..\bin\perl.exe"
"%PERL%" %*
@hymkor
hymkor / nuawk.cmd
Created April 13, 2015 10:11
nyagos 内蔵Luaで AWK っぽいことをする(例:「nuawk.cmd "printf('%03d %s\n',NR,S[0])" 適当なファイル」←「cat -n」と同じ) ※要nyagos 4.0.7_1 or later
::rem:: --[[ vim:set ft=lua:
@nyagos -f "%~f0" %* & exit /b 0
]]--
-- requires Lua 5.3
if #arg < 1 then
print( string.format( [[Usage: %s "SCRIPT" files...
S[n] = $n on AWK
NR = NR on AWK
@hymkor
hymkor / trash.js
Created May 16, 2015 06:03
ゴミ箱にファイルを捨てる JScript
var shellApp = new ActiveXObject("Shell.Application");
var trashBox = shellApp.NameSpace(10);
var fsObj = new ActiveXObject("Scripting.FileSystemObject");
for(var i=0 ; i <WScript.Arguments.length ; i++ ){
var arg1 = WScript.Arguments(i);
var path1 = fsObj.GetAbsolutePathName(arg1);
trashBox.MoveHere(path1);
}