FreeBitcoinで貰える量を1000%（10倍）に増やす方法＆UWSCで自動化

1 貰えるビットコイン量を増やす方法
2 UWSCを使用してFreeBitCo.inのROLL!クリックを自動化

貰えるビットコイン量を増やす方法

・1万円分くらいのビットコインをフリービットコインに送金。余裕を持って15000円分くらい。

→そうすると、google reCAPTCHAをなくすことができる。（reCAPTCHAをなくすだけでなく、ある程度のbitcoinをdepositすると年金利が4.08%つくようになる。頻繁に取引をしないのならば、多めにdepositしていたほうが良い。…が、サイト閉鎖などのリスクを考えた上で。そのへん、そうなんだろうか。）

・DISABLE LOTTERYにチェックを入れるとRP(REWARD POINTS)が溜まりやすくなる。

→REWARD POINTS BONUSを使ってRPを増やす。だいたい4400RPくらいまで貯める。

そうしたら、3200RPを使用してFREE BTC BONUSの1000%を発動。かつ、REEARD POINTS BONUSのマックス（1200RP消費）を発動して常に1000%ボーナスでまわす。

UWSCを使用してFreeBitCo.inのROLL!クリックを自動化

※1日に1回、FREE BTC BONUS/EEARD POINTS BONUSは手動で行う。

For i = 1 To 24 //とりあえず24回（1日）
ie = CreateOLEObj("InternetExplorer.Application")
ie.Navigate("https://freebitco.in/?op=home")
Sleep(5)
list = ie.Document.getElementsByTagName("input")
For j = 0 To list.Length - 1
    If list.Item(j).Id = "free_play_form_button" Then
    list.Item(j).Click()
    Endif
Next
Sleep(2)
Doscmd("taskkill /f /im iexplore.exe")
Sleep(2)
Print i + "回目終了" 
Sleep(3602)
Next

For i = 1 To 24 //とりあえず24回（1日）

ie = CreateOLEObj("InternetExplorer.Application")

ie.Navigate("https://freebitco.in/?op=home")

Sleep(5)

list = ie.Document.getElementsByTagName("input")

For j = 0 To list.Length - 1

If list.Item(j).Id = "free_play_form_button" Then

list.Item(j).Click()

Endif

Sleep(2)

Doscmd("taskkill /f /im iexplore.exe")

Sleep(2)

Print i + "回目終了"

Sleep(3602)

2020/09/01追記

Webサイトが月に数回サーバーダウンになって、なんだか雲行きが怪しいのでやめた。上記コードは公開するが、管理人は使用していない。