Windowsマクロテクニック

• Windows マクロテクニック (単行本)
• 小林 シンヤ (著)
• 価格： ￥ 1,890
• 単行本: 240ページ
• 出版社: 翔泳社 (2005/12/7)
• ISBN-10: 4798110434

UWSCのフォーラム/情報交換の場を開設しました

※UWSCのフォーラム/情報交換の場を開設しました

※UWSCのフォーラム/情報交換の場⇒UWSC http://canal22.org/
あわせてtwitterで新着記事や注目情報をツイートしております。宜しければフォローやリツートをお待ちしております。
https://twitter.com/uwscweb/
@uwscwebをフォロー

Windowsマクロテクニック 掲載スクリプト一覧

※スクリプトについてのお知らせ

UWSCは2006年5月15日以降、バージョンアップが行われ、ver. 4.0以上になっています。
文中のスクリプトは旧バージョンを元に作られています。

1章■マクロの基礎知識

• リスト1-1：「hello world.」と入力するマクロ
• リスト1-2：MMV命令を削除したスクリプト
• リスト1-3：キー入力の待ち時間を5msにしたスクリプト

2章■即効! サンプルマクロ集

• SAMPLE01：複数のWebサイトへログインする
• SAMPLE02：リンク先URLを抽出する
• SAMPLE03：特定の語句が含まれるリンク先URLを抽出する
• SAMPLE04：Webサイトのデータを表示する
• SAMPLE04_2：サンプルサイトのデータを表示する
• SAMPLE05：フォームに定型情報を自動入力する
• SAMPLE06：フォームの入力内容をクリップボードに保存する
• SAMPLE07：チェックボックスを自動的に入れる
• SAMPLE08：入力したメールアドレスを5本のメールマガジンにそれぞれ登録する
• SAMPLE09：掲示板に定時投稿する
• SAMPLE10：リンク先をすべて別ウィンドウで開く
• SAMPLE11：WebサイトのデータをExcelで会社名順に並び替える
• SAMPLE12：WebサイトのデータをExcelでグラフ化する
• SAMPLE12_2：サンプルサイトのデータをExcelでグラフ化する
• SAMPLE13：1時間おきに巡回してWebサイトを保存する
• SAMPLE14：定時巡回して得たデータをメールに添付して送信する
• SAMPLE14_2：サンプルサイトから得たデータをメールに添付して送信する
• SAMPLE15：メルマガの文章を自動生成する
• SAMPLE17：ExcelのデータをWebフォームに自動入力
• SAMPLE18：Webの情報をExcelに残す
• SAMPLE19：入力した名前を埋め込んでファイルを自動生成する
• SAMPLE20：複数のアプリケーション連携（Photoshop+Outlook Express）
• SAMPLE20_2：複数のアプリケーション連携（ペイント+Outlook Express）
• SAMPLE21：「ひろし」の変換候補を抽出する
• SAMPLE22_1：あるディレクトリ内のファイルの名前を取得する
• SAMPLE22_2：あるファイルの最初の一行を取得する
• SAMPLE24：任意の桁数でランダムなパスワードを好きなだけ生成する
• SAMPLE27：使用履歴を一括削除する

3章■UWSCで使える関数や制御文

• リスト3-1：マウス移動のサンプル1
• リスト3-2：マウス移動のサンプル2
• リスト3-3：アクティブウィンドウのIDを表示する
• リスト3-4：ウィンドウのアクティブ化（変数なし）
• リスト3-5：ウィンドウのアクティブ化（変数使用）
• リスト3-6：ウィンドウの最大化（変数なし）
• リスト3-7：ウィンドウの最大化（変数使用）
• リスト3-8：ウィンドウを閉じる（変数なし）
• リスト3-9：ウィンドウを閉じる（変数使用）
• リスト3-10：ウィンドウ内を全選択
• リスト3-11：ウィンドウを更新
• リスト3-12：ウィンドウを閉じる
• リスト3-13：10個のWebフォームに数値を入力して最後に［OK］ボタンをクリック
• リスト3-13_2：繰り返し処理に制御文を取り込んだマクロ
• リスト3-14：変数Aが1の時「a cat」と書き込む
• リスト3-15：変数Aの値によって書き込む内容を変える
• リスト3-16：Aが100より小さい間「yes」を繰り返し入力する
• リスト3-17：100より大きくなったら処理を止める
• リスト3-18：100回まで「yesman」を書き込む
• リスト3-19：SELECTを使った簡潔な条件分岐
• リスト3-20：「taiho」を200回書き込む
• リスト3-21：「taiho」を120回目の入力で中止する
• リスト3-22：30個のフォームに文字列を入力して［OK］ボタンを押す
• リスト3-23：フォーカス部分のテキストを取得
• リスト3-24：文字列の一部分をコピーする
• リスト3-25：文字列の置換
• リスト3-26：指定文字列を検索する
• リスト3-27：文字列の長さを数える
• リスト3-28：特定の場所から最後までをコピーする
• リスト3-29：マウスカーソルの下にあるウィンドウのタイトルを取得する
• リスト3-30：1900から1ずつ加えてフォームに入力していく
• リスト3-31：1900に1ずつ加え、さらに「年」を付け加えてフォームに入力する
• リスト3-32：クチバシが下に付いた30秒時計
• リスト3-33：メモ帳のメニューを操作する
• リスト3-34：チェックボックスの状態を取得する
• リスト3-35：「置換」ウィンドウのアイテム総数を取得
• リスト3-36：アイテム名の取得
• リスト3-37：［はい］［いいえ］ボタンを持ったメッセージボックス
• リスト3-38：入力した文字を吹出しで表示する
• リスト3-39：項目が5つあるセレクトボックス
• リスト3-40：国名に対応した首都名をメモ帳に貼り付ける
• リスト3-41：フォーム個数に応じて入力回数を変化させる

4章■

• リスト4-1：COMコンポーネントを使ったマクロ
• リスト4-2：4つのURLに順番に移動する
• リスト4-3：自作関数の定義と利用
• リスト4-4：サンプルページにアクセスするマクロ
• リスト4-5：フォームの個数をメッセージボックスで表示する
• リスト4-6：1つ目のフォームにある要素を数える
• リスト4-7：5つ目のフォーム（reidai_e）にある要素の数を調べる
• リスト4-8：4つの項目を入力する
• リスト4-9：4つの項目を入力する（要素名の利用）
• リスト4-10：項目の入力とチェックを入れる
• リスト4-11：入力と選択をした後、再度「名前」欄を選択する
• リスト4-12：いろいろな情報を取得する
• リスト4-13：リンクの合計数を調べる
• リスト4-14：最後のリンク先URLを表示してジャンプする
• リスト4-15：Excelを起動して可視化、さらにワークブックを追加
• リスト4-16：フォントとサイズを変更し、さらに1行ごとにフォントと塗りつぶしの色を変更する
• リスト4-17：CPU使用率をメッセージボックスに表示する
• リスト4-18：メモ帳を開いて「1, 1」から「500, 500」の位置まで順次移動していく
• リスト4-19：WINDOWSの種類をメッセージボックスに表示する
• リスト4-20：現在時間をメッセージボックスに表示する
• リスト4-21：スタンバイ状態にする（［Enter］キーか電源ボタンを押すと復帰する）
• リスト4-22：入力した値を数値かどうかチェックしてメッセージボックスに表示
• リスト4-23：カンマが入っている文字列を数値に変える
• リスト4-24：「 こんにちは 」と両端に半角スペースが入っている文字列を編集する
• リスト4-25：「500, 500」の位置のRGB値を取得し16進数でメッセージボックスに表示する
• リスト4-26：ASCIIコード「71」に該当する文字を表示する
• リスト4-27：入力した文字をASCIIコードに変換して表示する
• リスト4-28：入力した文字の2文字目が1バイトか2バイトかを判別する
• リスト4-29：Windows Media Playerを起動する例
• リスト4-30：あいさつを順番に表示するAISATSU関数

5章■

• リスト5-1：メモ帳を起動して文字列を書き込む
• リスト5-2：メモ帳を開き、「おひとよしね」と書き込んで保存をせずに終了を100回繰り返す
• リスト5-3：変数IFと変数ENDIF：構文エラーとなり実行できない
• リスト5-4：変数 MSGBOX：実行はできるが、変数なのか関数なのかがわかりにくい
• リスト5-5：ページ内のリンクをすべて配列に格納し、あとで希望するURLへジャンプするスクリプト
• リスト5-6：掲示板に投稿するマクロ

リスト1-1：「hello world.」と入力するマクロ

