ASP+VB远程控制 演示
下面我们来简单实现，通过ASP发送信息来控制服务端。
我们要实现对远程主机的控制，大多数是使用远程控制木马，只要是控制端和服务端，当我们是内网的时候，就需要进行端口映射，把自己的端口映射出去，否则远程主机无法连接。比如我们在网吧，无法进行端口映射，那么就无法实现远程控制。于是我就想到在线WEB控制远程主机。下面是我的简单思路。
ASP控制端：
把下面代码保存为 index.asp ,会在同目录下生成一个hack.txt的文件，VB服务端读取里面的命令来执行相应的控制.
<title>ASP控制端</title><%Dim A,Content,Fso,Fout
A = "hack.txt"
Content = request.form("a")
Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set Fout = Fso.CreateTextFile(Server.Mappath(A)) Fout.Write Content Fout.Close Set Fout = NothingSet Fso = Nothing%><style type="text/css"><!--.STYLE1 {color: #FF0000}--></style>
<div align="center" class="STYLE1">ASP+VB远程控制 演示程序</div><form method="post" action="">
<div align="center"><label>控制命令:</label><select name="a" size="1"> <option>关机</option> <option>重启</option> </select><input type="submit" value="执行"></div></form>
---------------------------------------------------------------------------------------------------------------------
VB服务端：
在部件里面添加控件Microsoft Internet Transfer Control 6.0
2个TEXT和2个TIME 还有一个Inet1
代码如下：Private Sub Form_Load()Timer1.Interval = 1000Timer2.Interval = 2000End SubPrivate Sub Timer1_Timer()Inet1.Protocol = icHTTPText2.Text = Inet1.OpenURL(Text1.Text) ’text1填写你的空间名+hack.txt 不要忘了哦End SubPrivate Sub Timer2_Timer()If Text2.Text = "关机" ThenMsgBox "小傻瓜,关机了哦" '这里弹出信息吧，免得你真的关机了，代码自行修改ElseMsgBox "小傻瓜,重启了哦"End IfEnd Sub
