?D::MotionBros このページをアンテナに追加 RSSフィード

2010-08-11 Wed

編集している Greasemonkey スクリプトを userscript.org にあげる秀丸マクロ

| 03:36 |  編集している Greasemonkey スクリプトを userscript.org にあげる秀丸マクロ - ?D::MotionBros を含むブックマーク  編集している Greasemonkey スクリプトを userscript.org にあげる秀丸マクロ - ?D::MotionBros のブックマークコメント

編集したらすぐに userscript.org へアップロードしたいので秀丸マクロと ActivePerl で書いてみた。

save-uploadUserscript.mac

save ;
if( filetype == ".js" ){
    $uploadpl   = "C:/data/perl/script/upload_userscript.pl" ;
    
    // ini ファイルに userscript.org の設定
    $inifile    = hidemarudir + "\\" + currentmacrobasename + ".ini" ;
    if( existfile($inifile) ){
        $userid     = getinistr( $inifile, "userscriptorg", "userid" ) ;
        $password   = getinistr( $inifile, "userscriptorg", "password" );
    }else{
        $userid     = input( "userscript.org のユーザー名:" ) ;
        $password   = input( "userscript.org のユーザー名:" ) ;
        writeinistr $inifile, "userscriptorg", "userid", $userid ;
        writeinistr $inifile, "userscriptorg", "password", $password ;
        message( $inifile + "に設定を保存しました" ) ;
    }
    
    gofiletop ;
    searchdown "@userscriptorg" ;
    if( result == 0 ){
        message( "@userscriptorg が見つかりません" ) ;
        endmacro ;
    }
    searchdown "http://userscripts.org/scripts/show/.*$", regular ;
    if( result == 0 ){
        message( "@userscriptorg が見つかりません" ) ;
        endmacro ;
    }
    $scriptid   = gettext( foundtopx, foundtopy, foundendx, foundendy ) ;
    question( $scriptid + " にアップロードしますか?" ) ;
    if( result == yes ){
        run "cmd /c perl " + $uploadpl
            + " -u " + $userid
            + " -p " + $password
            + " -i " + $scriptid
            + " -f \"" + filename2 + "\" & PAUSE" ;
    }
}
endmacro ;

upload_userscript.pl

# -u : userscript.org login id
# -p : userscript.org password
# -i : userscript url           e.g. http://userscripts.org/scripts/show/80824
# -f : userscript local path    e.g. C:\data\sample.user.js

use strict ;
use warnings ;
use WWW::Mechanize ;
use Getopt::Std ;

my $browser = '"C:\Program Files\Mozilla Firefox\firefox.exe"' ;
my %opts ;
getopt( 'u:p:i:f:', \%opts ) ;

exit if( ! defined( $opts{u} ) ) ;
exit if( ! defined( $opts{p} ) ) ;
exit if( ! defined( $opts{i} ) ) ;
exit if( ! defined( $opts{f} ) ) ;

my $mech    = WWW::Mechanize->new() ;
my $url     = "http://userscripts.org/login" ;
my $uploadurl   = $opts{i} ;
$uploadurl      =~ s|/show/|/upload/| ;
my $editurl     = $opts{i} ;
$editurl        =~ s|/show/|/edit/| ;

$mech->get($url) ;
$mech->form_number(2) ;
$mech->field( 'login', $opts{u} ) ;
$mech->field( 'password', $opts{p} ) ;
$mech->click() ;
$mech->get($uploadurl) ;
$mech->form_number(2) ;
$mech->field( 'src', $opts{f} ) ;
$mech->click() ;

system("$browser $editurl") ;

exit 0 ;

2010-08-05 Thu

秀丸で TortoiseSVN コミットを便利に使う方法

| 22:41 |  秀丸で TortoiseSVN コミットを便利に使う方法 - ?D::MotionBros を含むブックマーク  秀丸で TortoiseSVN コミットを便利に使う方法 - ?D::MotionBros のブックマークコメント

編集してOKだったら TortoiseSVNコミットしたい場合は下記のマクロが便利

save-commitTortoiseSVN.mac

save ;
run "C:/Program Files/TortoiseSVN/bin/TortoiseProc.exe /command:commit /path:\"" + filename2 + "\" /notempfile /closeonend" ;
endmacro ;

秀丸で Windows バッチファイルを便利に使う方法

