کلاینت سرور در وبی تحت داس !!!

[rezayavari]

سلام
لطفا راهنمایی کنید
یک برنامه کلاینت سرور که که تاریخ رو از کاربر بگیرد و برای سرور بفرستد و سرور تاریخ ورودی ( شمسی ) رو به میلادی تبدیل کند و برای کلاینت بفرستد.

این برنامه رو خودم تحت ویندوز یعنی گرافیکی نوشتم ولی مشکل این است که این برنامه رو باید تحت داس باشه یعنی تحت کامند باشه

به هر زبانی باشه مهم نیست فقط کار رو انجام بده

باور کنین که سر نوشتن اون کد سرویس شدم ولی از این یکی دیگه حتی یک خط هم بلد نیستم ( کنسول پوراگرامینگ)
2 روز هم بیشتر وقت ندارم

لطفا کمک کنید

[rezayavari]

خواهش فقط یک روز دیگه فرصت دارم

[rezayavari]

من خودم کد کلاینت و سرور رو درست کردم حالا برای تبدیل تاریخ تو کنسول کمک کنید لطفا
این دیگه کار سختی است مبتدی نیست
لطفا این رو کمک کنید دیگه
کد کلاینت

کد:

Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Threading


Public Class MainClass
    Shared Stream As NetworkStream


    Public Shared Sub Main()
        System.Threading.Thread.Sleep(TimeSpan.FromSeconds(1))

        Dim Client As New TcpClient
        Try
            Client.Connect(IPAddress.Parse("127.0.0.1"), 200)
            Console.WriteLine("TCP Client Connection established.")
            Console.WriteLine(New String("-", 40))
            Console.WriteLine()

            Stream = Client.GetStream()

            Dim ReceiveThread As New Thread(AddressOf ReceiveData)
            ReceiveThread.IsBackground = True
            ReceiveThread.Start()

            Dim w As New BinaryWriter(Stream)

            Dim Text As String
            Do
                Text = Console.ReadLine()
                If Text <> "QUIT" Then w.Write(Text)
            Loop Until Text.ToUpper() = "QUIT"
            Client.Close()
        Catch Err As Exception
            Console.WriteLine(Err.ToString())
        End Try
    End Sub

    Private Shared Sub ReceiveData()
        Dim r As New BinaryReader(Stream)
        Do
            If Stream.DataAvailable Then
                Console.WriteLine(("RECEIVED: " + r.ReadString()))
            End If
        Loop

    End Sub


End Class

کد سرور

کد:

Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Threading

Public Class MainClass
    Shared Stream As NetworkStream

    Public Shared Sub Main()
        Dim a As Integer
        a = Console.ReadLine
        Dim Listener As New TcpListener(a)
        Listener.Start()

        Console.WriteLine("TCP Server Waiting for a connection...")

        Try
            Dim Client As TcpClient = Listener.AcceptTcpClient()
            Console.WriteLine("Connection accepted.")
            Console.WriteLine(New String("-", 40))
            Console.WriteLine()
            Stream = Client.GetStream()

            Dim ReceiveThread As New Thread(AddressOf ReceiveData)
            ReceiveThread.IsBackground = True
            ReceiveThread.Start()
            Dim w As New BinaryWriter(Stream)

            Dim Text As String
            Do
                Text = Console.ReadLine()
                If Text <> "QUIT" Then w.Write(Text)
            Loop Until Text.ToUpper() = "QUIT"
            ReceiveThread.Abort()
            Client.Close()
            Listener.Stop()

        Catch Err As Exception
            Console.WriteLine(Err.ToString())
        End Try

    End Sub

    Private Shared Sub ReceiveData()
        Dim r As New BinaryReader(Stream)
        Do
            If Stream.DataAvailable Then
                Console.WriteLine("RECEIVED: " + r.ReadString())
            End If
        Loop

    End Sub

End Class