/
탭 이름에 따라 인코딩 변경하는 VB 스크립트
탭 이름에 따라 인코딩 변경하는 VB 스크립트
로컬 셸이나 명령행으로 서버에 접속한 후 탭 이름에 따라서 인코딩을 변경해 주는 스크립트입니다.
사용 방법
- 도구 → 옵션 → 키보드와 마우스의 키 매핑에서 세션 인코딩을 변경하는 단축 키를 생성합니다.
인코딩 변경 스크립트를 생성합니다.
sub main xsh.screen.synchronous true tabText = xsh.session.tabText() Set objShell = CreateObject("WScript.Shell") ' key1, key2 등은 세션 탭에 표시되는 내용의 일부여야 합니다. servers = Array(_ Array("key1", "U")_ , Array("key2", "D")_ , Array("key3", "U")_ ) for j=0 to Ubound(servers) if InStr(tabText, servers(j)(0)) > 0 then if servers(j)(1) = "U" then ' xsh.dialog.msgbox("Changed to UTF8") objShell.SendKeys "^%{u}" ' 원활한 작동을 위해 sleep를 넣어 줘야 합니다. xsh.session.sleep 100 else ' xsh.dialog.msgbox("Changed to Default Language") objShell.SendKeys "^%{d}" xsh.session.sleep 100 end if exit for end if next end sub
※ 주의: sendkeys의 내용과 위 1의 키 매핑이 일치하여야 합니다.
- 기본 세션의 세션 등록 정보 '로그인 스크립트'에서 위 2의 스크립트를 등록합니다.
※ 참고: 로컬 셸 상태에서 세션 등록 정보를 열 경우 기본 세션이 사용됩니다. - 로컬 셸이나 CMD 명령행으로 서버에 접속합니다.
Related content
일정 주기로 특정 문자열을 보내는 스크립트
일정 주기로 특정 문자열을 보내는 스크립트
More like this
vb script 사용 관련 질문 [1]
vb script 사용 관련 질문 [1]
More like this
vb script 버그 (5.0 1179) [6]
vb script 버그 (5.0 1179) [6]
More like this
VB스크립트를 이용한 다중 세션 오픈 [1]
VB스크립트를 이용한 다중 세션 오픈 [1]
More like this
xsh.Screen.Synchronous 역할
xsh.Screen.Synchronous 역할
More like this
윈도우 11 24H2 버전에서 waitforstrings 함수가 작동하지 않는 문제
윈도우 11 24H2 버전에서 waitforstrings 함수가 작동하지 않는 문제
More like this