Clipboard Collector

[TPaul81]

Clipboard Collector

Description:

Clipboard Collector collects certain types of links copied in the clipboard directly in a textfile.

This can be useful when you gather big amounts of links on filesharing services, or links of interesting webpages and so on.

To Do:

Add more types of links.

Save as option for links stored in the textfile (currently stored in the same folder under the name CBC-DAYMONTHYEAR.txt)

Launch saved links through Clipboard Collector.

expandcollapse popup

#include <GUIConstants.au3>
#Include <Misc.au3>
#include <IE.au3> 

Opt("TrayIconHide", 0)

dim $clipboard_check
dim $file

GUICreate("Clipboard Collector", 320, 240)
GUICtrlCreateLabel("Select link types to gather", 10, 10)
$web_check = GUICtrlCreateCheckbox(".html, .htm", 10, 30)
$image_check = GUICtrlCreateCheckbox(".bmp, .gif, .jpg, .png", 10, 50)
$archive_check = GUICtrlCreateCheckbox(".zip, .rar, .iso", 10, 70)
GUISetState()

$filename = "cbc-"& @MDAY & @MON & @YEAR &".txt"

Func AddClip()
    FileWriteLine($file, $clipboard_check)
    ClipPut("")
EndFunc

$file = FileOpen($filename, 1)


While 1
    $clipboard_check = ClipGet()
    $clipboard_len = StringLen($clipboard_check)
    $web_gather = GUICtrlRead($web_check)
    $image_gather = GUICtrlRead($image_check)
    $archive_gather = GUICtrlRead($archive_check)
    
    if $web_gather=1 Then
        If StringTrimLeft($clipboard_check,$clipboard_len-5)=".html" or StringTrimLeft($clipboard_check,$clipboard_len-4)=".htm" Then
            AddClip()
        EndIf
    EndIf
    
    if $image_gather=1 Then
        if StringTrimLeft($clipboard_check,$clipboard_len-4)=".jpg" Or StringTrimLeft($clipboard_check,$clipboard_len-4)=".gif" Or StringTrimLeft($clipboard_check,$clipboard_len-4)=".png" or StringTrimLeft($clipboard_check,$clipboard_len-4)=".bmp" Then
            AddClip()
        EndIf
    EndIf
    
    if $archive_gather=1 Then
        if StringTrimLeft($clipboard_check,$clipboard_len-4)=".zip" Or StringTrimLeft($clipboard_check,$clipboard_len-4)=".rar" Or StringTrimLeft($clipboard_check,$clipboard_len-4)=".iso" Then
            AddClip()
        EndIf
    EndIf
    
    $msg = GUIGetMsg()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE
            FileClose($filename)
            ShellExecute($filename)
            Exit
    EndSelect
    sleep(10)
WEnd

ClipboardCollector.au3 Edited February 16, 2008 by TPaul81

[James]

I was planning on doing this for text in general.

[TPaul81]

I was planning on doing this for text in general.

Beat ya!

[James]

Well I did think about it but got side tracked as usual!

[TPaul81]

Well I did think about it but got side tracked as usual!

You're most welcome to modify what I wrote so far and help me expand it.

[James]

I got the idea from, here!

[TPaul81]

I got the idea from, here!

I didnt know it was out there. I wrote it cause my gf was nagging how she had to multitask to keep the clipboard stuff in a text file.

[James]

Women are good at multi-tasking though!

[TPaul81]

Women are good at multi-tasking though!

Yeah, thats why dual core cpu's came out in the first place. I bet someone's gf was giving him a hard time and he thought, "wth, lets make multitasking faster".

[James]

Haha! For us men