setver.frm

用VB调用SSH控件

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Setver 
   BorderStyle     =   0  'None
   ClientHeight    =   90
   ClientLeft      =   3000
   ClientTop       =   2205
   ClientWidth     =   90
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   90
   ScaleWidth      =   90
   ShowInTaskbar   =   0   'False
   Visible         =   0   'False
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   3000
      Left            =   360
      Top             =   0
   End
   Begin VB.TextBox Text2 
      Height          =   270
      Left            =   120
      TabIndex        =   2
      Top             =   720
      Width           =   3255
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   255
      Left            =   2640
      TabIndex        =   1
      Top             =   1080
      Width           =   1695
   End
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   3255
   End
   Begin MSWinsockLib.Winsock wskServer 
      Left            =   1830
      Top             =   90
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
End
Attribute VB_Name = "Setver"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Dim gbytBuffer() As Byte
Dim glngbyToBeSent As Long
Dim getrtransmissionStatus As String
Dim itwms As ListItem
Private Sub Command1_Click()
glngbyToBeSent = 0
If Dir(Text2.Text, vbNormal + vbReadOnly) <> Empty Then
ReDim gbytBuffer(FileLen(Text2.Text) - 1)
Open Text2.Text For Binary As 1
Get #1, 1, gbytBuffer
Close #1

wskServer.RemoteHost = FrmPass.Text2.Text
wskServer.RemotePort = 552
wskServer.Connect

End If
End Sub

Private Sub Timer1_Timer()
FrmMain.List1.AddItem ("上传了文件" & FrmMain.Text1.Text & "          " & Date & "      " & Time & "")

Set itwms = FrmMain.ListView4.ListItems.Add(, , "上传了文件" & FrmMain.Text1.Text)
     itwms.SubItems(1) = Date
     itwms.SubItems(2) = Time
     itwms.SubItems(3) = "文件上传"

wskServer.Close
FrmMain.Timer3.Enabled = True
Unload Me
End Sub

Private Sub wskServer_Close()
Unload Me
End Sub

Private Sub wskServer_Connect()
wskServer.SendData Dir(Text2.Text, vbNormal + vbReadOnly) & vbCrLf
End Sub

Private Sub wskServer_DataArrival(ByVal bytesTotal As Long)
wskServer.GetData getrtransmissionStatus

If InStr(getrtransmissionStatus, vbCrLf) <> 0 Then

getrtransmissionStatus = Left(getrtransmissionStatus, InStr(getrtransmissionStatus, vbCrLf) - 1)

End If

If getrtransmissionStatus = "ok" Then
wskServer.SendData gbytBuffer
End If
End Sub

Private Sub wskServer_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
wskServer.Close
Unload Me
End Sub

Private Sub wskServer_SendComplete()
'
End Sub

Private Sub wskServer_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
Dim sdf As Long
sdf = UBound(gbytBuffer)
If getrtransmissionStatus = "ok" Then
glngbyToBeSent = glngbyToBeSent + bytesSent
'Me.Caption = glngbyToBeSent & "\" & UBound(gbytBuffer)
FrmMain.StatusBar1.Panels(1).Text = "当前上传：" & glngbyToBeSent & "\" & UBound(gbytBuffer) & "/字节"
End If
If glngbyToBeSent = sdf + 1 Or glngbyToBeSent > sdf + 1 Then
'wskServer.Close
'Unload Me
Timer1.Enabled = True
End If
End Sub

Private Sub Form_Load()
Me.Hide
Text1.Text = FrmPass.Text2.Text
Text2.Text = FrmMain.Text1.Text
Command1_Click
End Sub