UWSC 掲示板

★ http://schemas.microsoft.com/cdo/configuration/ / おぐらあゆむ

お世話になっております。
いつもUWSCを利用させていただいてます。
以前、メール配信に
http://schemas.microsoft.com/cdo/configuration/ +sendusing/smtpserver/smtpserverport
を使用してUWSCで取得した結果をメールでレポートを送ってましたが、最近使用したらメールがちゃんと届かなくなってしまいました。

上記URLを見るとサービスが終了してしまったみたいですが、他に代用できる物はないでしょうか？

レポートなどを送れてすごく便利でしたので可能であればもう一度使用したいと思っております。

よろしくお願いいたします。

No.4871 2017/12/20(Wed) 11:27:04

☆ Re: http://schemas.microsoft.com/cdo/configuration/ / satocha

"http://schemas.microsoft.com/cdo/configuration/"というのはただの識別記号で、URLでもなんでもありません。アドレスっぽいですが、もともと、そこにアクセスしても無意味です。

メールが送信できなくなったのには別の理由があると思います。

参考：
http://www.atmarkit.co.jp/ait/articles/0405/22/news017.html
以下引用
Configurationプロパティは、プログラムIDが“CDO.Configuration”のCOMオブジェクトになっており、このFieldsプロパティからそれぞれの設定にアクセスできる。各設定項目は「http://schemas.microsoft.com/」で始まるURIで識別される。これらのURIは、設定項目を表すキーワードでしかなく、ブラウザでアクセスしてもページが存在するわけではない。

No.4876 2017/12/21(Thu) 03:11:44

★ CREATEFORMで作成したフォームでボタンを押したら指定のuwscを起動させる方法 / せきしんご

CREATEFORMで作成したフォームでtesutoというリンクしたらMozilla Thunderbird.exeのスクリプトを起動するようにしたいのですがダウンロードというウィンドウで下記のような表示でます。これを出さずに純粋にスクリプトを起動するだけにできないでしょうか?最終的にしたい事がCREATEFORMで表示したボタンをクリックしたら指定のUWSCで作成したスクリプト（.uwsで終わるファイル）を起動するようにしたいです。OleEventの関数を使えばできるような気がするんですがOleEventの使い方がまったく分かりません。
アドバイス頂けないでしょうか?

（ダウンロードというウィンドウ）
https://gyazo.com/deeeaed6145c23b05e7173829eaa738c
---------------------
入力フォーム.html

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<head>

<body style="overflow:hidden;">
<div id="block">
<form method="POST">
<font size="+2"><marquee>てすとふぉーむ</marquee></font>


<input type="button" value="ボタン" onClick='Javascript:alert("めっせーじ")'>



<p><input type="submit" name="OK" value=" 実行 "> | <input type="submit" value="キャンセル" name="CancelBtn"></p>



<a href="C:\Users\Desktop\Mozilla Thunderbird.exe">tesuto</a>


</form>
</div>
</body>
</html>
---------------------

//---フォーム生成
obj = CREATEFORM("C:\Users\Desktop\入力フォーム.html", "サンプル", TRUE,FOM_MINIMIZE,500,300)//---フォーム作成

while obj.Visible
　sleep(0.2)
　ifb GETFORMDATA("OK")　//---OKボタンが押されたら
　　Text1 = GETFORMDATA("Text1")
　　ifb Text1 = "" then
　　　MsgBox("カテゴリを入力してください。")
　　　continue
　　endif
　elseif GETFORMDATA("CancelBtn")　//---キャンセルボタンが押されたら
　　ExitExit
　endif
wend

//---結果確認
print Text1

No.4861 2017/12/19(Tue) 15:47:54

☆ Re: CREATEFORMで作成したフォームでボタンを押したら指定のuwscを起動させる方法 / stuncloud

aタグに適当なidを付けてください
※ ここでは exelink とします

exelink = f.document.getElementById("exelink")
oleevent(exelink, "HTMLAnchorEvents2", "onclick", "RunExe") // while obj.Visible のループに入る前に呼んでください

