6 replies to this topic

[w0uter]

gets the links to images on a certain website.

$array[0] = nr of links
$array[1] = link 1
$array[n] = link n

if no images are found @error = 2 and $array = 0

Attached Files

•  _INetGetImage.au3   1.8KB   1883 downloads

[Spiders_Poison]

First of all.. I'm from Germany and my English is not very good...

My Problem...

I get an Error with your Scripts and I don't know how I can fix it.

AutoIt Error

Line 24 (File "D:\AutoIt3\include\_INetGetImage.au3");

$v_HTTP = ObjCreate ("winhttp.winhttprequest.5.1")
$v_HTTP = ^ ERROR

Error: Unknown function name.

An error like this I get in the _INetGetImage, INetGetSource and with the Example of InetGetSouurce...

I have installed the newest free version of AutoIt... so could annybody tell me were the Problem is?

I need Help...

[w0uter]

I have installed the newest free version of AutoIt...

<{POST_SNAPBACK}>

all versions of autoit are free

you need the beta get it for FREE @ http://www.autoitscript.com/autoit3/files/beta/autoit/

[buzz44]

Nice w0uter. I can see myself link this to googling images and retrieving the links .

One suggestion...

#cs
;ALL ROOT URLS MUST END IN '/'
;good: <a href='http://www.autoitscript.com/' class='bbc_url' title=''>http://www.autoitscript.com/</a>
;good: <a href='http://www.autoitscript.com/index.php' class='bbc_url' title=''>http://www.autoitscript.com/index.php</a>
;BAD: <a href='http://www.autoitscript.com' class='bbc_url' title=''>http://www.autoitscript.com</a>

$var = _INetGetImage('http://www.autoitscript.com/')

If NOT @ERROR Then

For $i = 1 to $var[0]
    ConsoleWrite($var[$i] & @LF)
Next

EndIf
#ce

Perhaps you should some internal error checking... to be more user friendly .

If StringRight($s_URL) <> "/" And StringRight($s_URL, 4) = ".com" Then
   $s_URL = $s_URL & "/"
EndIf

Or something similar.

Edit: Whoops, forget there is also .net, .org plus all the country prefix's, .au, .de etc. Maybe it should be left to the user .

Edited by Burrup, 14 June 2005 - 01:27 PM.

[w0uter]

Edit: Whoops, forget there is also .net, .org plus all the country prefix's, .au, .de etc. Maybe it should be left to the user .

<{POST_SNAPBACK}>

exactly

[Wus]

I dont know if this will work right since I dont know if the extra slash will matter on somthing such as http://www.autoitscript.com/index.php but it may be useful

Func _AddTrSlash( $URLraw );; Add trailing slash
    
    Local $CharSep, $URLraw, $URL
    $CharSep = StringSplit( $URLraw, "" )
    If $CharSep[$CharSep[0]] <> "/" Then
        $URL = $URLraw & "/"
    EndIf
    Return $URL

EndFunc

EDIT: appears it dont work.,. nvm

Edited by Wus, 15 June 2005 - 07:07 PM.

[w0uter]

http://www.autoitscript.com/index.php/ = evil