ACW(GETID("無題 - メモ帳","Notepad"),164,149,490,299,0) BTN(LEFT,DOWN,565,172,0) ACW(GETID("無題 - メモ帳","Notepad"),164,149,490,299,0) BTN(LEFT,UP,565,172,47) MMV(565,172,328) MMV(565,172,1000) KBD(VK_H,CLICK,125) KBD(VK_E,CLICK,94) KBD(VK_L,CLICK,203) KBD(VK_L,CLICK,62) KBD(VK_O,CLICK,94) KBD(VK_SPACE,CLICK,172) KBD(VK_W,CLICK,422) KBD(VK_O,CLICK,109) KBD(VK_R,CLICK,110) KBD(VK_L,CLICK,172) KBD(VK_D,CLICK,344) KBD(VK_OEM_PERIOD,CLICK,3750) MMV(567,172,1500) MMV(580,180,15) MMV(595,187,16) MMV(606,194,16) MMV(631,205,15) MMV(651,213,16) MMV(657,218,15) MMV(694,231,16) MMV(704,233,16) MMV(719,239,15) MMV(727,243,16) MMV(733,244,16) MMV(734,249,15) MMV(735,250,16) MMV(735,252,15) MMV(736,254,16) MMV(736,257,16) MMV(736,260,15) MMV(734,267,16) MMV(732,270,16) MMV(730,275,15) MMV(727,286,16) MMV(725,289,15) MMV(725,292,16) MMV(723,295,16)

参考ページ：UWSC

TOPに戻る

リスト1-2：MMV命令を削除したスクリプト

ACW(GETID("無題 - メモ帳","Notepad"),164,149,490,299,0) BTN(LEFT,DOWN,565,172,0) ACW(GETID("無題 - メモ帳","Notepad"),164,149,490,299,0) BTN(LEFT,UP,565,172,47) KBD(VK_H,CLICK,125) KBD(VK_E,CLICK,94) KBD(VK_L,CLICK,203) KBD(VK_L,CLICK,62) KBD(VK_O,CLICK,94) KBD(VK_SPACE,CLICK,172) KBD(VK_W,CLICK,422) KBD(VK_O,CLICK,109) KBD(VK_R,CLICK,110) KBD(VK_L,CLICK,172) KBD(VK_D,CLICK,344) KBD(VK_OEM_PERIOD,CLICK,3750)

参考ページ：UWSC MMV

TOPに戻る

リスト1-3：キー入力の待ち時間を5msにしたスクリプト

ACW(GETID("無題 - メモ帳","Notepad"),164,149,490,299,0) BTN(LEFT,DOWN,565,172,0) ACW(GETID("無題 - メモ帳","Notepad"),164,149,490,299,0) BTN(LEFT,UP,565,172,47) KBD(VK_H,CLICK,5) KBD(VK_E,CLICK,5) KBD(VK_L,CLICK,5) KBD(VK_L,CLICK,5) KBD(VK_O,CLICK,5) KBD(VK_SPACE,CLICK,5) KBD(VK_W,CLICK,5) KBD(VK_O,CLICK,5) KBD(VK_R,CLICK,5) KBD(VK_L,CLICK,5) KBD(VK_D,CLICK,5) KBD(VK_OEM_PERIOD,CLICK,5)

参考ページ：仮想キー一覧

TOPに戻る

SAMPLE01:複数のWebサイトへログインする

// Livedoor IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://member.livedoor.com/login/") REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 IE.document.forms[0].elements[2].value = "アカウント名" IE.document.forms[0].elements[3].value = "パスワード" IE.document.forms[0].elements[5].click() REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 IE.navigate("http://blog.livedoor.com/") // MSN IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://www.hotmail.com") REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 IE.document.forms[0].elements[2].value = "アカウント名" IE.document.forms[0].elements[3].value = "パスワード" IE.document.forms[0].elements[4].click() // Yahoo！ JAPAN IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://login.yahoo.co.jp/") REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 IE.document.forms[0].elements[22].value = "アカウント名" IE.document.forms[0].elements[23].value = "パスワード" IE.document.forms[0].elements[25].click() REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 IE.navigate("http://auctions.yahoo.co.jp/")

パスワード挿入バージョン

<PASSWD = INPUT("パスワードを入れてください","",1) IFB PASSWD <> "1234" EXITEXIT ENDIF // Livedoor IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://member.livedoor.com/login/") REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 IE.document.forms[0].elements[2].value = "アカウント名" IE.document.forms[0].elements[3].value = "パスワード" IE.document.forms[0].elements[5].click() REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 IE.navigate("http://blog.livedoor.com/") // MSN IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://www.hotmail.com") REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 IE.document.forms[0].elements[2].value = "アカウント名" IE.document.forms[0].elements[3].value = "パスワード" IE.document.forms[0].elements[4].click() // Yahoo！ JAPAN IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://login.yahoo.co.jp/") REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 IE.document.forms[0].elements[22].value = "アカウント名" IE.document.forms[0].elements[23].value = "パスワード" IE.document.forms[0].elements[25].click() REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 IE.navigate("http://auctions.yahoo.co.jp/")

参考ページ：UWSC

TOPに戻る

SAMPLE02:リンク先URLを抽出する

URL = INPUT("URLを入力してください", "http://www.seshop.com") TOTAL_LINKS = "" IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate(URL) REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 LINK_AMOUNT = IE.Document.links.length FOR KAISU = 0 TO (LINK_AMOUNT - 1) TOTAL_LINKS = TOTAL_LINKS + IE.document.links[KAISU].href + "<#CR>" NEXT EXEC("NOTEPAD") SENDSTR(GETID("無題 - メモ帳"), TOTAL_LINKS)

参考ページ：UWSC EXEC

TOPに戻る

SAMPLE03:特定の語句が含まれるリンク先URLを抽出する

URL = INPUT("URLを入力してください", "http://www.seshop.com") TOTAL_LINKS = "" IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate(URL) REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 LINK_AMOUNT = IE.Document.links.length FOR KAISU = 0 TO (LINK_AMOUNT - 1) IFB POS("www", IE.document.links[KAISU].href) > 0 TOTAL_LINKS = TOTAL_LINKS + IE.document.links[KAISU].href + "<#CR>" ENDIF NEXT EXEC("NOTEPAD") SENDSTR(GETID("無題 - メモ帳"), TOTAL_LINKS)

参考ページ：部分的にダブルクォーテーションで括られたCSVファイルを整形したい

TOPに戻る

SAMPLE04:Webサイトのデータを表示する

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://dailynews.yahoo.co.jp/") REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 SENDSTR(0, IE.document.body.innertext) START = POS("主なトピックス", GETSTR(0)) END = POS("バックナンバー", GETSTR(0)) IE.quit FUKIDASI(COPY(GETSTR(0), START, END - START), 100, 100, 0, 18) SLEEP(10)

上のサンプルが正常に動作しない場合は以下のスクリプトでお確かめ下さい。

SAMPLE04_2:Webサイトのデータを表示する

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://qrt.lrv.jp/000.html") REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 SENDSTR(0, IE.document.body.innerTEXT) START = POS("主なトピックス", GETSTR(0)) END = POS("バックナンバー", GETSTR(0)) IE.quit FUKIDASI(COPY(GETSTR(0), START, END - START), 100, 100, 0, 18) SLEEP(10)

参考ページ：UWSC GETSTR

TOPに戻る

SAMPLE05:フォームに定型情報を自動入力する

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://qrt.lrv.jp/030.html") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 IE.document.forms[0].elements[0].value = "小林" IE.document.forms[0].elements[1].value = "シンヤ" IE.document.forms[0].elements[2].value = "こばやし" IE.document.forms[0].elements[3].value = "しんや" IE.document.forms[0].elements[4].value = "23才" IE.document.forms[0].elements[5].value = "mail" IE.document.forms[0].elements[6].value = "izagne.com" IE.document.forms[0].elements[7].value = "mail" IE.document.forms[0].elements[8].value = "izagne.com" IE.document.forms[0].elements[9].value = "xxx" IE.document.forms[0].elements[10].value = "xxxx" IE.document.forms[0].elements[11].value = "03" IE.document.forms[0].elements[12].value = "33xx" IE.document.forms[0].elements[13].value = "xxxx" IE.document.forms[0].elements[14].value = "090" IE.document.forms[0].elements[15].value = "xxxx" IE.document.forms[0].elements[16].value = "xxxx" IE.document.forms[0].elements[17].value = "東京都" IE.document.forms[0].elements[18].value = "新宿区" IE.document.forms[0].elements[19].value = "××町3-33-3" IE.document.forms[0].elements[20].value = "新宿駅" IE.document.forms[0].elements[21].value = "フリーター" IE.document.forms[0].elements[22].value = "スポーツ・読書" IE.document.forms[0].elements[23].value = "8人" IE.document.forms[0].elements[24].value = "港区"

TOPに戻る

SAMPLE06:フォームの入力内容をクリップボードに保存する

