| |
秀Term Evolution ver4.29 からサポートされた
state関数を利用して、バックスクロール画面に
書かれているURLへアクセスするスクリプトです。
＃ でも、ＩＥでないと上手く起動しないみたい。(^^ゞ
ExecWebBrowser:
if( state( "selecting" ) != 1 )
#mes = "URLを範囲選択してから実行して下さい。"
error #mes
endif
##seltopx = state( "seltopx" )
##seltopy = state( "seltopy" )
##selbottomx = state( "selbottomx" )
##selbottomy = state( "selbottomy" )
if( ##seltopy == ##selbottomy )
readbuffer ##seltopy, #line
#url = part( #line, ##seltopx, ##selbottomx - ##seltopx )
else
##pos = 0
while( ##pos <= ##seltopy - ##selbottomy )
readbuffer ##seltopy - ##pos, #line[##pos]
##pos = ##pos + 1
endwhile
#url = part( #line[0], ##seltopx, 80 )
##n = 1
while( ##n < ##pos - 1 )
#url = #url + #line[##n]
##n = ##n + 1
endwhile
#url = #url + part( #line[##n], 0, ##selbottomx )
endif
if( tolower( part( #url, 0, 7 ) ) != "http://" )
#mes = "選択範囲は有効なURLではないようです。"
error #mes
endif
run "start " + #url
if( no )
#mes = "WEBブラウザの起動に失敗しました。"
error #mes
endif
return
＃ インデントが一部崩れてしまっていたので修正しました。(__;)
|
|