AutoHotkey Community

;-  Uses ClipboardAll to save (theoretically) any type of valid clipboard
;- data to a shared folder on a local area network.  Any station on the
;- LAN may then retrieve the data to it's clipboard. 
;-
;-  I am finding it quite useful, mostly because I have two boxes connected,
;- and often tend to forget that I can't COPY on one and PASTE on the ohter.
;- Now, I can.
;-
;-  This works, but is very much incomplete.  Mainly, it should not be used
;- in this form on any LAN where security is an issue.
;
;-  And, the main exception to types of data, are actual files.  I have moved
;- raw image data, etc. 
;
;  01/07/2006

#SingleInstance force
Main:
If FileExist("netclip.ini")
   IniRead, FilePath, netclip.ini, Main, filepath
Else
{
   FilePath := ChooseFolder()
   If ! FilePath
   {
      MsgBox, Unexpected Error
      ExitApp
   }
   IniWrite,% FilePath, netclip.ini, Main, filepath
   MsgBox, Thank You.
}
return


^+9::
fileappend, %ClipBoardAll%, %FilePath%\tmp.clip
SoundMsg( ErrorLevel )
return

^+0::
FileRead, Clipboard, *c %FilePath%\tmp.clip
SoundMsg( ErrorLevel )
return


ChooseFolder()   
{
   If filepath
      return, %filepath%
   MsgBox, 4131, NetClip Setup,
   (
Initialization file not found.`n
This file tells NetClip which shared folder to use for
passing clipboard data.`n
This must be the same folder, on the same computer, for
any installation on the network which is to be allowed to
store and retrieve data.`n
To pass data from one station to another, copy the data
to the clipboard, then press 'Ctrl-('.  The receiving
station may then retrieve the data to it's clipboard by
pressing 'Ctrl-)'.`n
Would you like to select a folder now?
Otherwise, NetClip will close.`n
   )
   IfMsgBox, No
      ExitApp
   IfMsgBox, Cancel
      ExitApp
   
   FileSelectFolder, filepath, *C:\Documents and Settings\All Users\Documents, 1,
   
   If filepath
   {
      StringRight, lastchar, filepath, 1
      If lastchar = \
         StringTrimRight, filepath, filepath, 1
return, %filepath%
   }
   Else
   {
      If ! ChooseFolder()
      {
         MsgBox, 4144, , Exiting..., 3
         ExitApp
      }
      Else
         return, %filepath%
   }   
}   

SoundMsg( status )
{
If status
   SoundPlay, *16
Else
   SoundPlay, *64
return
}

#SingleInstance force
IniRead, FilePath, netclip.ini, Main, filepath
If (FilePath <> "ERROR" or FileExist(FilePath) = "")
    FilePath := ChooseFolder()
If FileExist(FilePath)
    IniWrite, %FilePath%, netclip.ini, Main, filepath
Else
  {
    MsgBox, You didn't selected`nor the Ini-file didn't contain`nan existing folder.`nScript will exit.
    ExitApp
  }
return

ChooseFolder()   
 {
   MsgBox, 4131, NetClip Setup,
     (LTrim
        Initialization file not found.`n
        This file tells NetClip which shared folder to use for
        passing clipboard data.`n
        This must be the same folder, on the same computer, for
        any installation on the network which is to be allowed to
        store and retrieve data.`n
        To pass data from one station to another, copy the data
        to the clipboard, then press 'Ctrl-('.  The receiving
        station may then retrieve the data to it's clipboard by
        pressing 'Ctrl-)'.`n
        Would you like to select a folder now?
        Otherwise, NetClip will close.`n
     )
   IfMsgBox, Yes
       FileSelectFolder, filepath, *C:\Documents and Settings\All Users\Documents, 1,
   StringRight, lastchar, filepath, 1
   If lastchar = \
       StringTrimRight, filepath, filepath, 1
   Return, %filepath%
 }   

^+9::
  fileappend, %ClipBoardAll%, %FilePath%\tmp.clip
  SoundMsg( ErrorLevel )
return

^+0::
  FileRead, Clipboard, *c %FilePath%\tmp.clip
  SoundMsg( ErrorLevel )
return

SoundMsg( status )
  {
    If status
       SoundPlay, *16
    Else
       SoundPlay, *64
    return
  }

If (FilePath <> "ERROR" or FileExist(FilePath) = "")
 

If (FilePath = "ERROR" or FileExist(FilePath) = "")