k.k_1 - kiuuウイキミラー

k.kのページ分割その1

目次

---

作ったプログラム

• kiuu
• hmw2nako
• nako2hmw

---

開発欄

kiuuのソース

もし、コマンドライン\1が「-debug::*」にワイルドカード一致ならば、 　コマンドライン\1は空 !母艦設計＝「母艦の可視はオフ」 VER=「v0.13テスト版1」　//Version VEINIとは数値＝「0.131」//最新版確認用値 ＃フォント選択処理 フォント選択 それをFに代入 　文字書体はF 母艦のタイトルは「KIUU」 母艦の閉じた時は〜設定保存 ＷＥＢブラウザとはブラウザ これについて 　レイアウトは「全体」 　完了した時は〜　 　　アドバーのテキストは「｛ＷＥＢブラウザのＵＲＬ｝」 　　母艦のタイトルは「{ＷＥＢブラウザのタイトル} 　KIUU」 　新窓開いた時は〜新窓処理 ＃-------Provided by Babibubebo Browser---------- ＃新窓処理 もし、ナデシコランタイムパスのファイル名抽出=「vnako.exe」ならば、 　コマンドライン[0]を「.」で区切る 　B_NAME=それ[0]&「.」&それ[1] ●新窓処理 　設定Fにデフォルト親部品設定 　Bブラウザをブラウザとして作成 　Bブラウザ→可視はオフ 　Bブラウザ→完了した時は〜 　　もし、(MA=BブラウザのURL)でなければ、//重複防止 　　　MA=BブラウザのURL 　　　B_NAMEをBブラウザのURLで引数起動 　　VCL_FREE(Bブラウザ)//メモリ解放 　ＷＥＢブラウザの新窓用ブラウザはBブラウザ 　母艦にデフォルト親部品設定 ●引数起動(PをIで) 　NR=ナデシコランタイムパス 　B=「{母艦パス}temp.lnk」 　Cとはハッシュ 　もし、NRのファイル名抽出=「vnako.exe」ならば 　　C＠「引数」=「&#x22;{P}&#x22; {I}」 　違えば、 　　C＠「引数」=I 　NRをBにCでショートカット詳細作成 　Bを起動 　Bをファイル完全削除 ＃---------------------- 「&#x2c;親1&#x2c;メニュー -&#x2c;印刷&#x2c;ページの印刷(&I)&#x2c;&#x2c;&#x2c;ＷＥＢブラウザの印刷プレビュー -&#x2c;Li&#x2c;検索エンジン(&L) --&#x2c;子子1&#x2c;Google(&G)&#x2c;&#x2c;&#x2c;ＷＥＢブラウザのＵＲＬは『http://www.google.co.jp/』 --&#x2c;子子2&#x2c;Yahoo(&Y)&#x2c;&#x2c;&#x2c;ＷＥＢブラウザのＵＲＬは『http://www.yahoo.co.jp/』 --&#x2c;子子3&#x2c;Bing(&B)&#x2c;&#x2c;&#x2c;ＷＥＢブラウザのＵＲＬは『http://www.bing.com/』 --&#x2c;子子4&#x2c;livedoor&#x2c;&#x2c;&#x2c;ＷＥＢブラウザのＵＲＬは『http://www.livedoor.com/』 --&#x2c;子子5&#x2c;楽天市場(&R)&#x2c;&#x2c;&#x2c;ＷＥＢブラウザのＵＲＬは『http://www.rakuten.co.jp/』 --&#x2c;子子6&#x2c;Goo&#x2c;&#x2c;&#x2c;ＷＥＢブラウザのＵＲＬは『http://www.goo.ne.jp/』 --&#x2c;子子7&#x2c;infoseek&#x2c;&#x2c;&#x2c; ＷＥＢブラウザのＵＲＬは『http://www.infoseek.co.jp/』 -&#x2c;-&#x2c;&#x2c;&#x2c;&#x2c; -&#x2c;Li2&#x2c;kiuu関係ページ --&#x2c;子子8&#x2c;ダウンロードぺージ&#x2c;&#x2c;&#x2c; ＷＥＢブラウザのＵＲＬは『http://www15.atpages.jp/kiuuserver1/kiuu/index2.html』 --&#x2c;子子9&#x2c;作者ページ&#x2c;&#x2c;&#x2c;ＷＥＢブラウザのＵＲＬは『http://www15.atpages.jp/kiuuserver1/k.k/index.html』 --&#x2c;子子10&#x2c;kiuuWiKi&#x2c;&#x2c;&#x2c;ＷＥＢブラウザのＵＲＬは『http://www15.atpages.jp/kiuuserver1/wiki/』 -&#x2c;-&#x2c;&#x2c;&#x2c;&#x2c; -&#x2c;Li3&#x2c;ツール --&#x2c;子子11&#x2c;OS調べ&#x2c;&#x2c;&#x2c;ｋ -&#x2c;-&#x2c;&#x2c;&#x2c;&#x2c; -&#x2c;確認&#x2c;kiuu最新版確認&#x2c;&#x2c;&#x2c;最新版確認 -&#x2c;kiuuVer&#x2c;kiuuバージョン情報&#x2c;&#x2c;&#x2c;バージョン情報 -&#x2c;-&#x2c;&#x2c;&#x2c;&#x2c; -&#x2c;閉じる&#x2c;終了(&S)&#x2c;&#x2c;&#x2c;母艦を閉じる &#x2c;SET&#x2c;設定&#x2c;&#x2c;&#x2c;設定 &#x2c;BM&#x2c;ブックマーク表示&#x2c;&#x2c;&#x2c;BM表示」をメニュー一括作成 バーとはパネル これについて 　レイアウトは「上」 　Ｈは30 　背景色はウィンドウ背景色 baとは画像ボタン これについて 　テキストは「戻る」 　Yは-1 　Xは5 　Hは30 　Wは30 　親部品はバー 　クリックした時は〜ＷＥＢブラウザの戻る 　ヒントは「戻る」 　フラットはオン もし、(「｛母艦パス｝\kiuu_dll\1.png」の存在＝1)ならば、 　baのテキストは「」 　baの画像は「｛母艦パス｝\kiuu_dll\1.png」 neとは画像ボタン これについて 　テキストは「進む」 　Yは-1 　Xは40 　Hは30 　Wは30 　親部品はバー 　クリックした時は〜ＷＥＢブラウザの進む 　ヒントは「進む」 　フラットはオン もし、(「｛母艦パス｝\kiuu_dll\2.png」の存在＝1)ならば、 　neのテキストは「」 　neの画像は「｛母艦パス｝\kiuu_dll\2.png」 koshinとは画像ボタン これについて 　テキストは「更新」 　Yは-1 　Xは85 　Hは30 　Wは30 　親部品はバー 　クリックした時は〜ＷＥＢブラウザの更新 　ヒントは「更新」 　フラットはオン もし、(「｛母艦パス｝\kiuu_dll\4.png」の存在＝1)ならば、 　koshinのテキストは「」 　koshinの画像は「｛母艦パス｝\kiuu_dll\4.png」 アドバーとはエディタ これについて 　Yは0 　Xは125 　Wは母艦のW-180 　ヒントは「URLを表示します」 　キー押した時は〜 　　もし、アドバーの押された仮想キーが「13」ならばＷＥＢブラウザのＵＲＬは「｛アドバーのテキスト｝」 aaとは画像ボタン これについて 　テキストは「移動」 　Yは-2 　Xは125+アドバーのW 　Hは30 　Wは30 　親部品はバー 　クリックした時は〜ＷＥＢブラウザのＵＲＬは「｛アドバーのテキスト｝」 　ヒントは「指定のＵＲＬに飛びます」 　フラットはオン もし、(「｛母艦パス｝\kiuu_dll\3.png」の存在＝1)ならば、 　aaのテキストは「」 　aaの画像は「｛母艦パス｝\kiuu_dll\3.png」 ＃母艦サイズ変更時 母艦のサイズ変更した時は〜 　　アドバーのW＝母艦のW-180 　　aaのX＝125+アドバーのW ＃ステータスバー 下バーとは、ステータスバー ＃情報ステータスバー 時計更新とはタイマー これについて 　間隔は1 　開始 　時満ちた時は〜 　下バーは「{今日}　{今}　CPU:{CPU使用率取得}%　メモリ:{メモリ使用率取得}%」 ＃設定フォーム 設定Fとはフォーム これについて 　可視はオフ 　W=400。H=300。 　スタイルは「枠固定」 基本設定とはグループボックス これについて 親部品は設定F 　X=10 　Y=10 　W=360 　H=220 　文字サイズは「12」 間隔Lとはラベル これについて 　親部品は基本設定 　テキストは「更新間隔(ms):」 　X=10 　Y=33 間隔EDとはスピンエディタ これについて 　親部品は基本設定 　X=100 　Y=30 　テキストは「1000」 　最小値は10 　最大値は5000 OKBとはボタン これについて 　親部品は設定F 　X=220 　Y=240 　テキストは「OK」 　そのクリックした時は〜 　　時計更新の間隔は「｛間隔ED/1000｝」 　　設定Fを閉じる。 ＃-------------------------＃ ＃　 バージョンアップ確認　＃ ＃-------------------------＃ アップフォームとはフォーム これについて 　可視はオフ 　タイトルは「最新版の確認」 　スタイルはダイアログスタイル 　背景色はウィンドウ背景色 　W=300。そのH=180 アップフォームを中央移動 詳細Bとはボタン これについて 　親部品はアップフォーム 　テキストは「▼詳細情報」 　X=10。そのY=100。W＝120 　有効はオフ 　詳細Bのクリックした時は〜 　　もし、OP＝0ならば 　　　アップフォームのH=330 　　アップメモのテキストは「{情報}」 　　詳細Bのテキストは「▲詳細情報」 　　　OP=1 　　違えば、 　　アップフォームのH=180 　　詳細Bのテキストは「▼詳細情報」 　　OP=0 ダウンBとはボタン これについて 　親部品はアップフォーム 　テキストは「最新版ダウンロード」 　X＝150。そのY=100。W=140 　有効はオフ 　クリックした時は〜 　　ＷＥＢブラウザのURLは「http://www15.atpages.jp/~kiuuserver1/wiki/index.php? kiuu%A5%C0%A5%A6%A5%F3%A5%ED%A1%BC%A5%C9%A5%DA%A1%BC%A5%B8」//ダウンロードURL 　　アップフォームを閉じる アップメモとはメモ これについて 　親部品はアップフォーム 　テキストは「」 　X＝10。そのY=155 　W=280。そのH=140 　文字書体は「ＭＳ　ゴシック」 　編集はオフ ＃ブックマーク BM_Pとはパネル これについて 　レイアウトは「左」 　可視はオフ 　スタイルは「凹」 BM_LAとはラベル これについて 　親部品はBM_P 　レイアウトは「上」 　文字位置は「中央」 　文字サイズは「18」 　テキストは「ブックマーク」 BM_Sとはスプリッタ これについて 　可視はオフ 　レイアウトは「左」 　変更した時は〜 　　BM_TのW=BM_PのW-15 BM_POPとはポップアップメニュー BM_POPに「&#x2c;BMPOP1&#x2c;フォルダ追加&#x2c;&#x2c;&#x2c;BMF追加 &#x2c;BMPOP2&#x2c;名前変更&#x2c;&#x2c;&#x2c;BM名前変更」をポップアップメニュー一括作成 BM_Tとはツリー これについて 　親部品はBM_P 　X=5。Y=50 　H=BM_PのH-100 　W=BM_PのW-15 　ポップアップメニューはBM_POP 　アイテムは「&#x2c;FAV&#x2c;お気に入り」 　ダブルクリックした時は〜 　　もし、BM_Tの選択IDが「」でなければ、 　　　もし、BM_Tの選択IDから7文字左部分＝「http://」ならば 　　　　ＷＥＢブラウザのURLはBM_Tの選択ID BM_B_ADDとはボタン これについて 　親部品はBM_P 　X=10 　Y=BM_TのH+60 　テキストは「追加」 　クリックした時は〜 　　BM追加 BM_B_DELとはボタン これについて 　親部品はBM_P 　X=100 　Y=BM_TのH+60 　テキストは「削除」 　クリックした時は〜 　　BM削除 ＃母艦表示 もし、(「｛母艦パス｝setting.kiuu」の存在＝1)ならば、 　設定読込 ＃新窓として移動か？ もし、コマンドライン[1]が空でなければ、 　ＷＥＢブラウザのURLはコマンドライン[1] 母艦の可視はオン ＃--------＃ ＃各種関数＃ ＃--------＃ ＃ブックマーク関数 ●BM追加 　もし、ＷＥＢブラウザのURLが「」でなければ 　　エラー監視 　　　もし、BM_Tの選択IDが「」でなければ、 　　　　BM_Tに「{BM_Tの選択ID}&#x2c;{ＷＥＢブラウザのURL}&#x2c;{ＷＥＢブラウザのタイトル}」を追加 　　　違えば、 　　　　BM_Tに「&#x2c;{ＷＥＢブラウザのURL}&#x2c;{ＷＥＢブラウザのタイトル}」を追加 　　エラーならば 　　　MessageBox((母艦の、ハンドル)&#x2c;「既に登録してあります。」&#x2c;「警告」&#x2c;$30)。 　違えば、 　　MessageBox((母艦の、ハンドル)&#x2c;「ブラウザに何も表示されていません。 追加したいページを表示してから押してください。」&#x2c;「警告」&#x2c;$30)。 ●BM削除 　もし、BM_Tの選択IDが「」でなければ 　　もし、BM_Tの選択ID=「FAV」でなければ 　　　BM_Tの選択IDをBM_Tのノード削除 　　違えば、 　　　MessageBox((母艦の、ハンドル)&#x2c;「お気に入りフォルダは削除できません。」&#x2c;「警告」&#x2c;$30)。 ●BMF追加 　「フォルダ名を入力してください。(ルートに作成されます)」と尋ねる 　もし、それが「」でなければ、 　　BM_Tに「&#x2c;{それ}&#x2c;{それ}」を追加 ●BM名前変更 　もし、BM_Tの選択IDが「」でなければ、 　　「新しい名前を入力してください。」と尋ねて、NEWに代入 　　もし、NEWが「」でなければ 　　　BM_Tの選択IDをNEWにBM_Tのテキスト変更 ●BM表示 　もし、BM_OPEN=1ならば 　　BM_Sの可視はオフ 　　BM_Pの可視はオフ 　　BM_OPEN=0 　　BMのテキストは「ブックマーク表示」 　違えば、 　　BM_Sの可視はオン 　　BM_Pの可視はオン 　　BM_OPEN=1 　　BMのテキストは「ブックマーク非表示」 ＃設定 ●設定 　設定Fを中央移動。 　設定Fの可視はオン。 ●設定読込 　「setting.kiuu」のINI開いてSINIに代入。 　SINIで「設定」の「位置」をINI読んでBXYに代入。 　SINIで「設定」の「間隔」をINI読んでKANに代入。 　SINIのINI閉じる。 　母艦の位置はBXY 　時計更新の間隔は「｛KAN/1000｝」 　間隔EDのテキストはKAN 　もし、(「｛母艦パス｝bookmarks.dat」の存在＝1)ならば、 　　「bookmarks.dat」を開いてBM_Tのアイテムに代入 ●設定保存 　「setting.kiuu」のINI開いてSINIに代入。 　SINIで「設定」の「位置」に「｛母艦の位置｝」をINI書く。 　SINIで「設定」の「間隔」に「｛間隔ED｝」をINI書く。 　SINIのINI閉じる。 　BM_Tのアイテムを「{母艦パス}bookmarks.dat」へ保存 ●バージョン情報 　　「バージョン情報 　　{VER}です」と言う。 ●ｋ 　「{OS} v{OSバージョン}」を言う。 ●最新版確認 　K404とは文字列 　NEW_VERとは数値 　NEW_NAMEとは文字列 　情報とは文字列 　アップフォームをウィンドウ背景色で画面クリア 　アップフォームの可視はオン 　アップフォームの5&#x2c;5へ「最新バージョンを確認しています...」を文字表示 　 アップフォームの5&#x2c;40へ「ご利用のバージョン：｛VER｝」を文字表示 　0.1秒待つ。 　経過ダイアログはオフ 　エラー監視 　＃最新版確認INIをダウンロード 　　「http://www15.atpages.jp/~kiuuserver1/wiki/index.php?plugin=attach&pcmd=open&file=kiuu_update.ini&refer=%A4%D0%A4%D3%A4%D6%A4%D9%A4%DC%A4%F3」を「{テンポラリフォルダ}ver.tmp」にHTTPダウンロード 　エラーならば 　　アップフォームの可視はオフ。 　　MessageBox((母艦の、ハンドル)&#x2c;「更新情報の確認に失敗しました。{ }少し時間がったってから再試行してください。[ }それでも失敗する場合は、作者まで連絡ください。」&#x2c;「失敗」&#x2c;$2030)。 ＃404エラー対策 　「{テンポラリフォルダ}ver.tmp」を開いてK404に代入。 　K404で0から「404」を文字検索。 　もし、それ＞0ならば＃404エラー 　　アップフォームの可視はオフ 　　「{テンポラリフォルダ}ver.tmp」をファイル完全削除 　　MessageBox((母艦の、ハンドル)&#x2c;「更新情報の確認に失敗しました。{ }少し時間がったってから再試行してください。{ }それでも失敗する場合は、作者まで連絡ください。」&#x2c;「404」&#x2c;$2030)。 　＃正常時 　違えば、 　　「{テンポラリフォルダ}ver.tmp」のINI開いてVERINIに代入。 　　VERINIで「最新」の「NEW_VER」をINI読んでNEW_VERに代入。 　　VERINIで「最新」の「NEW_NAME」をINI読んでNEW_NAMEに代入。 　　VERINIで「最新」の「情報」をINI読んで情報に代入。 　　VERINIのINI閉じる。 　　「{テンポラリフォルダ}ver.tmp」をファイル完全削除 　　アップフォームの5&#x2c;65へ「最新バージョン　　：｛NEW_NAME｝」を文字表示 　　0.5秒待つ 　　もし、(VEINI＜NEW_VER)ならば、//最新版がある 　　　情報を「<br>」で区切って情報に代入 　　　詳細Bの有効はオン 　　　ダウンBの有効はオン 　　違えば、//最新版がない 　　　アップフォームの可視はオフ 　　　MessageBox((母艦の、ハンドル)&#x2c;「ご利用のバージョンは最新です。」&#x2c;「アップデートの確認」&#x2c;$2040)。 ●MessageBox(h&#x2c;t&#x2c;c&#x2c;u) =DLL(&#x22;user32.dll&#x22;&#x2c; &#x22;int MessageBoxA( HWND hWnd&#x2c; // handle of owner window LPCTSTR lpText&#x2c; // address of text in message box LPCTSTR lpCaption&#x2c; // address of title of message box UINT uType // style of message box )&#x22;)#&#x22;

