10/04/13 21:50:38 0
>>178
確かに楽しい。w
今日はホイミテーブル用にHP計算スクリプト組んでみた。
灰鰤使ってるんだが、この機体もShiftlock状態で1から9までのキーで !"#$%&'() が出せるんだな。今日初めて知った。
アドエスと違って文字種変わらないし、テンキー派の自分には最高のスクリプティング環境になった。w
189:いつでもどこでも名無しさん
10/04/20 21:45:57 0
プログラム経験ゼロで、まったくの素人ですMortSCript触り始めて1週間です。
T-01Aを使っています。
ActiveSyncをUSBで接続して同期後USBを外してもActiveSyncが残っているのを
消したいです。
ループの部分でどういう条件を組めばいいのか悩んでいます。
とりあえず動いているので支障はありませんが
添削、アドバイスお願いします。
t=1
While( t=1 )
a=ProcExists( "repllog.exe" )
r=ProcExists( "rnaapp.exe" )
If( a=TRUE )
If( r=FALSE )
Close( "ActiveSync" )
Sleep( 20000 )
Else
Sleep( 20000 )
EndIf
Else
Sleep( 20000 )
EndIf
EndWhile
190:いつでもどこでも名無しさん
10/04/20 22:50:20 0
activesync中って、レジストリ変わったりしないのかな？
それがあるなら、そこ監視して終了したら、殺すというのはどうだろう？
191:いつでもどこでも名無しさん
10/04/20 23:08:28 0
Acroじゃだめなの？
192:いつでもどこでも名無しさん
10/04/21 01:00:27 0
>>189
スクリプトはなるべく簡潔に書く練習をしたほうがいいよ
t=1
While( t=1 )
a=ProcExists( "repllog.exe" )
r=ProcExists( "rnaapp.exe" )
If( a && NOT r )
Close( "ActiveSync" )
EndIf
Sleep( 20000 )
EndWhile
193:190
10/04/21 06:20:41 0
レジストリ、もう少し勉強してみます。
Acroってなんでしょうか？
ググったんですが、わかりませんでした
アドバイスありがとうございます
色々挑戦してみます。
194:いつでもどこでも名無しさん
10/04/21 08:18:19 O
まずググりかたをググれカス
195:いつでもどこでも名無しさん
10/04/21 12:01:15 0
>>192
while(1) でいいのでわ
196:いつでもどこでも名無しさん
10/04/21 17:30:42 0
closeさせたらループ終了させたいな。
t=1
While( t=1 )
a=ProcExists( "repllog.exe" )
r=ProcExists( "rnaapp.exe" )
If( a && NOT r )
Close( "ActiveSync" )
t=0
EndIf
Sleep( 20000 )
EndWhile
197:いつでもどこでも名無しさん
10/04/21 17:46:21 O
あんぐり
198:いつでもどこでも名無しさん
10/04/21 18:06:36 0
東アングリア王国
close の後に sleep する必要あるの?
そのまま exit すればいいのでは。
みんな謎の変数 t が好きなんだなw
199:いつでもどこでも名無しさん
10/04/21 19:08:37 0
QuickMenuにActivesyncを終了させる設定があったような…
200:いつでもどこでも名無しさん
10/04/21 19:48:20 O
>>199
あるよ
それを抜き出したのが前出のacro
>>198
常駐監視なら止めたら意味ない
201:いつでもどこでも名無しさん
10/04/21 22:11:43 0
>>195
俺もtの意味は知らんけど>>189がそう書いてるから。
条件分岐の無駄なところを削ってあげたまで。
まぁ>>189はわかったのかわからないのかノーリアクションで
もういないわけだがな。
また答え損。
202:いつでもどこでも名無しさん
10/04/21 23:17:06 O
HKLM,"\System\State\ActiveSync","Synchronizing"
HKLM,"\System\State\Connection\Desktop","Count"
を
>>176で監視で軽く出来ないかな
(手打ちなのでスペル違ったらすまん
203:189
10/04/21 23:37:56 0
色々とご指導頂きありがとうございました。
t=1の意味は何か条件が必要だと思ったので、入れました。
1で良いとは思いませんでした。
これからは試行錯誤をもっと行ってから、書き込みます。
どうもお騒がせしました。
皆さん本当にありがとうございました。
204:いつでもどこでも名無しさん
10/04/22 01:28:09 0
メモメモ
AutoRun.exeはShellExecuteとCreateProcessで.mscrを叩き
mscrwrapp.exeはCreateProcessでMortScript.exeを叩いてる
・AutoRun.exe
ShellExecuteはOSの関連付けに任せるので、
.mscrがテキストエディタに関連付けされてれば
AutoRun.exe実行時にテキストエディタが起動する
（AutoRun.exeと同ディレクトリにMortScript.exeがあればCreateProcessを使う）
・mscrwrapp.exe
Cabインストールが条件などと言うことから、
インストール情報レジストリからMortScript.exeのパスを得て
スクリプト名と引数をCreateProcessへ流している
205:いつでもどこでも名無しさん
10/04/22 06:17:47 0
HKLM\Drivers\USB\FunctionDrivers\ActiveSyncConnected
あたりを監視して、
HKLM\Comm\Tcpip\Hosts\dtpt_peer\idaddr
に値があるかで判断したらどうかな？
206:いつでもどこでも名無しさん
10/04/22 07:13:52 0
URLﾘﾝｸ(blog.livedoor.jp)
これでどうかな？
207:いつでもどこでも名無しさん
10/04/22 10:01:57 0
>>202 >>205
HKLM,"\System\State\Hardware","Cradled"
を先にチェックしてから
HKLM,"\System\State\ActiveSync","Synchronizing"
を見た方が確実だと思う。
208:いつでもどこでも名無しさん
10/04/22 11:17:37 O
刺してない状態でも立ち上がるのがねぇ