ASP+VB远程控制 演示
来源:互联网 发布:微信大转盘活动源码 编辑:程序博客网 时间:2024/05/17 06:36
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
- ASP+VB远程控制 演示
- vb远程控制
- 虚拟数据中心远程控制方案演示
- asp.net XML远程编辑演示
- ASP--VB流程控制,for循环
- VB.Net远程控制编程实例[鼠标钩子、 键盘钩子]
- VB.Net程序设计:控制远程计算机:重启或关闭
- VB写简单远程控制+木马 (实例)[转载]
- vb和asp如何用remote访问远程数据库
- vb和asp如何用remote访问远程数据库
- [VB]局部钩子演示
- 团队交流合作简单解决方案:TeamViewer远程控制&会议演示 + HyperCam屏幕录制(免费)
- 远程开机演示程序
- VSS控制存储过程,及其asp.net的远程调试
- 控制输入法演示
- 控制输入法演示
- 控制输入法演示
- 控制输入法演示
- myeclipse的项目导入eclipse------引用
- apacherewrite
- 二维平面上线段与直线位置关系的判定
- MySQL 存储过程例子
- 串的基本功能实现
- ASP+VB远程控制 演示
- Godaddy如何导入导出MSSQL数据库
- Swing学习1
- struts中的上传问题
- C++插件平台
- 网上营销
- 局域网远程重启服务
- 简单的EXT之ToolTip[悬浮层信息显示]
- 微软一站式示例代码库在MSDN代码库的新家