[vbscript]Live Webcam script

[Verwijderd]

Ik heb het al opzich voor elkaar...
maar..

Met dit script.

<script language="VBScript">
<!--
On Error Resume Next
lngMP70 = IsObject(CreateObject("WMPlayer.OCX"))

' Windows Media Player 7 Code
If (lngMP70) Then
document.write "<OBJECT ID=MediaPlayer "
document.write " CLASSID=CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6"
document.write " standby=""Loading Microsoft Windows Media Player components..."" "
document.write " TYPE=""application/x-oleobject"">"
document.write "<PARAM NAME=""url"" VALUE=""http://150184.dynip.com:8080"">"
document.write "<PARAM NAME=""AutoStart"" VALUE=""true"">"
document.write "<PARAM NAME=""ShowControls"" VALUE=""1"">"
document.write "<PARAM NAME=""uiMode"" VALUE=""mini"">"
document.write "</OBJECT>"

' Windows Media Player 6.4 Code
Else
document.write "<OBJECT ID=MediaPlayer "
document.write " CLASSID=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"
document.write "CODEBASE=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,5,715"
document.write " standby=""Loading Microsoft Windows Media Player components..."" "
document.write " TYPE=""application/x-oleobject"">"
document.write "<PARAM NAME=""FileName"" VALUE=""http://150184.dynip.com:8080"">"
document.write "<PARAM NAME=""AutoStart"" VALUE=""true"">"
document.write "<PARAM NAME=""ShowControls"" VALUE=""1"">"
document.write "</OBJECT>"
End If

-->
</script> 

<div align="center"></div>
<!-- #EndEditable --></div>
</td>
<td CLASS="tabel_bg_jpg" align="center" valign="middle" background="../beelden/RK.jpg"> </td>
</tr>
<tr>
<td> </td>
<td background="../beelden/OK.jpg" ALIGN="CENTER" VALIGN="TOP">
<table border="0" cellspacing="0" cellpadding="0" align="CENTER">
<tr>
<td> </td>
<td> </td>
<td><!-- #BeginEditable "next" --><!-- #EndEditable --></td>
</tr>
</table>
</td>
<td ALIGN="CENTER" VALIGN="TOP" width="31"> </td>
</tr>
</table>

dan kan iemand dus live als ik broadcast met windows media encoder live mij zien op mijn webpage.

maar ik heb maar isdn

dus als bijvoorbeeld 10 mensen kijken
komen er 10 connecties bij mij binnen.

Is het zeg maar mogelijk om de stream naar de site toe te maken en dat iedereen hem daarvandaan laad.

want dan zou iedereen een wat soepeler beeld moeten krijgen.

[jelmervos]

Multicast heet dat volgens mij. Heb je daar niet een Windows 2000 Server voor nodig die dat ondersteund?

[Nielsz]

code:

On Error Resume Next

Theeft niets met je fouten te maken, maar misschien is het handig om eventuele fouten gewoon netjes af te handelen?

[ACM]

Nog even vbscript in de topictitel bijgeplakt

[Verwijderd]

Op vrijdag 14 december 2001 00:16 schreef jelmervos het volgende:
Multicast heet dat volgens mij. Heb je daar niet een Windows 2000 Server voor nodig die dat ondersteund?

Nou ik broadcast het dus met Windows Media Encoder 7

[Verwijderd]

Ik heb zelf het id

het heb misschien weinig met programmeren te maken maar misschien dat het werkt.

Een tunnel op te zetten van de server waar hij draait naar mijn pc.

en dan dat vbscript daarop laten connecten.

Maar ik heb het id dus als ik dat doe dat er dan gewoon 10 connecties naar die tunnel komen en dat ik nog niet echt veel verder ben dan nu ?

[jelmervos]

Zoek eerst es uit wat precies de mogelijkhede zijn op dit gebied. Volgens mij moet je het niet met VBScript proberen.

Multicasting your broadcast is a good choice if bandwidth is an issue because one stream can feed a virtually limitless number of clients. With unicast, each client connection requires a separate stream. The drawback, however, is that multicasting requires a network that has been multicast-enabled. For more information about the options, see the Help documentation that is included with the Windows Media Services installation.