_GetSource()

[w0uter]

;===============================================================================
;
; Function Name:    _INetGetSource()
; Description:    Gets the source from an URL without writing a temp file.
; Parameter(s):  $s_URL = The URL of the site.
; Requirement(s):   A beta version w/ COM
; Return Value(s):  On Success - Returns the source code.
;                  On Failure - 0  and sets @ERROR = 1
; Author(s):        KIX: Lonkero.
;                   BASE CONVERSION: SvenP.
;                   UDF: Wouter van Kesteren.
;
;===============================================================================

_INetGetSource.zip

Edited May 30, 2005 by w0uter

[layer]

Sorry for being picky, but maybe you should rename it to "_URLGetSource" or "INetGetSource" or some such to keep up with the consistent namespace type things we have so far...

BTW,

Good work!

[w0uter]

i agree. done.

[w0uter]

soo is this so damn good ? cuz i dont see any criticism ?

[therks]

This isn't necessarily a good idea..

If StringLeft($s_URL, 7) <> 'http://' Then $s_URL = 'http://' & $s_URL

What if they are using an https:// URL? This line will change the URL they sent to http://https://www.etc.com

Otherwise it works fine.

[w0uter]

thank you Saunders.

how do you like it like this ?

;add 'http://' if 'http(s)://' is not present
    If StringLeft($s_URL, 7) <> 'http://' AND StringLeft($s_URL, 8) <> 'https://' Then $s_URL = 'http://' & $s_URL

and yer link will end up @ paypal

Edited May 30, 2005 by w0uter

[w0uter]

sooo anything else ?

[layer]

Looks pretty good to me, but I was never good at finding problems in code... But from what I see, there are none

[w0uter]

after looking at it again. it noticed that it has no error handeling what so ever.

i was wondering, would it be possible to:

get the current autoit.error function.

change it to a new function.

detect if there is an error.

change it back to the old function.

(hope you catch my drift)

[w0uter]

anyone ?

[flyingboz]

anyone ?

<{POST_SNAPBACK}>

I'd recommend for cross-platform / future version compatibility that you grab the appropriate winhttp.winhttprequest.5.1 method from the registry - This will prevent object not found errors.... While global variables are very bad, in a case like this I might use one, such that I'd put the regread in a if not defined structure, so that I didn't have to do a regread every time the func was called.

[w0uter]

i am sorry but i do not get what you mean.

could you explain it a bit more ?

[flyingboz]

icould you explain it a bit more ?

<{POST_SNAPBACK}>

For portability, you [c|sh]ould check the registry keys that match the following,

and use the most desired version available... Your script will fail w/ a com error if

an older IE is being run.

HKEY_CLASSES_ROOT\WinHttp.WinHttpRequest.5

[memnon]

i have troubles with the errorhandling ....

if a url is not valid, like http://w.a i get an error:

Line 34...

$o_HTTP.send()

$0_HTTP.send()^ERROR

Error: The requested action with this object has failed.

Why i dont get the MsGBox with "...error" ?

$webadresse=_INetGetSource($sInputBoxAnswer)

Select

Case @ERROR = 0

Msgbox(0,"Url-Prüfung",$sInputBoxAnswer & "...ok")

Case @ERROR = 1

Msgbox(0,"Url-Prüfung",$sInputBoxAnswer & "...error")

EndSelect

[w0uter]

since it is working with COM.

i am not able to check if the error occurs,

without adding a custom errorhandeler wich will overwrite the old one.

untill they change the objevent to return the old func in like a byref var.

there is not really much i can do about this.

[SvenP]

since it is working with COM.

i am not able to check if the error occurs,

without adding a custom errorhandeler wich will overwrite the old one.

untill they change the objevent to return the old func in like a byref var.

there is not really much i can do about this.

<{POST_SNAPBACK}>

W0uter,

I have added an option to retrieve the current name of the COM Error Handler function, using ObjEvent.

However a running Error Handler can not be stopped, because it's too difficult to retrieve the variable it had been assigned to.

The modifications will be uploaded soon (need to rewrite the documentation first).

Regards,

-Sven

[w0uter]

sweet.

your teh

[w0uter]

k heres my first try @ it.

_INetGetSource_NEW.au3

[jdickens]

I get Unknown function name.: on ObjCreate.

How do I determine what version I have, and is that the prob?

J

[w0uter]

I get Unknown function name.: on ObjCreate.

How do I determine what version I have, and is that the prob?

J

<{POST_SNAPBACK}>

you need the latest beta version.

http://www.autoitscript.com/autoit3/files/beta/autoit/