◆お問い合わせ、ご注文はこちら ◆冥土の旅の一里塚

記事一覧

アドエス改良計画:UKTvListからRD-X9に予約

1月3日更新

RD-X9にはUKTvListからは予約ができない。
メール予約の形式も違うのでメール予約もできない
そこでMortScriptでUKTvListからRD-X9に予約を入れる為、あれこれしてみる。
「QuicTodayからmortscriptwrapper経由で文字列を受け取って色々するスクリプト」を
参考&改造してあれこれしている個人的メモですので
このままコピっても動かないかもしれません。

「channels.tsv」のチャンネル設定を
スカパー!
1UKTVSP724SP724アニマックス0---
地デジ
8UKTV081081フジテレビ08

「mortscriptwrapper」の名前をtmailms.exeにini、mscrも同じにして、
Windowsフォルダーに三つのファイルを移動

mailto形式をtmailms.exeに渡すため、レジストリの
HKEY_CLASSES_ROOT\mailto\Shell\Open\Command\Default
[tmail.exe %1]とある部分を[tmailms.exe "%1"]に変更。
””を忘れると配列渡せないので注意

ただ、このままだとmailto経由のメールが全部tmailms.exeに渡されてしまうので、
予約メール以外はメーラーに渡すように何とかしたい

tmailms.mscr


# 改造版、UKTVLISTからRD-X9へ予約MAILを送れるようにする
##############################
# ファイル・フォルダ設定
# SpeedMail12.exeのフルパス エッジe-mail用
sm12 = "\microSD\SpeedMail12\LeMail207.exe"
# SimpleSendMail.exeのフルパス
ssm = "\Program Files\simpleSendMail\simpleSendMail.exe"
# UrlDecode.mscrのフルパス
urldecode = "\Program Files\MortScript\lib\UrlDecode.mscr"
##############################
# url設定# uktv
flg = "SCUKTV"
sflg = "SCUKTVSP"
##############################
# 送信元メールアドレス設定
mail = "メールアドレス"
# 付加するタグ 1 X9、2 レグザ
tag1 = "open パス prog add"
tag2 = "open パス"
# 送信先メールアドレス
rdad = "メールアドレス"
#######################
# 改行専用文字
r = "/"
# 挿入スペース
sp = " "
# 変数囲い込み用
d='"'
fd="D"
##################
###
#該当がなかったらメーラーに渡すようにしたいがまだ
x = Find( ap, flg )

if(x>0)

# 文字列を「 」で分割して配列data[]に格納
j = 1
ForEach data[j] in split( ap , " " , 0 )
j = j+1
EndForEach

#bodyに含まれるフラグと不要部分を消す
ch = Replace( data[4] , "SCUKTV" , "" )
kaisi = data[5]#開始時間
owari = data[6] #終了時間
hiniti = data[7] #日付
ban = data[9]#番組名
bsetu = data[11]#番組説明


#BCCを送信先機種判定に使う
#####1216
bc = data[13]#&bcc= 送信先機種の判別
bc = Replace( bc , "&bcc=" , "" )
#Message ( ap)
#Message ( bc)


Switch ( bc )
Case ( "RD-X9" )
#Message ( bc)
s = Find( ap, sflg )


tag = tag1
if(s>0)

ch = ch
else

ch = fd&ch

EndIf


Case ( "REGZA" )
#Message ( bc)
tag = tag2



EndSwitch


######################
#Sub rdcil
######1216
#足りない年を追加、注、今の年を入れるので年をまたぐ時は無理
nen = FormatTime( "Y", TimeStamp() + 86400 )
#nen=2012#年をまたぐ予約の時に#をはずす暫定対処
#今年中に日にちがない場合、次の年に

syosi=tag & sp & nen & hiniti & sp & kaisi & sp & owari & sp & ch & "^NL^" & ban & "^NL^" & bsetu
#syosi="\a\b\t\n\v\f\r*\xab*\x0ab*\xa*b%20*nbsp;*syosi1\r*\n@\b\t\s\"
#SetClipText ( syosi ) #クリックボードにコピー


address = rdad
txt = syosi
#Call( "dec" )
title = "UKTV*"&bc&":"&ban
txt = Replace( txt , r , "\r" )
#Message ( txt)

If( Question(txt & "^NL^^NL^予約メールを送信します、よろしいですか?" , "YesNo" ))
Call( "mail" )

Else
SetClipText( txt )
#Message( "送信しないで終了します。メッセージはクリップボードにコピーしました。" )