Dim BUN[24] IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://qrt.lrv.jp/040.html") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 FOR A = 0 TO 24 BUN[A] = IE.document.forms[0].elements[A].value NEXT EXEC("notepad") MEMO = GETID("無題 - メモ帳") SENDSTR(MEMO, BUN[0] + " " + BUN[1] + "<#CR>") SENDSTR(MEMO, BUN[2] + " " + BUN[3] + "<#CR>") SENDSTR(MEMO, BUN[4] + "<#CR>") SENDSTR(MEMO, BUN[5] + "@" + BUN[6] + "<#CR>") SENDSTR(MEMO, BUN[7] + "@" + BUN[8] + "<#CR>") SENDSTR(MEMO, BUN[9] + "-" + BUN[10] + "<#CR>") SENDSTR(MEMO, BUN[11] + "-" + BUN[12] + "-" + BUN[13] + "<#CR>") SENDSTR(MEMO, BUN[14] + "-" + BUN[15] + "-" + BUN[16] + "<#CR>") SENDSTR(MEMO, BUN[17] + BUN[18] + BUN[19] + "<#CR>") SENDSTR(MEMO, BUN[20] + "<#CR>") SENDSTR(MEMO, BUN[21] + "<#CR>") SENDSTR(MEMO, BUN[22] + "<#CR>") SENDSTR(MEMO, BUN[23] + "<#CR>") SENDSTR(MEMO, BUN[24] + "<#CR>")

参考ページ：UWSC SENDSTR

TOPに戻る

SAMPLE07:チェックボックスを自動的に入れる

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://qrt.lrv.jp/050.html") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 FOR A = 0 TO 359 IE.document.forms[0].elements[A].click() NEXT

TOPに戻る

SAMPLE08:入力したメールアドレスを5本のメールマガジンにそれぞれ登録する

MAIL = INPUT("メールアドレス", "mail@izagne.com") IE = CREATEOLEOBJ("InternetExplorer.Application") MAILMAGAZINE("http://qrt.lrv.jp/060.html", MAIL, IE) MAILMAGAZINE("http://qrt.lrv.jp/061.html", MAIL, IE) MAILMAGAZINE("http://qrt.lrv.jp/062.html", MAIL, IE) MAILMAGAZINE("http://qrt.lrv.jp/063.html", MAIL, IE) MAILMAGAZINE("http://qrt.lrv.jp/064.html", MAIL, IE) FUNCTION MAILMAGAZINE(aURL, MAIL, IE) IE.visible = True IE.navigate(aURL) REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 IE.Document.forms[0].mailad.value = MAIL IE.Document.forms[0].elements[1].click() REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 RESULT = True FEND

参考ページ：UWSC INPUT

TOPに戻る

SAMPLE09:掲示板に定時投稿する

AUTH_NAME = INPUT("貴方のお名前、ニックネームは？", "izagne") SELECT SLCTBOX(SLCT_BTN, 0, "調子は？", "悪い", "普通", "良い") CASE SLCT_1 COM_STATE = "海外からの注文が全体的に20%まで落ち込んでいる。<#CR>現地との連携をより緊密にしながら現地との連携をより緊密にしながら効率化をはかっていこう<#CR>" CASE SLCT_2 COM_STATE = "海外からの注文が全体で50%という適正な数値を維持している。<#CR>現状に満足することなく、よりよいサービスを模索して行きたい<#CR>" CASE SLCT_3 COM_STATE = "海外からの注文が全体の70%に迫る勢いである<#CR>継続的に質の高いサービスを提供していく事も重要であるが、海外だけの注文に依存しないよう新たな道を模索する必要がある。<#CR>" SELEND GETTIME() COM_TIME = G_TIME_MM2 + "月" + G_TIME_DD2 + "日" + G_TIME_HH2 + "時の報告" + "<#CR>" IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://qrt.lrv.jp/cp-bin/p-bbs/p-bbs2.php") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 IE.document.forms[0].name.value = AUTH_NAME IE.document.forms[0].email.value = "mail@izagne.com" IE.document.forms[0].sub.value = COM_TIME IE.document.forms[0].com.value = COM_STATE + "報告責任者：" + AUTH_NAME IE.document.forms[0].password.value = "izagne" IE.document.forms[0].elements[4].click

参考ページ：UWSC SLCTBOX

TOPに戻る

SAMPLE10:リンク先をすべて別ウィンドウで開く

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://www.yahoo.co.jp") REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 KAISU = IE.document.links.length FOR A = 0 TO (KAISU - 1) IFB POS("http://dailynews.yahoo.co.jp", IE.document.links[A].href) > 0 IE2 = CREATEOLEOBJ("InternetExplorer.Application") IE2.visible = True IE2.navigate(IE.document.links[A].href) ENDIF NEXT IE.QUIT

参考ページ：UWSC 繰り返し

TOPに戻る

SAMPLE11:WebサイトのデータをExcelで会社名順に並び替える

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://qrt.lrv.jp/020.html") REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 SENDSTR(0, IE.document.body.innerHTML) EXCEL = CREATEOLEOBJ("Excel.Application") EXCEL.visible = True EXCEL.workbooks.Add EXCEL.Range("A1").Select EXCEL.ActiveSheet.Paste EXCEL.Columns("A:D").Select EXCEL.Selection.Delete EXCEL.Rows("1").Select EXCEL.Selection.Delete EXCEL.Range("C1:H99").Select EXCEL.Selection.Cut EXCEL.Range("A100").Select EXCEL.ActiveSheet.Paste EXCEL.Range("C100:F198").Select EXCEL.Selection.Cut EXCEL.Range("A199").Select EXCEL.ActiveSheet.Paste EXCEL.Range("C199:D297").Select EXCEL.Selection.Cut EXCEL.Range("A298").Select EXCEL.ActiveSheet.Paste EXCEL.Columns("A:B").Select SCKEY(GETID("Microsoft Excel - Book1"), VK_ALT, VK_D, VK_S) SCKEY(GETID("並べ替え"), VK_DOWN, VK_RETURN, VK_RETURN) IE.QUIT

参考ページ：UWSC EXCEL

TOPに戻る

SAMPLE12:WebサイトのデータをExcelでグラフ化する

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://biz.yahoo.co.jp/teguchi/all/buy/day_teguchi.html") REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 SCKEY(GETID("Yahoo！ファイナンス"), VK_CTRL, VK_A, VK_C) START = POS("順位 前回比 コード 名　　称 買い代金（千円） 関連情報", GETSTR(0)) END = POS("前回（トップ15にランクイン）より、順位が上昇した銘柄 ", GETSTR(0)) DATA = COPY(GETSTR(0), START, END - START) DATA = CHGMOJ(DATA, "順位 前回比 コード 名　　称 買い代金（千円） 関連情報 ", "") DATA = CHGMOJ(DATA, " チャート ・ 企業情報 ・ 掲示板 ・ ニュース ・ レポート ・ 株主優待 ", "") DATA = CHGMOJ(DATA, " チャート ・ 企業情報 ・ 掲示板 ・ ニュース ・ レポート ", "") DATA = CHGMOJ(DATA, " ", " ") DATA = CHGMOJ(DATA, " ", " ") SENDSTR(0, DATA) EXCEL = CREATEOLEOBJ("Excel.Application") EXCEL.visible = True EXCEL.workbooks.Add SCKEY(GETID("Microsoft Excel - Book1"), VK_CTRL, VK_V) EXCEL.Range("B2:D16").Select EXCEL.Charts.Add IE.QUIT

上のサンプルが正常に動作しない場合は以下のスクリプトでお確かめ下さい。

SAMPLE12_2:WebサイトのデータをExcelでグラフ化する

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://qrt.lrv.jp/010.html") REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 SCKEY(GETID("ファイナンス"), VK_CTRL, VK_A, VK_C) START = POS("順位 前回比 コード 名　　称 買い代金（千円） 関連情報", GETSTR(0)) END = POS("前回（トップ15にランクイン）より、順位が上昇した銘柄 ", GETSTR(0)) DATA = COPY(GETSTR(0), START, END - START) DATA = CHGMOJ(DATA, "順位 前回比 コード 名　　称 買い代金（千円） 関連情報 ", "") DATA = CHGMOJ(DATA, " チャート ・ 企業情報 ・ 掲示板 ・ ニュース ・ レポート ・ 株主優待 ", "") DATA = CHGMOJ(DATA, " チャート ・ 企業情報 ・ 掲示板 ・ ニュース ・ レポート ", "") DATA = CHGMOJ(DATA, " ", " ") DATA = CHGMOJ(DATA, " ", " ") SENDSTR(0, DATA) EXCEL = CREATEOLEOBJ("Excel.Application") EXCEL.visible = True EXCEL.workbooks.Add SCKEY(GETID("Microsoft Excel - Book1"), VK_CTRL, VK_V) EXCEL.Range("B2:D16").Select EXCEL.Charts.Add IE.QUIT

参考ページ：UWSC CHGMOJ

TOPに戻る

SAMPLE13:1時間おきに巡回してWebサイトを保存する

