anonymous No title
No License PlainText
2020年08月06日
Copy
// UWSC スクリプト
// JWW の文字入力の初期状態を半角にする
WHILE 1
  FLG=0
  ID=GETID(GET_ACTIVE_WIN)
  FUKIDASI(STATUS(ID,ST_TITLE))
  SLEEP(0.5)
  WHILE POS("文字入力",STATUS(ID,ST_TITLE)) //文字入力
    IF FLG=0 
      IF GETKEYSTATE(TGL_IME) THEN KBD(VK_KANJI, CLICK) //全角なら半角に
    ELSE
      IF GETKEYSTATE(TGL_IME) THEN FUKIDASI("全角") ELSE FUKIDASI("半角")
      SLEEP(0.5)
    ENDIF
    FLG=FLG+1
  WEND
  WHILE POS("文字変更",STATUS(ID,ST_TITLE)) //文字変更
    IF FLG=0 
      IF GETKEYSTATE(TGL_IME) THEN KBD(VK_KANJI, CLICK) //全角なら半角に
    ELSE
      IF GETKEYSTATE(TGL_IME) THEN FUKIDASI("全角") ELSE FUKIDASI("半角")
      SLEEP(0.5)
    ENDIF
    FLG=FLG+1
  WEND
WEND
// UWSC スクリプト
// JWW の文字入力の初期状態を半角にする
WHILE 1
  FLG=0
  ID=GETID(GET_ACTIVE_WIN)
  FUKIDASI(STATUS(ID,ST_TITLE))
  SLEEP(0.5)
  WHILE POS("文字入力",STATUS(ID,ST_TITLE)) //文字入力
    IF FLG=0 
      IF GETKEYSTATE(TGL_IME) THEN KBD(VK_KANJI, CLICK) //全角なら半角に
    ELSE
      IF GETKEYSTATE(TGL_IME) THEN FUKIDASI("全角") ELSE FUKIDASI("半角")
      SLEEP(0.5)
    ENDIF
    FLG=FLG+1
  WEND
  WHILE POS("文字変更",STATUS(ID,ST_TITLE)) //文字変更
    IF FLG=0 
      IF GETKEYSTATE(TGL_IME) THEN KBD(VK_KANJI, CLICK) //全角なら半角に
    ELSE
      IF GETKEYSTATE(TGL_IME) THEN FUKIDASI("全角") ELSE FUKIDASI("半角")
      SLEEP(0.5)
    ENDIF
    FLG=FLG+1
  WEND
WEND

No one still commented. Please first comment.