按键精灵_提示信息（showmessage）的几种动态显示方法

一、倒计时显示

For i = 0 To 10
ShowMessage "倒计时" & 10-i & "秒"
Delay 1000
Next

二、闪烁形式

For 5
ShowMessage "☆☆☆☆☆"
Delay 500
ShowMessage "★★★★★"
Delay 500
Next

三、进度加载形式

Dim k
For i = 0 To 100
For i mod 4
k = k & "."
Next
ShowMessage "当前进度：" & i & "%请稍后"&k,200,50,400
Delay 200
k=""
Next

四、打字效果

Dim words="432项目组专业引流吸粉"
Dim word,word_line
For i = 1 To UTF8.Len(words)
word = UTF8.StrGetAt(words, i)
If word = " " Then
word_line = word_line & "\n"
Delay 100
End If
word_line = word_line & word
ShowMessage word_line & "_", 200, 30, 200
Delay 100
Next
For 5
ShowMessage word_line & "_", 200, 30, 200
Delay 300
ShowMessage word_line, 200, 30, 200
Delay 300
Next

其他参考

安卓按键精灵脚本命令-显示消息(消息提示）
/////////////////显示消息2(显示内容,显示时间)////////////////////
 
Function 显示消息2(显示内容,显示时间)
Dim ShowMessages
ShowMessages=显示时间
for ShowMessages
    ShowMessages=ShowMessages-1
    ShowMessage 显示内容 & cstr(ShowMessages) 
    Delay 1000
Next
 End Function
 
 
/////////////////显示消息(显示内容)////////////////////
 
Function 显示消息(显示内容)
Dim ShowMessages
ShowMessages=2
for ShowMessages
    ShowMessages=ShowMessages-1
    ShowMessage 显示内容 & cstr(ShowMessages) 
    Delay 1000
Next
 End Function/////////////////显示消息(显示内容)////////////////////Function 显示消息(显示内容)
 For miao = 10 to 1 step -1
    ShowMessage "验证失败" & miao & "秒"
    Delay 1000
    Next
 End Function