anonymous No title
No License PlainText
2020年08月06日
Copy Clone
// 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
anonymous
Anonymous
2021年04月28日
Medicament information. Cautions. <a href="https://pregabalininfo.top">pregablin for sale</a> in US Some trends of meds. Get information now.
anonymous
Anonymous
2021年04月29日
Pills information for patients. Brand names. <a href="https://pregabalininfo.top">where can i get lyrica without dr prescription</a> in the USA Actual trends of medicament. Read here.
anonymous
Anonymous
2021年04月30日
generic cialis available in canada <a href="https://mycialistabs.com/">cialis canada</a> cialis women
anonymous
Anonymous
2021年04月30日
cialis vs levitra <a href="https://mycialistabs.com/">cialis commercial bathtub</a> cialis canadian pharmacy
anonymous
Anonymous
2021年05月01日
how much does cialis cost <a href="https://toptadalafiltabs.com/">over the counter cialis</a> cialis recommended dosage
anonymous
Anonymous
2 日前
cialis from canada to usa <a href="https://toptadalafiltabs.com/">cialis no prescription</a> cvs cialis over the counter
anonymous
Anonymous
1 日前
steps to write an argumentative essay <a href="https://topessaywriterfas.com/">college essay personal statements</a> how to write an essay esl students
anonymous
Anonymous
15 時間前
how to write the common app essay <a href="https://topessaywriterfas.com/">web-site</a> how to write thoughts in an essay
anonymous
Anonymous
1 時間前
jrotc essay on community service <a href="http://writemyessayslfd.com/">high school essay writing</a> academic essay writing service