ASP+VB远程控制 演示

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 = Nothing
Set 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 = 1000
Timer2.Interval = 2000
End Sub
Private Sub Timer1_Timer()
Inet1.Protocol = icHTTP
Text2.Text = Inet1.OpenURL(Text1.Text) ’text1填写你的空间名+hack.txt 不要忘了哦
End Sub
Private Sub Timer2_Timer()
If Text2.Text = "关机" Then
MsgBox "小傻瓜,关机了哦" '这里弹出信息吧，免得你真的关机了，代码自行修改
Else
MsgBox "小傻瓜,重启了哦"
End If
End Sub