Internet Page Opening

eyuvaraj · August 10th, 2006, 07:05 AM

Hi,
Any body knows, how to open a webpage with default browser with pass the data with post method. I can able to open a page using shellexecute but I am not able to post my data to that page.

I am using the following code for shell execute.

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, _
        ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute(Me.hwnd, "Open", "http://www.supportminds.com/users/login.php?" & PostData(data), _
       vbNullString, App.Path, vbNormalFocus)

BrianWren · August 10th, 2006, 11:45 AM

What does PostData(data) look like? (What are the contents?)

eyuvaraj · August 11th, 2006, 01:10 AM

It is a private function to convert into binary form. It is given below.

Private Function PostData(ByVal strPostData As String)
    '
    ' Convert the text to a byte array. Sending binary data
    ' is a little different but not much.
    '
    ' This code is only needed when using the POST method
    '
    Dim ByteArray() As Byte
    Dim intNewBytes As Integer
    Dim strCH As String
    Dim i As Integer

'MsgBox (strPostData)
    intNewBytes = Len(strPostData) - 1

    If intNewBytes < 0 Then
     Exit Function
    End If

    ReDim ByteArray(intNewBytes)

    For i = 0 To intNewBytes
     strCH = Mid$(strPostData, i + 1, 1)

     If strCH = Space(1) Then
        strCH = "+"
     End If

     ByteArray(i) = Asc(strCH)
    Next
    'MsgBox (ByteArray)
    PostData = ByteArray

End Function

BrianWren · August 14th, 2006, 03:35 PM

What happens when you try this? You say that it does not work, but do you get an error? Page opens without the data? Nothing discernable happens?

eyuvaraj · August 17th, 2006, 01:22 AM

Page is opening without login. That is the problem. I want to know which how to pass the data with that page with post data.

BrianWren · August 17th, 2006, 10:11 AM

I think I would do this:

Code:

Private Function PostData(ByVal PostData As String) As String

    Dim strOut As String
    Dim intBytes As Integer
    Dim strCH As String
    Dim i As Integer

       intBytes = Len(PostData)
    If intBytes = 0 Then Exit Function

    For i = 1 To intBytes
        strCH = Mid$(PostData, i, 1)
        If strCH = Space(1) Then strCH = "+"

        strOut = strOut + strCH
    Next

    PostData = strOut

End Function

Of course, you could do the entire process of PostData as I've modified it by instead using:

Code:

    ShellExecute(Me.hwnd, _
                 "Open", _
                 "http://www.supportminds.com/users/login.php?" & Replace(data, Space(1), "+"), _
                 vbNullString, _
                 App.Path, _
                 vbNormalFocus)

eyuvaraj · August 22nd, 2006, 08:42 AM

It is not working. Is there any possiblity to open a page with posting the data as method post.