IE1 = CREATEOLEOBJ("InternetExplorer.Application") IE1.visible = True IE1.navigate("http://www.yahoo.co.jp") REPEAT SLEEP(0.1) UNTIL !IE1.busy AND IE1.readystate = 4 SCKEY(GETID("Yahoo！"), VK_ALT, VK_F, VK_A) CLKITEM(GETID("Web ページの保存"), "デスクトップ") CLKITEM(GETID("Web ページの保存"), "保存") IE2 = CREATEOLEOBJ("InternetExplorer.Application") IE2.visible = True IE2.navigate("http://www.livedoor.com") REPEAT SLEEP(0.1) UNTIL !IE2.busy AND IE2.readystate = 4 SCKEY(GETID("livedoor"), VK_ALT, VK_F, VK_A) CLKITEM(GETID("Web ページの保存"), "デスクトップ") CLKITEM(GETID("Web ページの保存"), "保存") IE3 = CREATEOLEOBJ("InternetExplorer.Application") IE3.visible = True IE3.navigate("http://www.infoseek.co.jp") REPEAT SLEEP(0.1) UNTIL !IE3.busy AND IE3.readystate = 4 SCKEY(GETID("インフォシーク"), VK_ALT, VK_F, VK_A) CLKITEM(GETID("Web ページの保存"), "デスクトップ") CLKITEM(GETID("Web ページの保存"), "保存") SLEEP(3600)

参考ページ：UWSC SCKEY

TOPに戻る

SAMPLE14:定時巡回して得たデータをメールに添付して送信する

MAIL = INPUT("送信先メールアドレス", "mail@izagne.com") IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://dailynews.yahoo.co.jp/") REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 SENDSTR(0, IE.document.body.innerTEXT) START = POS("主なトピックス", GETSTR(0)) END = POS("バックナンバー", GETSTR(0)) IE.quit HONBUN = COPY(GETSTR(0), START, END - START) EXEC("C:\Program Files\Outlook Express\msimn.exe") SCKEY(GETID("Outlook Express"), VK_CTRL, VK_N) SENDSTR(GETID("メッセージの作成"), MAIL) SCKEY(GETID("メッセージの作成"), VK_TAB, VK_TAB) GETTIME() SENDSTR(GETID("メッセージの作成"), G_TIME_YY4 + "年" + G_TIME_MM2 + "月" + G_TIME_DD2 + "日") SCKEY(GETID(G_TIME_YY4 + "年" + G_TIME_MM2 + "月" + G_TIME_DD2 + "日"), VK_TAB) SENDSTR(GETID(G_TIME_YY4 + "年" + G_TIME_MM2 + "月" + G_TIME_DD2 + "日"), HONBUN) SCKEY(GETID(G_TIME_YY4 + "年" + G_TIME_MM2 + "月" + G_TIME_DD2 + "日"), VK_ALT, VK_S)

上のサンプルが正常に動作しない場合は以下のスクリプトでお確かめ下さい。

SAMPLE14_2:定時巡回して得たデータをメールに添付して送信する

MAIL = INPUT("送信先メールアドレス", "mail@izagne.com") IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://qrt.lrv.jp/000.html") REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 SENDSTR(0, IE.document.body.innerTEXT) START = POS("主なトピックス", GETSTR(0)) END = POS("バックナンバー", GETSTR(0)) IE.quit HONBUN = COPY(GETSTR(0), START, END - START) EXEC("C:\Program Files\Outlook Express\msimn.exe") SCKEY(GETID("Outlook Express"), VK_CTRL, VK_N) SENDSTR(GETID("メッセージの作成"), MAIL) SCKEY(GETID("メッセージの作成"), VK_TAB, VK_TAB) GETTIME() SENDSTR(GETID("メッセージの作成"), G_TIME_YY4 + "年" + G_TIME_MM2 + "月" + G_TIME_DD2 + "日") SCKEY(GETID(G_TIME_YY4 + "年" + G_TIME_MM2 + "月" + G_TIME_DD2 + "日"), VK_TAB) SENDSTR(GETID(G_TIME_YY4 + "年" + G_TIME_MM2 + "月" + G_TIME_DD2 + "日"), HONBUN) SCKEY(GETID(G_TIME_YY4 + "年" + G_TIME_MM2 + "月" + G_TIME_DD2 + "日"), VK_ALT, VK_S)

参考ページ：UWSC Q&A

TOPに戻る

SAMPLE15:メルマガの文書を自動生成する

GETTIME() HIDUKE = G_TIME_YY2+ "年" + G_TIME_MM2 + "月" + G_TIME_DD2 + "日号" BUNSHO ="こんにちは。メルマガ届きましたか？" DAY1 = G_TIME_MM2 + "/" + G_TIME_DD2 + "→仕事" GETTIME(1) DAY2 = G_TIME_MM2 + "/" + G_TIME_DD2 + "→仕事" GETTIME(2) DAY3 = G_TIME_MM2 + "/" + G_TIME_DD2 + "→仕事" GETTIME(3) DAY4 = G_TIME_MM2 + "/" + G_TIME_DD2 + "→仕事" GETTIME(4) DAY5 = G_TIME_MM2 + "/" + G_TIME_DD2 + "→休日" GETTIME(5) DAY6 = G_TIME_MM2 + "/" + G_TIME_DD2 + "→出張" GETTIME(6) DAY7 = G_TIME_MM2 + "/" + G_TIME_DD2 + "→仕事" SELECT SLCTBOX(SLCT_BTN, 0, "今日の製作者は誰ですか？", "鈴木さん", "山田さん", "斉藤さん") CASE SLCT_1 AUTHOR = "製作部：鈴木一郎<#CR>mail: *******@*******<#CR>TEL: **-****-****" CASE SLCT_2 AUTHOR = "製作部：山田和夫<#CR>mail: *******@*******<#CR>TEL: **-****-****" CASE SLCT_3 AUTHOR = "製作部：斉藤ひろし<#CR>mail: *******@*******<#CR>TEL: **-****-****" SELEND EXEC("NOTEPAD") SENDSTR(GETID("無題"), "メールマガジン" + HIDUKE + "<#CR><#CR><#CR>") SENDSTR(GETID("無題"), "☆★□■☆★□■☆★□■☆★□■☆★□■<#CR><#CR><#CR>") FOR A = 1 TO 20 SENDSTR(GETID("無題"), BUNSHO) SCKEY(GETID("無題"), VK_RETURN) NEXT SENDSTR(GETID("無題"), "<#CR><#CR><#CR>") SENDSTR(GETID("無題"), "☆★□■☆★□■☆★□■☆★□■☆★□■<#CR><#CR>今週の予定<#CR>") SENDSTR(GETID("無題"), DAY1 + "<#CR>") SENDSTR(GETID("無題"), DAY2 + "<#CR>") SENDSTR(GETID("無題"), DAY3 + "<#CR>") SENDSTR(GETID("無題"), DAY4 + "<#CR>") SENDSTR(GETID("無題"), DAY5 + "<#CR>") SENDSTR(GETID("無題"), DAY6 + "<#CR>") SENDSTR(GETID("無題"), DAY7 + "<#CR>です。よろしくお願いします。<#CR>") SENDSTR(GETID("無題"), "☆★□■☆★□■☆★□■☆★□■☆★□■<#CR><#CR><#CR>") SENDSTR(GETID("無題"), AUTHOR) SENDSTR(GETID("無題"), "<#CR>☆★□■☆★□■☆★□■☆★□■☆★□■<#CR><#CR><#CR>")

参考ページ：UWSC

TOPに戻る

SAMPLE17:ExcelのデータをWebフォームに自動入力

NAME = INPUT("お名前は？", "小林シンヤ") EXCEL = CREATEOLEOBJ("EXCEL.APPLICATION") EXCEL.visible = true EXCEL.Workbooks.Add() EXCEL.RANGE("A1").value = "710年：平城京に遷都する" EXCEL.RANGE("A2").value = "794年：平安京に遷都する" EXCEL.RANGE("A3").value = "1192年：源頼朝が鎌倉幕府をひらく" EXCEL.RANGE("A4").value = "1338年：足利尊氏が室町幕府をひらく" EXCEL.RANGE("A5").value = "1467年：応仁の乱がおこる" EXCEL.RANGE("A6").value = "1600年：関ヶ原の戦いがおこる" EXCEL.RANGE("A7").value = "1603年：徳川家康が江戸幕府をひらく" EXCEL.RANGE("A8").value = "1867年：徳川慶喜が大政奉還をする" EXCEL.RANGE("A9").value = "1894年：日清戦争がおこる" EXCEL.RANGE("A10").value = "1904年：日露戦争がおこる" EXCEL.RANGE("A11").value = "1914年：第一次世界大戦がおこる" EXCEL.RANGE("A12").value = "1941年：太平洋戦争がおこる" EXCEL.RANGE("A13").value = "1989年：元号が平成となる" IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://qrt.lrv.jp/cp-bin/short/short.php") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 EXCEL.RANGE("A1").select FOR KAISU = 1 TO 13 NYURYOKU(IE, EXCEL, NAME) NEXT FUNCTION NYURYOKU(IE, EXCEL, NAME) GET_VALUE = EXCEL.selection.value IE.document.forms[0].elements[0].value = NAME IE.document.forms[0].elements[1].value = GET_VALUE IE.document.forms[0].elements[2].click() REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 SCKEY(GETID("Microsoft Excel"), VK_DOWN) RESULT = true FEND

