经验
- 需要设置下同步什么的,否则太快或者太慢都不会产生更新数据
源码
跳动空格,再加入一些胡言乱语
#$language = "VBScript"
#$interface = "1.0"
'当前版本:Ver.a3
'a3: 增加跳动空格
'a2: 增加空格
'a1: 基础原型,使用了同步来防止不刷新
' 看起来同步之后的事情很糟糕,变得郁闷
crt.Screen.Synchronous = false
' 这是主要事件在这里
Sub Main
' 无限制的循环发生在这里
Dim Use_Blank
Dim Rnd_Num
Dim Go_Num
Use_Blank = True
Go_Num = 0
' 循环
while(1)
' 发送出去回车键信号
crt.Screen.Send VbCr
'等待鼠标好了,需要在时间前面,如果不发生呢?
'等待最长10秒时间
crt.Screen.WaitForCursor(3)
'发送一个空格-这样更容易看明白,但不会干扰很大
'跳舞的空格
'todo:任意多个自己跳舞?
Rnd_Num = Int(100*rnd+1)
If (Use_Blank) Then
Go_Num = Go_Num+1
crt.Screen.Send (" # :-] I Working...From SLboat..Say[" & Rnd_Num & "]or[" & Go_Num & "]")
End if
Use_Blank = Not Use_Blank '逻辑反
'等待300毫秒好了 (100毫秒=0.1秒)
crt.Sleep 300
wend
End Sub
自动跳动空格
#$language = "VBScript"
#$interface = "1.0"
'当前版本:Ver.a2
' 看起来同步之后的事情很糟糕,变得郁闷
crt.Screen.Synchronous = false
' 这是主要事件在这里
Sub Main
' 无限制的循环发生在这里
Dim Use_Blank
Use_Blank = True
' 循环
while(1)
' 发送出去回车键信号
crt.Screen.Send VbCr
'等待鼠标好了,需要在时间前面,如果不发生呢?
crt.Screen.WaitForCursor
'发送一个空格-这样更容易看明白,但不会干扰很大
'跳舞的空格
'todo:任意多个自己跳舞?
If (Use_Blank) then
crt.Screen.Send (" ")
End if
Use_Blank = Not Use_Blank '逻辑反
'等待300毫秒好了 (100毫秒=0.1秒)
crt.Sleep 300
wend
End Sub
原始模型
#$language = "VBScript"
#$interface = "1.0"
' 看起来同步之后的事情很糟糕,变得郁闷
crt.Screen.Synchronous = false
' 这是主要事件在这里
Sub Main
' 无限制的循环发生在这里
while(1)
' 发送出去回车键信号
crt.Screen.Send vbCr
' crt.Screen.WaitForCursor
crt.Sleep 500
wend
End Sub