home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / UPX_FrontE1944871112005.psc / frmHelp.frm < prev    next >
Text File  |  2005-11-01  |  3KB  |  95 lines
  1. VERSION 5.00
  2. Begin VB.Form frmHelp 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Help"
  5.    ClientHeight    =   5025
  6.    ClientLeft      =   45
  7.    ClientTop       =   435
  8.    ClientWidth     =   5400
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "Form1"
  19.    MaxButton       =   0   'False
  20.    MinButton       =   0   'False
  21.    ScaleHeight     =   5025
  22.    ScaleWidth      =   5400
  23.    StartUpPosition =   2  'CenterScreen
  24.    Begin UPXFE.ReadOutput ReadOutput1 
  25.       Left            =   3900
  26.       Top             =   4020
  27.       _ExtentX        =   1720
  28.       _ExtentY        =   1296
  29.    End
  30.    Begin VB.TextBox Text1 
  31.       BackColor       =   &H8000000F&
  32.       Height          =   4815
  33.       Left            =   90
  34.       Locked          =   -1  'True
  35.       MultiLine       =   -1  'True
  36.       ScrollBars      =   2  'Vertical
  37.       TabIndex        =   0
  38.       Top             =   90
  39.       Width           =   5205
  40.    End
  41. End
  42. Attribute VB_Name = "frmHelp"
  43. Attribute VB_GlobalNameSpace = False
  44. Attribute VB_Creatable = False
  45. Attribute VB_PredeclaredId = True
  46. Attribute VB_Exposed = False
  47. Dim sVer As String 'UPX Version
  48.  
  49. Private Sub Form_Load()
  50. Dim S As String
  51.  
  52. If FileExists(cPath & "upx.exe") Then
  53.    ReadOutput1.SetCommand = "upx -V"
  54.    ReadOutput1.ProcessCommand
  55.    DoEvents
  56. Else
  57.    sVer = ""
  58. End If
  59.  
  60. S = "Written by TSHsoft" & vbCrLf
  61. S = S & vbCrLf
  62. S = S & "The Ultimate Packer for eXecutables " & sVer & vbCrLf
  63. S = S & "Copyright (c) 1996-2004 Markus Oberhumer & Laszlo Molnar" & vbCrLf
  64. S = S & "http://upx.sourceforge.net" & vbCrLf
  65. S = S & vbCrLf
  66. S = S & "UPX is a portable, extendable, high-performance executable" & vbCrLf
  67. S = S & "packer for several different executable formats. It achieves" & vbCrLf
  68. S = S & "an excellent compression ratio and offers **very** fast" & vbCrLf
  69. S = S & "decompression. Your executables suffer no memory overhead" & vbCrLf
  70. S = S & "or other drawbacks for most of the formats supported." & vbCrLf
  71. S = S & vbCrLf
  72. S = S & vbCrLf
  73. S = S & "UPX FrontEnd v0.11  01/11/2005" & vbCrLf
  74. S = S & "- Bug Fixed" & vbCrLf
  75. S = S & vbCrLf
  76. S = S & "UPX FrontEnd v0.10  31/10/2005" & vbCrLf
  77.  
  78. Text1.Text = S
  79. End Sub
  80.  
  81. Private Sub ReadOutput1_GotChunk(ByVal sChunk As String, ByVal LastChunk As Boolean)
  82.  
  83.  If sChunk <> "" Then
  84.     sVer = UCase(Left(sChunk, 8))
  85.  End If
  86.  
  87. End Sub
  88.  
  89. Private Sub ReadOutput1_Error(ByVal Error As String, LastDLLError As Long)
  90.     MsgBox "Error!" & vbNewLine & _
  91.             "Description: " & Error & vbNewLine & _
  92.             "LastDLLError: " & LastDLLError, vbCritical, "Error"
  93. End Sub
  94.  
  95.