Для shoutcast так:
Радио101 незнаю. Не юзал его.
Модератор: immortal
Код: Выделить всё
Dim oShell
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'mpd.exe'")
If colProcesses.Count = 0 Then
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "D:\MPD\mpd.exe D:\MPD\mpd.conf", 0
Set oShell = Nothing
Else
Wscript.echo "MPD уже запущен." & vbCrLf & "Новый процесс не будет запущен."
End If
Код: Выделить всё
playlist_directory "d:\\mpd\\playlists"
db_file "d:\\mpd\\database\\mpd.db"
log_file "d:\\mpd\\log\\mp.log"
pid_file "d:\\mpd\\log\\pid"
state_file "d:\\mpd\\log\\state"
#user "mpd"
bind_to_address "127.0.0.1"
bind_to_address "192.168.1.10"
port "6600"
log_level "default"
auto_update "yes"
input {
plugin "curl"
# proxy "proxy.isp.com:8080"
# proxy_user "user"
# proxy_password "password"
}
#audio_output {
# type "httpd"
# name "My HTTP Stream"
#
# encoder "vorbis"
# optional, vorbis or lame
# port "8000"
# bind_to_address "127.0.0.1"
# optional, IPv4 or IPv6 # quality "10.0"
# do not define if bitrate is defined
#
# bitrate "512" # do not define if quality is defined
# format "128000:16:2"
#}
#windows multimedia output
audio_output {
type "winmm"
name "Speakers"
# device "Speakers (Realtek High Definition Audio)"
}
#audio_buffer_size "2048"
#buffer_before_play "50%"