EXPLAIN INET1.EXECUTE

This code works just fine,
Can anybody please explain only the line where

.execute.....

appears?

why is it that line like that?
what means  " option=com_vest&task=resultdetail "
Regards,

Option Explicit 
Dim w_azv_cod As String, w_int_nam As String, w_pat_cod As String 

Private Sub Form_Load() 
  Dim a As Integer, w As String 
  Open "c:\tmp\azv_cod_txt.txt" For Input As #1 Len = 100 
  Input #1, w 
  w_pat_cod = Trim(w) 
  Input #1, w 
  w_azv_cod = Trim(w) 
  Input #1, w 
  w_int_nam = Trim(w) 
  Close #1 
  With Inet1 
      .Execute "https://www.mysite.com/index.php?option=com_vest&task=resultdetail '_blank'>https://www.mysite.com/index.php?option=com_vest&task=resultdetail", "POST", "txtrn=" + w_azv_cod, "Content-Type: application/x-www-form-urlencoded" 
  End With 
End Sub 
Private Sub Command1_Click() 
  End 
End Sub 
  
Private Sub Inet1_StateChanged(ByVal State As Integer) 
    Dim Result As Variant, LIN(7) As String, part As String, na As String 
    If State = 12 Then 
        Do 
            part = Inet1.GetChunk(100, icString) 
            Result = Result & part 
        Loop Until Len(part) = 0 
        If InStr(1, UCase(Result), UCase("Er zijn geen verzekerden"), vbTextCompare) Then 
          na = "Relatie No. not registered." 
          Text1.Text = w_azv_cod 
          Text2.Text = w_int_nam 
          Text3.Text = na 
          Text4.Text = na 
          Text5.Text = na 
          Text6.Text = na 
          Text7.Text = na 
        Else 
          LIN(1) = Split(Split(Split(Split(Result, "<table")(5), "</tr>")(1), "<b>")(1), "</b>")(0) 
          LIN(2) = Split(Split(Split(Split(Result, "<table")(5), "</tr>")(2), "<b>")(1), "</b>")(0) 
          LIN(3) = Split(Split(Split(Split(Result, "<table")(5), "</tr>")(3), "<b>")(1), "</b>")(0) 
          LIN(4) = Split(Split(Split(Split(Result, "<table")(5), "</tr>")(4), "<b>")(1), "</b>")(0) 
          LIN(5) = Mid(Result, InStr(1, UCase(Result), UCase("Deze informatie is geldig op:"), vbTextCompare) + 31, 60) 
          LIN(5) = Mid(LIN(5), InStr(1, LIN(5), "<b>") + 3, 11) 
          Text1.Text = w_azv_cod 
          Text2.Text = w_int_nam 
          Text3.Text = LIN(1) 
          Text4.Text = LIN(2) 
          Text5.Text = LIN(3) 
          Text6.Text = LIN(4) 
          Text7.Text = LIN(5) 
          ' MsgBox Split(Split(Split(Split(Result, "<table")(6), "</tr>")(1), "<b>")(1), "</b>")(0) & vbLf & _ 
          '        Split(Split(Split(Split(Result, "<table")(6), "</tr>")(2), "<b>")(1), "</b>")(0) & vbLf & _ 
          '        Split(Split(Split(Split(Result, "<table")(6), "</tr>")(3), "<b>")(1), "</b>")(0) & vbLf & _ 
          '        Split(Split(Split(Split(Result, "<table")(6), "</tr>")(4), "<b>")(1), "</b>")(0) 
        End If 
    End If 
End Sub 
  
Open in New Window Select All Tags:

Open in new window

RGuillermoProject ManagerAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Rahul GuptaCommented:
INET is Internet Transfer Control. It is used to execute a web url without the use of web browser.


Here.
option=com_vest&task=resultdetail  is query string.

it is the part of the url you are using to send the information to the web server.


For more information

http://msdn.microsoft.com/en-us/library/aa733648(VS.60).aspx
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.