Using Inernet Transfer Protocol.

[AzKay]

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 633, 454, 193, 115)
$Obj1 = ObjCreate("InetCtls.Inet.1")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 8, 8, 32, 32)
$Edit1 = GUICtrlCreateEdit("", 96, 64, 249, 265)
$oRes = $Obj1.OpenURL("http://google.com/")
GUICtrlSetData(-1, $oRes)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

$oRes, should contain the source code, But it always returns "0".

Using the object works fine in VB6 though.

Any ideas on what im doing wrong?

Edited July 11, 2007 by AzKay

[evilertoaster]

Humm, the .OpenURL object doesn't seem to exist on my system. Where's the InetCtls object from? I can't seem to remmber it... Does this code work -

#include <Inet.au3>
 MsgBox(0,"",_INetGetSource("http://www.google.com"))

?

[AzKay]

That code works, but its not what I want, Because I cant POST with _INetGetSource.

Seems not many people have the Inet object too. I think ive only got it, because I have VB6 installed...

[evilertoaster]

You can't post? what do you mean? are you planning to update the google home page or somthing ?

[AzKay]

You cant send POST data, In _INetGetSource.

_INetGetSource uses GET

[evilertoaster]

So what are you trying to accoplish in the end? you can simulate and post by embeding the value that would have been in the serach field into the url-

#include <inet.au3>
$inputbox=InputBox("What to search for","Enter search string")
$res=_INetGetSource("http://www.google.com/search?hl=en&q="&$inputbox)
MsgBox(0,"http://www.google.com/search?hl=en&q="&$inputbox,$res)

Or you wanted somthing else?

[AzKay]

That isnt "simulating a post", Thats still a GET request. The &q=, Is a GET variable, Not a POST one.

[evilertoaster]

What are you trying to accomplish in the end? What's the differnce in functionality that prevents you from using this rather than a'post' method (which are usually only used on web-pages themselfs)?

[AzKay]

Because you cant login to a site with a GET method.

[evilertoaster]

One option would be to use the lesser known optional paramter of _INetGetSource to specify a custom http header. It uses the InternetOpenUrl() form wininet fucntion lib (http://msdn2.microsoft.com/en-us/library/aa385098.aspx) and if you look at the header info (http://msdn2.microsoft.com/en-us/library/aa384247.aspx) you'll see that

The function also lets the client specify optional data to send to the HTTP server immediately following the request headers. This feature is generally used for "write" operations such as PUT and POST.

But i think the best thing to do is use the IE library to post it (_IEFormSubmit () )

Edited July 11, 2007 by evilertoaster

[PsaltyDS]

That isnt "simulating a post", Thats still a GET request. The &q=, Is a GET variable, Not a POST one.

Man, you ARE doing it the hard way, Dude! This works with IE.au3 UDF:

#include <GUIConstants.au3>
#include <IE.au3>
Opt("GuiOnEventMode", 1)
$Form1 = GUICreate("AForm1", 800, 600)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit")
$Obj1 = _IECreateEmbedded()
If IsObj($Obj1) Then
    $Obj1_ctrl = GUICtrlCreateObj($Obj1, 10, 10, 780, 385)
    $Edit1 = GUICtrlCreateEdit("", 10, 405, 780, 385)
    GUISetState(@SW_SHOW)
    _IENavigate($Obj1, "http://google.com/")
    $oRes = _IEBodyReadHTML($Obj1)
    GUICtrlSetData($Edit1, $oRes)
Else
    MsgBox(16, "Error", "Failed to create object: InetCtls.Inet.1")
EndIf

While 1
    Sleep(20)
WEnd

Func _Quit()
    Exit
EndFunc   ;==>_Quit

When I try to use your code, $oObj1 is not created (tested it with IsObj()).

[AzKay]

It doesnt create because you need to have VB6 installed, Apparently.