Reply to thread

Message

<blockquote data-quote="flyest" data-source="post: 352849" data-attributes="member: 29020">I actually got it all working now.It does the mathematics itself. But since I coded everything inside Button1_Click I have to click it in order for it to make the bet and click 'Enter'.Not a really big deal though. It should be easy to code. [SPOILER=&quot;Code&quot;][CODE]&nbsp; &nbsp; Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load&nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Navigate(&quot;http://mafiaenshevn.com/?casino=kronmynt&quot;)&nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.ScriptErrorsSuppressed = True&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub button1_Click(sender As Object, e As EventArgs) Handles Button1.Click&nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(&quot;innsats&quot;).SetAttribute(&quot;value&quot;, &quot;100000&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Dim elc As HtmlElementCollection = Me.WebBrowser1.Document.GetElementsByTagName(&quot;input&quot;)&nbsp; &nbsp; &nbsp; &nbsp; For Each el As HtmlElement In elc&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If el.GetAttribute(&quot;type&quot;).Equals(&quot;submit&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; el.InvokeMember(&quot;Click&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; If WebBrowser1.DocumentText.Contains(&quot;Du vant&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(&quot;innsats&quot;).SetAttribute(&quot;value&quot;, &quot;100000&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each el As HtmlElement In elc&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If el.GetAttribute(&quot;type&quot;).Equals(&quot;submit&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; el.InvokeMember(&quot;Click&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If WebBrowser1.DocumentText.Contains(&quot;Du tapte 100&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(&quot;innsats&quot;).SetAttribute(&quot;value&quot;, &quot;200000&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each el As HtmlElement In elc&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If el.GetAttribute(&quot;type&quot;).Equals(&quot;submit&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; el.InvokeMember(&quot;Click&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If WebBrowser1.DocumentText.Contains(&quot;Du tapte 200&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(&quot;innsats&quot;).SetAttribute(&quot;value&quot;, &quot;400000&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each el As HtmlElement In elc&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If el.GetAttribute(&quot;type&quot;).Equals(&quot;submit&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; el.InvokeMember(&quot;Click&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If WebBrowser1.DocumentText.Contains(&quot;Du tapte 400&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(&quot;innsats&quot;).SetAttribute(&quot;value&quot;, &quot;800000&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each el As HtmlElement In elc&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If el.GetAttribute(&quot;type&quot;).Equals(&quot;submit&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; el.InvokeMember(&quot;Click&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If WebBrowser1.DocumentText.Contains(&quot;Du tapte 800&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(&quot;innsats&quot;).SetAttribute(&quot;value&quot;, &quot;1600000&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each el As HtmlElement In elc&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If el.GetAttribute(&quot;type&quot;).Equals(&quot;submit&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; el.InvokeMember(&quot;Click&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If WebBrowser1.DocumentText.Contains(&quot;Du tapte 1 600&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(&quot;innsats&quot;).SetAttribute(&quot;value&quot;, &quot;3200000&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each el As HtmlElement In elc&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If el.GetAttribute(&quot;type&quot;).Equals(&quot;submit&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; el.InvokeMember(&quot;Click&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If WebBrowser1.DocumentText.Contains(&quot;Du tapte 3 200&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(&quot;innsats&quot;).SetAttribute(&quot;value&quot;, &quot;6400000&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each el As HtmlElement In elc&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If el.GetAttribute(&quot;type&quot;).Equals(&quot;submit&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; el.InvokeMember(&quot;Click&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If WebBrowser1.DocumentText.Contains(&quot;Du tapte 6 400&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(&quot;innsats&quot;).SetAttribute(&quot;value&quot;, &quot;12800000&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each el As HtmlElement In elc&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If el.GetAttribute(&quot;type&quot;).Equals(&quot;submit&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; el.InvokeMember(&quot;Click&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If WebBrowser1.DocumentText.Contains(&quot;Du tapte 12 800&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(&quot;innsats&quot;).SetAttribute(&quot;value&quot;, &quot;25600000&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each el As HtmlElement In elc&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If el.GetAttribute(&quot;type&quot;).Equals(&quot;submit&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; el.InvokeMember(&quot;Click&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If WebBrowser1.DocumentText.Contains(&quot;Du tapte 25 600&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(&quot;innsats&quot;).SetAttribute(&quot;value&quot;, &quot;51200000&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each el As HtmlElement In elc&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If el.GetAttribute(&quot;type&quot;).Equals(&quot;submit&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; el.InvokeMember(&quot;Click&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub[/CODE][/SPOILER]Thanks to [USER=1634]@Donkee[/USER] for helping me. It was much easier in Visual Basic. <img src="/styles/default/xenforo/smilies/emojione/smile.png"&nbsp; class="smilie" loading="lazy" alt=":)" title="Smile&nbsp; &nbsp; :)" data-shortname=":)" /></blockquote>

[QUOTE="flyest, post: 352849, member: 29020"] I actually got it all working now. It does the mathematics itself. But since I coded everything inside Button1_Click I have to click it in order for it to make the bet and click 'Enter'. Not a really big deal though. It should be easy to code. [SPOILER="Code"] [CODE] Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load WebBrowser1.Navigate("http://mafiaenshevn.com/?casino=kronmynt") WebBrowser1.ScriptErrorsSuppressed = True End Sub Private Sub button1_Click(sender As Object, e As EventArgs) Handles Button1.Click WebBrowser1.Document.GetElementById("innsats").SetAttribute("value", "100000") Dim elc As HtmlElementCollection = Me.WebBrowser1.Document.GetElementsByTagName("input") For Each el As HtmlElement In elc If el.GetAttribute("type").Equals("submit") Then el.InvokeMember("Click") End If Next If WebBrowser1.DocumentText.Contains("Du vant") Then WebBrowser1.Document.GetElementById("innsats").SetAttribute("value", "100000") For Each el As HtmlElement In elc If el.GetAttribute("type").Equals("submit") Then el.InvokeMember("Click") End If Next End If If WebBrowser1.DocumentText.Contains("Du tapte 100") Then WebBrowser1.Document.GetElementById("innsats").SetAttribute("value", "200000") For Each el As HtmlElement In elc If el.GetAttribute("type").Equals("submit") Then el.InvokeMember("Click") End If Next End If If WebBrowser1.DocumentText.Contains("Du tapte 200") Then WebBrowser1.Document.GetElementById("innsats").SetAttribute("value", "400000") For Each el As HtmlElement In elc If el.GetAttribute("type").Equals("submit") Then el.InvokeMember("Click") End If Next End If If WebBrowser1.DocumentText.Contains("Du tapte 400") Then WebBrowser1.Document.GetElementById("innsats").SetAttribute("value", "800000") For Each el As HtmlElement In elc If el.GetAttribute("type").Equals("submit") Then el.InvokeMember("Click") End If Next End If If WebBrowser1.DocumentText.Contains("Du tapte 800") Then WebBrowser1.Document.GetElementById("innsats").SetAttribute("value", "1600000") For Each el As HtmlElement In elc If el.GetAttribute("type").Equals("submit") Then el.InvokeMember("Click") End If Next End If If WebBrowser1.DocumentText.Contains("Du tapte 1 600") Then WebBrowser1.Document.GetElementById("innsats").SetAttribute("value", "3200000") For Each el As HtmlElement In elc If el.GetAttribute("type").Equals("submit") Then el.InvokeMember("Click") End If Next End If If WebBrowser1.DocumentText.Contains("Du tapte 3 200") Then WebBrowser1.Document.GetElementById("innsats").SetAttribute("value", "6400000") For Each el As HtmlElement In elc If el.GetAttribute("type").Equals("submit") Then el.InvokeMember("Click") End If Next End If If WebBrowser1.DocumentText.Contains("Du tapte 6 400") Then WebBrowser1.Document.GetElementById("innsats").SetAttribute("value", "12800000") For Each el As HtmlElement In elc If el.GetAttribute("type").Equals("submit") Then el.InvokeMember("Click") End If Next End If If WebBrowser1.DocumentText.Contains("Du tapte 12 800") Then WebBrowser1.Document.GetElementById("innsats").SetAttribute("value", "25600000") For Each el As HtmlElement In elc If el.GetAttribute("type").Equals("submit") Then el.InvokeMember("Click") End If Next End If If WebBrowser1.DocumentText.Contains("Du tapte 25 600") Then WebBrowser1.Document.GetElementById("innsats").SetAttribute("value", "51200000") For Each el As HtmlElement In elc If el.GetAttribute("type").Equals("submit") Then el.InvokeMember("Click") End If Next End If End Sub[/CODE] [/SPOILER] Thanks to [USER=1634]@Donkee[/USER] for helping me. It was [B]much[/B] easier in Visual Basic. :) [/QUOTE]

Verification

Reply to thread

Connect with us

Newest members