TOPに戻る

SAMPLE18:Webの情報をExcelに残す

EXCEL = CREATEOLEOBJ("EXCEL.Application") EXCEL.visible = true EXCEL.workbooks.add() EXCEL.RANGE("A1").value = "背景色" EXCEL.RANGE("B1").value = "リンク数" EXCEL.RANGE("A2").select IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true FOR KAISU = 3 TO 32 IE.navigate("http://qrt.lrv.jp/000.php?g=" + KAISU) REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 HAIKEI = IE.document.bgcolor LINK_KAZU = IE.document.links.length EXCEL.selection.value = HAIKEI SCKEY(GETID("Microsoft Excel"), VK_RIGHT) EXCEL.selection.value = LINK_KAZU EXCEL.RANGE("A" + KAISU).select NEXT

TOPに戻る

SAMPLE19:入力した名前を埋め込んでファイルを自動生成する

NAME = INPUT("あなたのお名前は？", "小林シンヤ") FILE_ID = FOPEN("C:\index.html", F_WRITE) FPUT(FILE_ID, "<html><body bgcolor="pink">", 1, 1) FPUT(FILE_ID, "<marquee>" + NAME + "</marquee>", 2, 1) FPUT(FILE_ID, "</body></html>", 3, 1) FCLOSE(FILE_ID)

TOPに戻る

SAMPLE20:複数のアプリケーション連携

SCKEY(GETID("Adobe Photoshop"), VK_ALT, VK_I, VK_I) SCKEY(GETID("画像解像度"), VK_1, VK_0, VK_0, VK_RETURN) SCKEY(GETID("Adobe Photoshop"), VK_SHIFT, VK_CTRL, VK_S) SENDSTR(GETID("別名で保存"), "sample") CLKITEM(GETID("別名で保存"), "デスクトップ") SCKEY(GETID("別名で保存"), VK_RETURN) SCKEY(GETID("別名で保存"), VK_ALT, VK_F) SCKEY(GETID("別名で保存"), VK_T, VK_T, VK_RETURN) CLKITEM(GETID("TIFF オプション"), "OK") EXEC("C:\Program Files\Outlook Express\msimn.exe") SCKEY(GETID("Outlook Express"), VK_CTRL, VK_N) SCKEY(GETID("メッセージの作成"), VK_ALT, VK_I, VK_A) CLKITEM(GETID("添付ファイルの挿入"), "デスクトップ") SCKEY(GETID("添付ファイルの挿入"), VK_RETURN) CLKITEM(GETID("添付ファイルの挿入"), "sample.tif") SCKEY(GETID("添付ファイルの挿入"), VK_RETURN)

代わりのアプリケーションとしてペイントを使う場合は以下のスクリプトを参照して下さい。

SAMPLE20_2:複数のアプリケーション連携(ペイント + Outlook Express)

FILE = INPUT("ファイル名を入力してください") SCKEY(GETID(FILE), VK_ALT, VK_F, VK_A) SENDSTR(GETID("名前を付けて保存"), "sample") SCKEY(GETID("名前を付けて保存"), VK_TAB, VK_T) CLKITEM(GETID("名前を付けて保存"), "デスクトップ") SCKEY(GETID("名前を付けて保存"), VK_RETURN, VK_RETURN) EXEC("C:\Program Files\Outlook Express\msimn.exe") SCKEY(GETID("Outlook Express"), VK_CTRL, VK_N) SCKEY(GETID("メッセージの作成"), VK_ALT, VK_I, VK_A) CLKITEM(GETID("添付ファイルの挿入"), "デスクトップ") SCKEY(GETID("添付ファイルの挿入"), VK_RETURN) CLKITEM(GETID("添付ファイルの挿入"), "sample.tif") SCKEY(GETID("添付ファイルの挿入"), VK_RETURN)

TOPに戻る

SAMPLE21:「ひろし」の変換候補を抽出する

ST = 1 STREAM = 1 LO = 0 EXEC("notepad") CTRLWIN(GETID("無題"), ACTIVATE) KBD(VK_KANJI) FOR ST = 1 TO 30 KBD(VK_h) KBD(VK_i) KBD(VK_r) KBD(VK_o) KBD(VK_s) KBD(VK_i) WHILE LO < STREAM KBD(VK_SPACE) LO = LO + 1 WEND KBD(VK_RETURN) KBD(VK_RETURN) STREAM = STREAM + 1 LO = 0 NEXT

TOPに戻る

SAMPLE22_1:あるディレクトリ内のファイルの名前を取得する

