Jump to content

_INetGetImage


w0uter
 Share

Recommended Posts

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

_INetGetImage.au3

My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll

Link to comment
Share on other sites

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... :(

Link to comment
Share on other sites

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/

My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll

Link to comment
Share on other sites

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: http://www.autoitscript.com/
;good: http://www.autoitscript.com/index.php
;BAD: http://www.autoitscript.com

$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

qq

Link to comment
Share on other sites

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
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...