コメント

• 要望のあった最新版確認機能を搭載しました。サーバーにINIをアップすることとkiuuの固定的な最新版ダウンロードページの決定をする必要があります。上のソースで動作を確認するために、一時的にWikiにINIをアップしておきました。動作をお確かめください。　--ばびぶべぼん
• それが、容量が少ないので、固定のページを作れないのです。 --k.k
• もう1アカウント分@pagesのサーバーを借りてみては？1GBあれば十分ではないですかね？　-- ばびぶべぼん
• うーんつかっている50％は過去のバージョン置き場で使っているのです --k.k
• あ〜そうですか。多少使い勝手が悪いですけど、オンラインストレージサービスのSkydrive何かどうでしょう？25GBありますよ。 -- ばびぶべぼん
• それは無料ですか -- k.k
• はい、無料です。マイクロソフトのMSNのサービスです。利用にはWindows Live IDを作成するが必要があります。 -- ばびぶべぼん
• Windows Live IDなら持ってます -- k.k
• お！じゃぁできますね。FTPが使えないのが面倒ですけど　-- ばびぶべぼん
• k.kにあったコメントをメモ形式をコメント形式に直してみました　(なので日時は書いてありません) -- k.k
• ブックマーク機能を追加しました -- ばびぶべぼん
• えー　kiuu_v0.12をリリースするにあたって、内蔵のスキンファイルを決めたいと思います -- k.k
• 新窓処理時のチラつき修正。最新版確認の改良。 -- ばびぶべぼん

