Easy VB6 to VB.NET conversion help please

I'm trying to make a small app that has a browser window and a button on a form that will load a webform at www.ASpecificForm.com\form1.asp and fill in the textboxes on the form with data I already have.
The purpose is so that I don't have to enter in the same data twice.
ie: I enter in the customer information into my own database, then I have to navigate to the webform at www.this1website.com\form1.asp and re-type it again just to get the customer info into the web form so that I can submit it via the Submit button on the webform itself.

I want a way to auto load as much info as I can into the form to save some time. I'm using the same form over and over on a daily basis....
I have some code that I think might work but I don't have vb6..only vb.net.
Can someone help me translate it into VB.NET or give me a better Idea how to do it. I've already checked with the company and they dont' offer any type of web service to send data to.


 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       WebBrowser1.Navigate2("www.this1website.com\form1.asp ")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If WebBrowser1.Busy Then
            MsgBox("PAGE IS STILL LOADING...PLEASES WAIT")
            Exit Sub
        Else
            WebBrowser1.Document.all("app_first_name").value = "MY FIRST NAME"
            WebBrowser1.Document.all("app_last_name").value = "LAST NAME"
            'etc etc for other fields
            'app_first_name is the input name. ie: <input type=text  name="app_first_name">

            'submit the form by clicking the submit button on the webform itself
        End If
    End Sub
**************END CODE*******************
LVL 1
Matrix1000Asked:
Who is Participating?
 
Éric MoreauSenior .Net ConsultantCommented:
It is much the same.

Have you found the Web Browser control in VB.Net? See http://support.microsoft.com/default.aspx?scid=kb;en-us;821771

I did much the same yesterday:

    Private mblnDownloadCompleted As Boolean

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        mblnDownloadCompleted = False
        With AxWebBrowser1
            .Navigate2("www.this1website.com\form1.asp")
            Do While Not mblnDownloadCompleted
                Application.DoEvents()
            Loop
            .Document.All("app_first_name").Value = "MY FIRST NAME"
            .Document.All("app_last_name").Value = "LAST NAME"
            .Document.Forms(0).Submit()

            mblnDownloadCompleted = False
            Do While Not mblnDownloadCompleted
                Application.DoEvents()
            Loop
        End With
    End Sub

    Private Sub AxWebBrowser1_DocumentComplete(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) Handles AxWebBrowser1.DocumentComplete
        mblnDownloadCompleted = True
    End Sub
0
 
Matrix1000Author Commented:
THANKS!!!

One question, how would I send that to a specific frame...the site I'm working with has an upper navigation frame that contains a bunch of tabs and a the lower frame contains the actual form....

Thanks for any assistance.
0
 
Éric MoreauSenior .Net ConsultantCommented:
I don't know about the frame!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.