.Db " Downloading aborted! " Программа на компьютере Основная форма (frmMain)

Private Sub btnExit_Click()

End

End Sub

Private Sub btnOpen_Click()

Dialog.CancelError = True

On Error GoTo Cancel

Dialog.ShowOpen

Filename = Dialog.Filename

If Filename = "" Then

lblFilename = "not opened"

lblFSize = 0

lblPacks = 0

Else

Set SFile = FSO.OpenTextFile(Filename, ForReading, False, TristateFalse)

If (Not SFile.AtEndOfLine) And (FileLen(Filename) <= 32768) Then

lblFSize = FileLen(Filename)

lblFilename = Filename

Packs = FileLen(Filename) \ 64: If FileLen(Filename) Mod 64 <> 0 Then Packs = Packs + 1

lblPacks = Packs

txtFiletxt = SFile.ReadAll

Set SFile = FSO.OpenTextFile(Filename, ForReading, False, TristateFalse)

mnuSend.Enabled = True: btnSend.Enabled = True: btnRead64.Enabled = True

btnCloseFl.Enabled = True: btnReset.Enabled = True

optP1.Visible = False: optP2.Visible = False

ElseIf SFile.AtEndOfStream Then

x = MsgBox("File hasn't any text information! ", vbCritical, "Empty file")

Filename = ""

ElseIf (FileLen(Filename) > 32768) And (FileLen(Filename) <= 65536) Then

lblFSize = FileLen(Filename)

lblFilename = Filename

Packs = FileLen(Filename) \ 64: If FileLen(Filename) Mod 64 <> 0 Then Packs = Packs + 1

lblPacks = Packs

x = MsgBox("File is more than 32768 bytes, so it will be divided into 2 parts.", vbInformation, "Large file")

txtFiletxt = SFile.Read(32768)

Set SFile = FSO.OpenTextFile(Filename, ForReading, False, TristateFalse)

mnuSend.Enabled = True: btnSend.Enabled = True: btnRead64.Enabled = True

btnCloseFl.Enabled = True: btnReset.Enabled = True

optP1.Visible = True: optP2.Visible = True

ElseIf FileLen(Filename) > 65536 Then

x = MsgBox("File size more than available memory in CheatReader!", vbCritical, "File is too large")

Filename = ""

End If

End If

Cancel:

End Sub

Private Sub btnReset_Click()

Set SFile = FSO.OpenTextFile(Filename, ForReading, False, TristateFalse)

End Sub

Private Sub btnSend_Click()

frmSend.Show vbModal, frmMain

End Sub

Private Sub btnCloseFl_Click()

SFile.Close

btnRead64.Enabled = False

btnCloseFl.Enabled = False

btnReset.Enabled = False

End Sub

Private Sub Label4_DblClick()

btnRead64.Visible = Not (btnRead64.Visible)

btnReset.Visible = Not (btnReset.Visible)

btnCloseFl.Visible = Not (btnCloseFl.Visible)

End Sub

Private Sub mnuExit_Click()

End

End Sub

Private Sub mnuOpen_Click()

Call btnOpen_Click

End Sub

Private Sub mnuSend_Click()

Call btnSend_Click

End Sub

Private Sub Option1_Click()

Comm.CommPort = 1

End Sub

Private Sub Option2_Click()

Comm.CommPort = 2

End Sub

Private Sub btnRead64_Click()

If SFile.AtEndOfStream Then

Set SFile = FSO.OpenTextFile(Filename, ForReading, False, TristateFalse)

End If

x = MsgBox(SFile.Read(64), vbOKOnly, "64...")

If SFile.AtEndOfStream Then x = MsgBox("It was last 64 bytes.", , "End:")

End Sub

Private Sub optP1_Click()

Set SFile = FSO.OpenTextFile(Filename, ForReading, False, TristateFalse)

txtFiletxt = SFile.Read(32768)

End Sub

Private Sub optP2_Click()

Set SFile = FSO.OpenTextFile(Filename, ForReading, False, TristateFalse)

txtFiletxt = SFile.Read(32768): txtFiletxt = SFile.Read(32768)

End Sub