FILENAME = "" DIR = INPUT("フォルダ名を入れてください", "C:\") FOR A = 0 TO GETDIR(DIR) - 1 FILENAME = FILENAME + GETDIR_FILES[A] +"<#CR>" NEXT PRINT FILENAME

SAMPLE22_2:あるファイルの最初の一行を取得する

<DIR = INPUT("ファイル名をディレクトリから入力してください", "C:\") ID = FOPEN(DIR) MSGBOX(FGET(ID, 1))

TOPに戻る

SAMPLE24:任意の桁数でランダムなパスワードを好きなだけ生成する

PASSWORD_KETA = INPUT("パスワードの桁数は？") SEISEI_KAZU = INPUT("パスワード生成数はいくつにしますか？") KEKKA = "" FIRSTLINE = "ID PASS<#CR>" FOR A = 1 TO SEISEI_KAZU KEKKA = KEKKA + IDPASS(PASSWORD_KETA) + " " + IDPASS(PASSWORD_KETA) + "<#CR>" NEXT EXEC("notepad") SENDSTR(GETID("無題 - "), FIRSTLINE + KEKKA) FUNCTION IDPASS(PASSWORD_KETA) STRING = "" FOR KAISU = 1 TO PASSWORD_KETA SELECT RANDOM(36) CASE 0 moji = "a" CASE 1 moji = "b" CASE 2 moji = "c" CASE 3 moji = "d" CASE 4 moji = "e" CASE 5 moji = "f" CASE 6 moji = "g" CASE 7 moji = "h" CASE 8 moji = "i" CASE 9 moji = "j" CASE 10 moji = "k" CASE 11 moji = "l" CASE 12 moji = "m" CASE 13 moji = "n" CASE 14 moji = "o" CASE 15 moji = "p" CASE 16 moji = "q" CASE 17 moji = "r" CASE 18 moji = "s" CASE 19 moji = "t" CASE 20 moji = "u" CASE 21 moji = "v" CASE 22 moji = "w" CASE 23 moji = "x" CASE 24 moji = "y" CASE 25 moji = "z" CASE 26 moji = "0" CASE 27 moji = "1" CASE 28 moji = "2" CASE 29 moji = "3" CASE 30 moji = "4" CASE 31 moji = "5" CASE 32 moji = "6" CASE 33 moji = "7" CASE 34 moji = "8" CASE 35 moji = "9" default moji = "_" SELEND STRING = STRING + moji NEXT RESULT = STRING FEND

TOPに戻る

SAMPLE27:使用履歴を一括削除する

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://www.google.co.jp") WINDOW = GETID("Google - Microsoft Internet Explorer") SCKEY(WINDOW,VK_ALT,VK_T,VK_O) IEOPTION = GETID("インターネット オプション") SCKEY(IEOPTION, VK_ALT, VK_I) CLKITEM(GETID("Cookie の削除"), "OK") REPEAT SLEEP(1) UNTIL !STATUS(IEOPTION, ST_BUSY) SCKEY(IEOPTION, VK_ALT, VK_F) CLKITEM(GETID("ファイルの削除"), "OK") REPEAT SLEEP(1) UNTIL !STATUS(IEOPTION, ST_BUSY) SCKEY(IEOPTION, VK_ALT, VK_H) CLKITEM(GETID("インターネット オプション", "#32770"), "はい") REPEAT SLEEP(1) UNTIL !STATUS(IEOPTION, ST_BUSY) CLKITEM(GETID("インターネット オプション"), "コンテンツ", CLK_TAB) SCKEY(IEOPTION, VK_ALT, VK_U) AUTOCOMP = GETID("オートコンプリートの設定") SCKEY(AUTOCOMP, VK_ALT, VK_C) CLKITEM(GETID("インターネット オプション", "#32770"), "OK") REPEAT SLEEP(1) UNTIL !STATUS(AUTOCOMP, ST_BUSY) SCKEY(AUTOCOMP, VK_ALT, VK_L) CLKITEM(GETID("インターネット オプション", "#32770"), "OK") REPEAT SLEEP(1) UNTIL !STATUS(AUTOCOMP, ST_BUSY) CLKITEM(AUTOCOMP, "OK") REPEAT SLEEP(1) UNTIL !STATUS(IEOPTION, ST_BUSY) CLKITEM(IEOPTION, "OK")

リスト3-1：マウス移動のサンプル1

MMV(640, 512) // マウスカーソル移動 BTN(LEFT, CLICK) // 左クリック

TOPに戻る

リスト3-2：マウス移動のサンプル2

BTN(LEFT, CLICK, 640, 512)

TOPに戻る

リスト3-3：アクティブウィンドウのIDを表示する

TITLE = GETID(GET_ACTIVE_WIN) FUKIDASI(TITLE, 100, 100, 0, 30) SLEEP(1)

TOPに戻る

リスト3-4：ウィンドウのアクティブ化（変数なし）

// 変数なしバージョン CTRLWIN(GETID("Yahoo"), ACTIVATE)

TOPに戻る

リスト3-5：ウィンドウのアクティブ化（変数使用）

// 変数使用バージョン TITLE = GETID("Yahoo") CTRLWIN(TITLE, ACTIVATE)

TOPに戻る

リスト3-6：ウィンドウの最大化（変数なし）

// 変数なしバージョン CTRLWIN(GETID("Google"), MAX)

TOPに戻る

リスト3-7：ウィンドウの最大化（変数使用）

// 変数使用バージョン TITLE = GETID("Google") CTRLWIN(TITLE, MAX)

TOPに戻る

リスト3-8：ウィンドウを閉じる（変数なし）

// 変数なしバージョン CTRLWIN(GETID("インフォシーク"), CLOSE)

TOPに戻る

リスト3-9：ウィンドウを閉じる（変数使用）

// 変数使用バージョン TITLE = GETID("インフォシーク") CTRLWIN(TITLE, CLOSE)

TOPに戻る

リスト3-10：ウィンドウ内を全選択

SCKEY(GETID("インフォシーク"), VK_CTRL, VK_A)

TOPに戻る

リスト3-11：ウィンドウを更新

SCKEY(GETID("Yahoo！"), VK_F5)

TOPに戻る

リスト3-12：ウィンドウを閉じる

SCKEY(GETID("Google"), VK_ALT, VK_F4)

TOPに戻る

リスト3-13：10個のWebフォームに数値を入力して最後に［OK］ボタンをクリック

WASABI = GETID("マクロトレーニング例題一番") CTRLWIN(WASABI, ACTIVATE) KBD(VK_NUMPAD1) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD0) KBD(VK_NUMPAD6) KBD(VK_NUMPAD0) KBD(VK_NUMPAD2) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) SLEEP(0.1) KBD(VK_NUMPAD1) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD0) KBD(VK_NUMPAD6) KBD(VK_NUMPAD0) KBD(VK_NUMPAD2) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) SLEEP(0.1) KBD(VK_NUMPAD1) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD0) KBD(VK_NUMPAD6) KBD(VK_NUMPAD0) KBD(VK_NUMPAD2) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) SLEEP(0.1) KBD(VK_NUMPAD1) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD0) KBD(VK_NUMPAD6) KBD(VK_NUMPAD0) KBD(VK_NUMPAD2) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) SLEEP(0.1) KBD(VK_NUMPAD1) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD0) KBD(VK_NUMPAD6) KBD(VK_NUMPAD0) KBD(VK_NUMPAD2) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) SLEEP(0.1) KBD(VK_NUMPAD1) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD0) KBD(VK_NUMPAD6) KBD(VK_NUMPAD0) KBD(VK_NUMPAD2) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) SLEEP(0.1) KBD(VK_NUMPAD1) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD0) KBD(VK_NUMPAD6) KBD(VK_NUMPAD0) KBD(VK_NUMPAD2) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) SLEEP(0.1) KBD(VK_NUMPAD1) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD0) KBD(VK_NUMPAD6) KBD(VK_NUMPAD0) KBD(VK_NUMPAD2) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) SLEEP(0.1) KBD(VK_NUMPAD1) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD0) KBD(VK_NUMPAD6) KBD(VK_NUMPAD0) KBD(VK_NUMPAD2) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) SLEEP(0.1) KBD(VK_NUMPAD1) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD0) KBD(VK_NUMPAD6) KBD(VK_NUMPAD0) KBD(VK_NUMPAD2) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_RETURN)

TOPに戻る

リスト3-13_2：繰り返し処理に制御文を取り込んだマクロ

WASABI = GETID("マクロトレーニング例題一番") CTRLWIN(WASABI, ACTIVATE) FOR KAISU = 1 TO 10 KBD(VK_NUMPAD1) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD9) KBD(VK_NUMPAD0) KBD(VK_NUMPAD6) KBD(VK_NUMPAD0) KBD(VK_NUMPAD2) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) SLEEP(0.1) NEXT KBD(VK_RETURN)

TOPに戻る

リスト3-14：変数Aが1の時「a cat」と書き込む

A = 1 TITLE = GETID("無題") CTRLWIN(TITLE, ACTIVATE) IFB A = 1 KBD(VK_A) KBD(VK_SPACE) KBD(VK_C) KBD(VK_A) KBD(VK_T) ENDIF

TOPに戻る

リスト3-15：変数Aの値によって書き込む内容を変える

A = 2 CTRLWIN(GETID("メモ帳"), ACTIVATE) IFB A = 1 KBD(VK_C) KBD(VK_A) KBD(VK_T) ELSEIF A = 2 KBD(VK_D) KBD(VK_O) KBD(VK_G) ELSE KBD(VK_E) KBD(VK_N) KBD(VK_D) ENDIF

TOPに戻る

リスト3-16：Aが100より小さい間「yes」を繰り返し入力する

A = 0 CTRLWIN(GETID("メモ帳"), ACTIVATE) WHILE A < 100 KBD(VK_Y) KBD(VK_E) KBD(VK_S) A = A + 1 WEND

TOPに戻る

リスト3-17：100より大きくなったら処理を止める

A = 1 CTRLWIN(GETID("メモ帳"), ACTIVATE) REPEAT KBD(VK_N) KBD(VK_O) A = A + 1 UNTIL A > 100

TOPに戻る

リスト3-18：100回まで「yesman」を書き込む

CTRLWIN(GETID("メモ帳"), ACTIVATE) FOR KAISU = 1 TO 100 KBD(VK_Y) KBD(VK_E) KBD(VK_S) KBD(VK_M) KBD(VK_A) KBD(VK_N) NEXT

TOPに戻る

リスト3-19：SELECTを使った簡潔な条件分岐

A = 1 CTRLWIN(GETID("メモ帳"), ACTIVATE) SELECT A CASE 0 KBD(VK_C) KBD(VK_A) KBD(VK_T) CASE 1 KBD(VK_D) KBD(VK_O) KBD(VK_G) CASE 2 KBD(VK_M) KBD(VK_A) KBD(VK_N) CASE 3 KBD(VK_Z) KBD(VK_O) KBD(VK_O) SELEND

TOPに戻る

リスト3-20：「taiho」を200回書き込む

CTRLWIN(GETID("メモ帳"), ACTIVATE) FOR A = 1 TO 200 KBD(VK_T) KBD(VK_A) KBD(VK_I) KBD(VK_H) KBD(VK_O) NEXT

TOPに戻る

リスト3-21：「taiho」を120回目の入力で中止する

CTRLWIN(GETID("メモ帳"), ACTIVATE) FOR A = 1 TO 200 KBD(VK_T) KBD(VK_A) KBD(VK_I) KBD(VK_H) KBD(VK_O) IFB A = 120 BREAK ENDIF NEXT

TOPに戻る

リスト3-22：30個のフォームに文字列を入力して［OK］ボタンを押す

YOZORA = GETID("マクロトレーニング例題二番") CTRLWIN(YOZORA, ACTIVATE) BUN = "ギリシアの古代メソポタミアの王は、かつてヒッタイトに侵略した黄河文明である。" FOR KAISU = 1 TO 30 SENDSTR(YOZORA, BUN) KBD(VK_TAB) KBD(VK_SPACE) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) NEXT KBD(VK_RETURN)

TOPに戻る

リスト3-23：フォーカス部分のテキストを取得

BUN = GETSTR(GETID("メモ帳")) SENDSTR(0, BUN)

TOPに戻る

リスト3-24：文字列の一部分をコピーする

BUN = "原始的な思考回路を持つものが万人の王者となり、現代的な思考の脅威となる" BUN = COPY(BUN, 1, 10) SENDSTR(0, BUN)

TOPに戻る

リスト3-25：文字列の置換

BUN = "原始的な思考回路を持つものが万人の王者となり、現代的な思考の脅威となる" BUN = CHGMOJ(BUN, "思考", "歯垢") SENDSTR(0, BUN)

TOPに戻る

