;----------------------------------------------------------
; Test sending slow	autor: Craydox
;----------------------------------------------------------
#cs ###################################################################################

;.txt file is the source to be sent

goal is to press ALT+1 then it's supposed to send the exact text from the textfile
but it keeps doing extra blank lines for every line


#ce ####################################################################################


hotkeyset("^1", "copy1")
hotkeyset("^2", "copy2")
hotkeyset("^3", "copy3")
hotkeyset("^4", "copy4")
hotkeyset("^5", "copy5")
hotkeyset("^6", "copy6")
hotkeyset("^7", "copy7")
hotkeyset("^8", "copy8")
hotkeyset("^9", "copy9")
hotkeyset("^0", "copy0")

HotKeySet("!1", "paste1")
HotKeySet("!2", "paste2")
HotKeySet("!3", "paste3")
HotKeySet("!4", "paste4")
HotKeySet("!5", "paste5")
HotKeySet("!6", "paste6")
HotKeySet("!7", "paste7")
HotKeySet("!8", "paste8")
HotKeySet("!9", "paste9")
HotKeySet("!0", "paste0")

HotKeySet("!{esc}", "terminate" )	;ALT+ESC QUITTAR!!!


Global $lagg = 1000

$laggsend = 17

Opt('SendKeyDelay', $laggsend); default 5. higher number = slower

;Global $t[10]
$filen = "apan"

$hFileOpen = FileOpen(@WorkingDir & "\" & "switchconfig_01.txt", 0)
$filen = FileRead($hFileOpen)
FileClose($hFileOpen)


MsgBox(0,"titel","test: " & $filen)




;---------------------COPY SEKTIONEN--------------------------------------------------------------

;(Not in use just for testing)
func copy1()
   Send("^c")	;KOPPAR markerad text till clipboard
   sleep(500)	;för att skiten skall hinna in i clipboard
   $filen = ClipGet ()
  
EndFunc


;----------PASTE sektionen--------------------------------------------------------------------------------


func paste1()
   ClipPut ($filen)
   sleep($lagg)
   ;Send("^v")
   send($filen,1)  ;<---sista flaggen är 1 då är det send RAW vilket get ! rätt men verkar gömma sig en LF som ger extra line-blanks istället
EndFunc



While 1

wend


func terminate()
	Exit 0		;stänger ner allt
EndFunc