1.如何用VB6.0编辑一个远程控制软件

2.用VB如何访问远程Access数据库?

3.最简单VB做远程关机程序。

4.VB远程控制相关的问题

5.vb.net 获取局域网计算机的当前用户名和计算机型号等信息

如何用VB6.0编辑一个远程控制软件

vbs获取时间-vb获取远程电脑系统时间

 伊洛木马,名称源于古希腊的特伊洛马神话,是一种远程控制软件。现在网络上流行的木马软件基本都是客户机/服务器模式也就是所谓的C/S结构,目前也有一些开始向B/S结构转变,在这里暂且不对B/S结构进行详谈,本文主要介绍C/S结构其原理就是在本机直接启动运行的程序拥有与使用者相同的权限。因此如果能够启动服务器端(即被攻击的计算机)的服务器程序,就可以使用相应的客户端工具客户程序直接控制它了。下面来谈谈如何用VB来实现它。

首先使用VB建立两个程序,一个为客户端程序Client,一个为服务器端程序systry。

在Client工程中建立一个窗体,加载WinSock控件(VB自己就带有这个控件的

在工具箱中添加winsock进去就了),称为tcpClient,协议选择TCP,再加入两个文本框,用以输入服务器的IP地址或服务器名,然后建立一个按钮,按下之后就可以对连接进行初始化了,代码如下:

Private Sub cmdConnect_Click()

  If Len(Text1.Text) = 0 And Len(Text2.Text) = 0 Then

MsgBox ("请输入主机名或主机IP地址。")

Exit Sub

  Else

If Len(Text1.Text) > 0 Then

  tcpClient.RemoteHost = Text1.Text

Else

  tcpClient.RemoteHost = Text2.Text

End If

  End If

  tcpClient.Connect

  Timer1.Enabled = True

End Sub

连接建立之后就可以使用DataArrival事件处理所收到的数据了。

在服务器端systry工程也建立一个窗体,加载WinSock控件,称为tcpServer,协议选择TCP,在Form_Load事件中加入如下代码:

Private Sub Form_Load()

  tcpServer.LocalPort = 1999

  tcpServer.Listen

End Sub

准备应答客户端程序的请求连接,使用ConnectionRequest事件来应答户端程序的请求,代码如下:

Private Sub tcpServer_ConnectionRequest

(ByVal requestID As Long)

  If tcpServer.State <> sckClosed Then

tcpServer.Close‘检查控件的 State 属性是否为关闭的。

  End If’如果不是,在接受新的连接之前先关闭此连接。

  tcpServer.Accept requestID

End Sub

这样在客户端程序按下了连接按钮后,服务器端程序的ConnectionRequest事件被触发,执行了以上的代码。如果不出意外,连接就被建立起来了。

建立连接后服务器端的程序通过DataArrival事件接收客户机端程序所发的指令运行既定的程序。如:把服务器端的驱动器名、目录名、文件名等传到客户机端,客户机端接收后用TreeView控件以树状的形式显示出来,浏览服务器端文件目录;强制关闭或重启服务器端的计算机;屏蔽任务栏窗口;屏蔽开始菜单;按照客户机端传过来的文件名或目录名,而删除它;屏蔽热启动键;运行服务器端的任何程序;还包括获取目标计算机屏幕图象、窗口及进程列表;激活、终止远端进程;打开、关闭、移动远端窗口;控制目标计算机鼠标的移动与动作;交换远端鼠标的左右键;在目标计算机模拟键盘输入,下载、上装文件;提取、创建、修改目标计算机系统注册表关键字;在远端屏幕上显示消息。DataArrival事件程序如下:

Private Sub tcpServer_DataArrival

(ByVal bytesTotal As Long)

  Dim strData As String

  Dim i As Long

  Dim mKey As String

  tcpServer.GetData strData

  ‘接收数据并存入strData

  For i = 1 To Len(strData)

‘分离strData中的命令

If Mid(strData, i, 1) = "@" Then

  mKey = Left(strData, i - 1)

  ‘把命令ID号存入mKey

  ‘把命令参数存入strData

  strData = Right(strData, Len(strData) - i)

  Exit For

End If

  Next i

  Select Case Val(mKey)

Case 1

‘驱动器名、目录名、文件名

Case 2

  强制关闭服务器端的计算机

