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