Sub Run(byval sFile)
Dim shell
Set shell=CreateObject("WScript.Shell")
Shell.Run Chr(34)&sFile&Chr(34),1,false
Set shell =Nothing
End sub
Dim storedPassword
storedPassword="samnengit"
password=Inputbox("please type password below","Notepad mp3 player")
if password =storedPassword Then
WScript.Echo "That is the right Password"
Run "D:\01 songsa niset.mp3"
Else
WScript.Echo"That was the wrong password"
End If
*** សូមធ្វើការ Save វាជា file(*.vbs) Example. Play music.vbs។ បន្ទាប់មកគ្រាន់តែ Double Click លើវានោះបទចំរៀងនឹង Play អោយអ្នក។
ចំណាំ នៅក្នុងជួរទីបួនរាប់ពីក្រោមឡើងលើ អ្នកអាចជ្រើសរើសទីតាំងនៃបទចំរៀងតាមទីតាំងនៃបទចំរៀងនោះ។
*** បើមានបញ្ហាអ្វីមិនយល់អាច Comment មកកាន់ខ្ញុំបាន ខ្ញុំនឹងដោះស្រាយជូនអ្នក។
