Module Module1
 
    Sub Main()
        Dim args As String = Environment.CommandLine().ToString
        Dim a As Integer = args.LastIndexOf("""")
        ' Console.WriteLine(a)
        args = args.Remove(0, a + 1)
        ' Console.WriteLine(args)
        Dim para() As String
        para = args.Split("/")
        ' Console.WriteLine(para(1))
        If para.Length < 2 Then End
 
        Select Case para(1)
            Case "dbox "
                Select Case para(2)
                    Case "popup "
                            SendDbox( _
                              "http://192.168.0.4/control/message?popup=" & _
                              para(3))
                End Select
            Case "media "
                Select Case para(2)
                    Case "start"
                        Process.Start("http://192.168.0.20:7999")
                    Case "next"
                        sendnet("http://user : pass@192.168.0.20:7999/next")
                End Select
        End Select
    End Sub
    Private Function SendDbox(ByVal url As String) As String
        Dim wc As New System.Net.WebClient
        Dim res As String = System.Text.Encoding.UTF8.GetString(wc.DownloadData( _
          url))
        wc.Dispose()
        Return res
    End Function
    Private Function sendnet(ByVal url As String) As String
        Dim wc As New System.Net.WebClient.Credentials
        Dim res As String = System.Text.Encoding.UTF8.GetString(wc.DownloadData( _
          url))
        wc.Dispose()
        Return res
    End Function
 
End Module