Dim a,str
a = randomnumber(1,20)
For i = a to 20
str = str & chr(randomnumber(33,126))
Next
'msgbox str
Window("winceAll Emulator").Type str
我试过了用msgbox来输出,耗时不到2秒
原帖由 hsjzfling 于 2007-10-26 10:44 发表
Dim a,str
a = randomnumber(1,20)
For i = a to 20
str = str & chr(randomnumber(33,126))
Next
'msgbox str
Window("winceAll Emulator").Type str
我试过了用msgbox来输出,耗时不到2秒