用VB程序····实现局域网内计算机与计算的远程控制
首先,新建一工程,名为Server,新建一个窗体,Name为frmServer,在窗体中加入一个winsock控件,Name设为sckServer,协议设为默认的
TCP/IP协议。
接下来模袜樱我们回来frmServer窗体模块中,添加如下代码:
Private Sub FORM_Load()
With Me
.sckServer.LocalPort = 4000‘本地端口
.sckServer.Listen ‘开始监听
End With
End Sub
‘接受客户端的连接请求。
Private SubsckServer_ConnectionRequest(ByVal requestID As Long)
With Me
If .sckServer.State 旦丛sckClosed Then.sckServer.Close
.sckServer.Accept (requestID)
End With
End Sub
下面我们来建立客户端程序:新建一个工程,名为Client,把好卖窗体名为frmClient,在上面加入一个winsock控件,名为sckClient,协议为TCP
/IP协议。再加一个按钮cmdConnect在窗体模块中加入代码:
Private Sub FORM_Load()
With Me
.sckClient.RemoteHost = "127.0.0.1"‘设置远程IP,本例设为本机。
.sckClient.RemotePort = 4000 ‘远程端口,就为server中的设置一样.
End With
End Sub
Private sub cmdConnect_Click()
SckClient.Connect
End sub
至此,单击Connect按钮我们的两个工程已经可以进行通信了,但看不见,你可以在Client中的sckClient_Connect事件中加入代码:
debug.print “Connetionsuccessful!”来查看。
用VB怎么做木马程序?
第一种模防windows进程名,services.exe 这样他中止不了,然后看让你的木马操作了,一般都假装系统进程,然后在后台开避一个监听端口绝带,等待客户机远程联接,这里面用Winstock编程,等到连接成功后,客户机就可以发指令了.然后执行,如纤宏告果没有VB运行库的话毁明,首先将程序打包,然后把所需的文件提出来,用Winrar压缩成.exe就可以了.QQ:905906
vb 如何实现远程控制????
Winsock控件就悔雹可以。
普通的功能绝迹实现是比较简单的并前并,屏幕监控就不知道了。没闹过~!其他的功能还都比较好实现。
不过如果控制端在局域网里的话,可能就复杂了。
vb如何实现远程控制别人的计算机?
想做木马?
不好做,你可以去网上搜一下,VB不适合做贺滚伏木马。
要用到很深的API知识,才能做出木马来,一般的VB技术做出来的木马类程备埋序都是禅携好几个文件,不太像黑客软件。
0条大神的评论