No.1ベストアンサー
- 回答日時:
VBScriptで書いてみました。
WinowsXPで動作確認済みです。実行すると毎時0分に計測を始めます。
Googleを開き「油淋鶏」を検索します。(適当に変更してください)
"log.txt"と言うテキストに結果を出力します。
無限ループになっていますので、止める時は、タスクマネージャでプロセス"wscript.exe"を止めてください。
以下ソース
Const URL = "http://www.google.co.jp/"
Const InputName = "q" '入力するInputの名前
Const InputValue = "油淋鶏" '入力するデータ
Const FormName = "f" '送信するFormの名前
'On Error Resume Next
'毎時0分にチェックする
h = -1
Do
if (Hour(time) <> h) and (Minute(time)) = 0 then
h = Hour(time)
main()
end if
WScript.sleep 1000
Loop
'チェックルーチン本体
Sub main()
'IEを起動して表示する
Set AppIE = WScript.CreateObject("InternetExplorer.application")
If Err.Number <> 0 Then
WScript.Echo "IEオープンエラー: " & Err.Description
Exit Sub
End IF
AppIE.Visible = True
'完了するまで待つ
wait_ie AppIE
'URLを開き完了するまでの時間を計測
StartTimer = Timer()
'URLを開く
AppIE.Navigate URL
'完了するまで待つ
wait_ie AppIE
time1 = Timer() - StartTimer
'Documentを取得する
Set Doc = AppIE.Document
'Inputにデータを入力する
For Each obj In Doc.getElementsByTagName("input")
If obj.Name = InputName Then
obj.Value = InputValue
End If
Next
'検索(Formを送信)し完了するまでの時間を計測
'Formを送信する
For Each obj In Doc.forms
If obj.Name = FormName Then
StartTimer = Timer()
obj.submit
Exit For
End If
Next
'完了するまで待つ
wait_ie AppIE
time2 = Timer() - StartTimer
'IEを終了する
AppIE.Quit
strMsg = "" & now() & ", Open = " & FormatNumber(time1,3) & ", Submit = " & FormatNumber(time2,3) & vbCRLF
WriteLog(strMsg)
End Sub
'IEの処理が終了するのを待つサブルーチン
Sub wait_ie(AppIE)
Do Until AppIE.ReadyState >= READYSTATE_COMPLETE
WScript.Sleep(1)
Loop
Do While AppIE.Busy
WScript.Sleep(1)
Loop
End Sub
'ログを書き出すサブルーチン
Sub WriteLog(str)
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
Set objFile = objFSO.OpenTextFile("log.txt", 8, True)
If Err.Number = 0 Then
objFile.Write(str)
objFile.Close
Else
WScript.Echo "ファイルオープンエラー: " & Err.Description
End If
Else
WScript.Echo "エラー: " & Err.Description
End If
Set objFile = Nothing
Set objFSO = Nothing
End Sub
詳細なご返答まことにありがとうございます。
しかし、VBScriptについてまったく知識がありません。
どのように使用すればよいのか、ご教授願います。
No.3
- 回答日時:
>試しましたが、以下のようなエラーではじかれます。
>Const URL = "http://www.google.co.jp/"
この行ですが、このページに貼り付けたときに自動的にリンクが設定されてしまうので、
一度 = 以降を削除して、アドレスの部分を手で入力し直して下さい。
No.2
- 回答日時:
>どのように使用すればよいのか、ご教授願います。
#1のソースをテキストファイルとして保存してください。
そしてファイル名を"test.vbs"として下さい。(名前はなんでも結構ですが、拡張子は".vbs"です)
そのファイルをダブルクリックで実行できます。
注)スクリプト実行中は、タスクバーなどには現れません。
タスクマネージャのプロセスに"wscript.exe"があればスクリプトは動いています。時間が来るまで何もしませんので、動作確認するならソースを変更してください。
>'毎時0分にチェックする
>h = -1
>Do
>if (Hour(time) <> h) and (Minute(time)) = 0 then
>h = Hour(time)
>main()
>end if
>WScript.sleep 1000
>Loop
↑この部分を下記に変更
'今すぐ一回だけチェックする
main()
WindowsのバージョンによってはVBScriptを実行するために、下記のダウンロードが必要かもしれません。
参考URL:http://www.microsoft.com/japan/msdn/scripting/
>#1のソースをテキストファイルとして保存してください。
>そしてファイル名を"test.vbs"として下さい。(名前はなんでも結構ですが、拡張子は".vbs"です)
>そのファイルをダブルクリックで実行できます。
試しましたが、以下のようなエラーではじかれます。
スクリプト:C:\*****
行: 1
文字: 40
エラー: 文字が正しくありません。
コード: 800A0408
ソース: Microsoft VBScript コンパイルエラー
お手数です、再度お願いできますでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- エッセイ・随筆 尋常小学校唱歌『さくら さくら』の解釈について以下のものは成立しますか?普通じゃおもろない? 7 2023/02/26 16:52
- Visual Basic(VBA) Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。 2 2023/07/14 14:06
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- 格安スマホ・SIMフリースマホ GooglePixelで端末内のアプリを検索する方法を教えてください。 アプリ一覧に表示される検索ボ 2 2023/05/15 00:55
- その他(ブラウザ) ネットでの検索が速く出来ません 4 2022/08/28 15:34
- Chrome(クローム) Chromeのアドレスバーに履歴等を表示させないようにしたい 2 2022/09/08 14:20
- Excel(エクセル) Excelマクロの表示のExcel内をfindで検索 3 2022/06/15 20:07
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) Excelヘルプの原文を表示する最速の方法(手順)には? 1 2023/08/11 11:30
- Instagram ローラさんのインスタグラム 1 2023/01/11 18:36
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
sims4についてです。 別のパソ...
-
Windows server 2022 CALとSQL ...
-
エックスサーバーでhttpd.conf...
-
Windows Server 2019 CALについて
-
WindowsのエクスプローラーでFT...
-
NASの利用経験多い方教えてくだ...
-
サーバーの定期シャットダウン...
-
ECサイトのFTPサーバーに使わな...
-
PCの電気代
-
Googleドライブのウェブ公開、...
-
【QnapNAS】不良HDDと診断され...
-
ホームページの維持管理連絡付...
-
discordで2人だけのサーバー作...
-
Apache24起動時のエラー
-
2台のPC間でFTPにてファイル転...
-
セッションの管理
-
無料で使えるレンタルサーバー...
-
FTPサーバについて詳しい方(ア...
-
zenlyは、サーバー経由で位置情...
-
メール共有の場所にファイルを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【緊急】ASPでのExcel出力方法...
-
net timeコマンドでアクセスエ...
-
steamがダウンロードできない
-
遅延書き込みデータの紛失
-
apacheがたまに起動しない
-
RAID1とRAID5の信頼性について
-
CentOSでrsyncを使用したバック...
-
IIS7.0でのCGIエラー 502
-
Owncloudを自宅サーバで動かし...
-
このはサーバーでサーバーを契...
-
ファイルが開けません
-
サーバーエラー多くない?
-
obj2bim.exeでコンパイルすると...
-
DNSエラーって?
-
「i phonenoの製造国の確認の仕...
-
マザーボード ドライバとは必ず...
-
ブートメニューにSSDが表示され...
-
【自作PC】msiのbiosからosのイ...
-
自作pcについてです CPUとマザ...
-
先日自作pcを作ったんですが 「...
おすすめ情報