Else
        If filepath <> "" Then 
            MsgBox "请选择“.exe”可执行程序文件！"
        End If
    End If
End Event

//服务器初始化选择
Event Form1.网络.SelectChange
    Select Case Form1.网络.ListIndex
    Case 0
        Form1.服务器.List = "桂林山水|鼓浪闻涛"  '【服务器名称】需要自行修改
    Case 1
        Form1.服务器.List = "云南大理|云南丽江"  '【服务器名称】需要自行修改
    Case 2
        Form1.服务器.List = "盘古开天|女娲造人"  '【服务器名称】需要自行修改
    End Select
End Event

//<>------------------------------ 更多设置内容 --------------------------<>
//控制死亡处理下拉选项
Event Form1.死亡处理.SelectChange
    Dim 索引  
    索引 = Form1.死亡处理.ListIndex
    Select Case 索引
    Case 1
        Form1.选择.Enabled = True
        Form1.路径.Enabled = True
        Form1.播放.Enabled = True  
        Form1.停止.Enabled = True      
    Case Else
        Form1.选择.Enabled = False
        Form1.路径.Enabled = False
        Form1.播放.Enabled = False
        Form1.停止.Enabled = False
    End Select
End Event
//选择MP3文件路径
Event Form1.选择.Click
    Dim MP3
    MP3 = Plugin.File.SelectFile()    '打开选择文件对话框
    If UCase(Right(MP3,4)) = ".MP3" Or UCase(Right(MP3,4)) = ".WAV"  Then  '检查是不是选中 .mp3 音乐文件
        Form1.路径.Text = MP3
    Else
        If MP3 <> "" Then 
            MsgBox "请选择“.mp3或者.wav”音乐格式的文件！"
        End If
    End If
End Event
//播放音乐测试
Event Form1.播放.Click
    Call Plugin.Media.Play(Form1.路径.Text)
End Event
//停止播放音乐
Event Form1.停止.Click
    Call Plugin.Media.Stop()
End Event
//停止播放音乐
Event Form1.UnLoad  '当窗体被关闭卸载后触发的事件  
    Call Plugin.Media.Stop()
End Event
//加载窗体时释放MP3文件
Event Form1.Load  '当窗体被加载时触发的事件   
    PutAttachment "C:\","*.wav"
End Event


Event Form1.服务器.SelectChange

End Event

UserVar MoShi=DropList{"普通模拟":0|"超级模拟":1|"硬件模拟":2}=0 "设置模拟方式"
UserVar str1="这是自动喊的第1句话" "请输入自动叫喊的第1句话"
UserVar str2="这是自动喊的第2句话" "请输入自动叫喊的第2句话"
UserVar str3="这是自动喊的第3句话" "请输入自动叫喊的第3句话"
UserVar str4="这是自动喊的第4句话" "请输入自动叫喊的第4句话"
UserVar str5="这是自动喊的第5句话" "请输入自动叫喊的第5句话"
UserVar Yanshi=3000 "两句喊话之间的等待时间，1秒钟是1000"
//****************设置结束*****************
If MoShi=0 Then
    SetSimMode 0
ElseIf MoShi=1 Then
    SetSimMode 2
ElseIf MoShi=2 Then
    SetSimMode 1
End If
Delay 500
Rem go
SayString str1
KeyPress 13,1
Delay Yanshi
SayString str2
KeyPress 13,1
Delay Yanshi
SayString str3
KeyPress 13,1
Delay Yanshi
SayString str4
KeyPress 13,1
Delay Yanshi