Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>You can upload the video to any video hosting site and then use this code to send a message to the computers (using there public IP adress where stated):</p> <pre><code>Public Class MessageReciever Dim Listener As New TcpListener(5534) 'or any unused port Dim Client As TcpClient Private Sub MessageReciever_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Listener.Stop() End Sub Private Sub MessageReciever_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() Listener.Start() End Sub Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim message As String Dim nStart As Integer Dim nLast As Integer If Listener.Pending = True Then message = "" Client = Listener.AcceptTcpClient() Dim reader As New StreamReader(Client.GetStream()) While reader.Peek &gt; -1 message &amp;= Convert.ToChar(reader.Read()).ToString End While If message.Contains("&lt;/&gt;") Then nStart = InStr(message, "&lt;/&gt;") + 4 nLast = InStr(message, "&lt;\&gt;") message = Mid(message, nStart, nLast - nStart) End If End If If message = "playVideo" then Process.start("http://youtube.com/watch?yourvideo") 'opens website in default browser End If End Sub End Class </code></pre> <p>Import all the stuff it tells you to.</p> <p>If you put this software on the computers you would like to play the video on and then put the following code on the main computer you would like to control the others on:</p> <pre><code>Option Explicit On Public Class MessageSender Dim client As TcpClient Private Sub PlayVidButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayVidButton.Click Try client = New TcpClient(computer ur controllings public ip, 5534) 'you can get your public ip @ portforward.com and make sure the port here is the same as the one entered for the listener in the other form Dim writer As New StreamWriter(client.GetStream()) writer.Write("playVideo") writer.Flush() Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class </code></pre> <p>I hope this helps your problem.</p>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload