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で配列をランダムにシャッフル(並び替え)したい

Procedure shuffleAry(var keys[]) for i = 0 to leng

WS000001

UWSC MySQLへのODBC接続

MySQLへの接続で少しはまってしまいました。 以前Accessに接続した際は以下で問題ありませんで

WS000001

UWSCでキャッシュ削除

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

WS000001

UWSC 証明書ダイアログ表示時の自動処理

ボタン押下時に証明書のダイアログが表示されますが、 自動的に「OK」をクリックして閉じるサンプルです

WS000001

UWSC 現在表示されているタブと異なるタブのIEオブジェクトを取得

例えば、アンカータグのtarget属性が”_blank”の場合、ボタンクリッ

WS000001

UWSC IEを全て閉じる

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

WS000001

UWSC 「Web ページからのメッセージ」でOKボタンを押下する

以下の例ではボタン押下2秒後に”OK”を押下して閉じます。 Thread P

WS000001

UWSC 文字コードを指定してファイルを保存する

CSVファイルを出力するサンプルです。 F_WRITE1 の部分で文字コードを指定できます。 F_W

WS000001

UWSC マウスポインタの下にある色を16進数で取得する

マウスポインタのを任意の位置に移動 MMV(x, y, 100) // ※xとyは任意の座標、100

WS000001

UWSC Excelを読み取り専用で開く、上書き確認なしで閉じる

UWSCでExcelを扱う際、読み取り専用で開きたい、上書き確認なしで閉じたい、 というのは本当によ

  Message

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

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