|
Best Porn Sites | Live Sex | Register | FAQ | Members List | Calendar | Mark Forums Read |
Tutorials Step by step Guides and How to's with screengrabs. |
|
Thread Tools | Display Modes |
June 5th, 2009, 03:30 PM | #1 |
Ups, i did it again
Join Date: Jan 2008
Posts: 2,305
Thanks: 6,077
Thanked 23,962 Times in 2,082 Posts
|
How to repair imagevenue links in posts
It happens that a imagevenue link don't work due to wrong posting. Sometimes the thumb is missing or you can't open the pic. This methode worked many times to restore a missing second link.
Pic and thumb with a variant of the correct syntax: [URL=http://img175.imagevenue.com/img.php?image=36513_1_123_136lo.jpg][IMG]http://img175.imagevenue.com/loc136/th_36513_1_123_136lo.jpg[/IMG][/URL] 1. Please make a copy of your link and paste it to your post or editor to work on it 2. How to build the missing link Example1: Restore the missing thumb link from a posted pic link 3. How to build the the correct BB Code with both links: [URL=Pic link][IMG]Thumb link[/IMG][/URL] You will find more help here in the FAQ |
|
June 14th, 2009, 09:47 AM | #2 |
Ups, i did it again
Join Date: Jan 2008
Posts: 2,305
Thanks: 6,077
Thanked 23,962 Times in 2,082 Posts
|
Advanced : free script for Visual Basic
Code:
Sub Text_IV_Change () If Text_IV.Text <> "imagevenue" And Text_IV.Text <> "" Then clipboard.Clear a$ = Trim(Text_IV.Text) t$ = "" p$ = "" k0$ = "imagevenue.com/" k0a$ = "img.php?" k3$ = "image=" k1$ = k0a$ + k3$ k1a$ = "/" + k1$ k2$ = "/th_" k6$ = "loc" k5$ = "/" + k6$ k4$ = k0a$ + k6$ + "=" k7$ = "href=" + Chr(34) k8$ = "src=" + Chr(34) If a$ <> "" Then ' ' 1. html filter searching usage href="...." or scr="...." ' ' 1.1 kill all spaces outside the filenames ' b$ = Trim(LCase(a$)) i% = Len(b$) chr34_flag% = 0 While i% > 0 If Mid$(b$, i%, 1) = Chr(34) Then chr34_flag% = 1 - chr34_flag% ElseIf chr34_flag% = 0 Then If Mid$(b$, i%, 1) = Chr(32) Then b$ = Left$(b$, i% - 1) + Mid$(b$, i% + 1) End If End If i% = i% - 1 Wend ' ' 1.2 check existing filenames ' If InStr(b$, k7$) > 0 Then a$ = Mid$(b$, InStr(b$, k7$) + Len(k7$)) a$ = Trim(Left$(a$, InStr(a$, Chr(34)) - 1)) ElseIf InStr(b$, k8$) > 0 Then a$ = Mid$(b$, InStr(b$, k8$) + Len(k8$)) a$ = Trim(Left$(a$, InStr(a$, Chr(34)) - 1)) End If ' ' 2. restore missing link from filename ' If InStr(LCase(a$), k0$) Then b$ = LCase(a$) If InStr(b$, "/" + k4$) Then If InStr(b$, k2$) Then ' missing case : only thumb, pic missing Else p$ = a$ c$ = Left$(a$, InStr(b$, k4$) - 1) d$ = Mid$(a$, InStr(b$, k4$) + Len(k4$)) If InStr(d$, k6$) = 1 And InStr(d$, k3$) > 0 Then l$ = Mid$(d$, 4) l$ = Left$(l$, InStr(l$ + "&", "&") - 1) t$ = c$ + k6$ + l$ + k2$ + Mid$(d$, InStr(d$, k3$) + Len(k3$)) ' End If End If ElseIf InStr(b$, "lo.jpg") Then If InStr(b$, k2$) Then thumbnail% = True t$ = a$ p$ = Left$(a$, InStr(LCase(a$), k2$)) p$ = p$ + k1$ + Mid$(a$, InStr(LCase(a$), k2$) + Len(k2$)) ElseIf InStr(b$, k1a$) Then thumbnail% = False p$ = a$ i% = InStr(b$, "lo.jpg") b$ = Left$(a$, i% - 1) c$ = "" While Right(b$, 1) <> "_" c$ = Right$(b$, 1) + c$ b$ = Left$(b$, Len(b$) - 1) Wend t$ = Left$(p$, InStr(LCase(p$), k1a$)) t$ = t$ + k6$ + c$ + k2$ t$ = t$ + Mid$(p$, InStr(LCase(p$), k1a$) + Len(k1a$)) End If ElseIf InStr(b$, k0$ + k6$) > 0 And InStr(b$, k2$) > 0 Then t$ = a$ c$ = Left$(b$, InStr(b$, k5$)) d$ = Mid$(b$, InStr(b$, k5$) + 1) e$ = Mid$(d$, InStr(d$, k2$) + Len(k2$)) d$ = Left$(d$, InStr(d$, "/") - 1) p$ = c$ + k4$ + d$ + "&" + k3$ + e$ End If End If End If If p$ <> "" And t$ <> "" Then c$ = "[URL=" + p$ + "][IMG]" + t$ + "[/IMG][/URL]" clipboard.SetText c$ End If Text_IV.Text = "" WindowState = 1 End If End Sub How to add it to your Software:
cheers icu Last edited by icu; June 15th, 2009 at 04:45 PM.. |
The Following 9 Users Say Thank You to icu For This Useful Post: |
June 14th, 2009, 06:06 PM | #3 |
Blocked!
Join Date: Sep 2007
Posts: 4,775
Thanks: 8,926
Thanked 40,894 Times in 3,185 Posts
|
Imagevenue themselves offers a "Busy Poster Tool":
http://209.172.55.5/busy-poster.php It does not always do the job 100% but it allows in a lot of cases to extract/correct imagevenue links from posts. I sometimes use it to correct a post that went wrong when someone added the html code links (<a href="...) instead of the BBcode ones. Last edited by DubSalute; June 15th, 2009 at 03:17 PM.. |
June 14th, 2009, 07:30 PM | #4 |
Ups, i did it again
Join Date: Jan 2008
Posts: 2,305
Thanks: 6,077
Thanked 23,962 Times in 2,082 Posts
|
If we need it additional for the href then it is no problem to add it to the
script. At the moment I copy only one part of the links ( pic or thumb ), paste it to the textbox and get the [URL] BB code back to the clipboard. Actually the routine needs one of this imagevenue formats to build the complete code: ( XXX = location value ) A. File format ending with "lo.jpg" Thumbnail: ...imagevenue.com/locXXX/th_...XXXlo.jpg Picture___: ....imagevenue.com/img.php?image=...XXXlo.jpg B. File format ending without "lo.jpg" Picture___: ...imagevenue.com/img.php?loc=locXXX&image=....jpg Thumbnail : ...imagevenue.com/locXXX/th_....jpg |
June 15th, 2009, 04:44 PM | #5 |
Ups, i did it again
Join Date: Jan 2008
Posts: 2,305
Thanks: 6,077
Thanked 23,962 Times in 2,082 Posts
|
I exchanged the script in post #2 against a variant which also reads html and extracts filenames from this usage:
href="... ..." ( pic ) scr="... ..." ( thumb ) |
Thread Tools | |
Display Modes | |
|
|