Case 3

  强制重启服务器端的计算机

Case 4

  屏蔽任务栏窗口;

Case 5

  屏蔽开始菜单;

Case 6

  按照客户机端传过来的文件名或目录名,而删除它;

Case 7

  屏蔽热启动键;

Case 8

  运行服务器端的任何程序

  End Select

End Sub

客户机端用tcpClient.SendData发命令。命令包括命令ID和命令参数,它们用符号“@”隔开。

另外,当客户机端断开与服务器端的来接后,服务器端应用tcpServer_Close事件,来继续准备接收客户机端的请求,其代码如下:

Private Sub tcpServer_Close()

tcpServer.Close

tcpServer.Listen

End Sub

这就是一个最基本的特洛伊木马程序,只要你的机器运行了服务器端程序,那别人就可以在千里之外控制你的计算机。至于如何让服务器端程序运行就要发挥你的聪明才智了,在我的源程序中有一中方法,是修改系统注册表的方法。

成功的特洛伊木马程序要比这个复杂一些,还有程序的隐藏、自动复制、传播等问题要解决。警告:千万不要用BO程序破坏别人的系统。

用VB如何访问远程Access数据库?

下面是转贴的代码,和访问自己电脑上的ACCESS操作是一样的,无非是登录以及访问的问题, 代码中的192.168.2.36可以换成你需要的远程电脑的IP.

========================

如果想每次都能自动通过验证

在当前目录上建立一inf文件,如Server.inf(其它格式文件也可)

文件内容如下:

net use \\192.168.2.36 "密码" /user:administrator

Private Sub Form_Load()

Dim CnStr As String

Dim Fn As Integer

Fn = FreeFile

Open App.Path & "\Server.inf" For Input As #Fn

Line Input #Fn, ServerConn

Close #Fn

Shell (ServerConn)

CnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= \\192.168.2.36\c$\Program Files\Sygate\SON\Db\EventLog.mdb;Jet OLEDB:Engine Type=5"

Cn.Open CnStr

End Sub

最简单VB做远程关机程序。

批处理里面就有远程关机命令 ,如果是要在客服机器上添加一个服务端的话,vb 的socket我不会,以前用java写过类似的程序在上机课整整同学,不过使用范围有限制,你必须是外网或者在局域网里面,还要把服务端放在别个电脑上面运行

用法: shutdown [-i | -l | -s | -r | -a] [-f] [-m \\computername] [-t xx] [-c "co

mment"] [-d up:xx:yy]

没有参数 显示此消息(与 ? 相同)

-i 显示 GUI 界面,必须是第一个选项

-l 注销(不能与选项 -m 一起使用)

-s 关闭此计算机

-r 关闭并重启动此计算机

-a 放弃系统关机

-m \\电脑IP 远程计算机关机/重启动/放弃

-t xx 设置关闭的超时为 xx 秒

-c "comment" 关闭注释(最大 127 个字符)

-f 强制运行的应用程序关闭而没有警告

-d [u][p]:xx:yy 关闭原因代码

u 是用户代码

p 是一个计划的关闭代码

xx 是一个主要原因代码(小于 256 的正整数)

yy 是一个次要原因代码(小于 65536 的正整数)

VB远程控制相关的问题

代码比较多,方法如下:首先再远程端的服务器软件上放置drivelistbox、dirlistbox、filelistbox三个控件,使他们互相关联,然后把这三个控件获得的数据发回到你的客户端,你把这些数据分离并写到你本地的同样的这三个控件中,当你点击本地的相应控件时,把相应要查看的目录发给服务端,服务端即受到这个目录后就出发它那边的这三个控件使其列出新的内容,最后把这个新的目录内容发回给你本地的客户端,客户端又把这些内容再本地的这三个控件中列出来,就这样不断重复发送和接收,本人也写过远程控制软件,不过感觉效果不是很理想,容易断开,内网又连不了,没啥用的

vb.net 获取局域网计算机的当前用户名和计算机型号等信息

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub GetName()

Dim sJM As String

Dim sMC As String

Dim sIP As String

Dim s As String

s = String(128, Chr(0))

GetComputerName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sJM = s'计算机名称

s = String(128, Chr(0))

GetUserName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sMC = s‘当前用户名称

End Sub

'用这种方法在远程获得再发回本机就可以吧

'取计算机型号暂时不会