Я хотел бы купить на gdax автоматически. Но мои данные в окне "Сумма" не распознаются. Я вижу, что на маленьком поле, которое говорит: Total (LTC) ≈ 0.00000000
Мой код:
Sub test()
Dim ObjIE As New InternetExplorer
Dim Ohtml As HTMLDocument
Dim HTMLtags As IHTMLElementCollection
Dim HTMLtag As IHTMLElement
Dim HTMLobjekt As IHTMLElement
Dim item_limit As Object
Dim y As Integer
With ObjIE
.Visible = True
.navigate "https://www.gdax.com/trade/LTC-EUR"
Do Until .readyState = READYSTATE_COMPLETE: Loop
Set Ohtml = .document
End With
'Amount
Do
Set HTMLtags = Ohtml.getElementsByClassName("OrderForm_input-box_XkGmi")
DoEvents
Loop While HTMLtags.Length = 0
For Each HTMLtag In HTMLtags
If HTMLtag.Children(1).innerText = "EUR" Then
Set HTMLobjekt = HTMLtag.Children(0)
HTMLobjekt.Value = 100 ' this is the part that i excanged
End If
Next HTMLtag
'get the Total(LTC) to cross check
Do
Set HTMLtags = Ohtml.getElementsByClassName("OrderForm_total_6EL8d")
DoEvents
Loop While HTMLtags.Length = 0
For Each HTMLtag In HTMLtags
Debug.Print HTMLtag.innerText & "Total(LTC)"
Next HTMLtag
End Sub
Это то, что веб-сайт говорит, когда код сделан:
и так оно и должно выглядеть, и выглядит, когда я набираю номер вручную:
Я также обмениваю отмеченную часть такими вещами, как:
HTMLobjekt.innerText = 100
или же
HTMLobjekt.innerText = "100"
или же
HTMLobjekt.Value = "100"
но ничего не получилось.