//--VBSの関数を実行
PUBLIC scpt=CreateOleObj("ScriptControl")

//--sample
res=vbs("FormatDateTime(Now, 0)")
Msgbox("今日は"+res+"です。")
res=vbs("FormatDateTime(Now, 1)")
Msgbox("今日は"+res+"です。")

Function vbs(str)
   scpt.language="VBScript"
   src="Function re():re=$_func_$:End Function"
   src=Chgmoj(src,"$_func_$",str)
   scpt.AddCode(src)
   Result=scpt.Run("re") 
Fend

VBSのNow関数はUWSCでいうところのGetitem関数のようなものFormatDateTimeは日付をフォーマットする関数です。
今日が3/1だとしてこのsampleを実行すると結果は以下のようになります。

-結果-

• 今日は2012/03/01 22:00です。
• 今日は2012年3月1日です。

VBSの関数に関してはこちらなど参考にするといいでしょう。

もう2年も前のやつなんで、なんでこういう書方してるのか自分でもさっぱりわからなくて結構手間取りましたがなんとかｗ
あと、CSVでの保存もできるようにしときました。

id=Getid("Tween更新確認","WindowsForms10.Window.8",-1)
Clkitem(id,"NO")

これを保存してUWSCのスケジュールに指定し
指定ウィンドウが現れたときを選んでタイトル"Tween更新確認"を指定してあげればよし
クラスは指定してもいいですがスケジュールのクラスは部分一致で設定できないので
"WindowsForms10.Window.8"じゃだめですのでちゃんと調べて設定してください。
クラス指定は無くても大丈夫です。

そこでアイテムリストから入れ子状のulを簡単に作成してしまおうという試み。

たとえばこういう入れ子状のulを作りたいとします。

その場合以下のサンプルの用にTEXTBLOCKの中にアイテムをリスト状に記入し入れ子の階層はTABで表現します

すると、クリップボードの中に入れ子状のULタグに変換されたHTMLタグが入る寸法です。

TEXTBLOCK data
item1
item2
	item2-1
	item2-2
item3
	item3-1
	item3-2
		item3-2-1
		item3-2-2
	item3-3
item4
ENDTEXTBLOCK

//--class指定
ul_class=""   //例："navi"→class="navi"
li_class=""   //

//------ main -----
Dim popm[]="TEXTBLOCKから","クリップボードから"
p=Popupmenu(popm)
ifb p=0
   data_list=data
elseif p=1
   data_list=Getstr(0)
else
   ExitExit
endif
ind=0
tag="<ul$_ul_$><#CR>"
ul=split(data_list,"<#CR>")
for i=0 to length(ul)-1
   t=-1
   Repeat
      t=t+1
      str=Token("<#TAB>",ul[i])
   Until ul[i]=""
   tab=""
   for i=0 to t-1;tab=tab+"<#TAB>";next
   ifb t>ind
      tag=tag+tab+"<ul$_ul_$><#CR>"+tab+"<#TAB><li$_li_$>"+str+"</li><#CR>"
   elseif t=ind
      tag=tag+tab+"<#TAB><li$_li_$>"+str+"</li><#CR>"
   else
      tag=tag+tab+"<#TAB></ul><#CR>"+tab+"<#TAB><li$_li_$>"+str+"</li><#CR>"
   endif
   ind=t
next
tag=tag+"</ul>"
if !(ul_class="") then ul_class=" class=<#DBL>"+ul_class+"<#DBL>"
if !(li_class="") then li_class=" class=<#DBL>"+li_class+"<#DBL>"
tag=Chgmoj(tag,"$_ul_$",ul_class)
tag=Chgmoj(tag,"$_li_$",li_class)
Sendstr(0,tag)

サンプルスクリプト実行後の結果

<ul>
   <li>item1</li>
   <li>item2</li>
   <ul>
      <li>item2-1</li>
      <li>item2-2</li>
   </ul>
   <li>item3</li>
   <ul>
      <li>item3-1</li>
      <li>item3-2</li>
      <ul>
         <li>item3-2-1</li>
         <li>item3-2-2</li>
      </ul>
      <li>item3-3</li>
   </ul>
   <li>item4</li>
</ul>

起動時にTEXTBLOCKから作成するかクリップボードから作成するか効いて来るので情況に応じて利用してください。
ちなみにクラス指定もできるので指定してあげれば適用されます。

余談：pre内でTABを表現するのには	と書けばイイらしいですね知りませんでした。

こういうところはサクッとUWSCでやってしまいたい。

運用は自分の場合はOrchisというランチャーだがショートカット作成してタスクトレーのクックメニューなりUWSCのランチャーなり使えばいい。

//--環境設定
Const folder_pass="***"   //ファイルの保管場所
Const format="smp"   //タイトルがデフォルト時の書式　例：smp12010105.uws
Const editer_pass="***"   //メモ帳などのお好きなエディタのフルパス

//--フィル保管場所のチェック
ifb copy(Folder_pass,Length(Folder_pass))="\"
   folder_pass_cheked=folder_pass
else
   folder_pass_cheked=folder_pass+"\"
endif

//--title
gt=Gettime()
now=G_TIME_YY2+G_TIME_MM2+G_TIME_DD2+G_TIME_HH2
title=Input("title",format+now)
if title=EMPTY then ExitExit

//--ファイル作成＆エディタ起動
dir=folder_pass_cheked+title+".uws"
file=Fopen(dir,F_WRITE)
Fclose(file)
dir="<#DBL>"+dir+"<#DBL>"
exec(editer_pass+" "+dir)

スクリプト的ポイントはファイルの作成にFopenを使ってるところぐらい。存在しないファイルをFopenで開きFcloseするとファイルが作成される。

という事で今回はVBScriptのRegExpを使ったサンプル

正規表現のパターンの書方に関しては詳しく説明しないので各自ご確認を

RegExpのプロパティには以下のプロパティがあります。

Patternプロパティ	正規表現で使用するパターン
IgnoreCaseプロパティ	大文字と小文字を区別する（デフォルト：False）
Globalプロパティ	文字列全体を検索する（デフォルト：False）

RegExpのメソッドには以下のメソッドがあります。

Executeメソッド	Patternとマッチした結果をMatchesコレクションで返します。
Replaceメソッド	Patternとマッチした結果をを置換文字列と置き換えます。
Testメソッド	Patternとマッチした場合はTrueを返します。

Executeメソッドのサンプル

PUBLIC regvb = CreateOLEObj("VBScript.RegExp")

   //--sample
   //str="2012年1月1日～2012年1月30日"
   //Pattern="\d+年(\d+月\d+日)"
   //
   //Matches=regvb_Execute(str,Pattern)
   //for i=0 to Matches.Count-1
   //   Print Matches.item(i).Value
   //   Print Matches.item(i).SubMatches(0)
   //   Print Matches.item(i).FirstIndex
   //   Print Matches.item(i).Length
   //next
   
//--
Function regvb_Execute(str,Pattern,IgnoreCase=true,Global=true)
   regvb.IgnoreCase = IgnoreCase
   regvb.Global = Global
   regvb.Pattern=Pattern
   Matches = regvb.Execute(str)
   Result=Matches
Fend

Executeメソッドを実行して帰ってくる戻値Matchesコレクションは以下のプロパティがあります。

Countプロパティ	Matchオブジェクトの個数
Itemプロパティ	MatchオブジェクトをMatches.Item(数字)で返す

Matchオブジェクト（=Matches.Item(数字)）には以下のプロパティとコレクションがあります。

Valueプロパティ	マッチした文字列を返す。
Lengthプロパティ	マッチした文字列の長さを返す。
FirstIndexプロパティ	最初にマッチに成功した位置を返す。先頭は0から。
SubMatchesコレクション	「（）で括られた」パターングループにマッチしたコレクションを返す。

sampleを実行すると以下の結果になる

---------結果-------
2012年1月1日
1月1日
0
9
2012年1月30日
1月30日
10
10
------------------------

最初にマッチしたのは「2012年1月1日」でSubMatches(0)は「1月1日」文字位置は「0」で文字列の長さは9文字

Replaceメソッドのサンプル

PUBLIC regvb = CreateOLEObj("VBScript.RegExp")

	//--sample
	//str="2012年1月1日～2012年1月30日"
	//Pattern="\d+年"
	//Print regvb_Replace(str,Pattern,"2013年")

//--
Function regvb_Replace(str,Pattern,replStr,IgnoreCase=true,Global=true)	
	regvb.IgnoreCase = IgnoreCase
	regvb.Global = Global
	regvb.Pattern=Pattern
	str = regvb.Replace(str,replStr)
	Result=str
Fend

sampleを実行すると以下の結果になる

---------結果-------
2013年1月1日～2013年1月30日
------------------------

TestメソッドはMatches.countが0だと失敗、0以上だと成功という風にExecuteで代用できるので省略します。

環境設定

ツール→sleipnirオプション→全般→「スクリプトによるクライアントの操作を許可する」にチェック

OLEオブジェクト作成とアクティブなタブの取得

pnir=CreateOLEobj("Sleipnir.API")
tab=pnir.ActiveIndex　　　　　　　　　　　　//アクティブなタブのタブ位置
id＝pnir.GetDocumentID(tab)　　　　　　　　//タブのID
tab_obj= pnir.GetWebBrowserObject(id)　　//タブのWebBrowserオブジェクト

短縮すると・・

pnir=CreateOLEobj("Sleipnir.API")
tab_obj= pnir.GetWebBrowserObject(pnir.GetDocumentID(pnir.ActiveIndex))

この戻り値tab_objは

IE=CreateOLEObj("InternetExplorer.Application")

で作成される戻り値IEとほぼ同等

なので

pnir=CreateOLEobj("Sleipnir.API")
IE=pnir.GetWebBrowserObject(pnir.GetDocumentID(pnir.ActiveIndex))

として戻り値をIEとしてしまった方がIE用に作ったFunction等が流用できるので便利

例えば・・
こんな風に使える

ifb Msgbox("IE場合はYes、pnirの場合はNo",BTN_YES or BTN_NO)=BTN_YES
	IE=CreateOLEObj("InternetExplorer.Application")
	IE.Visible=true
else
	pnir=CreateOLEobj("Sleipnir.API")
	IE=pnir.GetWebBrowserObject(pnir.GetDocumentID(pnir.ActiveIndex))
endif

IE.Navigate("http://www.yahoo.co.jp/")
BusyWait(IE)
doc=IE.document
Msgbox(doc.url)
//------
Procedure BusyWait(IE)
	Const TIME_OUT = 90
	tm = Gettime()
	repeat
		Sleep(0.2)
		ifb Gettime() - tm > TIME_OUT
			MsgBox("Time Out:BusyWait")
			ExitExit
		endif
	until (! ie.busy) and (ie.readyState=4)
	Sleep(0.5)
Fend

できないのはIE.Navigate2で新規タブを開く操作 IE.quitで閉じる操作ぐらいでほぼIEと同等の操作ができる。

Sleipnir特有の操作

詳しくは公式リファレンス見て欲しいんですが主な操作をいくつか

新規タブを開く

id=pnir.newwindow(URL,true) 

trueで新規タブをアクティブにする

例）IE=pnir.GetWebBrowserObject(pnir.newwindow(URL,true))

開いてるタブの数

pnir.GetCount

タブを閉じる

pnir.Close(id)

• Internet Explorer 8 で使うショートカット キー
• フェンリル | フリーソフト | Sleipnir | Sleipnir キーボードショートカット
• キーボードショートカット | 操作方法 | Firefox ヘルプ
• Windows でのキーボード ショートカット - Google Chrome ヘルプ
• Excel 2010 のショートカット キー - Office Starter - Office.com

IEのダイアログ版はこら
溺れる者はUWSCを掴め！ - IEでサイトからダウンロード

//------------------------------------------
//動作環境 XPsp3,IE8で確認
//---------------<書式>-------------------
//      AdoDownLoad(ファイルのURL[,保存先フルパス,保存名,上書き設定])
//      ※[]内省略可

//------<初期設定>-------
PUBLIC Stream=CreateOLEObj( "ADODB.Stream" )
PUBLIC oHttp=CreateOLEObj("MSXML2.XMLHTTP")
PUBLIC defalt_over_w=false   //上書き初期設定（上書きする:True しない:false）
//------</初期設定>------

//---------------<sample 1>-------------------

url="http://***.com/007.jpg"   //ダウン先
dl_pas="C:\Down"      //保存場所のフルパス
dl_name="sample.jpg"   //保存名
over_w=false

AdoDownLoad(URL,dl_pas,dl_name,over_w)

//---------------<sample 2>-------------------

//URL以外デフォルト設定の場合
url="http://***.com/007.jpg"   //ダウン先
//※ファイル名は最後の"/"以下になる

AdoDownLoad(URL)


//--
Procedure AdoDownLoad(url,dl_pas="",dl_name="",over_w=defalt_over_w)
   sleep(1)
   ifb dl_name=""
      dl_name=Betweenstr(url,"/",,-1)
   endif
   ifb !(dl_pas="")
      ifb !(copy(dl_pas,Length(dl_pas))="\")
         dl_pas=dl_pas+"\"
      endif
   endif
   dl_pas=dl_pas+dl_name
   oHttp.Open("GET",url,0)
   oHttp.Send
   GetStream(oHttp.responseBody,dl_pas,dl_name,over_w)
Fend
//--
Procedure GetStream(obj,dl_pas,dl_name,over_w)
   ifb over_w
      over_w=2
   else
      over_w=1
   endif
   Stream.Open
   Stream.Type=1
   Stream.Write=obj
   COM_ERR_IGN
      Stream.SaveToFile(dl_pas,over_w)   
   COM_ERR_RET
   Stream.Close
Fend