リスト3-26：指定文字列を検索する

BUN = "原始的な思考回路を持つものが万人の王者となり、現代的な思考の脅威となる" BUN = POS("脅威", BUN) SENDSTR(0, BUN)

TOPに戻る

リスト3-27：文字列の長さを数える

BUN = "原始的な思考回路を持つものが万人の王者となり、現代的な思考の脅威となる" BUN = LENGTH(BUN) SENDSTR(0, BUN)

TOPに戻る

リスト3-28：特定の場所から最後までをコピーする

BUN = "原始的な思考回路を持つものが万人の王者となり、現代的な思考の脅威となる" KAISI = POS("現代的な", BUN) NAGASA = LENGTH(BUN) HOWLONG = NAGASA - KAISI +2 BUN = COPY(BUN, KAISI, HOWLONG) SENDSTR(0, BUN)

TOPに戻る

リスト3-29：マウスカーソルの下にあるウィンドウのタイトルを取得する

JOUTAI = STATUS(GETID(GET_ACTIVE_WIN), ST_TITLE) MSGBOX(JOUTAI)

TOPに戻る

リスト3-30：1900から1ずつ加えてフォームに入力していく

TTL = GETID("マクロトレーニング例題三番") CTRLWIN(TTL, ACTIVATE) SUJI = 1900 FOR A = 1 TO 30 SENDSTR(TTL, SUJI) SUJI = SUJI + 1 KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) NEXT KBD(VK_RETURN)

TOPに戻る

リスト3-31：1900に1ずつ加え、さらに「年」を付け加えてフォームに入力する

TTL = GETID("マクロトレーニング例題三番") CTRLWIN(TTL, ACTIVATE) SUJI = 1900 FOR A = 1 TO 30 NENGO = SUJI + "年" SENDSTR(TTL, NENGO) SUJI = SUJI + 1 KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) KBD(VK_TAB) NEXT KBD(VK_RETURN)

TOPに戻る

リスト3-32：クチバシが下に付いた30秒時計

FOR KAISU = 0 TO 29 BYOU = KAISU + "秒" FUKIDASI(BYOU, 100, 100, 2, 30) SLEEP(1) NEXT

TOPに戻る

リスト3-33：メモ帳のメニューを操作する

MEMO = GETID("無題 - メモ帳") SCKEY(MEMO, VK_ALT, VK_O, VK_F) FONT = GETID("フォント") CTRLWIN(FONT, ACTIVATE) CLKITEM(FONT, "Georgia") CLKITEM(FONT, "太字") SLEEP(5) CLKITEM(FONT, "OK")

TOPに戻る

リスト3-34：チェックボックスの状態を取得する

JOUTAI = 0 JOUTAI = CHKBTN(GETID("置換"), "大文字と小文字を区別する(C)") SENDSTR(0,JOUTAI)

TOPに戻る

リスト3-35：「置換」ウィンドウのアイテム総数を取得

SENDSTR(0, GETITEM(GETID("置換"), ITM_BTN))

TOPに戻る

リスト3-36：アイテム名の取得

A = GETITEM(GETID("置換"), ITM_BTN) BUN = "" FOR KAISU = 0 TO (A - 1) BUN = BUN + ALL_ITEM_LIST[KAISU] + "," NEXT SENDSTR(0, BUN)

TOPに戻る

リスト3-37：［はい］［いいえ］ボタンを持ったメッセージボックス

MSGBOX("message", BTN_YES OR BTN_NO)

TOPに戻る

リスト3-38：入力した文字を吹出しで表示する

KAISU = INPUT("何か入れてください") FUKIDASI(KAISU, 100, 100, 0, 30) SLEEP(3)

TOPに戻る

リスト3-39：項目が5つあるセレクトボックス

KEKKA = SLCTBOX(SLCT_BTN, 0, "例", "項目1", "項目2", "項目3", "項目4", "項目5")

TOPに戻る

リスト3-40：国名に対応した首都名をメモ帳に貼り付ける

KEKKA = SLCTBOX(SLCT_BTN, 0, "首都はどこ？", "フランス", "ロシア", "イギリス", "日本", "中国", "オーストラリア", "エジプト") SELECT KEKKA CASE SLCT_1 SHUTO = "パリ" CASE SLCT_2 SHUTO = "モスクワ" CASE SLCT_3 SHUTO = "ロンドン" CASE SLCT_4 SHUTO = "東京" CASE SLCT_5 SHUTO = "北京" CASE SLCT_6 SHUTO = "キャンベラ" CASE SLCT_7 SHUTO = "カイロ" SELEND EXEC("notepad") SENDSTR(GETID("無題"), SHUTO)

TOPに戻る

リスト3-41：フォーム個数に応じて入力回数を変化させる

CTRLWIN(GETID("マクロトレーニング例題四番"),ACTIVATE) KAISU = INPUT("何回繰り返しますか?") BUN = "コンドミニアム" FOR A = 1 TO KAISU SENDSTR(GETID("マクロトレーニング例題四番"),BUN) KBD(VK_TAB) NEXT KBD(VK_RETURN)

TOPに戻る

リスト4-1：COMコンポーネントを使ったマクロ

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True AURL = "http://www.yahoo.co.jp" IE.navigate(AURL)

TOPに戻る

リスト4-2：4つのURLに順番に移動する

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true UL1 = "http://www.rakuten.co.jp/" UL2 = "http://www.livedoor.com/" UL3 = "http://www.yahoo.co.jp/" UL4 = "http://www.msn.co.jp/" IE.navigate(UL1) REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 IE.navigate(UL2) REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 IE.navigate(UL3) REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 IE.navigate(UL4) REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4

TOPに戻る

リスト4-3：自作関数の定義と利用

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true WAIT("http://www.rakuten.co.jp/", IE) WAIT("http://www.livedoor.com/", IE) WAIT("http://www.yahoo.co.jp/", IE) WAIT("http://www.msn.co.jp/", IE) // 自作関数 FUNCTION WAIT(URL, IE) IE.navigate(URL) REPEAT SLEEP(0.1) UNTIL !IE.BUSY AND IE.READYSTATE = 4 RESULT = True FEND

TOPに戻る

リスト4-4：サンプルページにアクセスするマクロ

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://izagne.com/uwsc/100.html") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4

TOPに戻る

リスト4-5：フォームの個数をメッセージボックスで表示する

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://izagne.com/uwsc/100.html") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 KOSUU = IE.document.forms.length MSGBOX(KOSUU)

TOPに戻る

リスト4-6：1つ目のフォームにある要素を数える

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://izagne.com/uwsc/110.html") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 KOSUU = IE.document.forms[0].elements.length msgbox(KOSUU)

TOPに戻る

リスト4-7：5つ目のフォーム（reidai_e）にある要素の数を調べる

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://izagne.com/uwsc/110.html") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 KOSUU = IE.document.reidai_e.elements.length MSGBOX(KOSUU)

TOPに戻る

リスト4-8：4つの項目を入力する

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://qrt.lrv.jp/120.html") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 IE.document.forms[0].elements[0].value ="名無しの権兵衛" IE.document.forms[0].elements[1].value ="今日も名前がない<#CR>だけど明日も頑張る<#CR>毎日頑張る。" IE.document.forms[0].elements[2].value ="123456789" IE.document.forms[0].elements[3].value ="ハチャトリアン"

TOPに戻る

リスト4-9：4つの項目を入力する（要素名の利用）

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://qrt.lrv.jp/120.html") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 IE.document.trg.uwsc_a.value ="名無しの権兵衛" IE.document.trg.uwsc_b.value ="今日も名前がない<#CR>だけど明日も頑張る<#CR>毎日頑張る。" IE.document.trg.uwsc_c.value ="123456789" IE.document.trg.uwsc_d.value ="ハチャトリアン"

TOPに戻る

リスト4-10：項目の入力とチェックを入れる

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://qrt.lrv.jp/120.html") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 IE.document.forms[0].elements[0].value ="名無しの権兵衛" IE.document.forms[0].elements[1].value ="今日も名前がない<#CR>だけど明日も頑張る<#CR>毎日頑張る。" IE.document.forms[0].elements[2].value ="123456789" IE.document.forms[0].elements[3].value ="ハチャトリアン" IE.document.forms[0].elements[7].click() IE.document.forms[0].elements[10].click() IE.document.forms[0].elements[11].click() IE.document.forms[0].elements[12].click() IE.document.forms[0].elements[13].click()

TOPに戻る

リスト4-11：入力と選択をした後、再度「名前」欄を選択する

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true IE.navigate("http://qrt.lrv.jp/120.html") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 IE.document.forms[0].elements[0].value ="名無しの権兵衛" IE.document.forms[0].elements[1].value ="今日も名前がない<#CR>だけど明日も頑張る<#CR>毎日頑張る。" IE.document.forms[0].elements[2].value ="123456789" IE.document.forms[0].elements[3].value ="ハチャトリアン" IE.document.forms[0].elements[7].click() IE.document.forms[0].elements[10].click() IE.document.forms[0].elements[11].click() IE.document.forms[0].elements[12].click() IE.document.forms[0].elements[13].click() IE.document.forms[0].elements[0].focus() // 「名前」欄にフォーカス

