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

げん玉に登録してください
UWSCスクリプトを実行する
毎日ログインし、以下を実行してください。
毎日おこづかいが得られます♪
[java]
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
[/java]