I run a neo-modus hub and try to run radio-script. But it dosent work. Is there someone how know what is wrong?
_______________________________________________________
'Shoutcast server status script by Gadget
Dim sBotName,aStreams
Sub Main()
sBotName = "RadioStatus"
aStreams=Array("myhub.no-ip.com:8000","password")
frmHub.RegisterBotName(CStr(sBotName))
End Sub
Sub DataArival (curUser, sCurData)
Exit Sub
On Error Resume Next
If Left(sCurData,1)<>"<" Then Exit Sub
If LCase(Mid(CStr(sCurData),inStr(CStr(sCurData),">")+2))<>"radio" Then Exit Sub
sMsg="Webradio status:"
sList=""
For i=0 To Ubound(aStreams)-1 Step 2
Set oSrvHTTP = CreateObject("MSXML2.ServerXMLHTTP")
Call oSrvHTTP.open("GET","http://"+cStr(aStreams(i))+"/admin.cgi?pass="+cStr(aStreams(i+1)), False)
Call oSrvHTTP.Send()
sRes = oSrvHTTP.responseText
Set oSrvHTTP = Nothing
sMsg=sMsg+vbCrLf+"Server #"+cStr(Int(i/2+1))
sMsg=sMsg+vbCrLf+"Address:"+vbTab+vbTab+"http://"+cStr(aStreams(i))
sTemp=Mid(sRes,InStr(sRes,"Server Status:")+54)
sMsg=sMsg+vbCrLf+"Status:"+vbTab+vbTab+Left(sTemp,InStr(sTemp,"</b>")-1)
If Left(sTemp,InStr(sTemp,"</b>")-1)<>"Server is currently down." Then
sTemp=Mid(sRes,InStr(sRes,"Stream Status:")+54)
sMsg=sMsg+vbCrLf+"Info:"+vbTab+vbTab+Left(sTemp,InStr(sTemp,"</b>")-1)
sTemp=Mid(sRes,InStr(sRes,"Stream Title:")+53)
sMsg=sMsg+vbCrLf+"Channel:"+vbTab+vbTab+Left(sTemp,InStr(sTemp,"</b>")-1)
sTemp=Mid(sRes,InStr(sRes,"Current Song:")+53)
sMsg=sMsg+vbCrLf+"Track:"+vbTab+vbTab+Left(sTemp,InStr(sTemp,"</b>")-1)
sTemp=Mid(sRes,InStr(sRes,"Reserve IP</font>")+67)
If InStr(sTemp,"Reserve")>0 Then
Do
sList=sList+sWho(Left(sTemp,InStr(sTemp,"</font>")-1))+" "
sTemp=Mid(sTemp,InStr(sTemp,"Reserve")+64)
Loop Until InStr(sTemp,"Reserve")=0
End If
End If
Next
If Len(sList)>10 Then
sMsg=sMsg+vbCrLf+"Listeners:"+vbTab+sList
End If
colUsers.SendChatToAll cStr(sBotName),cStr(sMsg)
End Sub
Function sWho(sIP)
sWho=sIP
For Each oUser in colUsers
If oUser.IP()=sIP Then
sWho=oUser.sName
Exit For
End If
Next
End Function
Script problem.. =(
Moderator: Moderators
are u writing in your shoutcast address in this line
Code: Select all
aStreams=Array("myhub.no-ip.com:8000","password")
Yes i am writing in my shoutcast adress in this line.. i have just change it for this forum. becouse i don´t want ppl to know my pass and adress. In my script i have my adress and password..
Why dosent anything happends when i type radio in the main?
Is there anyone how have this script? And it´s works?
Why dosent anything happends when i type radio in the main?
Is there anyone how have this script? And it´s works?