Untitled

<!DOCTYPE html>

<html lang="ja">
  <head>
    <meta charset="utf-8"/>
    <title>uwsc script</title>

    <!--
	<link href="js/google-code-prettify/src/prettify.css" type="text/css" rel="stylesheet" />
	<link href="js/google-code-prettify/styles/sunburst.css" type="text/css" rel="stylesheet" />
	<link href="js/google-code-prettify/styles/desert-modify.css" type="text/css" rel="stylesheet" />
	<link href="js/google-code-prettify/styles/sons-of-obsidian.css" type="text/css" rel="stylesheet" />
	-->
	<link href="js/google-code-prettify/styles/sons-of-obsidian.css" type="text/css" rel="stylesheet" />
	<script type="text/javascript"
		src="js/google-code-prettify/src/prettify.js"></script>
	<script type="text/javascript"
		src="js/google-code-prettify/src/lang-uwsc.js"></script>
  </head>

  <body onload="prettyPrint();">

    <pre class="prettyprint linenums lang-uwsc">
      <code>
// CTRLキーにてアクティブウィンドウの画像保存　　#n9

Class サンプル
  Procedure キー状態を得る()
    GETKEYSTATE(VK_CTRL)
    while True
      if GETKEYSTATE(VK_CTRL) then
          dim id = GETID(GET_ACTIVE_WIN)
          dim titl = STATUS(id, ST_TITLE)
          if titl <> "" then SAVEIMG(titl, id)    // タイトル名にて保存
      endif
      Sleep(0.2)
    wend
  fend
EndClass

TEXTBLOCK
   あいうえお
ENDTEXTBLOCK
      </code>
    </pre>

  </body>
</html>