// oleeventで呼び出すプロシージャ
procedure RunExe()
　EVENT_PRM[0].returnValue = FALSE // リンク先へ遷移するなど、リンク本来の動きを抑制する
　href = EVENT_PRM[0].srcElement.href // hrefを取得
　exe = replace(replace(href, "file:///", ""), "/", "\") // uriになってるのでローカルファイルパスに戻す
　print exe // 確認
　exec(exe) // 実行
fend

イベントインターフェイスについてはこちらを参照
https://msdn.microsoft.com/en-us/library/hh801967(v=vs.85).aspx

No.4862 2017/12/19(Tue) 17:04:12

☆ Re: CREATEFORMで作成したフォームでボタンを押したら指定のuwscを起動させる方法 / せきしんご

stuncloud様、回答ありがとうございます。これはすごいですね。色々可能性が広がりそうです。
exec("<#DBL>" + GET_UWSC_DIR + "\uwsc.exe<#DBL> <#DBL>" + exe + "<#DBL>")ようなコードを使用でexeだけでなく、.uwsファイルも起動できるんですね。

リンクから起動する方法は分かったのですが、ボタンをクリックする事で指定のスクリプトを起動する方法は探してみたのですが期待通りの処理になるのはなかったです。
下記のようなコードで試したのですがうまくいきません。
<input type="button" id="exelink" value="ボタン" onClick="window.open('C:\Users\Desktop\facebook.exe')">

No.4863 2017/12/19(Tue) 21:22:16

☆ Re: CREATEFORMで作成したフォームでボタンを押したら指定のuwscを起動させる方法 / satocha

>せきしんご様
横入り失礼します。
No.4862はボタンについても解答されています。
リンク先は読みましたでしょうか。

No.4864 2017/12/20(Wed) 08:47:56

☆ Re: CREATEFORMで作成したフォームでボタンを押したら指定のuwscを起動させる方法 / stuncloud

input[type="button"] の場合はちょっとわかりにくいんですよね
インターフェースは HTMLInputTextElementEvents2 になります (type="text" 用だけど動く)
buttonタグなら HTMLButtonElementEvents2 です

ついでにもちょっと解説を加えます
oleevent()に渡すインターフェイス名は上記リンク先にある「HTML(エレメント名)ElementEvents(番号)」になります
エレメント名はイベントを取りたいタグの種類から類推してください (aならアンカータグなのでanchor
番号はなるべく大きいので使えるやつを使えばたぶん大丈夫です
(というのも番号なしのだと後述するイベントオブジェクトが取れないとかいうことがある)
インターフェイス名のリンクをクリックすると出てくるイベント一覧がoleevent()で指定できるイベント名になります

oleevent()で指定したprocedure内では EVENT_PRM[0] に発生したイベントのオブジェクトが入ってます
EVENT_PRM[0].srcElement でイベント発生元のエレメントのオブジェクトが取れます (なのでaタグならhrefが取れる)
イベントオブジェクトが持つプロパティについては以下に書かれています
https://msdn.microsoft.com/en-us/library/aa703876(v=vs.85).aspx

No.4866 2017/12/20(Wed) 10:50:15

☆ Re: CREATEFORMで作成したフォームでボタンを押したら指定のuwscを起動させる方法 / stuncloud

( のせいでリンクが途切れてしまうの困る

No.4867 2017/12/20(Wed) 10:50:53

☆ Re: CREATEFORMで作成したフォームでボタンを押したら指定のuwscを起動させる方法 / せきしんご

satocha様、下記を読んでみたのですが英語で書かれていて読み解く事ができませんでした。翻訳機能を使ってもう一度読んでみたいと思います。

イベントインターフェイスについてはこちらを参照
https://msdn.microsoft.com/en-us/library/hh801967(v=vs.85).aspx

No.4870 2017/12/20(Wed) 11:20:28

☆ Re: CREATEFORMで作成したフォームでボタンを押したら指定のuwscを起動させる方法 / せきしんご

stuncloud様、解説ありがとうございます。
https://msdn.microsoft.com/en-us/library/aa703876(v=vs.85).aspxのサイトも英語ですし、oleeventを使うの難しいですね。
じっくり学んでみたいと思います。

No.4872 2017/12/20(Wed) 11:49:21

★ ２つのマスターデータの差異を抽出したい。 / sen

いつもお世話になっております。
ふたつのマスターデータの登録間違いを調べたいのですが、うまくいきません。
"^"と"$"を除くとうまくいくような気がするのですが、A1WとAA1Wみたいに、
途中が同じデータがあるので、"^"と"$"は付けたいのです。
実際は、２０万行くらいあります。
何がおかしいのでしょうか？
何卒、ご教授頂けますようお願い致します。

id1 = fopen("1.csv")
id2 = fopen("2.csv")
id3 = fopen("差分.csv",F_WRITE)
正規 = CREATEOLEOBJ("VBScript.RegExp")
dim 比較 = fget(id2,F_ALLTEXT)
FOR i = 1 to fget(id1,-1)
正規.Pattern = "^"+fget(id1,i,1)+"$"
切出 = 正規.Execute(比較)
ifb 切出.count > 0 then
else
fput(id3,fget(id1,i,1))
endif
next
fclose(id1)
fclose(id2)
fclose(id3)

1.csv
A1W
AA1W
B2W1
C2W2

2.csv
A1W
B2W1

差分.csv
AA1W
C2W2

No.4811 2017/12/12(Tue) 00:20:50

☆ Re: ２つのマスターデータの差異を抽出したい。 / satocha

2ファイルの比較は簡単そうに見えて一筋縄では行きません。
先頭から比較していき、途中で違いがみつかったとしましょう。
1.csv　　　　2.csv
A1W　　　　　A1W
AA1W　　　　 B2W1 ←ここ

このとき、普通にやったのでは1.csvに新たな要素が追加されたのか、逆に削除されたのか
簡単に判別することはできません。言い換えれば「ここ」に違いがあるのはわかりますが、このあとどこから比較すればいいか決定できないからです。

しかし、このような差分を発見するアルゴリズムは先人が考え出してくれており、検索するとhttp://hp.vector.co.jp/authors/VA007799/viviProg/doc5.htm
http://susisu.hatenablog.com/entry/2017/10/09/134032
などが見つかります。
２ファイルの「最長一致文字列」と「最短編集距離」を計算していけばいいのです。
ただ、これに従ってUWSCでコーディングするのはかなりの力技になりそうです。

そこで、既存の差分ツールとしてdosコマンドのfc、powershellコマンドレットのCompare-Objectなどを使ってみてはどうでしょう。

あるいはフリーソフトでdiffツールを探したほうが早いかも。
https://freesoft-100.com/pasokon/diff.html

No.4812 2017/12/12(Tue) 02:30:17

☆ Re: ２つのマスターデータの差異を抽出したい。 / sen

難しいんですね。
詳しく説明、ありがとうございます。
他の方法でやってみます。

No.4840 2017/12/13(Wed) 18:28:17

☆ Re: ２つのマスターデータの差異を抽出したい。 / satocha

compare-objectでやってみた例です。

src =replace(psssrc,"<CSV1>",CSV1)
src =replace(src,"<CSV2>",CSV2)
msgbox(powershell(src))
textblock psssrc
$csv1=@"
<CSV1>
"@
$csv2=@"
<CSV2>
"@
compare-object ($csv1 -split"`r`n") ($csv2 -split"`r`n")|%{if($_.SideIndicator -eq "<="){$_.InputObject}}
endtextblock
textblock csv1
A1W
AA1W
B2W1
C2W2
endtextblock
textblock csv2
A1W
B2W1
endtextblock

No.4844 2017/12/14(Thu) 08:05:03

☆ Re: ２つのマスターデータの差異を抽出したい。 / sen

おー、ありがとうございます。
ちょっと恥ずかしいのですが、比較するファイルを別ファイルにすると、
下記であってますでしょうか？

src=replace(psssrc,"<CSV1>",fget(fopen("1.csv"),f_alltext))
src=replace(src,"<CSV2>",fget(fopen("2.csv"),f_alltext))

id3 = fopen("3.csv",F_WRITE)
fput(id3,powershell(src),F_ALLTEXT)
fclose(id3)

textblock psssrc
$csv1=@"
<CSV1>
"@
$csv2=@"
<CSV2>
"@
compare-object ($csv1 -split"`r`n") ($csv2 -split"`r`n")|%{if($_.SideIndicator -eq "<="){$_.InputObject}}
endtextblock

No.4846 2017/12/14(Thu) 20:30:29

☆ Re: ２つのマスターデータの差異を抽出したい。 / sen

うまくいきました。

ちょっと、応用は厳しそうなんですが、
深い世界が垣間見られて良かったです。

ありがとうございました。

No.4849 2017/12/15(Fri) 22:15:33

★ 画像の設定 / jamrestaurant

// -------------------------------------
// 初期データ設定
// -------------------------------------
CONST gnaviID = "jamrestaurant" // ログイン ID
CONST gnaviPASS = "Mizusawa1" // PASSWORD
CONST radio_NO = "1" // 0:注目！ 1:お得！ 2:イチオシ 3:期間限定 4:駅近！ 5:おすすめコース

// -------------------------------------
// Internet Explorerの起動
// -------------------------------------
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("http://pro.gnavi.co.jp/")
REPEAT
sleep(0.5)
UNTIL !IE.busy AND IE.readystate = 4

// -------------------------------------
// ログイン
// -------------------------------------
IELink(IE, "ログイン")
REPEAT
sleep(0.5)
UNTIL !IE.busy AND IE.readystate = 4
IESetData(IE, gnaviID, "jamrestaurant")
IESetData(IE, gnaviPASS, "Mizusawa1")
IE.document.forms[1].submit
REPEAT
sleep(0.5)
UNTIL !IE.busy AND IE.readystate = 4

// -------------------------------------
// ページ移動
// -------------------------------------

IE.Navigate("https://manage.gnavi.co.jp/SP/ShopAdmin/top/index.php")
REPEAT
sleep(0.5)
UNTIL !IE.busy AND IE.readystate = 4
IE.Navigate("https://manage.gnavi.co.jp/SP/ShopAdmin/boxEdit/standard_box.php")
REPEAT
sleep(0.5)
UNTIL !IE.busy AND IE.readystate = 4
IE.Navigate("javascript:m_action_boxList('edit', '../boxEdit/standard_box.php', 1)")
REPEAT
sleep(0.5)
UNTIL !IE.busy AND IE.readystate = 4
IESetData(IE,True,"catchi_cd",radio_NO)　　　　　　// ラジオボタン選択
IESetData(IE,True,"","確認")
REPEAT
sleep(0.5)
UNTIL !IE.busy AND IE.readystate = 4
IESetData(IE,True,"once","登録")
REPEAT
sleep(0.5)
UNTIL !IE.busy AND IE.readystate = 4

IE.quit()

No.4845 2017/12/14(Thu) 18:51:32

☆ Re: 画像の設定 / stuncloud

idとパスワードは書くべきではないです
あと用件を書かれたほうが良いです

No.4847 2017/12/15(Fri) 10:25:52

★ DEF_DLLの使い方について / じゅん

いつもお世話になっております。
自作したDLLの使用方法についてご教授頂きたく投稿させていただきます。

例えば、Windowsのログインユーザー名を取得するDLLを以下の内容で作成しました。
*----------------------------------------------------------*
using System;
namespace UserInfo
{
　public class GetData
　{
　　public string UserName()
　　{
　　　return Environment.UserName;
　　}
　}
}
*----------------------------------------------------------*

上記内容のDLLをUWSC側で呼び出す際の記載は、
*----------------------------------------------------------*
DEF_DLL UserName(): string: C:\Users\LoginUser\Source\Repos\DLLTest\DLLTest\bin\Debug\UserInfo.dll
print UserName()
*----------------------------------------------------------*
とすれば、ログにユーザー名が取得できそうなものですが、NULLと表示されます。
フォームアプリ等でDLLを読み込んだ場合はこの関数は問題なく使えました。
それ以前に、return "aaa";としたものですらUWSC側ではNULLとしか表示されないので、根本的に使い方が間違っているのでしょうか？
それともDLLを作成した言語に依存するものでしょうか？
DLLのパス名の指定方法が間違っているのかでしょうか？（存在しないパスを指定するとNot DLLと出るので問題はなさそうですが、、、）
ご回答頂けると助かります。

以上、宜しくお願い致します。

No.4799 2017/12/09(Sat) 22:13:48

☆ Re: DEF_DLLの使い方について / しゅん

はい、誠に言い難いですが、根本的に間違っています。
C#のDLLかと思いますが、UWSCから呼べるのは、レガシーなC呼び出しのDLLだけです。
UWSCが作られたとき、主流のDLLはC呼び出しだったのです。

DLLには、他にWindows標準呼び出しのものやC++ I/F、そして随分後に、.NETの様々なDLLができました。
.NETの開発者がとるべき道は、
・レガシーなC呼び出しのDLLをC++またはCで作成する（.NETは使えない）
・.NETのアンマネージドC++ DLLを作成し、c呼び出しのI/Fを用意して、UWSCから使う
・C#等のDLLを、.NETのアンマネージドC++ DLLでラップし、ラッパーにc呼び出しI/Fを用意する
・UWSCのPowerShell関数を使い、.NETのマネージドDLLを呼び出す（遅いのがネック。CLRバージョンをあわせる必要がある）
あたりになります。（UWSCはx86なので、全てx86の必要があります）

PowerShell関数を使ったサンプルは以下の通り。

TEXTBLOCK _script
Add-Type -Path 'C:\Users\LoginUser\Source\Repos\DLLTest\DLLTest\bin\Debug\UserInfo.dll'
(New-Object UserInfo.GetData).UserName()
ENDTEXTBLOCK

MSGBOX(POWERSHELL(_script))

No.4806 2017/12/11(Mon) 09:39:40

☆ Re: DEF_DLLの使い方について / じゅん

ご回答ありがとうございます。
おかげ様で望んだ機能の実装を行うことが出来ました。

やはり、使い方を間違えていましたか。
C#やVBしか触ってこなかったので、CやC++とDLLの作りが違うことを恥ずかしながら知りませんでした。
これを機会にC++も勉強してみようと思います。

PowerShellでC#やVBのDLL・ソースコードを読み込ませて関数を実行させることができるんですね。
私にはない発想でしたので、大変勉強になりました。

また、わからない点があればご質問させてください。
重ねて御礼申し上げます。

No.4809 2017/12/11(Mon) 19:43:40

☆ Re: DEF_DLLの使い方について / stuncloud

dllをCOMコンポーネントとして登録しておいてcreateoleobj()から使うという手もありますね

・DLL
------------------------------------
using System;
using System.Runtime.InteropServices;
namespace UserInfo
{
　[Guid("0B9F558A-9F1D-2A43-8FA0-AB4AE11A4418")]
　[InterfaceType(ComInterfaceType.InterfaceIsDual)]
　public interface IGetData
　{
　　string UserName();
　}

　[Guid("F2F07D47-83D5-754A-A3FD-8963469A570E")]
　[ComVisible(true)]
　[ClassInterface(ClassInterfaceType.None)]
　[ComDefaultInterface(typeof(IGetData))]
　public class GetData : IGetData
　{
　　public string UserName()
　　{
　　　return Environment.UserName;
　　}
　}
}
------------------------------------

・管理者シェルで登録
------------------------------------
RegAsm /codebase .\UserInfo.dll
------------------------------------

・スクリプト
------------------------------------
GetData = createoleobj("UserInfo.GetData")
username = GetData.UserName()
msgbox(username)
------------------------------------

ただ僕もあまり詳しくないので正しくやれてるかはちょっと自信ないです

No.4820 2017/12/12(Tue) 17:22:28

☆ Re: DEF_DLLの使い方について / しゅん

フォロー、ありがとうございます。

私も一応気付いたのですが、RegAsmするのもどうだろう、と思って追記はしなかった次第です。（負け惜しみ）

No.4823 2017/12/12(Tue) 20:13:40

☆ Re: DEF_DLLの使い方について / じゅん

CreateObjectを使う発想もなかったです。
DEF_DLLを使うことしか考えていませんでしたが、視野を広げれば色々やりようはあるものですね。

ありがとうございます。

No.4843 2017/12/13(Wed) 21:32:31

★ Getdirでマウスのロックが解除されてしまいます / yamada

lockhardex(0,LOCK_MOUSE)
:
X=Getdir("XXXX",false)
Y=Getdir("YYYY",false)
Z=Getdir("ZZZZ",false)
:

上のようなスクリプトで、X=Getdir("XXXX",false)やY=Getdir("YYYY",false)
のところでは大丈夫なのにZ=Getdir("ZZZZ",false)のところにくると
マウスのロックが解除されてしまうという現象が起きています。
"ZZZZ"に禁止文字のようなものが含まれているからでしょうか？

（フォルダ名は仮です。）

No.4762 2017/12/02(Sat) 02:49:18

☆ Re: Getdirでマウスのロックが解除されてしまいます / routa

単にスクリプトが終了して解放されただけでしょう。
もう少し確認作業をしましょう。

No.4766 2017/12/03(Sun) 01:04:31