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