Links Converter For You

[size=+3]*NEW VERSION*[/size]
http://www.dialco.ru/cazai/
[size=+2]Please, vote in poll[/size]

Here's my program.
Converter for posts in this forum, in Multimedia (Celebrity Pictures)

Auto convert html-files (or txt) with links (with another shit, like a text, pictures...) with format <a href>...<img src=...></img></a> to format

Output: text file with ONLY links.

Archive with program (not a virus or smthing else) and short manual.
Simply, i think.

If you will download it and it will usefull for u - just tell.

Thanx.

Sorry man, I've been busy lately and forgot about this. I will get around to it haha

Does it filter out pictures that almost identical to one another, or pics with too much clothing? Just curious.

If you find html's with image links (a href) and you want post this pics in this forum (Celebrity Pictures) - no reason use notepad and do replaces....you just download this html (only code) and run program.
In output file u will get links in our forum format.
Next your step: copy/paste.

I'm using this program, when i posting.
It's simply.

P.S.
Nizzle, ALL PICTURES

updated.

new version. more compact.

http://www.dialco.ru/cazai/

thanks will try.

This thing rocks dude. Awesome program.

WOW, The Chief voted "YES" in poll!
Thanks to all, voted in poll.
It's very important for me.

[size=+2]NEW VERSION AVAILABLE[/size]
more functions, better interface (i guess)

try it.

http://www.dialco.ru/cazai/

The program don't work for me...

tested in HTML page with Gif and Jpg files, the programs only catch Jpg pictures in A Href... nothing else

Can you give us an example to test ?!


EDIT: Tested again in another page and it works

Not working for me...but it's just my problem

Mitsu said:

The program don't work for me...

tested in HTML page with Gif and Jpg files, the programs only catch Jpg pictures in A Href... nothing else

Can you give us an example to test ?!


EDIT: Tested again in another page and it works

Click to expand...

The program catch only JPG or JPEG file links and MEDIAUPLOAD links...

will do new version with catching GIF files links...soon

Dim refURL,strLinks,strFile,fs,ts,artUrl,artRef,refPics
On Error Resume next
If WScript.Arguments.Count <> 0 Then
strFile = "HTTPLOG.LST"
artUrl = WScript.Arguments(0)
artRef = GetLinks(artUrl)
Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile(strFile, 8, true,0)
Err.Clear
On Error Resume Next
ts.write artRef
ts.Close
End If
' MsgBox("DONE")

Function GetLinks(strUrl)
Dim strHeaders
Dim oIE
On Error Resume Next

If WScript.Arguments.Count > 2 Then
If InStr(WScript.Arguments(3),"Ref:") Or InStr(WScript.Arguments(3),"http:/") THEN
refURL = Mid(WScript.Arguments(3),InStr(WScript.Arguments(3),"http://"))
' refURL = Left(refURL,Len(refURL)-1)
ELSE
refURL = strUrl
END IF
Else
refURL = strUrl
End If

strHeaders = "Referer: " & refURL & vbCrLf
set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate strUrl,,,,strHeaders

Do Until Not oIE.Busy
DoEvents
Loop
Status " Link: " & strURL
Status " Ref: " & refURL

For Each Element In oIE.Document.Links
If Element.href <> "" And Element.href <> " " Then
strLinks = strLinks & "CALL HTTPLST.BAT " & Chr(34) & Element.href & Chr(34) & Chr(32) & Chr(34) & "Ref:" & refURL & Chr(34) & vbCrLf
Status " Found: " & Element.href
End If
Next

For Each Element In oIE.Document.Anchors
If Element.href <> "" And Element.href <> " " Then
strLinks = strLinks & "CALL HTTPLST.BAT " & Chr(34) & Element.href & Chr(34) & Chr(32) & Chr(34) & "Ref:" & refURL & Chr(34) & vbCrLf
Status " Found: " & Element.href
End If
Next

For Each Element In oIE.Document.All.Tags("IMG")
If Element.href <> "" And Element.href <> " " Then
strLinks = strLinks & "CALL HTTPLST.BAT " & Chr(34) & Element.href & Chr(34) & Chr(32) & Chr(34) & "Ref:" & refURL & Chr(34) & vbCrLf
Status " Found: " & Element.href
End If
Next

oIE.Quit
Set oIE = nothing
On Error GoTo 0
GetLinks = strLinks
End Function

Sub Status(strMessage)
If Lcase(Right(Wscript.FullName, 12)) = "\cscript.exe" Then
If Len(strMessage)>79 Then
strMessage = Left(strMessage,38) & "[..]" & Right(strMessage,37)
End If
Wscript.Echo strMessage
End If
End Sub

Why would you want this anyway? To steal images from this site to post on other forums? lol

huh?

UltraLisk said:

Why would you want this anyway? To steal images from this site to post on other forums? lol

Click to expand...

To steal from this site would emply we are paying for this, is just for lazy people like me that dont like to read each and every single post, just pick the ones you like and this extracts the links for you.

I understand the rest but this puzzles me

If Lcase(Right(Wscript.FullName, 12)) = "\cscript.exe" Then
If Len(strMessage)>79 Then
strMessage = Left(strMessage,38) & "[..]" & Right(strMessage,37)
End If
Wscript.Echo strMessage
End If


do i need cScript to run this
what's the general name for this programminglanguage ?

?

GrapJ said:

I understand the rest but this puzzles me

If Lcase(Right(Wscript.FullName, 12)) = "\cscript.exe" Then
If Len(strMessage)>79 Then
strMessage = Left(strMessage,38) & "[..]" & Right(strMessage,37)
End If
Wscript.Echo strMessage
End If


do i need cScript to run this
what's the general name for this programminglanguage ?

?

Click to expand...

I think it is VBA (Visual Basic Application).
And this part of code is checking file "cscript.exe" needed for running script (for old OSes or if not installed Office package) or something like it ...

GrapJ said:

I understand the rest but this puzzles me

If Lcase(Right(Wscript.FullName, 12)) = "\cscript.exe" Then
If Len(strMessage)>79 Then
strMessage = Left(strMessage,38) & "[..]" & Right(strMessage,37)
End If
Wscript.Echo strMessage
End If


do i need cScript to run this
what's the general name for this programminglanguage ?

?

Click to expand...

I run the VB-Script in a dos box, this part of code checks if is being run on a dos box if so, it formats the message to fit in 80 colums wich is my settings for the dos box, also the default on most dos that I know, and the sub where this is located is called every time there is a link or image found to inform me of it..

On a different subject, if anyone is interested on the script for IExplorer(right click LinkGraber) just ask and I will post it if its ok with the mods, also if anyone needs examples on how to use this script I would be more than happy to show them, or post the batch files I use with this script, one calls the script with default settings, the other calls this batch with the link and reference url if needed for some sites that only accept entry from particular sites, as for this site make sure you are able to open pages with out having to re-log-in(checking the box when you log-in that says to keep you loged-in)

I use several scripts and batch files to automate the download and link finder of the files i wish to save to my computer, I dont recomend using this if you have a modem becouse it will be bussy for years lol too slow to do mass downloads or page surfing...

Happy hunting

Thanks UncleArt

I can read it but don't want to program with it
(i don't like VBscript)

I use a combination of Basic, Javascript and PHP for what i do.
I don't want to get in Castor's way because it's his idea.

and thank you again

keep up the good work

thanks I've found it very helpful.