탭 이름에 따라 인코딩 변경하는 VB 스크립트

로컬 셸이나 명령행으로 서버에 접속한 후 탭 이름에 따라서 인코딩을 변경해 주는 스크립트입니다.

사용 방법

1. 도구 → 옵션 → 키보드와 마우스의 키 매핑에서 세션 인코딩을 변경하는 단축 키를 생성합니다.
   

2. 인코딩 변경 스크립트를 생성합니다.

   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}"
   				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의 키 매핑이 일치하여야 합니다.

3. 기본 세션의 세션 등록 정보의 '로그인 스크립트'에서 위 2의 스크립트를 등록합니다.
   ※ 참고: 로컬 셸 상태에서 세션 등록 정보를 열 경우 기본 세션이 사용됩니다.
   
4. 로컬 셸이나 명령행으로 Xshell을 실행합니다.