locked
program for text game online (WebBrowser) RRS feed

  • Question

  •         

    i work on program to game ( text game)

    i have two form 
    in form one this code 

    Private Sub Form1_Load1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

          WebBrowser1.Navigate("www.A.com")       

    WebBrowser1.ScriptErrorsSuppressed = True    End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged        Timer1.Interval = 15000    End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged        Timer1.Interval = 25000    End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        If RadioButton1.Checked = True Then            Timer1.Interval = 15000        ElseIf RadioButton2.Checked = True Then            Timer1.Interval = 25000        End If        Timer1.Start()     End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick      i need help here    End Sub



    There are two pages appear at the same address
    i need program When I click on Button1_Click then start timer and go to page
    (http://www.A.com//alpha/?p=EARN.go)
    every 15 - 25  second
    and 
    click on Button in this page Automatic without any interference from me
     code in web page 2 
    </table>
    <input type="hidden" name="rand_str" value="TvKz358IBZJa" /></div><

    div class="buttons" style="text-align: center;"><input type="submit" autofocus class="button" value=go
    /></div></form></div>  </div>
    =================================================================
    If the program get this code in web page1


    <input type="hidden" name="rand_str" value="qI0c1kXogRgR" /></div><div class="midmargins" style="margin-"><div class="ascwrapper"><img src="/alpha/captcha.php?1392221372" width="150" height="25" title="Click for another image" alt="CAPTCHA" id="asc" /></div></div><div class="buttons" style="text-align: center;"><input type="tel" autofocus class="button"  style="min-width: 35px;max-width: 35px;" name="code" value="" /><input type="submit" autofocus class="button" value=CRIME /></div></form></div> 

     then show me form2 with image of CAPTCHA

    in form 2 this code

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    i need help here

        End Sub   

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Clickshow

    image of captcha here

        End Sub   

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    i need help here   

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    i need help here   

    End Sub


    example of the form 2

    thank you

    I'm sorry if there are mistakes in the writing, I am weak in the English language 
    If there is points need to clarify more i'm here


    Wednesday, February 12, 2014 7:14 PM

All replies

  •         

    i work on program to game ( text game)

    i have two form 
    in form one this code 

    Private Sub Form1_Load1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

          WebBrowser1.Navigate("www.A.com")       

    WebBrowser1.ScriptErrorsSuppressed = True    End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged        Timer1.Interval = 15000    End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged        Timer1.Interval = 25000    End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        If RadioButton1.Checked = True Then            Timer1.Interval = 15000        ElseIf RadioButton2.Checked = True Then            Timer1.Interval = 25000        End If        Timer1.Start()     End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick      i need help here    End Sub



    There are two pages appear at the same address
    i need program When I click on Button1_Click then start timer and go to page
    (http://www.A.com//alpha/?p=EARN.go)
    every 15 - 25  second
    and 
    click on Button in this page Automatic without any interference from me
     code in web page 2 
    </table>
    <input type="hidden" name="rand_str" value="TvKz358IBZJa" /></div><

    div class="buttons" style="text-align: center;"><input type="submit" autofocus class="button" value=go
    /></div></form></div>  </div>
    =================================================================
    If the program get this code in web page1


    <input type="hidden" name="rand_str" value="qI0c1kXogRgR" /></div><div class="midmargins" style="margin-"><div class="ascwrapper"><img src="/alpha/captcha.php?1392221372" width="150" height="25" title="Click for another image" alt="CAPTCHA" id="asc" /></div></div><div class="buttons" style="text-align: center;"><input type="tel" autofocus class="button"  style="min-width: 35px;max-width: 35px;" name="code" value="" /><input type="submit" autofocus class="button" value=CRIME /></div></form></div> 

     then show me form2 with image of CAPTCHA

    in form 2 this code

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    i need help here

        End Sub   

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Clickshow

    image of captcha here

        End Sub   

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    i need help here   

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    i need help here   

    End Sub


    example of the form 2

    thank you

    I'm sorry if there are mistakes in the writing, I am weak in the English language 
    If there is points need to clarify more i'm here


    http://imageshack.com/a/img691/4741/67kc.jpg
    Wednesday, February 12, 2014 7:20 PM