UWSC げん玉で毎日自動的におこづかいを入手する簡単な方法

   

げん玉に登録してください

UWSCスクリプトを実行する

毎日ログインし、以下を実行してください。
毎日おこづかいが得られます♪

try

	IE = GETACTIVEOLEOBJ("InternetExplorer.Application")

	atags = IE.document.getElementsByTagName("a")

	for i = 0 to atags.length - 1
		if "http://www.gendama.jp/forest/" = atags.item(i).href then
			atags.item(i).click()
			BusyWait(IE)
			break
		endif
	next
	
	image_list = IE.Document.Images
	
	for i = 0 to image_list.length - 1 
	
		// 詳しく見て1ポイント(forest_bt1.gif)
		if pos("forest_bt1.gif", image_list.item(i).src) > 0 then
			image_list.item(i).click()
			BusyWait(IE)
		endif
		
		// 毎日必ず1ポイント(bt_day1.gif)
		if pos("bt_day1.gif", image_list.item(i).src) > 0 then
			image_list.item(i).click()
			BusyWait(IE)
		endif
		
		// 5ポイント(star.gif)
		if pos("star.gif", image_list.item(i).src) > 0 then
			image_list.item(i).click()
			BusyWait(IE)
		endif
	next

except
	msgbox(TRY_ERRLINE + " " + TRY_ERRMSG)
ENDTRY

Procedure BusyWait(ie)

	Sleep(0.5)  // Wait
	Const TIME_OUT = 300
	tm = Gettime()
	repeat
	Sleep(0.3)
	ifb Gettime() - tm > TIME_OUT
		// MsgBox("Time Out:BusyWait")
		ExitExit
	endif
	until (! ie.busy) and (ie.readyState=4)
	Sleep(0.5)
  
Fend

 -uwsc

  関連記事

WS000001

UWSC IEを全て閉じる

UWSCでIEを利用するケースが多々ありますが、 起動時や終了時にIEをきれいにしておきたいことがあ

WS000001

UWSC フォルダからファイル一覧を取得し、配列にパスを設定する

UWSC実行フォルダ下にあるinputフォルダから CSVファイルの一覧を取得するサンプルです。 ※

WS000001

UWSCで例外処理とログ出力

使用時、使用するuwsファイルのある場所に「log」フォルダを作成してください。 ログフォルダ内に以

WS000001

UWSCでキャッシュ削除

IEのキャッシュを削除 キャッシュの容量が多い場合は少し時間がかかりますので、 Sleep(秒数)

WS000001

UWSC IEで表示最大化&最前面化

今回はIEを起動、Yahooを表示した後に最大化と最前面化を行います。 5秒経過後、終了します。 目

WS000001

UWSC 現在日時の取得とフォーマット

GETTIME()で現在時刻が取得され、変数に設定されます。 変数に設定された値はそれぞれ以下の値を

WS000001

UWSC IE11の通知バーから「名前を付けて保存」を選択する方法

なんとかIEの制御でできないかやってみたのですが なかなか難しく・・・ 結果として、以下の方法で実現

WS000001

UWSCでIE11を起動し、デベロッパーツールでユーザーエージェント(UA:UserAgent)を変更

E11のデベロッパーツールを利用して、UserAgentを変更してサイトにアクセスするサンプルです。

WS000001

UWSC Excelを全て閉じる

Excelを読み取りIEで自動処理を行う開発はよく行います。 開発中にデバッグしたりしていると、Ex

WS000001

UWSC ランダムパスワード作成処理

ランダムパスワードを作成する処理です。 lenに文字数を指定してください。 function Get

  Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>