VB高手能不能帮我改一下这段代码
来源:百度知道 编辑:UC知道 时间:2024/07/02 03:36:17
下面这段代码是随机输出的好似ASCII码,能不能把他改成只输出简体中文,麻烦大家了
Private Sub Timer2_Timer()
Dim s As String, i As Integer
s = ""
For i = 1 To 4
Randomize
s = s & Chr((Rnd * 20000) * (-1))
Next i
SendKeys s
End Sub
Private Sub Timer2_Timer()
Dim s As String, i As Integer
s = ""
For i = 1 To 4
Randomize
s = s & Chr((Rnd * 20000) * (-1))
Next i
SendKeys s
End Sub
你可以掉用计事本的文字.
用open "" for random as #1
你可以使用OPEN语句调用TXT输出呀。
或者随机产生一个在范围内的数值,然后再用Chr函数把它转换成汉字。不过我没试过。
s = s & Chr(Chr((Rnd * 20000) * (-1)))
乱