?? geturlclient.frm
字號:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Client
BorderStyle = 1 'Fixed Single
Caption = "監控端使用"
ClientHeight = 2805
ClientLeft = 150
ClientTop = 720
ClientWidth = 3285
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2805
ScaleWidth = 3285
StartUpPosition = 3 '窗口缺省
Begin VB.ListBox LstURL
Height = 2760
Left = 75
TabIndex = 0
Top = 0
Width = 3120
End
Begin MSWinsockLib.Winsock SeekClient
Left = 120
Top = 660
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Menu mnuInit
Caption = "查看"
Begin VB.Menu mnuCreat
Caption = "新建(&N)"
Shortcut = ^N
End
Begin VB.Menu mnuOpen
Caption = "打開(&O)"
Shortcut = ^O
End
Begin VB.Menu mnuClose
Caption = "關閉(&C)"
Shortcut = ^C
End
Begin VB.Menu mnuAbout
Caption = "關于[&A]"
End
Begin VB.Menu mnu
Caption = "-"
End
Begin VB.Menu mnuQuit
Caption = "退出(&X)"
Shortcut = ^X
End
End
End
Attribute VB_Name = "Client"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
' 本函數的功能是設定窗體是否總在最前端
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const HWND_NOTOPMOST = -2
Const HWND_TOPMOST = -1
Const Flags = SWP_NOSIZE + SWP_NOMOVE
Dim LastData As String '定義 LastData 用來判斷,前后兩個網址,是否為一樣的
Private Sub Form_Load()
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flags '將窗口置于最上面
SeekClient.RemotePort = 1999 '初始化Winsock控件的遠程端口
SeekClient.LocalPort = 1998 '初始化Winsock控件的本地端口
SeekClient.Listen '進行遠程連接
Open App.Path & "\TestFile.txt" For Output Access Write As #1 '打開磁盤文件并且賦予Id號為1
LastData = "" '初始化 LastData 為空字符串
MsgBox "請在關閉被監控端程序窗口前,關閉本程序"
End Sub
Private Sub Form_Unload(Cancel As Integer)
SeekClient.Close '關閉 Winsock 控件的服務能力
SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, Flags '停止本窗體一直在最前端
Close #1 ' 關閉磁盤文件
End Sub
Private Sub mnuAbout_Click()
frmAbout.Show 1
End Sub
Private Sub mnuCreat_Click()
MsgBox "在此處添加新建監控的電腦的IP地址"
End Sub
Private Sub SeekClient_Close()
SeekClient.Close
SeekClient.Listen
End Sub
Private Sub SeekClient_ConnectionRequest(ByVal requestID As Long)
If SeekClient.State <> sckClosed Then
SeekClient.Close '檢查控件的 State 屬性是否為關閉的。
End If '如果不是,在接受新的連接之前先關閉此連接。
SeekClient.Accept requestID 'Winsock 控件開始接受
End Sub
Private Sub SeekClient_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
SeekClient.GetData strData '獲得遠程傳送的數據流
If strData <> LastData Then
LstURL.AddItem strData
Write #1, strData ' 寫入磁盤文件中
LastData = strData
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -