[UWSC]の記事一覧 | satocchiaブログ

デバッグ中かどうか自動判定

UWSCスクリプトを作るとき、最初にpublic DEBUG=trueなんておまじないを付けているのは私だけではないはず。でも、これってtrue/falseを設定し忘れたりすると、結構めんどいことになることもあります。ECサイトで思いがけずポチっちゃったりして。で、自動でデバッグ中かどうかを返す関数を作ってみました。デバッグ中かどうか、なんてどうしてわかるの？　という方はスクリプトを読んでください。IsInDebug.uwsif Get_Uwsc_Name="IsInDebug.uws" msgbox( IsInDebug() )endiffunction isInDebug() with createoleobj("WbemScripting.SWbemLocator") getOleItem(.ConnectServer.ExecQuery( "SELECT * FROM Win32_Process" )) endwith ParentPid="" ParentName="" for process in All_Ole_Item if process.processid=status(getid(GET_THISUWSC_WIN), ST_PROCESS) ParentPid=process.ParentProcessId break endif next for process in All_Ole_Item if process.processid=ParentPid ParentName=process.Name ParentName=copy( ParentName, 1, length(ParentName)-4 ) endif next result=!(!pos( ParentName, MyEditors ))textblock MyEditorssakura mery code atomendtextblockfendスクリプトの冒頭でコールしておけば、必要な時if IsInDebug()とかで制御できます。デバッグ中かどうかの判定は、エディタから起動したかどうか。ただそれだけ。テキストブロックに使いそうなエディタを書いておけば大抵用は足りると…。

2020.12.19

コメント(0)

UWSCダイアログのタイトル変更

inputにタイトルを表示するの新バージョン。前回はinputボックスだけを考えてみたけど、ほかのダイヤログも変えられないかなあと思って。そこで、考えたのは一時UWSCファイルを作って呼び出してみてはどうか。CallSub関数を作ってみたら、結構うまくいきました。第二引数をtrueにすると、サブ側でstdout(出力文字列)を実行することで、呼び出し元に値（文字列オンリー）を返せます。inputの使用例はこんな感じres=CallSub(sample,true)msgbox( res )textblock sample //サブプログラムoption DLGTITLE="入力してください" //ダイヤログタイトルの変更stdout(input( "サブプログラムからの入力プロンプト","既定値",,60,60 ))endtextblockCallSubUwsc.uwsfunction CallSub( AllText, isFunction=false ) fso=CreateOleObj("Scripting.FileSystemObject") repeat tmp=fso.GetTempName tempuws=Copy(tmp, 1, length(tmp)-4)+".uws" tempuws=fso.GetSpecialFolder(2) + "\" + tempuws until !fopen(tempuws, f_exists) if isFunction UWSText=AllText + "<#CR>" + stdout_uws else UWSText=AllText endif fd=fopen( tempuws, f_write16 ) fput( fd, UWSText, f_alltext ) fclose( fd ) UWSCEXE=GET_UWSC_DIR+"\uwsc.exe" if isFunction result=doscmd( UWSCEXE + " " + tempuws +"|more" )//このmoreを外すとなぜかエラーになります。ご注意を。 else exec( UWSCEXE + " " + tempuws ) endif deletefile(tempuws)textblock stdout_uws procedure StdOut(text) with CreateOleObj("Scripting.FileSystemObject") .GetStandardStream( 2 ).WriteLine( text ) endwith fendendtextblockfend

2020.11.25

コメント(0)

XMLでなんちゃってDB

仮掲示板での質問「配列を組み合わせて集計したい」。さすがstuncloudさんがさくっと回答しておられました。質問は件数を数えるだけだったので、複数の属性をそのまま文字列としてくっつけ連想配列で処理するというものでした。とはいえ、複数の属性にまたがったしぼ売込み絞り込み条件で検索・列挙・集計したいとなると単純な配列や連想配列では荷が重すぎます。こういうのは普通、データベースを構築してSQL文でクエリーを行うのでしょうけど、DBの構築だけでも結構な作業。UWSC一本でシンプルにできないかと考え、XMLの要素を探索するxpath式でクエリーを発行することを考えました。お題は質問と同じ果物でやってみました。どうせなら本格的なものを、と、農水省謹製のCSVを（ここらへんからリンクをたどって）拾って解析しています。なんちゃってDB.uws//青果市況をXMLに読み込みSQL文//IEがいると邪魔なので殺すpowershell("ps iexplore|kill")//XMLの準備xml=createoleobj( "Msxml2.DOMDocument.6.0" )xml.loadxml("<?xml version='1.0' encoding='utf-16'?><fruits/>")rootnode=xml.selectSingleNode("//fruits")//msgbox(xml.xml)//WebからCSVを落としてきて、XMLに読み込むCsvString=getFruitsMarketData()CsvTexts=split(CsvString,"<#CR>")sendstr(0,CsvTexts[0])titles=split(CsvTexts[0],",")for i=1 to length(CsvTexts)-1 terms=split(CsvTexts[i], ",") node=xml.createElement( "fruit"+i ) for j=0 to length( titles )-1 subnode=xml.createElement( titles[j] ) subnode.text=terms[j] node.appendChild(subnode) next rootnode.appendChild(node)next//べつにセーブする必要はないけれど書き出しておくほうが便利saveXmlWithIndent( xml, "C:\Users\satocha\Desktop\fruits.xml" )////////////////ここからDB（実はただのXML）へのクエリーをやってみる//温州みかんの産地を調べるfukidasi("温州みかんの産地を調べる")hashtbl ProducingAreafor node in getoleitem(xml.selectNodes("//品目名[contains(text(),'温州')]")) area=node.parentNode.selectSingleNode("産地名").text if area <> "" ProducingArea[ area ]="dmy" endifnextfor i=0 to length(ProducingArea)-1 msgbox( ProducingArea[i,hash_key] )next//愛媛産の果物をリストアップするfukidasi("愛媛産の果物をリストアップする")hashtbl FruitsOfEhimefor node in getoleitem(xml.selectNodes("//産地名[text()='愛　媛']")) fruit=node.parentNode.selectSingleNode("品目名").text if area <> "" FruitsOfEhime[ fruit ]="dmy" endifnextfor i=0 to length(FruitsOfEhime)-1 msgbox( FruitsOfEhime[i,hash_key] )next//////////////////////////////関数定義//セーブ用関数　いらないんだけどどうせならきれいにインデントしてセーブfunction saveXmlWithIndent( xml, path ) writer =createoleobj( "MSXML2.MXXMLWriter" ) reader =createoleobj("MSXML2.SAXXMLReader") fso =createoleobj("Scripting.FileSystemObject") textStream = fso.CreateTextFile( path, 1, -1 ) writer.indent = true writer.omitXMLDeclaration = true reader.contentHandler = writer reader.parse( xml ) textStream.Write(writer.output) textStream.Close() result=fopen( path, f_exists )fend//農水省の青果市況情報をCSVに落とす関数。//今回の主眼はスクレイピングじゃないのでやっつけ仕事。//IEの設定によっては手直しが必要function getFruitsMarketData( market="豊洲" ) BaseUrl="https://www.seisen.maff.go.jp/seisen/bs04b040md001/BS04B040UC010SC999-Evt001.do" Ie=CreateOleObj( "InternetExplorer.Application" ) Ie.Navigate( BaseUrl ) repeat fukidasi("waiting") try if !Pos( "青果物市況情報画面", Ie.document.title ) continue endif except continue endtry fukidasi("") break until false DateStr="" hashtbl ATagList for ATag in getoleitem( Ie.Document.GetElementsByTagName("A") ) text=trim(ATag.innerText) if Copy( text, 5, 1 )<>"年" then continue DateStr=DateStr+" "+text ATagList[ text ]=ATag.href next DateArray=split( trim(DateStr), " " ) qsort(DateArray,QSRT_NATURALD) Newest=DateArray[0] Ie.Navigate( ATagList[Newest] ) repeat fukidasi("waiting") try if !Pos( "東京都中央卸売市場豊洲市場", Ie.document.body.innerText ) continue endif except continue endtry fukidasi("") break until false hashtbl TdTagList for TdTag in getoleitem( Ie.Document.GetElementsByTagName("TD") ) text=trim(TdTag.innerText) if Pos( market, text ) if !pos( "<td>", TdTag.innerHTML ) break endif endif TdTag=null next if TdTag<>null getOleItem( TdTag.NextSibling.NextSibling.NextSibling.NextSibling.GetElementsByTagName("A") ) Ie.Visible=true all_ole_item[1].click() clkitem( getid( Ie.Document.title ) ,"保存",CLK_ACC) Ie.Visible=false else msgbox( "市場:" + market + "が見つかりません" ) exit endif Ie.Quit() //ダウンロードフォルダに落ちてくると決め打ち。ダウンロード失敗も考慮していない。 DLFolder=replace(Get_Appdata_Dir,"Appdata\roaming","Downloads" ) n=GetDir( DLFolder, "*.csv", true, 2 ) if n > 0 csv=DLFolder + "\" + getdir_files[n-1] fd=fopen( csv, f_read ) result=fget(fd,f_alltext) fclose(fd) deletefile( csv ) endiffend

2019.12.23

コメント(0)

powershellを起動しっぱなしにする

uwscのpowershell関数にあれこれ悩んでいます。まず、起動が遅い。起動するためのオーバーヘッドは半端ないんだろうな。しかも、起動したpowershellのインスタンスを再利用できません。前回の結果を次のセッションで利用することができず、いつも単発の呼び出しだけ。じゃ、uwscからpowershellを呼ぶんじゃなくて、powershellからuwscを呼べばいいんじゃない？　あるんですよ。stuncloud さんのPoshUwscとかしゅんさんのpowershell_uwsc_bridgeとか。でも、uwscメーンで、powershellのインタンスを１回起動したら、そのあとそのインスタンスとやり取りしたいってのもあってもいいんじゃない。つまり、powershellを起動しっぱなしにする。powershell側に目に見えないGUIを持たせてUWSCから操縦するってのを作ってみました。uwscユーザーですので、ソケットとかHTTPサーバとかじゃなく、ひたすらgetid sendstr clkitem getstrでいきます。※debugをtrueにすればGUIが見えます。※以前やったUWSCのpowershell関数をスピードアップの改訂版です。呼び出し例StayOnPs.debug=falsesop=StayOnPs.new()msgbox(StayOnPs.execute("ls"))msgbox(StayOnPs.execute("ls .."))stayOnPS.uwsmodule StayOnPs dim instancemax=10 hashtbl instance public DEBUG=true function new() if length(instance)>instancemax msgbox("powershellの実行数が上限を超えました") exit endif uwsPid=status(getid(get_thisuwsc_win),st_process) result=uwsPid + "_" + gettime() result=result + "_" + g_time_zz2 src=replace(psdlg_src,"<TITLE>",result) src=replace(src,"<UWSPID>", uwsPid) if DEBUG src=replace(src,"<DEBUG>", "$true") else src=replace(src,"<DEBUG>", "$false") endif powershell(src,true,false) id=getid(result,,5) if status(id, st_isid) ctrlwin(id,show) instance[result]=1 else msgbox("powershellの実行に失敗") exit endif textblock psdlg_srcadd-type -assembly system.windows.forms$title="<TITLE>"$uwsPid="<UWSPID>"$doNotShow=!<DEBUG>$prompt="sop>"$timer=new-object windows.forms.timer -property @{interval=55}$form=new-object windows.forms.form -property @{text=$title}$timer.add_tick({ if(ps -id $uwsPid){ }else{ ps -id $pid|kill }})$form.add_shown({$timer.start()})$base=new-object windows.forms.flowlayoutpanel -property @{dock="fill";parent=$form}$inBox=new-object windows.forms.textbox -property @{ parent=$base; multiline=$true; text=$prompt}$outLabel=new-object windows.forms.label -property @{ parent=$base; text=$prompt}$clr=new-object windows.forms.button -property @{ parent=$base; text="reset"}$exe=new-object windows.forms.button -property @{ parent=$base; text="exec"}$quit=new-object windows.forms.button -property @{ parent=$base; text="quit"; dialogresult="ok"}$clr.add_click({ $outLabel.text=$prompt $inBox.text=$prompt})$exe.add_click({ try{ $res=iex $inBox.text }catch{ $res=$error[0] } $outLabel.text=$res $inBox.text=$prompt})if ($doNotShow){ $form.opacity=0.01 $form.formborderstyle="none"}$form.showdialog() endtextblock fend function quit(title="newest") if title="newest" title=instance[length(instance)-1,hash_key] endif result=clkitem( getid(title), "quit" ) if result endif fend procedure quitAll() for i =0 to length(instance)-1 this.quit( instance[i, hash_key ]) next fend function execute(str,title="newest") if title="newest" title=instance[length(instance)-1,hash_key] endif id=getid(title) clkitem(id,"reset") sendstr(id,str,1,true) clkitem(id,"exec") repeat result=getstr(id,0,str_acc_static) until result<>"sop>" fend endmodule

2019.10.05

コメント(0)

トースター通知っていうんですか、それ

仮掲示板で質問があったんで思わずググってしまいました。W10だとなんかやたらいろんな通知が画面の端から上がってくるんですが、あれのことらしいです。で、その機能はWindows８以降限定とのことで、７ユーザーとしては邪魔者でも「できない」といわれるのはシャクで。でタスクトレイからのバルーンチップを上げることで、似た感じになるのではと。trayBalloon.uwsif Get_Uwsc_Name="trayBalloon.uws" trayBalloon()endiffunction trayBalloon( title="uwscからの通知",message="uwscからの通知本文", toolTipIcon = "Info" ) textblock trayBalloon_ps powershell -sta -command @' add-type -assemblyname System.Windows.Forms add-type -assemblyname System.Drawing [string]$tilte = '<TITLE>' [string]$message = '<MESSAGE>' [string]$toolTipIcon = '<toolTipIcon>' $exepath='UWSCEXE' $notifyIcon = New-Object System.Windows.Forms.NotifyIcon try{ $icon = [System.Drawing.Icon]::ExtractAssociatedIcon($exepath) }catch{ $newpath=join-path $Env:Temp (split-path -leaf $exepath ) cp $exepath $newpath $icon = [System.Drawing.Icon]::ExtractAssociatedIcon($newpath) } $notifyIcon.Icon = $icon $notifyIcon.Visible = $true $notifyIcon.ShowBalloonTip( 500, $tilte, $message, $toolTipIcon) '@ endtextblock select toolTipIcon case "None","Info","Warning","Error" //do nothing default toolTipIcon="Info" selend src=replace( trayBalloon_ps, "UWSCEXE", GET_UWSC_DIR + "\uwsc.exe" ) src=replace( src, "<TITLE>", title ) src=replace( src, "<MESSAGE>", message ) src=replace( src, "<toolTipIcon>", toolTipIcon ) result=powershell( src )fend

2019.09.27

コメント(0)

uwscでGUIフォーム

HTAだとセキュリティに引っかかるとのことなので、powershell経由でwindows.formsのwebbrowserコントロールで書いてみました。これなら、HTMLの知識で書けます。textblock formsource<h1>お料理申し込み</h1>メニュー<select id="sel_menu" name="sel_menu">　　<option selected>和食</option>　　<option>中華</option>　　<option>洋食</option></select><br/>お一人さまご予算<select id="sel_price" name="sel_price">　　<option selected>1500円未満</option>　　<option >1500円～4999円</option>　　<option >5000円以上</option><select/><br/>人数<input type="text" id="howmany" name="howmany" value="1" style="width:80px"/><br/>コース<input type="radio" name="courese" value="lunch" checked>ランチ　　<input type="radio" name="courese" value="dinner">ディナー<br/>特記事項<input type="checkbox" name="special" value="nosmoking">禁煙　<input type="checkbox" name="special" value="child">お子様連れendtextblockres=getFormResult( formsource )msgbox(res)function getFormResult( HTML ) result =powershell( replace(pssrc,"dummy",HTML ) )fendtextblock pssrc$PSSRC=@'add-type -assembly system.windows.formsfunction mkWFItem( $itemname, $parent, $atrb ){ $item=iex "new-object system.windows.forms.$itemname" if( $parent ){ $item.parent=$parent } if(( $atrb ) -and ( $atrb.gettype().name -eq "Hashtable" )){ $atrb.keys|%{ if ( $_ -like "add_*" ){ iex "`$item.$_( `$atrb.`$_ )" } else { $item.$_=$atrb.$_ } } } return $item}$base=mkWFItem form -a @{ text="UwscFormDialog"}$br=mkWFItem webbrowser -p $base @{ anchor=[System.Windows.Forms.AnchorStyles]"top" -bor [System.Windows.Forms.AnchorStyles]"right" ` -bor [System.Windows.Forms.AnchorStyles]"left" -bor [System.Windows.Forms.AnchorStyles]"bottom" width=$base.clientsize.width; height=$base.clientsize.height - 50; }$btn=mkWFItem button -p $base -a @{ text="ok"; top=$base.clientsize.height - 30 left=$base.clientsize.width - 120 anchor=[System.Windows.Forms.AnchorStyles]"bottom" -bor [System.Windows.Forms.AnchorStyles]"right"; add_click={ $br.document.invokescript("setReusult",$null) $br.document.getElementById("resdiv").innerText|write-host $base.close() }}$base.add_shown({ $br.navigate("about:blamk") while ($br.ReadyState -ne "complete"){ [System.Windows.Forms.Application]::DoEvents() } $HTML=@"<body><form name='uwscform' id='uwscform'>dummy</form><script>function setReusult(){ var uform=document.getElementById('uwscform') var resdiv=document.getElementById('resdiv') if( !resdiv ){ resdiv=document.createElement('div') resdiv.id='resdiv' resdiv.style='display:none' resdiv.appendChild(document.createTextNode("dmy")) document.body.appendChild(resdiv) } resdiv.innerHTML='' var selects=uform.getElementsByTagName( 'select' ) for( var i=0,len=selects.length; i< len;i++ ){ var select=selects[i] resdiv.innerHTML+=select.name + '=' + select.options[select.selectedIndex].outerHTML+'<br/>' } var inputs=uform.getElementsByTagName( 'input' ) for( var i=0,len=inputs.length; i< len;i++ ){ var input=inputs[i] if ( !input.type ||( input.type.match(/^text$/i) )){ resdiv.innerHTML+=input.name + '=' + input.value+'<br/>' continue; } if ( input.type.match(/^(radio)|(checkbox)$/i) && input.checked ){ resdiv.innerHTML+=input.name + '=' + input.value+'<br/>' continue; } } var textareas=uform.getElementsByTagName( 'textarea' ) for( var i=0,len=textareas.length; i< len;i++ ){ var textarea=textareas[i] resdiv.innerHTML+=textarea.name + '=' + textarea.value+'<br/>' }}</script></body>"@ $br.document.write($HTML)})[void]$base.showdialog()'@$encoded=[Convert]::ToBase64String([System.Text.Encoding]::Unicode.GetBytes( $PSSRC )) -replace "[\r\n]",''powershell -sta -encodedcommand $encodedendtextblock

2019.05.12

コメント(1)

powershellを起動オプション付きで実行する

UWSCのビルトイン関数「powershell」は、端末デフォルトのpowershellを起動しているみたいです。　なので、Win7マシンでexecutionpolicyをいじっていない場合、外部スクリプトの実行不可でスレッドアパートンメントはMTAの状態でpowershellを動かします。　windows.formsでGUI画面を出力したり、自作ライブラリを読み込んだりといった使い方ができないので、対策。使い方はこんな感じ。call OptionedPowershell.uwsdim options[]="-sta","-executionplicy bypass"textblock src[threading.thread]::CurrentThread.GetApartmentState()get-ExecutionPolicyendtextblockmsgbox( OptionedPowershell( src, options ) )　　OptionedPowershell.uwsfunction OptionedPowershell( src, options[] ) encodedSource =powershell( "[Convert]::ToBase64String([System.Text.Encoding]::Unicode.GetBytes( '" + src + "' ))" ) encodedSource =replace( encodedSource, "<#CR>", "" ) result =powershell( "powershell " + join( options, " " ) + " -EncodedCommand " + encodedSource )fend

2019.03.25

コメント(0)

inputにタイトルを表示する

uwscの組み込みインプットボックス関数「input」は機能豊富ですが、入力ダイヤログのタイトルは自由に設定できません。　　Option DlgTitleで値を設定すればその文字列、無指定なら　"UWSC - "+Get_Uwsc_Nameがタイトルに表示されます。Option DlgTitleはinputのみならずmsgboxなどほかのUWSC組み込みダイヤログのタイトルと共用なので、使い勝手はよくありません。確か、途中で値を変更することもできません。検証スクリプト　//option dlgtitleは何回も書けるが効果があるのは最後の１回だけ。//下のmsgboxは３回ともt「itle 2」msgbox("aaa")option dlgtitle="title 1"msgbox("aaa")option dlgtitle="title 2"msgbox("aaa")　そこで、タイトル付きインプットボックス関数「inputbox」を作ってみました。＜ポイント＞VB.NETのinputboxはタイトルを付けられるので、powershell経由で呼びます。ただし、UWSCのpowershell関数からwindows.forms出力しても（VB.NETのinputboxもwindows.formらしい）、出力が隠されてしまいます。powershell関数の第三引数をtrueにすると表示できるがpowershellの出力を受け取れなくなってしまいます。そのため、inputboxを実行したらそのウインドウをctrlwin(id,show)してやります。同時並行処理となるのでスレッド展開します。ウインドウIDはinputboxのタイトル名とウインドウクラス名（先述の通り「WindowsFormsほにゃらら」）で指定します。念のため実行ファイルがpowershell.exeであることも確認しています。inputbox.uwsif GET_UWSC_NAME = "inputbox.uws" a=inputbox( "入力してください", "input_テスト中" ) msgbox(a)endiffunction inputbox( msg="", title=GET_UWSC_NAME ) src ="[void][Reflection.Assembly]::LoadWithPartialName(<#DBL>Microsoft.VisualBasic<#DBL>);" src =src+"[Microsoft.VisualBasic.Interaction]::InputBox(<#DBL>@@@msg@@@<#DBL>,<#DBL>@@@ittle@@@<#DBL>);" thread inputbox_sub( title ) result=powershell( replace( replace( src, "@@@msg@@@", msg ), "@@@ittle@@@", title ) )fendprocedure inputbox_sub(title) while true for id in getallwin() if status( id, st_title ) <> title then continue if pos( "WindowsForms", status( id, st_class ) )<> 1 then continue if pos( "powershell.exe", status( id, st_path ) ) = 0 then continue break 2 next wend ctrlwin( id, show ) ctrlwin( id, activate ) ctrlwin( id, normal )fend20190320追記えらく手間をかけていますが、uwscからSTAモードでpowershellを起動すれば、別スレッドで表示させなくてもウインドウが出てくれます。そこで関数をこうすれば簡単。function inputbox( msg="", title=GET_UWSC_NAME ) src="powershell -sta -command <#dbl>" src =src + "[void][Reflection.Assembly]::LoadWithPartialName('Microsoft.VisualBasic');" src =src + "[Microsoft.VisualBasic.Interaction]::InputBox('@@@msg@@@','@@@ittle@@@');<#dbl>" result=powershell( replace( replace( src, "@@@msg@@@", msg ), "@@@ittle@@@", title ) )fend

2019.01.10

コメント(0)

キー同時読み込み

user32.dllの「GetKeyboardState」APIを使って複数キー読み込みをしてみました。同じことは組み込み関数のGetKeyStateでできるんですが、読み込みが１回でできます。仮想キーコードはここがよくまとまっているみたい。※１２・２６追記ソースのコメントをもう少し丁寧に書けば良かった。getPushedKeys()は押された複数のキーのキーコードを要素として持つ配列を返す関数です。各配列の値はキーコードです。例えば、得られた配列（値の昇順で入るみたい）の中に、65と66があれば、「A」と「B」が同時に押されたということが分かる仕掛けです。getPushedKeys.uwsif get_uwsc_name="getPushedKeys.uws" while 1 pushed =getPushedKeys() keys ="キーを押すと、下にキーコードが表示されます。alt+f2で終了<#CR>" for key in pushed keys =keys + key + "," next fukidasi( keys ) wendendiffunction getPushedKeys( skipToggles=true ) def_dll GetKeyboardState( var byte[] ):bool:user32.dll result ="" if skipToggles //トグル系のキーは何もしなくても押されたことになるのでデフォルトで排除 last =239 else last =255 endif buff =safearray( 0,last ) GetKeyboardState( buff ) for i =0 to last PushedKey =buff[ i ] if PushedKey > 127 result =result + i + "," endif next //余分なコンマを外す result =copy(result, 1, length( result )-1) result =split( result, "," )fend

2018.12.25

コメント(2)

自分自身のプロセスIDを知る

えらく遠回りでしか取得できません。2019/01/27追記バカバカバカ！status(getid(get_thisuwsc_win),st_process)で簡単ジャン。以下は恥ずかしいけど、自分の無知をさらしておきます。（１）自身のウインドウID→自身のウインドウハンドル→自身のプロセスID手間がかかっているようですが、（２）より速い。pid=-9999def_dll GetWindowThreadProcessId( dword, var dword ):dword:user32.dllGetWindowThreadProcessId( idtohnd(getid( get_thisUWSC_Win )), pid )msgbox(pid)（２）powershell起動→$pidでpowershell自身のプロセスID取得→プロセス取得→親プロセス（つまりUWSC）のプロセスID取得遅いのはpowershell起動のオーバーヘッドのせいでしょうか。msgbox(trim( powershell( "(gwmi Win32_Process -filter ProcessId=$pid).ParentProcessId" ) ))

2018.12.19

コメント(0)

N進数と十進変換

しろまささんブログに触発され、N進変換を書いてみました。siromasa進数には未対応。ChangeRadix.uwsif Get_UWSC_Name="ChangeRadix.uws" //1121を36進法で表示→v5 msgbox( NumbertoRadix( 1121, 36 ) ) //36進数「v5」の10進表示→1121 msgbox( RadixToNumber( "v5", 36 ) ) //36進を超えるとエラー→空文字 msgbox( NumbertoRadix( 1121, 38 ) )endiffunction NumbertoRadix( n, r ) com_err_ign with createoleobj( "ScriptControl" ) .language="JScript" .addCode( "function f(x,y){ return x.toString(y)}" ) result=.CodeObject.f(n,r) endwith com_err_ret if com_err_flg result="" endiffendfunction RadixToNumber( str, r ) com_err_ign with createoleobj( "ScriptControl" ) .language="JScript" .addCode( "function f(x,y){ return parseInt( x, y )}" ) result=.CodeObject.f(str,r) endwith com_err_ret if com_err_flg result="" endiffend

2018.12.19

コメント(0)

IEの履歴を個別に消す

しろまささん開設の掲示板に投稿したものと同じです。if get_UWSC_Name="deleteHistory.uws"　　ie　　=createoleobj( "internetexplorer.application" )　　ie.navigate("https://www.yahoo.co.jp")　　ie.visible　　=true　　msgbox( "ヤフーのページが表示されたらOKを押してください" )　　msgbox( "履歴を開いて「今日」のヤフーを確認してください" )　　msgbox( "ヤフーの履歴をUWSCで消します" )　　deleteHistorySite( "yahoo","今日" )　　msgbox( "履歴を開いて「今日」の履歴にないことを確認してください" )　　msgbox( "「今日」の履歴を丸ごとUWSCで消します" )　　deleteHistoryDate( "今日" )　　msgbox( "履歴を開いて「今日」の履歴が空（もしくは新規タブページのみ）になっていることを確認してください" )endiffunction　　deleteHistoryDate( DateString )　　thread pressYes()　　with createoleobj( "shell.application" )　　　　historyRoot=.namespace(34).items　　　　found　　=false　　　　for DatedHistory in historyRoot　　　　　　if DatedHistory.isfolder and (DatedHistory.name = DateString)　　　　　　　　found　　=true　　　　　　　　break　　　　　　endif　　　　next　　　　if !found　　　　　　result=""　　　　　　exit　　　　endif　　　　DatedHistory.invokeverb( "delete" )　　endwith　　//dialogid　　=getid()fendfunction　　deleteHistorySite( SiteString,DateString="今日" )　　thread pressYes()　　with createoleobj( "shell.application" )　　　　historyRoot=.namespace(34).items　　　　found　　=false　　　　for DatedHistory in historyRoot　　　　　　if DatedHistory.isfolder and (DatedHistory.name = DateString)　　　　　　　　found　　=true　　　　　　　　break　　　　　　endif　　　　next　　　　if !found　　　　　　result=""　　　　　　exit　　　　endif　　　　websites　　=DatedHistory.GetFolder.Items()　　　　found　　=false　　　　for website in websites　　　　　　if pos( SiteString, website.name )　　　　　　　　website.invokeverb( "delete" )　　　　　　endif　　　　next　　endwith　　//dialogid　　=getid()fendprocedure　　pressYes()　　while 1　　　　found　　=false　　　　for id in getallwin()　　　　　　if 　　status( id, st_title )="警告" and _　　　　　　　　status( id, st_class )="#32770"　　　　　　　　text　　=getstr(id,0,STR_ACC_STATIC)　　// = "次の履歴の項目を削除しますか? 今日"　　　　　　　　if pos( "次の履歴の項目を削除しますか?", text )　　　　　　　　　　found　　=true　　　　　　　　　　break　　　　　　　　endif　　　　　　endif　　　　next　　　　sleep(0.05)　　　　if found　　　　　　clkitem(id,"はい",CLK_BTN)　　　　　　exit　　　　endif　　wendfend

2018.10.28

コメント(0)

UWSC掲示板

公式掲示板が書き込めなくなってどうなるかと心配していましたが、しろまささんが掲示板を用意してくれました。http://www3.rocketbbs.com/601/siromasa.html

2018.09.24

コメント(0)

UWSCはOOP？

掲示板で、UWSCの「CLASS-ENDCLASS」、「MODULE-ENDMODULE」にまつわる議論があったので、思いついたことなどを書いておきます。　UWSCのヘルプでは、「MODULE-ENDMODULE」が正規のキーワードで、「CLASS-ENDCLASS」はおまけのような書き方がされていますが、公式サイトの履歴http://uwsc.info/history.html（今でも閲覧可能）をみると、もともと使われていたのは「CLASS」でした。それを、バージョン4.4bの時点（2008/05/11）で、MODULE-ENDMODULEに名称変更しています。　CLASSといえばOOP。おそらく、作者は当初、UWSCをオブジェクト指向言語として開発していたのが、この時点で方針変更したのではないでしょうか。　この理由は、本格OOPの実装が難しかったからでしょうか？　私はそうは思いません。umiumi屋さんの成果物を見れば、いとも簡単にできたのではないかと想像します。　現状のUWSCのClassでは、OOP言語のクラスとは違い、いきなりインスタンスが生成されてしまっています。しかも生成されるインスタンスはたった一つしかありません。これでは、例えば「複素数のクラス」みたいなものを定義することは困難です。　しかし、いちいちクラスからインスタンスを生成しなくてはならない本格的OOP言語より、ある意味ラクだともいえます。なんていうか、JAVA界隈でいうところの「staticおじさん」（参考１、参考２）にやさしい仕様ってわけ。　今でもそうですが、掲示板を見ると、「手っ取り早くやりたいことをできる方法を教えて」という質問が多数を占めていますよね。こういうユーザー像を考えたとき、本格的オブジェクト指向言語としてUWSCを発展させることは難しいと考えたんじゃないかな。

2018.07.28

コメント(0)

UWSCのpowershell関数をスピードアップ

要は、いちいちpowershellを呼び出すんじゃなくて、一回起動した後何らかのプロセス間通信でUWSCとやり取りすればいい。で、UWSCってウインドウの中身とか受け取るのが得意。そういうわけで、目に見えないWindows.Forms.Formをこさえてやりとりしたらいいんじゃないかな。掲示板の依頼でつくったやつ。アイコンをクリックORキーボードでフォーカスするとアイコンのパスを表示するスクリプト。いちいちバージョン　遅い　sendstr(0,"")while !getkeystate( vk_q ) fukidasi( getIconPath() ) sleep( 0.1 )wendexitexitfunction getIconPath() id =getid( GET_ACTIVE_WIN ) if status( id, st_class ) <> "Progman" and status( id, st_class ) <> "cabinetWClass" result ="" exit endif kbd( VK_ctrl, down ) kbd( VK_c, click ) kbd( VK_ctrl, up ) result =getClipPath()fendfunction getClipPath() result =powershell_STA( getClipPath.src ) module getClipPathtextblock src[void][reflection.assembly]::loadwithpartialname("System.Windows.Forms")if ( [windows.forms.clipboard]::ContainsFileDropList() ){ [windows.forms.clipboard]::getFileDropList()}endtextblock endmodulefendfunction powershell_STA( src ) encodedSource =powershell( "[Convert]::ToBase64String([System.Text.Encoding]::Unicode.GetBytes( '" + src + "' ))" ) encodedSource =replace( encodedSource, "<#CR>", "" ) result =powershell( "powershell -sta -EncodedCommand " + encodedSource )fendNo.5143 2018/02/19(Mon) 08:40:56速いバージョン　１回powershellを起動するだけ。　にしても、Windows.Formsの扱いは面倒。RunSpacePoolとかで起動してやらないと、リアルタイムに書き込みできない。sendstr(0,"")thread getClipPath()while !getkeystate( vk_q ) fukidasi( getIconPath() ) sleep( 0.1 )wendexitexitfunction getIconPath() id =getid( GET_ACTIVE_WIN ) if status( id, st_class ) <> "Progman" and status( id, st_class ) <> "cabinetWClass" result ="" exit endif kbd( VK_ctrl, down ) kbd( VK_c, click ) kbd( VK_ctrl, up ) id0 =getid( "getClipPath_hiddenDialog" ) if status( id0, st_isid ) result=getstr( id0, -1, STR_STATIC ) else result="" endiffendprocedure getClipPath() uwsc_pid =status( getid( GET_THISUWSC_WIN ), ST_PROCESS ) src =replace( getClipPath.src, "<PID>", uwsc_pid ) powershell_STA( src ) module getClipPathtextblock src[void][reflection.assembly]::loadwithpartialname("System.Windows.Forms")$UWSC_pid="<PID>"$form=new-object system.windows.forms.form$form.text="getClipPath_hiddenDialog"$form.formborderstyle="none"$form.opacity=0.01$label=new-object system.windows.forms.label$label.parent=$form$rs = [Management.Automation.Runspaces.RunspaceFactory]::CreateRunspace()$rs.Open()$rs.SessionStateProxy.SetVariable("form",$form)$p = $rs.CreatePipeline( { [void] $form.ShowDialog() } )$p.Input.Close()$p.InvokeAsync()do{ if ( [windows.forms.clipboard]::ContainsFileDropList() ){ $pathstr =[windows.forms.clipboard]::getFileDropList() $label.text=$pathstr } else { $label.text="" } if ( !( gwmi win32_process|?{$_.processID -eq $UWSC_pid } ) ) { break }} while ( $true )endtextblock endmodulefendprocedure powershell_STA( src ) encodedSource =powershell( "[Convert]::ToBase64String([System.Text.Encoding]::Unicode.GetBytes( '" + src + "' ))" ) encodedSource =replace( encodedSource, "<#CR>", "" ) powershell( "powershell -sta -EncodedCommand " + encodedSource, true )fend

2018.02.20

コメント(0)

Google翻訳

いつぞや掲示板で話題になっていたGoogle翻訳。遅ればせながら、関数化してみました。対応言語はtextblockに。※2019/05/28更新今、みたらGoogle翻訳の仕様変更で動かなくなっていたので修正GoogleTranslate.uwsif Get_UWSC_Name = "GoogleTranslate.uws" msgbox(GoogleTranslate( "I love UWSC.", "英語", "日本語" ))endiffunction GoogleTranslate( text, lang_from="自動判別", lang_to="日本語" ) hashtbl langs for lang in split( GogleTranslate.langs, "<#CR>" ) langname =token( ":", lang ) langs[ langname ] =lang next baseURL ="http://translate.google.co.jp/?oe=utf-8&gfe_rd=cr&dcr=0&um=1&ie=UTF-8&hl=ja&client=tw-ob#" query =langs[ lang_from ] + "/" + langs[ lang_to ] + "/" IE =createOleObj( "InternetExplorer.Application" ) IE.Visible=false IE.navigate( baseURL + query + encode( text ) ) while IE.busy or ( IE.ReadyState <> 4 ) sleep(0.1) wend// result=IE.document.getElementById( "result_box" ).innerText　Googleの仕様変更で修正//ここから for span in getOleItem(IE.document.getElementsByTagName("span")) if span.GetAttribute("class")="tlid-translation translation" //msgbox(span.innerText) jpstr=span.innerText break endif next result=jpstr//ここまで IE.Quit() module GogleTranslate textblock langsアイスランド語:isアイルランド語:gaアゼルバイジャン語:azアフリカーンス語:afアムハラ語:amアラビア語:arアルバニア語:sqアルメニア語:hyイタリア語:itイディッシュ語:yiイボ語:igインドネシア語:idウェールズ語:cyウクライナ語:ukウズベク語:uzウルドゥ語:urエストニア語:etエスペラント語:eoオランダ語:nlカザフ語:kkカタルーニャ語:caガリシア語:glカンナダ語:knギリシャ語:elキルギス語:kyグジャラト語:guクメール語:kmクルド語:kuクロアチア語:hrコーサ語:xhコルシカ語:coサモア語:smジャワ語:jwジョージア(グルジア)語:kaショナ語:snシンド語:sdシンハラ語:siスウェーデン語:svズールー語:zuスコットランドゲール語:gdスペイン語:esスロバキア語:skスロベニア語:slスワヒリ語:swスンダ語:suセブアノ語:cebセルビア語:srソト語:stソマリ語:soタイ語:thタガログ語:tlタジク語:tgタミル語:taチェコ語:csチェワ語:nyテルグ語:teデンマーク語:daドイツ語:deトルコ語:trネパール語:neノルウェー語:noハイチ語:htハウサ語:haパシュト語:psバスク語:euハワイ語:hawハンガリー語:huパンジャブ語:paヒンディー語:hiフィンランド語:fiフランス語:frフリジア語:fyブルガリア語:bgベトナム語:viヘブライ語:iwベラルーシ語:beペルシャ語:faベンガル語:bnポーランド語:plボスニア語:bsポルトガル語:ptマオリ語:miマケドニア語:mkマラーティー語:mrマラガシ語:mgマラヤーラム語:mlマルタ語:mtマレー語:msミャンマー語:myモンゴル語:mnモン語:hmnヨルバ語:yoラオ語:loラテン語:laラトビア語:lvリトアニア語:ltルーマニア語:roルクセンブルク語:lbロシア語:ru英語:en韓国語:ko中国語(簡体):zh-CN中国語:zh-CN中国語(繁体):zh-TW日本語:ja自動検出:auto自動判別:auto endtextblock endmodulefend

2018.02.01

コメント(0)

powershellからUWSCを実行する

UWSCにはpowershell関数が組み込み関数として存在しています。これはこれで便利なんだけど、PS1スクリプトからちょこっと、UWSCのfukidasi関数とか使いたいなってことありますよね。#UWSCを実行する関数#引数がファイルとして存在するならUWSCスクリプトファイルと見なして実行、さもなければ、引数をUWSCプログラム本体と見なして実行する。#戻り値：スクリプトファイルを引数としたとき → uwscのプロセスオブジェクト#戻り値：スクリプト文字列を引数としたとき → 一時UWSCファイルのパス（UWSC終了時には消えるので無意味になる）# # ※実行後即リターンするが、戻り値チェックでUWSC実行中かどうか判別できる# test-path $戻り値または　!$戻り値.HasExitedfunction uwsc( $f_or_s ){ $uwscexe ="uwsc.exeのフルパス" if ( !$f_or_s ){ @" 用例：uwsc uwscプログラム文字列|uwscスクリプトのパス"@|write-host return } #スクリプトファイルの場合 if ( ( test-path -isvalid $f_or_s ) -and ( test-path $f_or_s ) ){ #引数が有効なファイルパス文字列で、かつ、ファイルが存在すればuwsスクリプトとして実行 $arglist=,$f_or_s $arglist+=$args $arglist[0]=(gi $arglist[0]).fullname #相対パスが使えなさそうなので絶対パスにしておく $ps =start-process -Filepath $uwscexe -ArgumentList $arglist -NoNewWindow -PassThru return $ps } #プログラム文字列の場合 do{ $tmp =[System.IO.Path]::GetTempFileName() $tmpuws =$tmp -replace "[.]tmp$", ".uws" if ( test-path $tmpuws ){ rm $tmp continue } mv $tmp $tmpuws|out-null }while(0) $f_or_s|out-file -encoding unicode $tmpuws $result =iex "$uwscexe $tmpuws"# while( !!(gwmi "win32_process"|where{ $_.CommandLine -like "*${uwscexe}*${tmpuws}*" }) ){} start-job -scriptBlock { param( $uwscexe, $tmpuws ) while( !!(gwmi "win32_process"|where{ $_.CommandLine -like "*${uwscexe}*${tmpuws}*" }) ){} rm $tmpuws } -argumentlist @( $uwscexe, $tmpuws ) |out-null return $tmpuws}#実行例#uwsc @"#msgbox( "a" )#"@

2018.01.16

コメント(0)

UWSCで日付入力（HTA版）

前のはWindows.Formsのdatepickerでやったのですが、今回はHTAで。掲示板方面で、なにやらHTAが盛り上がっているようなので。HTA.setHTML(html)repeat sleep(0.01) getitem( HTA.id, ITM_EDIT, -1 ) date =all_item_list[0] if (date<>"") and (getstr( HTA.id, 1, str_acc_static )="done") then breakuntil falsectrlwin( HTA.id, close )msgbox( date )textblock html<html><script>window.resizeTo( 450, 500 )</script><head><script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1/jquery.min.js"></script><script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jqueryui/1/jquery-ui.min.js"></script><script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jqueryui/1/i18n/jquery.ui.datepicker-ja.min.js"></script><link type="text/css" href="http://ajax.googleapis.com/ajax/libs/jqueryui/1/themes/pepper-grinder/jquery-ui.css" rel="stylesheet" /></head><body><div id="ok" style="display:none">waiting</div>　日付入力：　<input id="datepicker" onchange="ok()"><script>function ok(){ document.getElementById( 'ok' ).innerText='done';}$(function(){ $("#datepicker").datepicker({ numberOfMonths: 1, showCurrentAtPos: 1, showButtonPanel: true });});</script></body></html>endtextblockmodule HTA public id public path dim _temp_hta function setHTML( htmlstring ) _temp_hta =CreateFile( htmlstring ) id =_temp_hta[ 0 ] path =_temp_hta[ 1 ] sleep( 0.1 ) _clean_atEnd() thread _close_check( id ) result =id fend procedure quit() while status( id, st_isid ) ctrlwin( id, close2 ) wend id =-1 path ="" deletefile( _temp_hta[ 1 ] ) fend procedure _close_check( _id ) //HTA終了時に一時HTAを消す while true if !status( _id, st_isid ) deletefile( _temp_hta[ 1 ] ) id =-1 path ="" break endif wend fend procedure _clean_atEnd() //UWSC終了時に一時HTAを消す srcStr =replace( _clean_atEnd_src, "@@@TEMPHTA@@@", _temp_hta[ 1 ] ) powershell( srcStr, true ) //powershellのリターンを待たないtextblock _clean_atEnd_src$uwsc_pid =gwmi win32_process|?{$_.processId -eq $pid}|%{$_.ParentProcessId}try{while(ps -id $uwsc_pid -errorAction Stop){}}catch{}rm "@@@TEMPHTA@@@"endtextblock fend function CreateFile( html, arg="" ) // tempHTA =GetTempFilePath( "hta" ) fd =fopen( tempHTA, f_write16 ) if fd < 0 msgbox( "一時HTAファイルの作成に失敗しました" ) exitexit endif fput( fd, html, f_alltext ) flg =fclose( fd, true ) //エラー処理は自前で if !flg msgbox( "一時HTAファイルの作成に失敗しました" ) exitexit endif id =exec( "mshta " + tempHTA + " " + arg ) result =split( id + "<#cr>" + tempHTA, "<#cr>" ) fend function getTempFilePath( ext="tmp" ) result=powershell( replace( this.src, "<EXT>", ext )) textblock src do{ rm ($tmp=[system.io.path]::GetTempFileName()) $tmp=join-path ( split-path $tmp ) ( [system.io.path]::GetFileNameWithoutExtension($tmp) + ".<EXT>" ) $tmp=$tmp -replace "[.]+$","" }while( test-path $tmp ) $tmp endtextblock fend endmodule

2017.12.30

コメント(0)

UWSCでFizzBuzz

次の記号禁止+ - * /mod演算子禁止=は代入のみ（比較での使用禁止）if文禁止while~endwhile禁止repeat~until禁止ってルールで書いてみました。ＵＷＳＣだからできるので、他言語への移植はほぼ不可能。Windows10非対応です。めちゃくちゃ遅いです。※関数電卓モードにするため１行追加public calcid =-1keystr="001021001201003"powershell("ps calc|kill")calcid =exec("calc.exe")CLKITEM(calcid, "関数電卓", CLK_MENU, False)for i=1 to 100 r=getR( i, 15 ) r=Zero2Fifteen(r) q=copy( keystr, r, 1 ) select q case "3" out="FizzBuzz" case "2" out="Buzz" case "1" out="Fizz" case "0" out=i selend print outnextsleep(10)function getR( x, y ) clkitem(calcid,"クリア",CLK_ACC) for j= 1 to length(x) fig=(copy(x,j,1)) clkitem(calcid,fig,CLK_ACC) next clkitem(calcid,"剰余",CLK_ACC) for j= 1 to length(y) fig=(copy(y,j,1)) clkitem(calcid,fig,CLK_ACC) next clkitem(calcid,"等号",CLK_ACC) kbd(vk_ctrl,down) kbd(vk_c) kbd(vk_ctrl,up) result=getstr(0)fendfunction plus( x, y ) clkitem(calcid,"クリア",CLK_ACC) for j= 1 to length(x) fig=(copy(x,j,1)) clkitem(calcid,fig,CLK_ACC) next clkitem(calcid,"加算",CLK_ACC) for j= 1 to length(y) fig=(copy(y,j,1)) clkitem(calcid,fig,CLK_ACC) next clkitem(calcid,"等号",CLK_ACC) kbd(vk_ctrl,down) kbd(vk_c) kbd(vk_ctrl,up) result=getstr(0)fendfunction mult( x, y ) clkitem(calcid,"クリア",CLK_ACC) for j= 1 to length(x) fig=(copy(x,j,1)) clkitem(calcid,fig,CLK_ACC) next clkitem(calcid,"乗算",CLK_ACC) for j= 1 to length(y) fig=(copy(y,j,1)) clkitem(calcid,fig,CLK_ACC) next clkitem(calcid,"等号",CLK_ACC) kbd(vk_ctrl,down) kbd(vk_c) kbd(vk_ctrl,up) result=getstr(0)fendfunction isZero( x ) clkitem(calcid,"クリア",CLK_ACC) clkitem(calcid,"1",CLK_ACC) clkitem(calcid,"除算",CLK_ACC) for j= 1 to length(x) fig=(copy(x,j,1)) clkitem(calcid,fig,CLK_ACC) next clkitem(calcid,"等号",CLK_ACC) kbd(vk_ctrl,down) kbd(vk_c) kbd(vk_ctrl,up) result=pos("0 で割ることはできません",getstr(0))fendfunction Zero2Fifteen(r) result =plus(r,mult( isZero(r), 15 ))fend

2017.12.18

コメント(0)

UWSCで標準入出力

UWSCって、コマンドラインでの入出力は何にもない。なので、バッチなどから呼んでもあまり役に立たないよね…。長らく、そんな誤解をしていました。ごめんなさい。UWSCは無敵です。その気になれば、UWSCでフィルタープログラムもできちゃう。すごい。FSOのGetStandardStreamをキックすることで、標準入出力とやりとりできることに気付きました。ただ、入力も出力もエラーも、パイプやリダイレクト先がなかったりするとエラーになるのが難点。下のstdio.uwsをコマンドから呼ぶときはこんな感じ。C:\Users\satocchia>dir|stdio.uws|more＜stdio.uws＞if Get_UWSC_NAME = "stdio.uws" repeat line =stdio.readLine() if line =stdio.EOF then break msgbox( line ) until false stdio.verbose =true stdio.write( "output" ) stdio.writeerr( "output2" ) stdio.write( "output3" )endifmodule stdio public EOF =null + null + null public verbose =false dim std_in =0 dim std_out =1 dim std_err =2 dim fso procedure stdio() fso =createoleobj("Scripting.FileSystemObject") fend procedure write( data ) com_err_ign fso.GetStandardStream( std_out ).WriteLine( data ) if com_err_flg and verbose msgbox( "標準出力のリダイレクト先が設定されていません" ) endif com_err_ret fend procedure writeerr( data ) com_err_ign fso.GetStandardStream( std_err ).WriteLine( data ) if com_err_flg and verbose msgbox( "標準エラー出力のリダイレクト先が設定されていません" ) endif com_err_ret fend function readLine() com_err_ign result =fso.GetStandardStream( std_in ).ReadLine() if com_err_flg result =EOF endif com_err_ret fend function readAll() result =fso.GetStandardStream( std_in ).ReadAll() fendendmodule

2017.12.15

コメント(0)

UWSCで日付入力

さくっと※HTA版を追加しました//メーンthread showPicker()　//デフォルトでフォームが非表示なので、UWSCから表示させておくmsgbox( picker() )　//デートピッカー呼び出し//以下プロシジャ・関数function picker()　result =powershell(datepicker1)fendprocedure showPicker()　ctrlwin( getid("Select a Date",,-1), show )fendtextblock datepicker1Add-Type -AssemblyName System.Windows.FormsAdd-Type -AssemblyName System.Drawing$form = New-Object Windows.Forms.Form $form.Text = "Select a Date" $form.Size = New-Object Drawing.Size @(243,230) $form.StartPosition = "CenterScreen"$datepicker = New-Object System.Windows.Forms.DateTimePicker $datepicker.format="Time"$form.Controls.Add($datepicker) $OKButton = New-Object System.Windows.Forms.Button$OKButton.Location = New-Object System.Drawing.Point(38,165)$OKButton.Size = New-Object System.Drawing.Size(75,23)$OKButton.Text = "OK"$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK$form.AcceptButton = $OKButton$CancelButton = New-Object System.Windows.Forms.Button$CancelButton.Location = New-Object System.Drawing.Point(113,165)$CancelButton.Size = New-Object System.Drawing.Size(75,23)$CancelButton.Text = "Cancel"$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel$DateTimeButton=New-Object System.Windows.Forms.Button$DateTimeButton.text="Date/Time"$DateTimeButton.top=$OKButton.top - $OKButton.height - 5$DateTimeButton.left=$OKButton.left$DateTimeButton.Add_Click({　if ( $this.parent.Controls.item(0).format -eq "Time" ){　　$this.parent.Controls.item(0).format="Long"　}else{　　$this.parent.Controls.item(0).format="Time"　}})$form.CancelButton = $CancelButton$OKButton,$DateTimeButton,$CancelButton|%{　$form.Controls.Add($_)}$form.Topmost = $True$result = $form.ShowDialog() if ($result -eq [System.Windows.Forms.DialogResult]::OK){　$datepicker.Value}endtextblock

2017.09.12

コメント(0)

私、マッ黒い人なの？

UWSC掲示板にコードを書き込んだら、セキュリティ上の脅威となるコードだったみたい。http://d.hatena.ne.jp/junjun777/20141219/powershell_script_run#seemore私、「マッ黒い人」じゃないんです。悪いことはしていません。信じてください…。黒いついでに、掲示板に書いたコードの完全版を載せておこうっと。///////////////////////////////////////////////////外部PS1スクリプトを実行//ps1ファイルが存在すればそれをスクリプトとして実行。なければps1をスクリプトソースとして実行する。//msgbox( ExecPs1( pssrc ) )//////textblock pssrc//"\ab\c\"+"def"+"\"+"ghi\"//"\ab\c\"+"def"+"\\"+"ghi\"//"\ab\c\"+"def"+"\\\"+"ghi\"//endtextblockfunction ExecPs1( ps1 )　　　　if fopen( ps1, f_exists )　　　　　　　　result =powershell( replace( _src_exec_ps1, "##PS1##", ""+ps1+"" ) )　　　　else　　　　　　　　dim fso =CreateOleObj( "Scripting.FileSystemObject" )　　　　　　　　dim tmp,dir　　　　　　　　　　　　repeat　　　　　　　　　　　　　　　　tmp =fso.GetTempName()　　　　　　　　　　　　　　　　dir =fso.GetSpecialFolder( 2 )　　　　　　　　　　　　　　　　tmp =fso.BuildPath( dir, tmp )　　　　　　　　　　　　until !fso.FolderExists( tmp ) and !fso.FileExists( tmp )　　　　　　　　dim fd =fopen( tmp, f_write16 )　　　　　　　　　　　　fput( fd, ps1, f_alltext )　　　　　　　　　　　　fclose( fd )　　　　　　　　　　　　result =ExecPs1( tmp )　　　　　　　　　　　　deletefile( tmp )　　　　endiftextblock _src_exec_ps1$encoded= [Convert]::ToBase64String([System.Text.Encoding]::Unicode.GetBytes((gc ##PS1## ) -join "`r`n"))powershell -EncodedCommand $encodedendtextblockfend

2014.12.22

コメント(0)

ファイルがロックされているかどうか調べる

ファイルがなければ2、ファイルが存在してロックされていればTrue、開放されていればFalseを返します function islocked(path) if !fopen( path, f_exists ) result =2 else result=eval(powershell( replace( ps, "$$$Path", path ) ) ) endiffendtextblock pstry{ $islocked = $false $fileInfo = New-Object System.IO.FileInfo $$$Path $fileStream = $fileInfo.Open([System.IO.FileMode]::OpenOrCreate, [System.IO.FileAccess]::ReadWrite, [System.IO.FileShare]::None) if ($fileStream) {$fileStream.Close()}}catch{ $islocked = $true}$islockedendtextblock

2014.11.18

コメント(0)