EndIf

Else
Message( "予約メール以外" )

EndIf

Exit

#EndSub

##############################
# utf-8デコードサブルーチン
Sub dec

# 分割用記号「'」を付加
txt1 = Replace( txt1 , "%" , "'%" )


# 半角空白を全角空白に変換
txt1 = Replace( txt1 , "%20" , " " )

# エンコードされた文字列を「'」で分割して配列data[]に格納
j = 1
ForEach data[j] in split( txt1 , "'" , 0 )

# 配列data[j]の先頭が「%」かつ3文字以上あったら
If 3 ">*1

# 配列data[j]の3文字目以降を配列data[j+1]に格納
data[j+1] = SubStr( data[j] , 4 )

# 配列data[j]の先頭から3文字目までを配列data[j]に格納
data[j] = SubStr( data[j] , 1 , 3 )

# 配列カウンタを2進める
j = j + 2

# 上記以外は配列カウンタを1進める
Else
j = j + 1

EndIf
EndForEach

# 配列data内で「%○○」が3連続していたら
For i = 1 to j
If*2

# その部分をurldecode.mscrに投げる
CallScriptFunction( urldecode , txt2 , data[i] & data[i+1] & data[i+2] )

# 返ってきた文字をtxtに追加して参照配列を2進める
txt = txt & txt2
i = i + 2
# それ以外の部分(半角英数等)はそのままtxtに追加
Else
txt = txt & data[i]
EndIf
Next

EndSub

##############################
# メール送信サブルーチン
Sub mail

# 送信判定ループ開始(resの値が1の間ループ)
res = 2
While( res = 2 )

# SimpleSendMailで送信を試みて戻り値を取得
#res = RunWait( ssm , address & " " & title & " " & txt )
#res = RunWait( ssm , address & " " & title & " " & d & txt & d)

#エッジe-mail用
txt = Replace( txt , " " , "%20" )
res = RunWait( sm12 , address & " " & title & " " & txt &" /he32")

# 送信失敗なら自動再送か手動再送か終了(キャンセル)を選択
If( res = 2 )
Choice( "動作選択" , "送信に失敗しました、どうしますか?" , "圏内になったら自動再送する" , "手動で再送する" )

# キャンセルならメール本文をクリップボードに待避して終了
Case( 0 )
SetClipText( txt )
Message( "送信しないで終了します。メール本文はテキストボックスに待避しました。" )
Exit

# 手動で再送する
Case( 2 )
EndChoice
EndIf

EndWhile

# 終了メッセージ
#Message( "送信終了" )

EndSub


Exit
########################







