■プロフィール

mimizuno

Author:mimizuno

■最近の記事
■最近のコメント
■最近のトラックバック
■月別アーカイブ
■カテゴリー
■ブロとも申請フォーム
■ブログ内検索

■RSSフィード
■リンク
スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


スポンサー広告 | --:--:--
UWSCからVBScriptやJScriptを実行
とりあえずメモとして。
WindowsScriptControlを使う。XPなら標準で入っている模様。
なかったらここからインストール出来る。

CreateOLEObjにはMSScriptControl.ScriptControlもしくはScriptControlを指定する。


dim WSC = CreateOLEObj("ScriptControl")
textblock Code
Function Test(code)
msgbox(code)
End Function
endtextblock

WSC.Language = "VBScript"
WSC.AddCode(Code)
WSC.Run("Test", "DialogText")

WSC.Run("Test", "DialogText")の代わりに
WSC.CodeObject.Test("DialogText")も使える。


スポンサーサイト
UWSC | 19:55:53 | Trackback(0) | Comments(0)
デュアルディスプレイ環境でVNCを使うと片方しか表示されない
デュアルディスプレイのPCをVNCで操作しようとしても片方しかでないことがある。
見えない方にウィンドウがあった場合、見える方に持ってくるのは非常にめんどくさい

ってことで、自動で移動するスクリプトをUWSCで作ってみた


dim gid, wx, wy
dim width = G_SCREEN_W
dim isMax = true

while true
gid = GETID(GET_ACTIVE_WIN)
wx = status(gid, ST_X)
wy = status(gid, ST_Y)
ifb pos("UWSC.exe", status(gid, ST_PATH)) <> 0 then
ctrlwin(gid, MIN)
continue
endif
if wx <> -4 AND wx <> width/2-4 then isMax = false
break
wend

ctrlwin(gid, NORMAL)
ifb wx <= (width/2-50) then
print "lef2right"
acw(gid, width*3/5, wy)
if isMax then ctrlwin(gid, MAX)
else
print "right2left"
acw(gid, 0, wy)
if isMax then ctrlwin(gid, MAX)
endif


実行したときにアクティブなウィンドウを移動対象とする
右側にあったら、左側に。左側にあったら、右側に。
キーボードランチャー(CraftLaunch)に登録して実行している。
左右のデュアルディスプレイ環境を前提としている。


UWSC | 00:31:20 | Trackback(0) | Comments(0)
8.3形式のファイルパスを取得する(UWSCを使用)
ごくまれにファイルパスにスペースがあるとうまく動かないソフトがあったりする。
そんなときに8.3形式のファイルパスに変換すればうまくいくこともある。
ってことでUWSCを使った8.3形式への変換スクリプトを作った。
クリップボードからファイルパスを取得してクリップボードに戻す。
UWSCはhttp://www.uwsc.info/から取得。Free版。

dim name = getstr(0)
dim data
dim FSO = CreateOLEObj("Scripting.FileSystemObject")

ifb FSO.FileExists(name) then
data = FSO.GetFile(name).ShortPath
elseif FSO.FolderExists(name) then
data = FSO.GetFolder(name).ShortPath
else
ExitExit
endif

sendstr(0, data)
print name+"=>"+data

これを適当なファイル名で保存して関連づけしておけば、
ダブルクリックするだけでクリップボードに送られる。
ランチャーとかに登録しとくと便利、、、と思ったけどそんなに使わないか。

UWSC | 13:08:58 | Trackback(0) | Comments(0)

FC2Ad

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。