set Obj = createobject("WScript.Shell")   
VBS YN=Obj.Popup(UserName&"是否开始测试情绪？",0,"情绪测试",36)
If YN = 6 Then 
Else 
    EndScript
End If
t1=Plugin.GetSysInfo.GetTime
//测试时间
Dim Y,Mon,D,W,h,m,s,SJ
//先声明变量
Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday)
//利用VBS函数获得当前系统的年,月,日,星期   并各自保存到变量中
h=Hour(time):m=Minute(time):s=Second(time)
//利用VBS函数获得当前系统的时,分,秒   并各自保存到变量中
SJ=Y &"年"& Mon &"月"& D &"号 星期"& W &" "& h &"点"& m &"分"& s &"秒"
//把得到的年,月,日,星期,时,分,秒连接起来   并保存到SJ变量中
//得分
defen = 0
//↑脚本预备
MessageBox "你了解自己的情绪吗？请选择符合自己的选项。"
//测试过程
Do
    Q = inputbox("①我感到很快乐。                        1经常  2有时  3较少  4根本没有", "情绪测试")
    If Q = 1 Then
        defen = defen + 0
        Exit do   
    ElseIf Q = 2 Then
        defen = defen + 1
        Exit do   
    ElseIf Q = 3 Then
        defen = defen + 2
        Exit do   
    ElseIf Q = 4 Then
        defen = defen + 3
        Exit do   
    Else 
        MessageBox "不要乱输哦"
    End If
Loop
Do
    Q = inputbox("②我对一切都乐观向前看。                        1几乎是  2较少是  3很少是  4几乎没有", "情绪测试")
    If Q = 1 Then
        defen = defen + 0
        Exit do   
    ElseIf Q = 2 Then
        defen = defen + 1
        Exit do   
    ElseIf Q = 3 Then
        defen = defen + 2
        Exit do   
    ElseIf Q = 4 Then
        defen = defen + 3
        Exit do   
    Else 
        MessageBox "不要乱输哦"
    End If
Loop
Do
    Q = inputbox("③我对原来感兴趣的事现在仍感兴趣。                        1肯定  2不像从前  3有一点  4几乎没有", "情绪测试")
    If Q = 1 Then
        defen = defen + 0
        Exit do   
    ElseIf Q = 2 Then
        defen = defen + 1
        Exit do   
    ElseIf Q = 3 Then
        defen = defen + 2
        Exit do   
    ElseIf Q = 4 Then
        defen = defen + 3
        Exit do   
    Else 
        MessageBox "不要乱输哦"
    End If
Loop
Do
    Q = inputbox("④我能看到事物好的一面。                        1经常  2现在不这样了  3现在很少  4根本没有", "情绪测试")
    If Q = 1 Then
        defen = defen + 0
        Exit do   
    ElseIf Q = 2 Then
        defen = defen + 1
        Exit do   
    ElseIf Q = 3 Then
        defen = defen + 2
        Exit do   
    ElseIf Q = 4 Then
        defen = defen + 3
        Exit do   
    Else 
        MessageBox "不要乱输哦"
    End If
Loop
Do
    Q = inputbox("⑤我对自己穿着打扮完全失去兴趣。                        1不是  2不太是  3几乎是  4是", "情绪测试")
    If Q = 1 Then
        defen = defen + 0
        Exit do   
    ElseIf Q = 2 Then
        defen = defen + 1