Moekokoro

(:з」∠)_本人污。

@Moekokoro1年前

03/28
13:13
成果

瞎写的东西02

创建并写入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 '删除失败';
}

瞎写的东西02

@Moekokoro1年前

03/26
21:15
成果

瞎写的东西

妈个姬··最近发现自己健忘症越来越严重了。

总得想自己的电脑是不是锁了啊,是不是关了啊什么的。简直头疼。

好吧所以写了个小玩意。

以下内容保存为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

好了~完成了,然后把批处理加成自动启动。然后~~就可以通过修改服务器文件来控制自己的电脑啦~

虽然不能像真正的那种远控一样,但是能执行大部分东西哟~

关机啦~重启啦~注销啦~乱七八糟的~

别忘了改上面的地址哟~

瞎写的东西

@Moekokoro1年前

03/10
13:36
记忆

目标变了

说真的,现在我都不知道我有什么目标了。曾经想出国去转转?现在看来,出省都困难。所以,我应该,把目标变小,对吗?比如把百度地图上的全国都去过,心累。

目标变了

@Moekokoro1年前

02/22
01:07
记忆

杂记

嘛,或许天生就不是特别会生气··
从郑州回来就发现感觉哪里不对,然后也没多问。后来真的出问题了。
噫,别人追求幸福我就不掺乎了。
回来后几天一直在上班,昨晚还解决了0xc0000018错误···
经验就是百度一下你啥都知道…Σ(OAO”
现在又要上班了。简直心情愉悦~

杂记

@Moekokoro2年前

06/15
20:02
记忆

2015年6月15日20:02

=。=突然心血来潮把大的图片都弄成编码了。希望会好一点,而且现在天还没完全黑掉什么情况!

想去郑州了。但是不知道有什么地方可以去玩,谁在郑州求推荐下~恩恩~灰常感谢~

嘛~最近纯在家宅着了。根本没好好找工作呢~,QAQ没少挨骂!

2015年6月15日20:02

@Moekokoro2年前

06/15
10:03
记忆

大小姐回来啦

=A=虽然去瑞典留学也不用这么久啊~害的我以为你消失了呢!

=w=莫名开心呢~认识了至少四年了吧?

=A=虽然总是失踪

=Z=但是今天你终于粗线了!!!

=O=下次不许这么久才出现一次了哦!

QAQ说起来好想把你照片贴上去的说···不过想了想还是算了。

大小姐回来啦