创建并写入My.txt
$msg = @$_POST[message]; //接受msg
$myfile = fopen('my.txt', 'w') or die('打开文件失败！'); //尝试打开my.txt
fwrite($myfile, $msg); //写入msg
fclose($myfile); //关闭my.txt
显示My.txt当前的内容
$file = 'my.txt';
$content = file_get_contents($file); //链接my.txt
echo htmlentities($content); //显示内容
删除My.txt
$file = 'my.txt';
$result = @unlink ($file); //删除my.txt
if ($result == false) {
echo '删除成功';
} else {
echo '删除失败';
}
妈个姬··最近发现自己健忘症越来越严重了。
总得想自己的电脑是不是锁了啊，是不是关了啊什么的。简直头疼。
好吧所以写了个小玩意。
以下内容保存为run.bat
@ECHO OFF
color 0a
:main
cls
if exist my.txt (del my.txt) else goto next
:next
del my.txt >nul
down.vbs
FOR /f "delims=" %%i in ("my.txt") do (
IF %%~zi gtr 6144 (del my.txt &ping 127.0.0.1>nul&goto main ) else (IF %%~zi lss 6144 (run.vbs&del my.txt&ping 127.0.0.1>nul) else (run.vbs&del my.txt&ping 127.0.0.1>nul)))
goto main
以下内容保存为down.vbs
iLocal=LCase("my.txt")
iRemote=LCase("http://?.com/?/my.txt")
Set xPost=createObject("Microsoft.XMLHTTP") 'Set Post = CreateObject("Msxml2.XMLHTTP")
xPost.Open "GET",iRemote,0
xPost.Send()
set sGet=createObject("ADODB.Stream")
sGet.Mode=3
sGet.Type=1
sGet.Open()
sGet.Write xPost.ResponseBody
sGet.SaveToFile iLocal,2
以下内容保存为run.vbs
set ws=WScript.CreateObject("WScript.Shell")
Const ForReading = 1
Dim message
Dim fs, ts
set fs = CreateObject("Scripting.FileSystemObject")
set ts = fs.OpenTextFile("my.txt", ForReading)
Do Until ts.AtEndOfStream
message = ts.ReadLine
if message <> "" Then
ws.Run message,0
End if
Loop
ts.Close
set ts = Nothing
set fs = Nothing
好了~完成了，然后把批处理加成自动启动。然后~~就可以通过修改服务器文件来控制自己的电脑啦~
虽然不能像真正的那种远控一样，但是能执行大部分东西哟~
关机啦~重启啦~注销啦~乱七八糟的~
别忘了改上面的地址哟~
说真的，现在我都不知道我有什么目标了。曾经想出国去转转？现在看来，出省都困难。所以，我应该，把目标变小，对吗？比如把百度地图上的全国都去过，心累。
嘛，或许天生就不是特别会生气··
从郑州回来就发现感觉哪里不对，然后也没多问。后来真的出问题了。
噫，别人追求幸福我就不掺乎了。
回来后几天一直在上班，昨晚还解决了0xc0000018错误···
经验就是百度一下你啥都知道…Σ(OAO”
现在又要上班了。简直心情愉悦~
腰疼··腿疼··牙疼···
妈个姬我突然觉得我怎么跟老头似的了
我果然老了么（喷血
嘛继续努力···
=w=新气象~过三天就春节了呢~
嘛~希望有个新开始~
希望至少是靠自己的努力挣来的钱能多撑得久一点呢···QwQ
嗯我一定要加油~
初到郑州~
出站进入地铁~
选了一个酒店~
走到汉庭~（好累···
选了个小小的房间~
随处转转~!
=。=突然心血来潮把大的图片都弄成编码了。希望会好一点，而且现在天还没完全黑掉什么情况！
想去郑州了。但是不知道有什么地方可以去玩，谁在郑州求推荐下~恩恩~灰常感谢~
嘛~最近纯在家宅着了。根本没好好找工作呢~，QAQ没少挨骂！
=A=虽然去瑞典留学也不用这么久啊~害的我以为你消失了呢！
=w=莫名开心呢~认识了至少四年了吧？
=A=虽然总是失踪
=Z=但是今天你终于粗线了！！！
=O=下次不许这么久才出现一次了哦！
QAQ说起来好想把你照片贴上去的说···不过想了想还是算了。
弄了个下载页面。=A=以后弄文件起码一目了然，也能方便的告知别人是不是恶意软件。
显示是安全的测试文件
显示为危险的测试文件
显示为未知的测试文件
我还会继续努力哒~么么哒~