| 22:36 |  秀丸で Windows バッチファイルを便利に使う方法 - ?D::MotionBros を含むブックマーク  秀丸で Windows バッチファイルを便利に使う方法 - ?D::MotionBros のブックマークコメント

.bat ファイルを編集しては実行したい場合は下記のマクロが便利

save-runBatch.mac

save ;
if( filetype == ".bat" ){
    run "cmd /c \"" + filename2 + "\" & PAUSE" ;
}
endmacro ;

秀丸で JScript を便利に使う方法

| 22:44 |  秀丸で JScript を便利に使う方法 - ?D::MotionBros を含むブックマーク  秀丸で JScript を便利に使う方法 - ?D::MotionBros のブックマークコメント

.js ファイルを編集しては実行したい場合は下記のマクロが便利

save-runJScript.mac

save ;
if( filetype == ".js" ){
    run "cmd /c CScript \"" + filename2 + "\" //Nologo //E:JScript & PAUSE" ;
}
endmacro ;

秀丸で VirtualDubMod を便利に使う方法

| 22:36 |  秀丸で VirtualDubMod を便利に使う方法 - ?D::MotionBros を含むブックマーク  秀丸で VirtualDubMod を便利に使う方法 - ?D::MotionBros のブックマークコメント

VitualDubMod の jobs ファイルを編集しては実行する場合は下記のマクロが便利

保存して実行

save-runVirtualDubModJobs.mac

save ;
if( filetype == ".jobs" ){
    $exe    = "C:/Program Files/VirtualDubMod_1_5_10_2_All_inclusive/VirtualDubMod.exe" ;
    message $exe ;
    run "\"" + $exe + "\"/c /x /s\"" + filename2 + "\"" ;
}
endmacro ;

2010-07-07 Wed

秀丸で AutoHotKey を便利に使う方法

| 00:59 |  秀丸で AutoHotKey を便利に使う方法 - ?D::MotionBros を含むブックマーク  秀丸で AutoHotKey を便利に使う方法 - ?D::MotionBros のブックマークコメント

AutoHotKey というのは Windows でキーマップを変えたり自動処理を作れるスクリプトなのですが、スクリプトを書いては実行というのが面倒なので下記のようなマクロを書いてみました。

保存して実行

save-runAutoHotKey.mac

save ;
if( filetype == ".ahk" ){
    run "C:/Program Files/AutoHotkey/AutoHotkey.exe " + filename2 ;
}
endmacro ;

保存してexe化

save-ahk2exe.mac

save ;
if( filetype == ".ahk" ){
    message( "ahk2exe " + filename2 ) ;
    run "C:/Program Files/AutoHotkey/Compiler/Ahk2Exe.exe /in " + filename2 ;
}
endmacro ;
Error : RSSが取得できませんでした。
最新言及ISBN/ASIN 20 件
  • ワイヤレスサラウンドヘッドセット
  • アンチャーテッド 海賊王と最後の秘宝 デラックスエディション 【早期購入特典】オリジナルPlayStation4テーマ同梱&【Amazon.co.jp限定】武器カスタムスキン「雪原用武器」が入手できるプロダクトコード付
  • BUFFALO Giga 11n/a&11n/g AOSS2対応 無線LAN親機 【Wii U動作確認済み、iPhone5・Android端末対応】 WZR-600DHP
  • FUJITSU ScanSnap S1500 FI-S1500
  • カール事務器 裁断機 ペーパーカッター A4対応 40枚裁断 DC-210N
  • 月に囚われた男 コレクターズ・エディション [DVD]
  • 月に囚(とら)われた男 [Blu-ray]
  • エスター [Blu-ray]
  • エスター [DVD]
  • ドロップ スペシャル・エディション [DVD]
  • ドロップ スタンダード・エディション [DVD]
  • アヒルと鴨のコインロッカー [DVD]
  • Sucker Punch
  • アマルフィ 女神の報酬 スタンダード・エディション [DVD]
  • アマルフィ 女神の報酬 ビギンズ・セット ブルーレイディスク (本編BD+特典DVD)2枚組 [Blu-ray]
  • ロード・トゥ・パーディション <特別編> [DVD]
  • ロード・トゥ・パーディション [Blu-ray]
  • 海がきこえる [DVD]
  • なくもんか 豪華版 <初回生産限定> [DVD]
  • なくもんか [Blu-ray]
レビューまとめはこちら
2005 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2006 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2008 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2011 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2012 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2013 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2016 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |