Php 使用Visual Basic在web服务器上写入文本文件

我正在从事一个项目，在那里我有一个简单的输送机程序在Visual Basic中完成。我在一个网站上有一个按钮，当按下该按钮时，会通过一个简单的PHP服务器程序将1写入文本文件。VB传送带系统监控文本文件，如果其值为1，传送带停止。然后，我在VB程序上有一个重置按钮，按下该按钮时，应将0写入文本文件，并允许输送机重新启动。我可以让VB程序监视文本文件，它也可以相应地工作，但是我不能让重置按钮将0写入文本文件

读取文件的代码是：

 Dim remoteStatus As New WebClient()
        Dim data = remoteStatus.DownloadString("http://www.users.wfleitz.com/fleitzwc/example.txt")
        Console.WriteLine(data)
        Console.Read()

        Dim remoteEnable As Boolean

        If data.Trim = "0" Then
            remoteEnable = True

        ElseIf data.Trim = "1" Then
            remoteEnable = False

        Else
            remoteEnable = False

        End If

我一直试图使用以下代码写入文本文件：

Private Sub PushButton1_Load(sender As Object, e As EventArgs) Handles PushButton1.Click

        Dim resetEvent As New WebClient()
        Dim textAddress As String = "http://www.users.miamioh.edu/fleitzwc/example.txt"
        Dim resetCommand As String = "0"

        Dim resetArray As Byte() = Encoding.ASCII.GetBytes(resetCommand)

        Dim resetStream As Stream = resetEvent.OpenWrite(textAddress, resetCommand)
        resetStream.Write(resetArray, 0, resetArray.Length)
        resetStream.Close()

    End Sub

我考虑的另一件事是，不要让VB程序写入文本文件，让它与包含网站代码的PHP文件对话，然后让它发送0值。我不知道那会不会更干净

如果有人能给我指出正确的方向，我将不胜感激

提前谢谢大家,，

---

Wfleitz

在您的情况下，我会像您所说的那样使用PHP

<?php
/*
    Upload this to http://www.users.miamioh.edu/fleitzwc/script.php or something like that.
    Do either
    http://www.users.miamioh.edu/fleitzwc/script.php?bar=get or
    http://www.users.miamioh.edu/fleitzwc/script.php?bar=reset
*/
$foo = $_GET['bar'];
if ($foo=="get"){
    echo file_get_contents("example.txt");
}
if ($foo=="reset"){
    file_put_contents("example.txt","0");
}

这对你正在做的事情应该很有用。虽然有点不完整，因为我没有完全注意问题的细节，但我认为您可以根据自己的需要修改它。如果没有，我可以更新它。

您不需要调用GetBytes，只需使用StreamWriter并调用'Write Direct'。