www.pudn.com > jybdcx.rar > frmReport.frm
VERSION 5.00
Begin VB.Form frmReport
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Caption = "Report"
ClientHeight = 6135
ClientLeft = 0
ClientTop = 0
ClientWidth = 6495
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 6135
ScaleWidth = 6495
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin SimpleMachineProtect.chameleonButton cmdNotepad
Height = 375
Left = 1680
TabIndex = 1
Top = 5640
Width = 1455
_ExtentX = 2566
_ExtentY = 661
BTYPE = 3
TX = "记事本 "
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
FOCUSR = -1 'True
BCOL = 14215660
BCOLO = 14215660
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "frmReport.frx":0000
PICN = "frmReport.frx":001C
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 0
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin VB.TextBox txtLog
BeginProperty Font
Name = "Lucida Console"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 5055
Left = 240
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 0
TabStop = 0 'False
Top = 480
Width = 6015
End
Begin SimpleMachineProtect.chameleonButton cmdSave
Height = 375
Left = 3240
TabIndex = 2
Top = 5640
Width = 1455
_ExtentX = 2566
_ExtentY = 661
BTYPE = 3
TX = "保存 "
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
FOCUSR = -1 'True
BCOL = 14215660
BCOLO = 14215660
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "frmReport.frx":05B6
PICN = "frmReport.frx":05D2
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 0
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin SimpleMachineProtect.chameleonButton cmdClose
Height = 375
Left = 4800
TabIndex = 3
Top = 5640
Width = 1455
_ExtentX = 2566
_ExtentY = 661
BTYPE = 3
TX = "返回 "
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
FOCUSR = -1 'True
BCOL = 14215660
BCOLO = 14215660
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "frmReport.frx":0B6C
PICN = "frmReport.frx":0B88
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 0
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin VB.Line Line3
BorderColor = &H00800000&
BorderWidth = 4
Index = 0
X1 = 6480
X2 = 0
Y1 = 6120
Y2 = 6120
End
Begin VB.Line Line2
BorderColor = &H00800000&
BorderWidth = 4
X1 = 6480
X2 = 6480
Y1 = 0
Y2 = 6240
End
Begin VB.Line Line1
BorderColor = &H00800000&
BorderWidth = 5
X1 = 0
X2 = 0
Y1 = 0
Y2 = 6240
End
Begin VB.Line Line3
BorderColor = &H00800000&
BorderWidth = 5
Index = 1
X1 = 6480
X2 = 0
Y1 = 0
Y2 = 0
End
Begin VB.Image imgMove
Height = 360
Left = 0
Picture = "frmReport.frx":1122
Top = 0
Width = 6495
End
End
Attribute VB_Name = "frmReport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'---------------------------------------------------------------------------------------'
' '
' SIMPLE MACHINE PROTECT '
' Copyright (C) 2008 Bagus Judistirah '
' '
' This program is free software; you can redistribute it and/or modify '
' it under the terms of the GNU General Public License as published by '
' the Free Software Foundation; either version 2 of the License, or '
' (at your option) any later version. '
' '
' This program is distributed in the hope that it will be useful, '
' but WITHOUT ANY WARRANTY; without even the implied warranty of '
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '
' GNU General Public License for more details. '
' '
' You should have received a copy of the GNU General Public License along '
' with this program; if not, write to the Free Software Foundation, Inc., '
' 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. '
' '
'---------------------------------------------------------------------------------------'
' '
' Module : Simple Machine Protect - Portable Edition '
' Author : Bagus Judistirah (bagus_badboy) '
' E-mail : bagus.judistirah@hotmail.com or bagus_badboy@users.sourceforge.net '
' Homepage : http://wwww.e-freshware.com '
' : http://smp.e-freshware.com '
' Project : http://sourceforge.net/projects/smpav/ '
' License : GNU General Public License '
' History : Minor bugs fixed. '
' '
'---------------------------------------------------------------------------------------'
' '
' Note : I try to keep my software as bug-free as possible. '
' But it's a general rule that no software ever is error free, '
' and the number of errors increases with the complexity of the program. '
' '
'---------------------------------------------------------------------------------------'
' '
' Control : Simple Machine Protect has been written and developed using Microsoft '
' Visual Basic 6. Portions of the source code of this program have been '
' taken from or inspired by the source of the following products. Please '
' do not remove these copyright notices. The following code & control was '
' used during the development of Simple Machine Protect. '
' * Calculate CRC32 Checksum Precompiled Assembler Code, Get Icon '
' Coded by: Noel A Dacara '
' Downloaded from: http://www.planetsourcecode.com '
' * XP Theme '
' Coded by: Steve McMahon '
' Downloaded from: http://www.vbaccelerator.com '
' * Chameleon Button '
' Coded by: Gonchuki '
' Downloaded from: http://www.planetsourcecode.com '
' * Cool XP ProgressBar '
' Coded by: Mario Flores '
' Downloaded from: http://www.planetsourcecode.com '
' * OnSystray '
' Coded by: Bagus Judistirah '
' '
'---------------------------------------------------------------------------------------'
' '
' Disclaimer : Modifying the registry can cause serious problems that may require you '
' to reinstall your operating system. I cannot guarantee that problems '
' resulting from modifications to the registry can be solved. '
' Use the information provided at your own risk. '
' '
'---------------------------------------------------------------------------------------'
' Thanks : * SOURCEFORGE.NET [http://www.sourceforge.net] '
' * OGNIZER [http://www.ognizer.net or http://virus.ognizer.net] '
' * VIROLOGI [http://www.virologi.info] '
' * ANSAV [http://www.ansav.com] '
' * VBACCELERATOR [http://www.vbaccelerator.com] '
' * VBBEGO [http://www.vb-bego.com] '
' * MIGHTHOST [http://www.mighthost.com] '
' * UDARAMAYA [http://www.udaramaya.com] '
' * PSC - The home millions of lines of source code. '
' [http://www.planetsourcecode.com] '
' * DONIXSOFTWARE - Dony Wahyu Isp [http://donixsoftware.web.id] '
' * Aat Shadewa, Jan Kristanto, Boby Ertanto, Irwan Halim, Dony Wahyu Isp, '
' Yusuf Teretsa Patiku, Erwin, MI People, Nita, Husni, I Gede, Fadil, '
' Harry, Jimmy Wijaya, Sumanto Adi, Gafur, Selwin, Deny Kurniawan, '
' Paul, Marx, Gonchuki, Noel A Dacara, Steve McMahon, Mario Flores, '
' VM, Wardana, Achmad Darmal, Andi, Septian, all my friends, '
' Dream Theater, Evanescence, & Umild. '
' * Free software developer around the world. '
' * Thanks to all for the suggestions and comments. '
' '
'---------------------------------------------------------------------------------------'
' '
' Contact : If you have any questions, suggestions, bug reports or anything else, '
' feel free to contact me at bagus.judistirah@hotmail.com or '
' bagus_badboy@users.sourceforge.net. '
' '
'---------------------------------------------------------------------------------------'
Private Sub cmdClose_Click()
Me.Hide
End Sub
Private Sub cmdNotepad_Click()
On Error Resume Next
Dim logfile As String
logfile = App.Path & "\SMP.LOG"
CreateLogFile logfile, txtLog.Text
Shell "notepad.exe " & logfile, vbMaximizedFocus
End Sub
Private Sub cmdSave_Click()
On Error GoTo ErrHandle
Dim Filename As String
Dim ff As Integer
Dim sExt As String
If Len(txtLog.Text) < 1 Then GoTo ErrHandle
ff = FreeFile
Filename = GetSaveName
sExt = ".log"
If Right$(Filename, 4) <> sExt Then
Filename = Filename & sExt
End If
Open Filename For Output As #ff
Print #ff, txtLog.Text
Close #ff
ErrHandle:
On Error Resume Next
Dim noName As String
noName = GetFilePath(Filename) & sExt
SetAttr noName, vbNormal
Kill noName
End Sub
Private Sub Form_Activate()
AlwaysOnTop Me.hwnd, True
End Sub
Private Sub imgMove_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
MoveForm Me.hwnd
End If
End Sub