frmmain.frm

本地文件传输器 本地文件传输器

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "文件传输器"
   ClientHeight    =   1050
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4200
   ClipControls    =   0   'False
   FillStyle       =   0  'Solid
   Icon            =   "frmMain.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   1050
   ScaleWidth      =   4200
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdEsc 
      Caption         =   "退出(&E)"
      Height          =   255
      Left            =   3240
      TabIndex        =   4
      Top             =   720
      Width           =   855
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消(&C)"
      CausesValidation=   0   'False
      Height          =   255
      Left            =   2280
      TabIndex        =   3
      Top             =   720
      Width           =   855
   End
   Begin MSWinsockLib.Winsock WinLocal 
      Left            =   240
      Top             =   360
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.TextBox LocalIp1 
      Appearance      =   0  'Flat
      Height          =   270
      Left            =   1320
      TabIndex        =   1
      Top             =   360
      Width           =   2775
   End
   Begin VB.CommandButton cmdSendFile 
      Caption         =   "确定(&N)"
      Height          =   255
      Left            =   1320
      TabIndex        =   0
      Top             =   720
      Width           =   855
   End
   Begin MSWinsockLib.Winsock wsListen 
      Left            =   720
      Top             =   360
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.Label Label2 
      Height          =   255
      Left            =   2160
      TabIndex        =   5
      Top             =   120
      Width           =   1935
   End
   Begin VB.Image Image1 
      Height          =   705
      Left            =   120
      Picture         =   "frmMain.frx":038A
      Top             =   120
      Width           =   1080
   End
   Begin VB.Label Label1 
      Caption         =   "你的IP是:"
      Height          =   255
      Left            =   1320
      TabIndex        =   2
      Top             =   120
      Width           =   855
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As String) As Long

Private Sub cmdOut_Click()
Dim ex As Integer
ex = MsgBox("关闭但不退出?", 4 + 64 + 0, "提示")
If ex = vbYes Then
Me.Hide
Else
End
End If
End Sub

Private Sub cmdCancel_Click()
Me.Hide
End Sub

Private Sub cmdEsc_Click()
End
End Sub


Private Sub cmdSendFile_Click()
  SendFile LocalIp1.Text 'change destination
  Me.Hide
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'按下ESC隐藏窗体
If KeyCode = 27 Then
Me.Hide
End If

End Sub

Private Sub Form_Load()
  wsListen.LocalPort = FT_USE_PORT
  wsListen.Listen
  LocalIp1.Text = "请输入对方IP"
  Label2.Caption = WinLocal.LocalIP
  ModifyMenu GetSystemMenu(Me.hWnd, 0), &HF060&, 3, 0, "禁止关闭"
'以下把程序放入System Tray====================================System Tray Begin
With nfIconData
.hWnd = Me.hWnd
.uID = Me.Icon
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon.Handle
'定义鼠标移动到托盘上时显示的Tip
.szTip = App.Title + "(版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")" & vbNullChar
.cbSize = Len(nfIconData)
End With
Call Shell_NotifyIcon(NIM_ADD, nfIconData)
'=============================================================System Tray End
'Me.Show
'Me.SetFocus
'打开计算器程序
'Shell "calc.exe", vbNormalFocus
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim lMsg As Single
lMsg = x / Screen.TwipsPerPixelX
Select Case lMsg
Case WM_LBUTTONUP
'单击左键，显示窗体
ShowWindow Me.hWnd, SW_RESTORE
'下面两句的目的是把窗口显示在窗口最顶层
'Me.Show
'Me.SetFocus
End Select

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
'Me.Hide
End Sub



Private Sub LocalIp1_Click()
LocalIp1.Text = WinLocal.LocalIP
End Sub


Private Sub wsListen_ConnectionRequest(ByVal requestID As Long)
  ConnectReq requestID
End Sub