- SLCTBOX関数にて配列変数を使用した時にエラーが出るのを修正
Joey Takahashi stuncloud
stuncloud
/ settings.json
Last active
May 13, 2022 05:35
winget (v1.3.1251-preview) でportableアプリとしてのuwscrをインストールするやつ
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
| // winget settings で設定ファイルを開く | |
| { | |
| "$schema": "https://aka.ms/winget-settings.schema.json", | |
| // v1.3.1251-preview で以下を設定します | |
| "experimentalFeatures": { | |
| "portableInstall": true | |
| } | |
| } |
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
| textblock msg | |
| call url[http://example.com/hoge.uws] | |
| のようにURLを記述することでweb上のスクリプトをcallできます | |
| スクリプトのMIMEはtext/plainが良さそう | |
| endtextblock | |
| msgbox(msg) |
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
| module OCR | |
| function Get(path) | |
| result = powershell(replace(ps1, "%filepath%", path)) | |
| fend | |
| textblock ps1 | |
| [Windows.Media.Ocr.OcrEngine,Windows.Media.Ocr,ContentType=WindowsRuntime] | Out-Null | |
| [Windows.Storage.StorageFile,Windows.Storage,ContentType=WindowsRuntime] | Out-Null | |
| [Windows.Graphics.Imaging.BitmapDecoder,Windows.Graphics.Imaging,ContentType=WindowsRuntime] | Out-Null | |
| Add-Type -AssemblyName System.Runtime.WindowsRuntime |
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
| [package] | |
| name = "com_object" | |
| version = "0.1.0" | |
| authors = ["stuncloud <stuncloud+github@gmail.com>"] | |
| edition = "2018" | |
| [dependencies] | |
| windows = "0.18.0" | |
| [build-dependencies] |
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
| [package] | |
| name = "com_object" | |
| version = "0.1.0" | |
| edition = "2018" | |
| [dependencies] | |
| windows = "0.17.0" | |
| [build-dependencies] | |
| windows = "0.17.0" |
stuncloud
/ cargo.toml
Created
August 5, 2021 09:27
dlopen と libffi と libc でdll関数を呼ぶ (FindWindowW, SetWindowPlacement)
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
| [package] | |
| name = "hoge" | |
| version = "0.1.0" | |
| edition = "2018" | |
| [dependencies] | |
| dlopen = "0.1" | |
| libffi = "1.0.1" | |
| libc = "0.2" |
stuncloud
/ 画面の明るさ変更.uws
Created
March 11, 2021 04:15
画面の明るさを変更する http://www3.rocketbbs.com/601/bbs.cgi?id=siromasa&mode=pickup&no=1246
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
| ret = doscmd("powercfg -l") | |
| for row in split(ret, "<#CR>") | |
| SCHEME_GUID = betweenstr(row, "GUID: ", " (") | |
| name = betweenstr(row, " (", ")") | |
| isDefault = length(betweenstr(row, ")")) > 0 | |
| if isDefault then | |
| break | |
| endif | |
| next |
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
| #Requires -Version 7.0 | |
| if (!('System.Windows.Media.MediaPlayer' -as [type])) { | |
| Initialize-MusicPlayer | |
| } | |
| $Script:PlayListDir = '~\Music\PowerShell\Playlists' | |
| if (! (Test-Path -Path $Script:PlayListDir)) { | |
| md $Script:PlayListDir | |
| } |
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
| dim hRequest, hSession, hConnection, hWebSocket, emsg | |
| try | |
| // セッションを作る、戻り値が0なら失敗 | |
| hSession = WinHttpOpen("UWSC WebSocket Sample", WINHTTP_ACCESS_TYPE_AUTOMATIC_PROXY, NULL, NULL, 0) | |
| if hSession = 0 then | |
| err = GetLastError() | |
| emsg = "failed on WinHttpOpen (" + err + ")" | |
| exit | |
| endif |