わたしのブログ

サイド自由欄

カレンダー

カテゴリ

収納

(0)

UPS

(2)

バックナンバー

2025.12

キーワードサーチ

▼キーワード検索

フリーページ

2025.01.12

UWSCで作成してみたスクリプトをブログにはってみます（過去の日付でブログを作成してみる）

カテゴリ： PC

2025/1/11 13:00に書き込んだ（公開した）
楽天ブログのアクセスレポートを定期的に自動保存してみました(UWSCを使ってみた）
作成したスクリプトを楽天ブログに貼ってみる実験です。

このブログが上のブログの近くに並ぶように公開時間は過去を設定してみます。

ーーー

☆タグを表示するために使用する方法
タグは特殊記号として入力：＜→＆lt;

☆ソースコードを貼り付ける場合に使用するタグ
表示フォーマットは「見たまま編集」OFFであれば(禁止タグ以外は）自由に設定可能なので
「見たまま編集」のチェックをはずして、以下ののタグを使って画面レイアウトを作った後に

ただし「見たまま編集」のチェックをつけたり、はずしたりする操作で内容が自動的に変わってしまって、「見たまま編集」をオフにした後、自分が入力していないタグがたくさん追加されています。
そのため「見たまま編集」のON/OFF後は、タグの編集がしにくくなります

(1) codeタグ
<code>
ソース
</code>

(2) 枠付き code
<code>
<div style="padding: 10px; margin-bottom: 10px; border: 1px dashed #333333;">
ソース
</div>

(3) タイトル付き枠付き code
楽天ブログでは <fieldset>、<legend>は使えない

<code>
<div style="background: #808080; border: 1px solid #404040; padding-left: 20px;"><span style="color: white;">タイトル</span></div><div style="border: 1px dashed #808080; font-size: 100%; padding: 20px;">
ソース

</code>

(4) タイトル付き枠なし code
<code>
<div style="background: #808080; border: 1px solid #404040; padding-left: 20px;"><span style="color: white;">タイトル</span></div><div>
ソース
</div>
</code>

☆公開日時を過去の日付として公開すると？
2025/1/15 12:45 に 2025/1/12を「公開日時」として「公開する」を押すと…

「投稿する」を押すと
→
「公開日記」の一覧では2025/1/12 に書いたブログの後ろに並ぶけど、新着記事には公開ボタンを押した時間で表示されるようです（「公開日記」の一覧では作成したブログのURLの順に表示される）

2025/1/15 13:00 に新しいブログを投稿（次の記事を公開）すると、新着記事一覧ではしばらくすると新しく公開した記事が表示されるようになります。
この記事は10分弱しか新着記事には表示されていなかったので、おそらくこの記事はみられる回数は非常に少ないのではないかと思います

ーーー

★以下がスクリプトを貼ってみた例です。

ーーー　例　ーーー
☆見たまま編集がオフのままソースを貼り付けた例（インデントがなくなって左詰め）

FireFoxで保存.uws

// FireFoxをアクティブにする
id = GetFireFox()

// Time for filename
GETTIME()
// 20250101-0000
date_text=G_TIME_YY+G_TIME_MM2+G_TIME_DD2+"-"+G_TIME_HH2+G_TIME_NN2

// TAB2に切り替える：Ctrl-2
Ctrl( VK_2 )

// 管理画面TOP
url="https://my.plaza.rakuten.co.jp/"
SetUrl( id, url )

CLKITEM( id, "管理画面トップ", CLK_LINK)
SLEEP(1)
SaveAs( date_text+"-0" )

// Report
CLKITEM( id, "アクセスレポート", CLK_LINK)
SLEEP(1)
FOR index = 1 TO 3 STEP 1
page = FORMAT(index,1)
CLKITEM( id, page, CLK_LINK)
SLEEP(1)
filename = date_text + "-"+ page
SaveAs( filename )
NEXT

// 記事とブログランキングは1日１回だけ更新されるが時間がぶれるらしい
// １日１回は500位まで(0～24ページ)保存してみる
endPage = 1
indexDigit = 1
if G_TIME_HH2 = 12 then
endPage = 24
endif
if endPage>9 then
indexDigit = 2
endif
// 記事ランキング
FOR index = 0 TO endPage STEP 1
DocRanking( index )
filename = date_text + "-D"+ REPLACE(FORMAT(index,indexDigit )," ","0")
SaveAs( filename )
NEXT
// ブログランキング
FOR index = 0 TO endPage STEP 1
BlogRanking( index )
filename = date_text + "-B"+ REPLACE(FORMAT(index,indexDigit )," ","0")
SaveAs( filename )
NEXT

// FireFoxをアイコンにする
CTRLWIN( id, MIN )

// End
// ---------------------------------------------------------
// Functions
procedure SaveAs( filename )
// Ctrl-S
Ctrl( VK_S )
SLEEP(1) // Wait 1sec
id=GETID("名前を付けて保存","#32770")
ACW( id,7,0,669,473,0)

KBD(VK_DELETE,CLICK,100)
SENDSTR( id, filename )
KBD(VK_SPACE,CLICK,100) // Dummy
KBD(VK_RETURN,CLICK,100)

GetFireFox()
MMV(852,200,1000) // Wait 1sec

id=GETID("名前を付けて保存","#32770", 0.1 )
if id > 0 then
SENDSTR( id, "ABC" )
KBD(VK_ESC,CLICK,100)
endif

fend

function GetFireFox( )
id =GETID("— Mozilla Firefox","MozillaWindowClass")
ACW( id,0,0,916,728,0)
RESULT=id
fend

Procedure BlogRanking( page )
ID=GETID("— Mozilla Firefox","MozillaWindowClass")
ACW(ID,0,0,916,728,0)
// TAB3に切り替える：Ctrl-3
Ctrl( VK_3 )
SLEEP( 0.5 )
url="https://plaza.rakuten.co.jp/acc/g200/?Paging="+page
SetUrl( ID, url )
Fend

Procedure DocRanking( page )
ID=GETID("— Mozilla Firefox","MozillaWindowClass")
ACW(ID,0,0,916,728,0)
// TAB4に切り替える：Ctrl-4
Ctrl( VK_4 )
SLEEP( 0.5 )
url="https://plaza.rakuten.co.jp/dac/g200/?Paging="+page
SetUrl( ID, url )
Fend

Procedure Ctrl( key )
KBD( VK_CTRL,DOWN, 100 )
KBD( key, CLICK, 100)
KBD( VK_CTRL,UP, 100 )
Fend

Procedure SetUrl( id, url )
Ctrl( VK_L )
SLEEP( 1 )
KBD(VK_DELETE,CLICK,100)
SENDSTR( id, url )
KBD(VK_SPACE,CLICK,100) // Dummy
KBD(VK_RETURN,CLICK,100)
MMV(852,200,1000) // Wait 1 sec
Fend

ーーー
☆見たまま編集をチェックしてソースを貼り付けた例
(タイトル付き枠なし code)

タイトル

Procedure Ctrl( key )

KBD( VK_CTRL,DOWN, 100 )

KBD( key, CLICK, 100)

KBD( VK_CTRL,UP, 100 )

Fend