07/11/25 22:39:43 0
Runwait( "\Program Files\harddial.exe", "-off" )
RegWriteDWord("HKLM", "Comm\ConnMgr\Providers\{7C4B7A38-5FF7-4bc1-80F6-5DA7870BB1AA}\Connections\SoftBank", "Enabled", 0)
RegWriteDWord("HKLM", "Comm\ConnMgr\Providers\{7C4B7A38-5FF7-4bc1-80F6-5DA7870BB1AA}\Connections\VFJP WAP", "Enabled", 1)
RegWriteDWord("HKCU", "Software\ACCESS\NetFront34\BrowserPref", "ProxyAutomaticSettingEnable", 0)
RegWriteDWord("HKCU", "Software\ACCESS\NetFront33\BrowserPref", "UseProxy", 1)
Run( "\Program Files\harddial.exe", "-on" )
Runwait( "\Program Files\NetFront33\NetFront.exe")
上記スクリプトは01HT ROMスレで紹介してもらったブログに書かれていたものを
NetFront3.3に変更し少し簡素化したものなんですが、コレに
「現在NetFront3.3が起動中であれば、閉じる」という動作を先頭に付け足したいです。
If ( wndExists ( "NetFront v3.3" ) )
Close ( "NetFront v3.3" )
↑を書き足してみたんですが、上手く動いてないのですが、アドバイス貰えないでしょうか？
書き足す前の、↑のスクリプトはちゃんと動作することを確認しています。
やりたい事は以下です…。
1.回線断
2.NF3.3が起動中であれば閉じる(NFは起動時にレジストリを読むため起動中の場合は書き換わらないため)
3.SoftBank接続を使わないよう設定しVFJP接続で繋ぐ設定に
4.UAを携帯用の物に書き換え、
5.PROXYを使用する設定にレジストリ書き換え
6.VFJP接続
7.NF3.3を起動
892:いつでもどこでも名無しさん
07/11/26 01:50:48 0
>>891
NetFront v3.3を使ってないので自分では試せませんが
チェックポイントとしては以下のようなことだと思います。
・> If ( wndExists ( "NetFront v3.3" ) )
> Close ( "NetFront v3.3" )
のあとにEndIfを忘れていないか確認する
・NetFront起動中に
Message(wndExists ( "NetFront v3.3" ))
という１行スクリプトを走らせて、ウィンドウ名が本当に"NetFront v3.3"なのか確認する
・上がOKな場合、
Close( "NetFront v3.3" )
という１行スクリプトでNetFrontが本当に終了するか確認する
マニュアルにあるとおり、アプリによってはCloseで終了しないものもあるので。
・ウィンドウの認識が上手く行かない場合はProcExists()、
終了しない場合はKill()を使ってみる
893:いつでもどこでも名無しさん
07/11/26 09:44:15 O
>>892
やはりIfから始まった場合はEndIfは必須なんですね、「もしそうでなかった(NF3.3が起動中でない)場合」という意味になると思うのですが
「何もしない」という動作になるんですが、上手い表現(コマンド？)が見つからなかったので
特に何も記述していませんでした。
もしかして、Runwait( "\Program Files\harddial.exe", "-off" ) ～以下全てを
EndIfで括る形で良いんでしょうか？
ただその場合、NF3.3が起動中だった場合の動作が…
難しいもんですね。
Close( "NetFront v3.3" )
Message(wndExists ( "NetFront v3.3" ))
この２点は問題ありませんでしたので現状で大丈夫なようです。
別な疑問も一つ。
Runwait()は「動作が完了するまで待機」という意味なようですが
この場合、Runwait()で括られた動作が完了するまで、という意味で良いんでしょうか？
RunとRunwaitの違いがいまいち掴めません。
894:いつでもどこでも名無しさん
07/11/26 10:36:57 0
>>893
>やはりIfから始まった場合はEndIfは必須なんですね、「もしそうでなかった(NF3.3が起動中でない)場合」という意味になると思うのですが
それは Else ね。条件に一致しなかった場合の処理が必要ないなら Else は不要。
EndIf は If 文の終わりを表すから必須。
If 条件
条件に一致した場合の処理
Else
条件に一致しなかった場合の処理
EndIf
んで今回の場合はこんな感じでいいかと。 >>892 さんが書いてある通り、 Close で終了しなければ Kill で。
If(wndExists("NetFront v3.3"))
Close("NetFront v3.3")
EndIf
> RunとRunwaitの違いがいまいち掴めません。
URLﾘﾝｸ(home.att.ne.jp)
895:いつでもどこでも名無しさん
07/11/26 12:36:24 O
＞ それは Else ね。条件に一致しなかった場合の処理が必要ないなら Else は不要。
完全にElseとEndIfを混同してしまってましたorz
If
Else
EndIf
は(本来は)必ずセット利用だと思いこんでいて、
その後のElseの中身が思いつかなかったため
以降全部を省略してしまっていた次第です…。
で、結果なんですが、
教えていただいた通りElseを書き加えただけで希望の動作になりました。
ありがとうございました。
896:いつでもどこでも名無しさん
07/11/26 22:53:01 0
無線LANが起動してるかどうかってどのレジストリキー見ればいいかご存知の人居ますか？
897:いつでもどこでも名無しさん
07/11/26 23:02:14 0
あああ、、、
微妙に誤爆しました。。
ちなみにad esスレです。。
898:いつでもどこでも名無しさん
07/11/28 15:01:15 0
>>896
もう解決済みかもしれんが、
URLﾘﾝｸ(rakuenoverdrive.net)
Mortさんもウィジットエンジン作ってくれないかねぇ・・・
899:いつでもどこでも名無しさん
07/11/28 21:43:11 0
>>898
そのサイトで公開されている、SlowDownというアプリ、興味あるけどDLできないのかな・・
900:いつでもどこでも名無しさん
07/12/01 00:03:50 0
>>898
あ、解決してましたー。
でもありがとうございます。
肝心のスクリプトが思い通りの動きをしてくれないわけですが・・・
レジューム復帰明示用の関数とかあればいいのに。
901:１
07/12/02 04:49:08 0
GoogleMaps.exeとnaviClip.exeを使って現在位置近隣の地図を表示する
AutoGMnaviC.mscr v. 12/2/2007 のコード
URLﾘﾝｸ(home.att.ne.jp)
Google Maps Mobile（以後、GMM） v2.0.0.11 のスタートアップ画面省略に対応しました。
GMMはこれまで、起動時にいちいちスタートアップ画面が現れて
OKを送る必要があったけど、 v2.0.0.11ではそれが省略されてます。
GMM v2.0.0.11インストール直後に一回だけGMMを手動で起動して
使用条件同意＆スタートアップ画面OKしてから使用して下さい。
変更点は、「スタートアップ画面にOKを送る」ブロック内の
SendLeftSoft
Sleep( msec )
の２行をコメントアウトしただけです。
902:いつでもどこでも名無しさん
07/12/02 11:48:16 0
767にのっているdirectMailRDが動きません。
'if' without 'EndIf'
Line:
if((buf=="")||
というエラーがでます。
mortscriptがnscriptの部分を認識してしまい
エラーが出てるようなのですが。。
mortscriptとnscriptの組み合わせに詳しい方おしえてください。
903:いつでもどこでも名無しさん
07/12/02 14:15:06 0
下記のような無線LANの接続ができるまで待つコードをかこうとしてるんだけど
これだとWhile部のNOT is_connectedがいつまでたってもTRUEを返してくれなくて常にtimeLimitの方で抜けちゃうんです。
なぜそうなるかご存知の方いらっしゃいましたら教えていただけないでしょうか。
よろしくお願いします。
is_connected = RegRead("HKLM", "System\State\Connections", "Count")
If((WifiCheck) AND (NOT is_connected))
RunWait(wifictrl, "on")
While((NOT is_connected) OR (timeLimit))
is_connected = RegRead("HKLM", "System\State\Connections", "Count")
timeLimit = timeLimit - 1
Sleep(1000)
EndWhile
EndIf
904:いつでもどこでも名無しさん
07/12/02 16:09:59 0
>>903
> While((NOT is_connected) OR (timeLimit))
ORじゃなくてAND
905:いつでもどこでも名無しさん
07/12/02 16:56:55 0
>>904
While((NOT (wifi_Stat = 19)) AND (timeLimit > 0))
wifi_Stat = RegRead("HKLM", "System\State\Hardware", "Wifi")
該当部と判定をこうかえたらとりあえず無事動きました。
ありがとうございました。
906:いつでもどこでも名無しさん
07/12/03 20:49:57 4AyLM5z70
ファイルサーバーへのデータバックアップ処理を作っています。
大量のファイルをコピーしている間、継続して「処理中」ウィンドウを
表示しておきたいのですが、良い方法はないでしょうか。
今は、処理の途中に、所々 SleepMessage を表示させていますが、
煩雑すぎるので思案しています。
907:いつでもどこでも名無しさん
07/12/03 21:15:25 0
>>906
処理中ウィンドウを表示するだけの別スクリプトを処理開始時に起動して、
処理終了時にKillScriptでその別スクリプトを停止するのは？
908:１
07/12/04 04:45:18 WukZTG0f0
【緊急連絡】
MortScript v.4.1で
WriteFileのcodepageオプションに「utf8」および「utf8-prefix」を指定して
ファイル書き込みしようとすると、重大な問題を引き起こす可能性があります。
少なくとも俺のW-ZERO3 WS003SHの場合、
作成されたファイルサイズが見た目0kBであるにもかかわらず
30MBほど空いていた内蔵データ記憶用メモリが食い尽くされ
そのファイルを削除したら空き領域は元に戻ったものの
次にリセットした際に何故かフルフォーマットが開始されてしまいました。。。
909:いつでもどこでも名無しさん
07/12/04 13:45:45 0
それはきつい。
家に使ってないesあるから、帰ったら実験するか
910:１
07/12/04 17:16:25 0
ファイルシステムがぶっこわれたとしか思えない。
フォーマットついでにもういちど同じ事をやってみたら
今度は大丈夫だった。。なんだったんだろう？
でもutf8でWriteFileは思うような結果が得られないので
いずれにしても現時点ではお薦めしない。
>>909
やってみてーｗ
911:887,888
07/12/04 20:03:37 0
>>889
よかったですねえ。
SDカードなんて購入して以来抜き差ししたこと無いから知らなかった…。ためになりました。
（カードは固定だと思っているｗ）
青空文庫新着ダウンローダー使っている人で何かバグとか要望とかあったら教えてください。
使ってくれている人がいるかが問題だけど…。
>>908
１さんおつです。
コード指定するオプションがあることを知りました。
Rndって初回は必ず0.7付近の値が帰って来る…。
912:いつでもどこでも名無しさん
07/12/05 08:35:24 V/W0/Ixb0
>>907
やはり、それしかないですよね...。
このようにしてみました。
WriteFile( dispScript , "Message(""処理中"",""COPY PROC"")" & "^NL^" , NO )
Run(dispScript)
913:いつでもどこでも名無しさん
07/12/06 12:11:50 0
Advanced/W-ZERO3[es] のタコユーザです。
クレクレ厨なみのお願いは承知の上なのですが
お力をお借りしたく、書き込みさせていただきます。
通常の音声端末では、送信済みのメイルの再送信が簡単にできます。(選択→[発話ボタン]などで)
同じようなこと、つまり「同じ宛先/内容のメイルを作成→送信」を、
MortScriptで自動化することが可能なら、どなたかお作りいただけませんでしょうか…。
お役に立つかは分かりませんが、キーボードマクロ的には
以下のようなプロセスをたどると思います。(見当違いならすいません…)
(1) \windows\stmail.exeを起動
(2) [左ソフトキー]押下 (「メッセージ作成」選択)
(3)「A」押下 (「テキストメイル」選択)
(4) [→]押下 (宛先アドレス欄へフォーカス)
(5)「xxx@xxx.ne.jp」 (宛先アドレスの入力)
(6) [→]を5回押下 (本文欄へフォーカス)
(7)「東陽町通過しました。」 (本文の入力)
(8) [左ソフトキー]押下 (「メッセージ」選択)
(9)「C」押下 (「送信」選択)
914:いつでもどこでも名無しさん
07/12/06 12:45:25 O
>913
その程度はHTMLのmailTo:で
わざわざスクリプトにして
ややこしくしなくても
915:いつでもどこでも名無しさん
07/12/06 12:50:36 0
>>914
レスありがとうございます。おっしゃるとおりなんですが、
作成から送信までをなるたけ自動化したいんです＞＜、
仕事で現在地、業務内容等の定型メイル(10種類程度)を
毎日ポコポコ送らなければならなくて、、、
916:いつでもどこでも名無しさん
07/12/06 13:08:20 0
>>913
この命令で何とかなるよ。
URLﾘﾝｸ(home.att.ne.jp)
・9.5.2 アプリケーション／文書を開いて実行終了まで待機する（RunWait）
「RunWait( アプリケーション[, 引数 ] )」
これでkeyInputEmulator.exeに引数を喰わせまくればいいんジャマイカ。
(たしかウィンドウタイトルは一定じゃ無かったよね>w-zero3メール)
「特定のウィンドウを前面に表示」「特定の座標を[右|左]クリック」なんて命令もあるので
好きな定形文を好きなだけ追加して頑張れ～。
SortInchKeyで特定ボタンに関連付けたSimpleMenuの項目として放り込むといいね。
# QMAIL3は開いてるメールを新しく編集とか有るので萌え
917:いつでもどこでも名無しさん
07/12/06 13:25:49 0
# 文字通り書いてみた。KeyInputEmulator.exeの存在が前提。SLEEP値はチューニングお願い。
#(1) \windows\stmail.exeを起動
Run("\windows\stmail.exe")
#(2) [左ソフトキー]押下 (「メッセージ作成」選択)
#(3)「A」押下 (「テキストメイル」選択)
#(4) [→]押下 (宛先アドレス欄へフォーカス)
RunWait("\Program files\KeyInputEmulator\KeyInputEmulator.exe", \
<SLEEP:1000> SoftKey1 <SLEEP:100> a <SLEEP:500> Right)
#(5)「xxx@xxx.ne.jp」 (宛先アドレスの入力)
SetClipText( "xxx.xxx.ne.jp" )
RunWait("\Program files\KeyInputEmulator\KeyInputEmulator.exe", Ctrl+V <SLEEP:100>)
#(6) [→]を5回押下 (本文欄へフォーカス)
RunWait("\Program files\KeyInputEmulator\KeyInputEmulator.exe", Right Right Right Right Right)
#(7)「東陽町通過しました。」 (本文の入力)
SetClipText( "東陽町通過しました" )
RunWait("\Program files\KeyInputEmulator\KeyInputEmulator.exe", Ctrl+V <SLEEP:100>)
#(8) [左ソフトキー]押下 (「メッセージ」選択)
#(9)「C」押下 (「送信」選択)
RunWait("\Program files\KeyInputEmulator\KeyInputEmulator.exe", SoftKey1 <SLEEP:100> c)
# 参照： URLﾘﾝｸ(home.att.ne.jp) (6.3 スペース、タブ、改行)
918:いつでもどこでも名無しさん
07/12/06 13:38:24 0
ATOKの制御がまんどくせ
919:いつでもどこでも名無しさん
07/12/06 13:42:25 0
クリップボードを経由してるからIME制御いらないんじゃない?
ソフトキーが開いているときは勝手にIME無効になるでしょ。
920:いつでもどこでも名無しさん
07/12/06 13:42:43 O
日本語入力にATOKを使用する
921:いつでもどこでも名無しさん
07/12/06 13:55:38 0
>>917
キーコードはAppCloseから送ったほうがいいよ
922:いつでもどこでも名無しさん
07/12/06 15:13:13 0
というか意味が分からんのだが・・・
送信済みのメールの再送信、だろ？その通りできるじゃん？
923:いつでもどこでも名無しさん
07/12/06 15:21:37 0
お ま え は な に を 言 っ て い る ん だ
924:いつでもどこでも名無しさん
07/12/06 15:28:05 0
だ ー か ー ら ー 、
送信済みトレイのメールを選択して、返信＞送信だろ？
って言ってんの。
925:いつでもどこでも名無しさん
07/12/06 15:50:12 0
つか、アドエスでやる意味あるの？業務で使いたいのなら、Linuxサーバでもたてて、Webサーバからメール送るとかやったほうがよくない？
926:いつでもどこでも名無しさん
07/12/06 15:55:48 0
それができる香具師ならここで物乞いしないだろｗ
927:いつでもどこでも名無しさん
07/12/06 18:04:05 0
913どこいったんだよ
928:いつでもどこでも名無しさん
07/12/06 20:00:48 O
>913の内容的に
車上の業務連絡を03で
メーラ起動含めてなるたけ少ない操作でやりたいんじゃないの？
929:いつでもどこでも名無しさん
07/12/06 21:42:01 0
>>921
あ、ほんとだ、AppCloseでも送れるんだね。ありがとう！
930:１
07/12/07 03:03:37 0
stmail.exe はわからないんだけど
WM標準のOutlookメール（tmail.exe）なら
Run( "\Windows\tmail.exe", "-service ""送信アカウント名"" -to ""送信先アドレス"" -subject ""題名"" -body ""本文""" )
でメール作成
Run( "\Windows\tmail.exe", "-sync" )
で送受信できるんだけどね。
>>538のRemoteLoc.mscrなどをご参照のこと。
931:いつでもどこでも名無しさん
07/12/07 21:20:02 0
TimeStamp()で帰って来る値がどうもおかしいような…
932:いつでもどこでも名無しさん
07/12/07 22:40:22 0
>>902
にあるように最新Ver.のMortScriptだと動かないかもしれんけど、directMailRDのようなカスタムを作ればメール送信に関しては簡単にできるはず。履歴は残らないけど、PasteHelper2やnaviclip.exeと連携させるのも面白そうだ。（このスレ的には）
というか、「かえるメール」ってアプリがなかったけか？これは？ツールMEMOさんを確認してみては。
933:いつでもどこでも名無しさん
07/12/09 14:01:44 0
>>930
WM6では不可になってるよ
934:いつでもどこでも名無しさん
07/12/09 15:20:50 0
ほんとだ。ファーム1.2。tmail のオプションは効かないね。