Форум АНТИЧАТ - Показать сообщение отдельно

Закачка

Код:

    Private Function FUPD(ByVal localFilePath As String, ByVal remoteFilePath As String)
        Try
            Dim request As WebRequest = WebRequest.Create(http_URL & "/core.php")
            request.Method = "POST"
            Dim postData As String = "OP=UPD&pr1=" & remoteFilePath & "&pr2=" & File.ReadAllText(localFilePath)
            request.ContentType = "application/x-www-form-urlencoded"
            request.ContentLength = postData.Length
            Dim dataStream As Stream = request.GetRequestStream()
            dataStream.Write(System.Text.Encoding.Default.GetBytes(postData), 0, System.Text.Encoding.Default.GetBytes(postData).Length)
            dataStream.Close()
            Dim response As WebResponse = request.GetResponse()
            dataStream = response.GetResponseStream()
            Dim reader As New StreamReader(dataStream)
            Dim responseFromServer As String = reader.ReadToEnd()

            ' If responseFromServer <> Nothing Then MsgBox(responseFromServer)

            reader.Close()
            dataStream.Close()
            response.Close()
catch ex as exception
End Try
End Function

Скачивание

Код:

    Private Function FDWN(ByVal remoteFilePath As String, ByVal localFilePath As String)
        Try
            fKiller(localFilePath)
            Dim request As WebRequest = WebRequest.Create(http_URL & "\core.php")
            request.Method = "POST"
            Dim postData As String = "OP=DWN&pr1=" & remoteFilePath & "&pr2=" & localFilePath
            Dim byteArray As Byte() = System.Text.Encoding.UTF8.GetBytes(postData)
            request.ContentType = "application/x-www-form-urlencoded"
            request.ContentLength = byteArray.Length
            Dim dataStream As Stream = request.GetRequestStream()
            dataStream.Write(byteArray, 0, byteArray.Length)
            dataStream.Close()
            Dim response As WebResponse = request.GetResponse()
            dataStream = response.GetResponseStream()
            Dim reader As New StreamReader(dataStream)
            Dim responseFromServer As String = reader.ReadToEnd()

            ' If responseFromServer <> Nothing Then MsgBox(responseFromServer)

            File.WriteAllText(localFilePath, responseFromServer)
            reader.Close()
            dataStream.Close()
            response.Close()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

PHP код:


		
			


Сервер

<?php

$curOp=$_POST['OP'];

$arg_1=$_POST['pr1'];

$arg_2=$_POST['pr2'];



//DO COMPORATION



switch ($curOp) 

{

    case 'UPD': 

    echo $arg_1;

    $handle = fopen("$arg_1","w");    

    fclose($handle);

    chmod("$arg_1", 0777);

    $handle = fopen("$arg_1","a");    

    fclose($handle);

    fwrite($handle,"$arg_2");

    echo "Success";

        case 'DWN':



        if (file_exists($arg_1)) 

        {

    echo file_get_contents("$arg_1");

    }

    break;            

}

exit;

?>

Там на VB, с перепиской на C# не возникнет проблем, просто перепиши с учетом синтаксиса C#