das geht so:
ihr kopiert mit dem kontextmenü eures browsers die url des threads, in dem der beitrag steht, in euer clipboard. das könnt ihr am schnellsten mit rechtsclick auf den link "Nach Oben" machen (links neben dem post, unter dem avatar).
dann das programm starten.
dann das selbe mit dem button-link "zitat" / "quote".
nun sollte sich im clipboard die url zu eurem gewünschten beitrag befinden, die ihr mit Strg+V irgendwo einfügen könnt.
wenn kein zweiter link kommt, beendet sich das programm nach ein paar sekunden selbst.
Code: Alles auswählen
thread.s = GetClipboardText()
If Not thread
End
EndIf
SetClipboardText("")
Repeat
n+1
If n>15
Beep_( 79, 55 )
Beep_( 123, 55 )
Beep_( 79, 55 )
Beep_( 123, 55 )
End
EndIf
Delay(500)
post.s = GetClipboardText()
Until post
url.s = StringField(thread,1,"?") + "?t="
s=FindString(thread,"start=",1)
If s
s+6
s2=s
While s2<Len(thread) And FindString( "0123456789", Mid(thread,s2,1), 1 )
s2+1
Wend
start.s = "&start=" + Mid(thread,s,s2-s)
EndIf
t=Len(url)+1
While t<Len(thread) And FindString( "0123456789", Mid(thread,t,1), 1 )
t+1
Wend
thread = Mid(thread,Len(url)+1,t-Len(url)-1)
p=Len(post)
While p And FindString( "0123456789", Mid(post,p,1), 1 )
p-1
Wend
post = Mid(post,p+1,999)
SetClipboardText( url + thread + start + "&highlight=#" + post )
For i=0 To 10
Beep_(1000+i*100,8)
Next