hmw2nakoのソース

※【なでしこ実行モード】cnako 「*.hmw」のファイル選択 それを開く それをFに代入 「*.nako」の保存ファイル選択 それをF2に代入 「変換中」を継続表示 0.5秒待つ 「.10％」を継続表示 0.5秒待つ 「.20％」を継続表示 0.5秒待つ 「.30％」を継続表示 0.5秒待つ 「.40％」を継続表示 0.5秒待つ 「.50％」を継続表示 0.5秒待つ 「.60％」を継続表示 0.5秒待つ 「.70％」を継続表示 0.5秒待つ 「.80％」を継続表示 0.5秒待つ 「.90％」を継続表示 2.5秒待つ FをF2に保存 「.100％ 変換完了」を継続表示 待機。

コメント欄

nako2hmwのソース

※【なでしこ実行モード】cnako 「*.nako」のファイル選択 それを開く それをFに代入 「*.hmw」の保存ファイル選択 それをF2に代入 「変換中」を継続表示 0.5秒待つ 「.10％」を継続表示 0.5秒待つ 「.20％」を継続表示 0.5秒待つ 「.30％」を継続表示 0.5秒待つ 「.40％」を継続表示 0.5秒待つ 「.50％」を継続表示 0.5秒待つ 「.60％」を継続表示 0.5秒待つ 「.70％」を継続表示 0.5秒待つ 「.80％」を継続表示 0.5秒待つ 「.90％」を継続表示 2.5秒待つ FをF2に保存 「.100％ 変換完了」を継続表示 待機。

コメント欄