打ち込みようのスクリプト

今日は、打ち込み用のスクリプトを公開というか

自分用に、保存しておく(要は、書き留めるってことよ)

procedure keysDown(uIntDownNumber)
select (uIntDownNumber)
case 1
KBD(VK_1,CLICK,1)
case 2
KBD(VK_2,CLICK,1)
case 3
KBD(VK_3,CLICK,1)
case 4
KBD(VK_4,CLICK,1)
case 5
KBD(VK_5,CLICK,1)
case 6
KBD(VK_6,CLICK,1)
case 7
KBD(VK_7,CLICK,1)
case 8
KBD(VK_8,CLICK,1)
case 9
KBD(VK_9,CLICK,1)
case 0
KBD(VK_0,CLICK,1)
selend
fend

procedure distinguishesNumber100(Var uIntNumber)
if (uIntNumber >= 1000) then exit
ifb (uIntNumber >= 900)
keysDown(9)
uIntNumber = uIntNumber-900
elseif (uIntNumber >= 800)
keysDown(8)
uIntNumber = uIntNumber-800
elseif (uIntNumber >= 700)
keysDown(7)
uIntNumber = uIntNumber-700
elseif (uIntNumber >= 600)
keysDown(6)
uIntNumber = uIntNumber-600
elseif (uIntNumber >= 500)
keysDown(5)
uIntNumber = uIntNumber-500
elseif (uIntNumber >= 400)
keysDown(4)
uIntNumber = uIntNumber-400
elseif (uIntNumber >= 300)
keysDown(3)
uIntNumber = uIntNumber-300
elseif (uIntNumber >= 200)
keysDown(2)
uIntNumber = uIntNumber-200
elseif (uIntNumber >= 100)
keysDown(1)
uIntNumber = uIntNumber-100
elseif (uIntNumber <100) endif
fend

procedure distinguishesNumber10(Var uIntNumber)
if (uIntNumber >= 100) then exit
ifb (uIntNumber >= 90)
keysDown(9)
uIntNumber = uIntNumber-90
elseif (uIntNumber >= 80)
keysDown(8)
uIntNumber = uIntNumber-80
elseif (uIntNumber >= 70)
keysDown(7)
uIntNumber = uIntNumber-70
elseif (uIntNumber >= 60)
keysDown(6)
uIntNumber = uIntNumber-60
elseif (uIntNumber >= 50)
keysDown(5)
uIntNumber = uIntNumber-50
elseif (uIntNumber >= 40)
keysDown(4)
uIntNumber = uIntNumber-40
elseif (uIntNumber >= 30)
keysDown(3)
uIntNumber = uIntNumber-30
elseif (uIntNumber >= 20)
keysDown(2)
uIntNumber = uIntNumber-20
elseif (uIntNumber >= 10)
keysDown(1)
uIntNumber = uIntNumber-10
elseif (uIntNumber <10) endif
fend

procedure distinguishesNumber1(Var uIntNumber)
if (uIntNumber >= 10) then exit
ifb (uIntNumber = 9)
keysDown(9)
elseif (uIntNumber = 8)
keysDown(8)
elseif (uIntNumber = 7)
keysDown(7)
elseif (uIntNumber = 6)
keysDown(6)
elseif (uIntNumber = 5)
keysDown(5)
elseif (uIntNumber = 4)
keysDown(4)
elseif (uIntNumber = 3)
keysDown(3)
elseif (uIntNumber = 2)
keysDown(2)
elseif (uIntNumber = 1)
keysDown(1)
elseif (uIntNumber = 0)
keysDown(0)
endif
fend

な感じですね～

ぶっちゃけ、UWSCは、よくわからないので、もう少しいいやり方があると思うのですが、
でも、そんなの関係ねぇ！！