Reply to thread

Message

<blockquote data-quote="flyest" data-source="post: 353203" data-attributes="member: 29020">Thank you, kind sir! I tried a couple of combinations with And but it didn't work out for me. I just had to change the &amp; in your code and now it works perfectly. <img src="/styles/default/xenforo/smilies/emojione/smile.png"&nbsp; class="smilie" loading="lazy" alt=":)" title="Smile&nbsp; &nbsp; :)" data-shortname=":)" />[doublepost=1444484321,1444482500][/doublepost]The reason I had to do it that way is because if the application only reads &quot;You lost&quot;, it will jump to the maximum bet (TextBox1.Text * &quot;4096&quot;).Any idea how I make it know that if it loses the first time it will double the first bet (TextBox1.Text * &quot;2&quot;) and so on?[SPOILER=&quot;How it works&quot;][CODE] If WebBrowser1.DocumentText.Contains(TextBox3.Text) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute(&quot;value&quot;, TextBox4.Text * &quot;2&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(TextBox3.Text) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute(&quot;value&quot;, TextBox4.Text * &quot;4&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(TextBox3.Text) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute(&quot;value&quot;, TextBox4.Text * &quot;8&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(TextBox3.Text) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute(&quot;value&quot;, TextBox4.Text * &quot;16&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(TextBox3.Text) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute(&quot;value&quot;, TextBox4.Text * &quot;32&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(TextBox3.Text) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute(&quot;value&quot;, TextBox4.Text * &quot;64&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(TextBox3.Text) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute(&quot;value&quot;, TextBox4.Text * &quot;128&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(TextBox3.Text) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute(&quot;value&quot;, TextBox4.Text * &quot;256&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(TextBox3.Text) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute(&quot;value&quot;, TextBox4.Text * &quot;512&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(TextBox3.Text) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute(&quot;value&quot;, TextBox4.Text * &quot;1024&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(TextBox3.Text) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute(&quot;value&quot;, TextBox4.Text * &quot;2048&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(TextBox3.Text) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute(&quot;value&quot;, TextBox4.Text * &quot;4096&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[/CODE][/SPOILER]</blockquote>

[QUOTE="flyest, post: 353203, member: 29020"] Thank you, kind sir! I tried a couple of combinations with And but it didn't work out for me. I just had to change the & in your code and now it works perfectly. :) [doublepost=1444484321,1444482500][/doublepost]The reason I had to do it that way is because if the application only reads "You lost", it will jump to the maximum bet (TextBox1.Text * "4096"). Any idea how I make it know that if it loses the first time it will double the first bet (TextBox1.Text * "2") and so on? [SPOILER="How it works"][CODE] If WebBrowser1.DocumentText.Contains(TextBox3.Text) Then WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute("value", TextBox4.Text * "2") 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(TextBox3.Text) Then WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute("value", TextBox4.Text * "4") 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(TextBox3.Text) Then WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute("value", TextBox4.Text * "8") 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(TextBox3.Text) Then WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute("value", TextBox4.Text * "16") 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(TextBox3.Text) Then WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute("value", TextBox4.Text * "32") 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(TextBox3.Text) Then WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute("value", TextBox4.Text * "64") 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(TextBox3.Text) Then WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute("value", TextBox4.Text * "128") 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(TextBox3.Text) Then WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute("value", TextBox4.Text * "256") 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(TextBox3.Text) Then WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute("value", TextBox4.Text * "512") 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(TextBox3.Text) Then WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute("value", TextBox4.Text * "1024") 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(TextBox3.Text) Then WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute("value", TextBox4.Text * "2048") 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(TextBox3.Text) Then WebBrowser1.Document.GetElementById(TextBox6.Text).SetAttribute("value", TextBox4.Text * "4096") For Each el As HtmlElement In elc If el.GetAttribute("type").Equals("submit") Then el.InvokeMember("Click") End If Next End If[/CODE] [/SPOILER] [/QUOTE]

Verification

Reply to thread

Connect with us

Newest members