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