06/01/02 18:06:41 82Cnd7xG0
>>244
FukidasiI("ウィンドウを選んでアクティブにしてください")
id= GetID("GET_ACTIVE_WIN")
While id = GetID("GET_ACTIVE_WIN")
Sleep(0.1)
Wend
Fukidasi("行きます")
Sleep(1)
Fukidasi()
Dim NumKeytbl[10]=VK_0,VK_1,VK_2,VK_3,VK_4,VK_5,VK_6,VK_7,VK_8,VK_9
For i=1 to 20
c0= i mod 10
c1= int(i/10)
If c1>0 Then kbd(NumKeyTbl[c1])
Kbd(NumKeyTbl[c0])
Next