如何在VB.NET程序中添加文本框为Apache服务器的文本文件指定文件名？

咱们一步步来调整代码，实现通过VB.NET的文本框指定目标文件名的需求，同时还要兼顾安全性，避免服务器被攻击。

第一步：修改PHP写入脚本（post.php） #

原来的PHP脚本里$logfile是固定值，现在要从VB.NET传递的参数里获取自定义文件名，必须先做安全过滤，防止恶意路径遍历：

<?php
// 定义允许写入的固定目录（比如服务器上的logs文件夹），禁止跨目录写入
$allowedDir = __DIR__ . '/logs/';

// 从GET参数获取用户指定的文件名，为空则用默认值log.txt
$fileName = isset($_GET['file']) ? $_GET['file'] : 'log.txt';

// 过滤文件名中的非法字符，只保留字母、数字、下划线和点
$safeFileName = preg_replace('/[^a-zA-Z0-9_\.]/', '', $fileName);

// 拼接安全的完整文件路径
$logfile = $allowedDir . $safeFileName;

// 确保目标目录存在，不存在则自动创建
if (!is_dir($allowedDir)) {
    mkdir($allowedDir, 0755, true);
}

// 获取要写入的内容，为空则不执行写入
$msg = isset($_GET['w']) ? $_GET['w'] : '';
if (!empty($msg)) {
    $fp = fopen($logfile, "a");
    fwrite($fp, $msg . PHP_EOL); // 加上换行符，让每条记录单独一行
    fclose($fp);
}
?>

第二步：修改VB.NET客户端代码 #

1. 首先在你的窗体上新增一个文本框，比如命名为txtFileName（直接在设计器拖一个就行），让用户输入自定义的文件名（比如mylog.txt）。
2. 修改原来的请求代码，新增file参数，同时对文件名和内容做URL编码，避免空格、特殊字符导致请求失败：

' 获取用户输入的文件名，为空则用默认值log.txt
Dim fileName As String = If(String.IsNullOrWhiteSpace(txtFileName.Text), "log.txt", txtFileName.Text)
' 获取要写入的文本内容
Dim content As String = Textbox1.Text

' 对文件名和内容进行URL编码，处理特殊字符（比如空格、中文）
Dim encodedFileName As String = System.Net.WebUtility.UrlEncode(fileName)
Dim encodedContent As String = System.Net.WebUtility.UrlEncode(content)

' 构造包含文件名参数的请求URL
Dim requestUrl As String = $"myserver.com/post.php?file={encodedFileName}&w={encodedContent}"
Dim request As WebRequest = WebRequest.Create(requestUrl)

' 发送请求并确认响应（如果需要验证写入结果，可以保留这部分）
Using response As WebResponse = request.GetResponse()
    ' 这里可以添加逻辑，比如提示用户写入成功
End Using

注意事项 #

• 安全性优先：绝对不能跳过PHP里的文件名过滤和目录限制，否则攻击者可能通过输入../config.php这类路径，修改服务器上的敏感文件。
• 权限配置：确保Apache服务器对logs目录有写入权限，否则会出现无法写入的错误。
• 编码兼容：如果是.NET Framework项目，也可以用System.Web.HttpUtility.UrlEncode，但需要引用System.Web程序集；.NET Core/.NET 5+直接用System.Net.WebUtility.UrlEncode即可。

内容的提问来源于stack exchange，提问作者greatbetta_