*1: CharAt( data[j] , 1 ) eq "%" ) and ( Length( data[j] ) > 3
*2: CharAt( data[i] , 1 ) eq "%" ) and ( CharAt( data[i+1] , 1 ) eq "%" ) and ( CharAt( data[i+2] , 1 ) eq "%"

コメント一覧

cheap louis vuitton replica bags Eメール URL (05/02 21:52) 編集・削除

cheap authentic louis vuitton outlet Neverfull MM Bag in Epi£1540 GBP£1420 GBP

Cheap Jordans Paypal Accept Eメール URL (07/09 15:41) 編集・削除

Cheap jordans 11, Platinum Tint, for sale After seeing the real thing, it is planted! Cheap jordans 11 “Platinum Tint” Appreciate your feet!

jordans bookbag Eメール URL (10/12 04:41) 編集・削除

Color: Black/Fire Red-Metallic Gold-Cement Grey The new version of OW x AF1 Mid exposure! Jordan Brand specializes in NBA shooting trainers, Chris Matthew, known as the "Lethal Shooter", launched the Air Jordan 36 Low "Stay Locked In" PE. He also became the first ever to own the original Air Jordan PE shoes. trainer. Line up! Off-White x Nike Air Force 1 Mid "Pine Green", the body is green and white leather as the main color, embellished with Swoosh logo details, and embroidered with candlesticks and OFF on the outside of the heels. It is reported that it will be released this year. Jordan Brand's new Summer Air Jordan Clog. The shoes are presented in a double-layer structure as a whole. The outer layer adopts a one-piece design with ventilation holes. In addition, it is equipped with neoprene inner boots that are easy to disassemble, so you can wear two in one shoe. It is expected to be released this summer. New from Nike! AJ36 multi-color matching exposure Jordan hole shoes are coming. KD3 all-star color matching is back. I haven鈥檛 talked to you about Nike鈥檚 new products for a long time. Nike has also joined the sneaker competition. How about their products? Jordan's main casual shoes are exposed, and the design is hard to describe. The classic KD3 generation is back, the all-star color matching is well received, and the Owen low-top version also ushered in a new color matching. The P-level AF1 is back in the arena, and the new version of the AJ1 is a bit cool. Without further ado, let's take a look at these products with Brother Dog.

sacs louis vitton Eメール URL (11/25 14:45) 編集・削除

Louis Vuitton button bags are changeable and hundreds of thousands. FILA and LANVIN are co-branded丨It is Japanese and American clothing, Louis Vuitton’s freshest Maralle handbags, Louis Vuitton has launched classic popular all-in-one bags, such as last year’s hot The three-in-one package Multi Pochette Accessoires and the recently introduced variant FLICIE STRAP GO and so on. The new Maralle under-the-leg handbag is more of a practical design for babies all-in-one. Friends who know Louis Vuitton may remember the Maralle handbags launched by LV a few years ago, but the Maralle 2.0 version launched has a popular new design. Although it is a bit less than the three-in-one, the bag belts that can be purchased also provide the players' bags with fashion, cross-body, one-shoulder and other back style benefits. Of wild colors. The main bag of the fresh Marelle is taken from Epi grain leather. The plain leather is made of leather. The leather is also more wear-resistant. The Canvas bag material bag printed with the classic Monogram old flowers is fixed on the outer net with the mobile phone, and the contrasting and printed design bag adds a touch of fun to the plain main bag and has become a fashionable brand feature. The thick wall adds a sense of modernity and design to the handbag. Louis VuittonFILA×LANVIN launches joint shoes GARA

achat vuitton Eメール URL (11/27 16:05) 編集・削除

This also satisfies the creative stimulation of LV women's clothing. Nicolas Ghesquière digs into the brand's century-old archives for inspiration while experiencing the introduction of his obsession with science fiction.

louis vuitton outlet flagstaff arizona Eメール URL (11/28 11:36) 編集・削除

Original Women louis Vuitton Sale|Authentic Women louis Vuitton Sale|Cheap Louis Vuitton Handbags Factory Outlet Online Sales Original Women louis Vuitton Sale|Authentic Women louis Vuitton Sale|Cheap Louis Vuitton Handbags Factory Outlet Online Sales 2021 spring and summer men's bag series, this season men's bags bring us different styles, although it still contains classic designs and colors including letter logos. The classic lattice pattern black and white is more high-end, and there are also bright light colors. The fusion of orange and flesh color seems to look like a woven rough-grained leather. The suitcases in the same color are very eye-catching. They are all large travel bags series, classic Cheap authentic Original Women louis Vuitton Sale|Authentic Women louis Vuitton Sale|Cheap Louis Vuitton Handbags Factory Outlet Online Sales sale online store ,LV The letter logo is a series of travel bags and briefcases. The cute little white bag with cartoon patterns is very clean and fashionable, but it is not easy for men to control. Don’t look at the small ones. The classic plaid patterns and colors are all designed as backpacks. The classic black and white letter box bags are also very mysterious. Finally, our national treasure panda-style bags also appeared in this season. They are quite fun and fashionable.

rolex blue date just Eメール URL (01/01 08:39) 編集・削除

鈻?鈻?Rolex ROLEX Air King Series 114200-70190 White 369 Mechanical Men's Watch (reference price: 35990 yuan)

louis vuitton womens wallet Eメール URL (10/17 22:10) 編集・削除

According to Die Zeit, Beijing SKP shopping mall is a gathering place for international first-line luxury goods such as Louis Vuitton, Chanel, Hermes, Gucci, and Dior, and is known as the "global store king". A consumer told the reporter that she queued for nearly an hour on the third day of the Lunar New Year before entering the Louis Vuitton store, "I heard that Louis Vuitton Outlet will increase the price in February, and I plan to buy a bag before the price increase. , but the styles I want to buy are no longer available, and I鈥檓 sorry for the waiting time if I don鈥檛 buy them when I go in.鈥?The situation encountered by the above-mentioned customers is not an exception. During the Spring Festival holiday, netizens posted on social platforms the queuing scene of luxury stores in Guangzhou Taikoo Hui, Beijing SKP, Shanghai ITC, Chengdu IFS and other business districts, and many stores adopted restrictions on entry.