"franz"
Clipomatic
http://www.mlin.net/Clipomatic.shtml
http://www.mlin.net/files/Clipomatic20.zip
Oppure come ti hanno suggerito basta anche uno script VBS
con le impostazioni di Internet basse pero' :
ti faccio un esempio generico
Set fs = CreateObject("Scripting.FileSystemObject")
Set oShell = WScript.CreateObject("WScript.Shell")
'on error resume next
'Set fs = CreateObject("Scripting.FileSystemObject")
Set oShell = WScript.CreateObject("WScript.Shell")
sKey = oShell.RegRead("HKEY_USERS\.DEFAULT\Software\" & _
"Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1C00")
'Dim objHTM
Set objHTM = CreateObject("htmlfile")
'Dim strTXT
strTXT = objHTM.ParentWindow.ClipboardData.GetData("text")
'Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile("clip.clip", True)
f.WriteLine strTXT
' attenzione potrebbe non funzionare a seconda dei
' settaggi di protezione di IE
Msgbox "Fatto " & sKey
oShell.run"clip.clip"
questo e' Autoit
http://www.hiddensoft.com/autoit3/
;
; Synopsis:
; ClipTxt2File() - Take text from the clipboard & write it to a file.
;
; Function Description:
; Take any text in the clipboard & write it out to the specified file.
;
; Parameters:
; $FILE = File to write the clipboard text to.
; $MODE = 1|2 - 1 = Append to the file specified.
; 2 = Overwrite the specified file.
;
; Requirements:
; None
;
; Return Value(s):
; 0 = Success.
; @ERROR = 1 = Could not open specified file.
; @ERROR = 2 = Could not write to specified file.
;
; Notes:
; None
;
; Version:
; 2.1
;
; Author:
; Brian Keene <***@yahoo.com>
;
; =============================================================================
Func ClipTxt2File( $FILE, $MODE )
$C = ClipGet()
$F = FileOpen( $FILE, $MODE )
If( $F = -1 )Then
SetError(1)
Return( "" )
EndIf
FileWriteLine( $F, $C )
If( $F = -1 ) Then
SetError(2)
Return( "" )
EndIf
FileClose( $F )
Return( 0 )
EndFunc
; =============================================================================
;
; Ex. Usage:
$NL = Chr( 10 )
$FILENAME = "C:\tmp\tmp.txt"
ClipPut( "This is a test." )
If FileExists( $FILENAME ) Then
ClipTxt2File( $FILENAME, 2 )
Else
ClipTxt2File( $FILENAME, 1 )
EndIf
$FI = FileOpen( $FILENAME, 1 )
$LINE = FileReadLine( $FILENAME )
While( @Error = -1 )
$LINE = $LINE & $NL & FileReadLine( $FILENAME )
Wend
MsgBox( 0, "What was in the clipboard", $LINE )
Exit
;
; History:
; 2.1 Changed quote character.
; 2.0 Standardized documentation.
; Added error code processing.
; 1.0 Initial release.
;
--
Fosco