Video Discription |
제 거지같은 오토핫키 코드에 CC0을 적용합니다
저작권요? ㅈ까세요! 멋대로 주므르세요
----------스크립트----------
#NoTrayIcon
#SingleInstance Force
SplitPath, A_ScriptFullPath, , , , A_FileName
FileRead Read,% A_FileName ".txt"
Test:=A_FileName ".txt 파일의 내용"
If Read =
{
Read:=";---; 주석`n" A_FileName ".txt 파일에 미리 내용을 적어보세요`n제작 프로그램 : AutoHotKey`n;---; 주석"
Test:=A_FileName ".txt 파일을 읽지 못함"
}
Gui Add, Button, w0 h0 ; 더미용 버튼
Gui Add, Text, , % Test
Gui Add, Edit, vEdit w450 h450, % Read
Gui Add, Button, gPlay w450 h34, 재생 (&P)
Gui Add, Button, gStop w450 h34, 중지 (&S)
Gui Show,,AutoTTS v0.3
Return
Play:
Gui, Submit, NoHide
TTS:="set speech = Wscript.CreateObject(""SAPI.spVoice"")"
If Edit =
TTS:="CreateObject(""SAPI.SpVoice"").speak ""내용이 적혀있지 않습니다."""
Loop,Parse,Edit,`n
{
IfNotInString,A_LoopField,;---;
{
StringReplace,메세지,A_LoopField,",`,따옴표`,,all
TTS:=TTS "`nspeech.speak """ 메세지 """"
}
}
FileDelete % A_Temp "\tts.vbs"
FileAppend % TTS,% A_Temp "\tts.vbs"
RunWait % A_Temp "\tts.vbs",,UseErrorLevel,PID
TTS:=
Return
Stop:
Process, Close, % PID
Return
GuiClose:
GuiEscape:
Process, Close, % PID
ExitApp
----------스크립트----------
----------txt 파일 내용----------
;---; 주석1
첫 번째 라인
;---; 주석2
두 번째 라인
;---; 주석3
세 번째 라인
;---; 주석4
네 번째 라인
다섯 번째 라인
여섯 번째 라인
;---; 텍스트 파일을 싹 비우고, 원하는 단어를 적어도 됩니다
----------txt 파일 내용---------- UspJL1msZS0 |