TOPに戻る

リスト4-12：いろいろな情報を取得する

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://qrt.lrv.jp") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 A = IE.document.bgColor B = IE.document.fgColor C = IE.document.linkColor D = IE.document.alinkColor E = IE.document.vlinkColor F = IE.document.URL G = IE.document.domain TOTAL = A + "<#CR>" + B + "<#CR>" + C + "<#CR>" + D + "<#CR>" + E + "<#CR>" + F + "<#CR>" + G MSGBOX(TOTAL)

TOPに戻る

リスト4-13：リンクの合計数を調べる

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://qrt.lrv.jp") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 LINK_KAZU = IE.document.links.length MSGBOX(LINK_KAZU)

TOPに戻る

リスト4-14：最後のリンク先URLを表示してジャンプする

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://qrt.lrv.jp") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 A = IE.document.links.length - 1 LAST_LINK = IE.document.links[A].href MSGBOX(LAST_LINK) IE.navigate(LAST_LINK)

TOPに戻る

リスト4-15：Excelを起動して可視化、さらにワークブックを追加

EXCEL = CREATEOLEOBJ("EXCEL.Application") EXCEL.visible = True EXCEL.workbooks.add()

TOPに戻る

リスト4-16：フォントとサイズを変更し、さらに1行ごとにフォントと塗りつぶしの色を変更する

EXCEL = CREATEOLEOBJ("Excel.Application") EXCEL.visible = True EXCEL.workbooks.Add EXCEL.Range("B1").se1ect FOR A = 0 TO 56 EXCEL.selection.value = "■■■" EXCEL.selection.interior.colorindex = A EXCEL.selection.font.name = "MS Pゴシック" EXCEL.selection.font.size = 21 EXCEL.selection.font.colorindex = A SCKEY(GETID("Microsoft Excel"), VK_RETURN) NEXT

TOPに戻る

リスト4-17：CPU使用率をメッセージボックスに表示する

MSGBOX(CPUUSERATE())

TOPに戻る

リスト4-18：メモ帳を開いて「1, 1」から「500, 500」の位置まで順次移動していく

EXEC("NOTEPAD") ID = GETID("無題 - メモ帳") FOR KAISU = 1 TO 500 ACW(ID, KAISU, KAISU) NEXT

TOPに戻る

リスト4-19：WINDOWSの種類をメッセージボックスに表示する

SELECT KINDOFOS() CASE 1 OS = "WINDOWS 95" CASE 2 OS = "WINDOWS 98" CASE 3 OS = "WINDOWS Me" CASE 10 OS = "WINDOWS NT 3.5" CASE 11 OS = "WINDOWS NT 4" CASE 12 OS = "WINDOWS 2000" CASE 13 OS = "WINDOWS XP" DEFAULT OS = "?" SELEND MSGBOX(OS)

TOPに戻る

リスト4-20：現在時間をメッセージボックスに表示する

GETTIME() TIME = G_TIME_YY4 + "年" + G_TIME_MM2 + "月" + G_TIME_DD2 + "日" + G_TIME_HH2 + "時" + G_TIME_NN2 + "分" + G_TIME_SS2 + "秒" MSGBOX(TIME)

TOPに戻る

リスト4-21：スタンバイ状態にする（［Enter］キーか電源ボタンを押すと復帰する）

POFF(P_SUSPEND2)

TOPに戻る

リスト4-22：入力した値を数値かどうかチェックしてメッセージボックスに表示

SELECT CHKNUM(INPUT("文字列を数値であるかチェックする")) CASE 1 MSGBOX("数値です") CASE 0 MSGBOX("数値ではありません") DEFAULT MSGBOX("?") SELEND

TOPに戻る

リスト4-23：カンマが入っている文字列を数値に変える

MSGBOX(VAL(INPUT("文字列を数値に変える", "45,000,000")))

TOPに戻る

リスト4-24：「 こんにちは 」と両端に半角スペースが入っている文字列を編集する

MAE = INPUT("空白や制御文字を取り除く"," こんにちは ") PRINT "「" + MAE+ "」" + "← 処理前" PRINT "「"+ TRIM(MAE) + "」" + "← 処理後"

TOPに戻る

リスト4-25：「500, 500」の位置のRGB値を取得し16進数でメッセージボックスに表示する

MSGBOX(FORMAT(PEEKCOLOR(500, 500), 6, -1))

TOPに戻る

リスト4-26：ASCIIコード「71」に該当する文字を表示する

MSGBOX(CHR(71))

TOPに戻る

リスト4-27：入力した文字をASCIIコードに変換して表示する

MOJI = INPUT("1文字入力して下さい") CODE = ASC(MOJI) MSGBOX("文字コード" + ASC(MOJI) + "<#CR>文字" + CHR(CODE))

TOPに戻る

リスト4-28：入力した文字の2文字目が1バイトか2バイトかを判別する

SELECT BYTETYPE(INPUT("文字列を入力して下さい"), 2) CASE 0 MSGBOX("1バイト文字") CASE 1 MSGBOX("2バイト文字の最初") CASE 2 MSGBOX("2バイト文字の後") SELEND

TOPに戻る

リスト4-29：Windows Media Playerを起動する例

EXEC("C:\Program Files\Windows Media Player\wmplayer.exe")

TOPに戻る

リスト4-30：あいさつを順番に表示するAISATU関数

AISATSU() PROCEDURE AISATSU() MSGBOX("おはよう") MSGBOX("こんにちは") MSGBOX("こんばんは") FEND

TOPに戻る

リスト5-1：メモ帳を起動して文字列を書き込む

// 処理命令を出す // → メモ帳を起動する EXEC("NOTEPAD") // 結果を判別する // → メモ帳が起動していなければもう一度起動させる IFB GETID("無題 - メモ帳") = false EXEC("NOTEPAD") ENDIF // 処理命令を出す // → メモ帳に文字列を送信する SENDSTR(GETID("無題 - メモ帳"), "東京、晴れのち曇り") // 結果を判別する // → メモ帳に送信された文字列を取得し成功か失敗かメッセージを出す SCKEY(GETID("無題 - メモ帳"), VK_CTRL, VK_A, VK_C) IFB GETSTR(0) = "東京、晴れのち曇り" MSGBOX("成功しました") ELSE MSGBOX("失敗しました") ENDIF

TOPに戻る

リスト5-2：メモ帳を開き、「おひとよしね」と書き込んで保存をせずに終了を100回繰り返す

FOR A = 1 TO 100 EXEC("notepad") SENDSTR(GETID("無題"), "おひとよしね") SCKEY(GETID("無題"), VK_ALT, VK_F4) CLKITEM(GETID("メモ帳"), "いいえ") NEXT

TOPに戻る

リスト5-3：変数IFと変数ENDIF：構文エラーとなり実行できない

IF = "これでは" ENDIF = "動きません" MSGBOX(if + endif)

TOPに戻る

リスト5-4：変数 MSGBOX：実行はできるが、変数なのか関数なのかがわかりにくい

MSGBOX = "わかりにくい" MSGBOX(MSGBOX)

TOPに戻る

リスト5-5：ページ内のリンクをすべて配列に格納し、あとで希望するURLへジャンプするスクリプト

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = True IE.navigate("http://www.yahoo.co.jp") REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 KAZU_LINK = IE.document.links.length DIM KAZU_HREF[KAZU_LINK - 1] FOR A = 1 TO (KAZU_LINK - 1) KAZU_HREF[A] = IE.document.links[A].href NEXT B = INPUT("1番〜" + ( KAZU_LINK - 1 ) + "番目の中で何番目のリンクへジャンプしますか？") MSGBOX(KAZU_HREF[B]) IE.navigate(KAZU_HREF[B])

TOPに戻る

リスト5-6：掲示板に投稿するマクロ

////////// // 掲示板定時投稿マクロ ////////// ////////// // 変数定義 ///////// // 掲示板URL aURL = "http://qrt.lrv.jp/cp-bin/p-bbs/p-bbs2.php" // COMオブジェクト IE = CREATEOLEOBJ("InternetExplorer.Application") // 名前 AUTH_NAME = "UWSC" // 文章 BUN = "TODAY, GOOD. BUT TOMORROW, I DON"T KNOW." // パスワード PASSWORD = "izagne" ////////// // スクリプト ////////// IE.visible = True IE.navigate(aURL) REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 // 名前欄の入力 IE.document.forms[0].name.value = AUTH_NAME // 本文の入力 IE.document.forms[0].com.value = BUN // パスワードの入力 IE.document.forms[0].password.value = PASSWORD // 投稿ボタンのクリック IE.document.forms[0].elements[4].click