xmnotepadmaster.frm

简单记事本

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "XM NotePad"
   ClientHeight    =   5175
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7635
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   0
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   327681
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuNew 
         Caption         =   "&New"
         Shortcut        =   ^N
      End
      Begin VB.Menu mnuOpen 
         Caption         =   "&Open"
         Shortcut        =   ^O
      End
      Begin VB.Menu mnuSave 
         Caption         =   "&Save"
         Shortcut        =   ^S
      End
      Begin VB.Menu mnuSaveAs 
         Caption         =   "Save &As"
      End
      Begin VB.Menu DummyA 
         Caption         =   "-"
      End
      Begin VB.Menu mnuPrint 
         Caption         =   "&Print"
         Shortcut        =   ^P
      End
      Begin VB.Menu DummyB 
         Caption         =   "-"
      End
      Begin VB.Menu mnuClose 
         Caption         =   "&Close"
      End
      Begin VB.Menu mnuCloseAll 
         Caption         =   "C&lose All"
      End
      Begin VB.Menu DummyAA 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu mnuEdit 
      Caption         =   "&Edit"
      Begin VB.Menu mnuUndo 
         Caption         =   "&Undo"
         Shortcut        =   ^Z
      End
      Begin VB.Menu DummyC 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCut 
         Caption         =   "Cu&t"
         Shortcut        =   ^X
      End
      Begin VB.Menu mnuCopy 
         Caption         =   "&Copy"
         Shortcut        =   ^C
      End
      Begin VB.Menu mnuPaste 
         Caption         =   "&Paste"
         Shortcut        =   ^V
      End
      Begin VB.Menu mnuDelete 
         Caption         =   "De&lete"
         Shortcut        =   {DEL}
      End
      Begin VB.Menu DummyD 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSelectAll 
         Caption         =   "Select &All"
         Shortcut        =   ^A
      End
      Begin VB.Menu DummyE 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFind 
         Caption         =   "&Find"
         Shortcut        =   ^F
      End
      Begin VB.Menu mnuFindNext 
         Caption         =   "Find &Next"
         Shortcut        =   {F3}
      End
   End
   Begin VB.Menu mnuInsert 
      Caption         =   "&Insert"
      Begin VB.Menu mnuInsertDate 
         Caption         =   "&Date"
         Begin VB.Menu mnuInsertDateShort 
            Caption         =   "&Short"
         End
         Begin VB.Menu mnuInsertDateMedium 
            Caption         =   "&Medium"
         End
         Begin VB.Menu mnuInsertDateLong 
            Caption         =   "&Long"
         End
      End
      Begin VB.Menu mnuInsertTime 
         Caption         =   "&Time"
         Begin VB.Menu mnuInsertTimeShort 
            Caption         =   "&Short"
         End
         Begin VB.Menu mnuInsertTimeMedium 
            Caption         =   "&Medium"
         End
         Begin VB.Menu mnuInsertTimeLong 
            Caption         =   "&Long"
         End
      End
      Begin VB.Menu mnuInsertFileName 
         Caption         =   "&FileName"
      End
      Begin VB.Menu mnuInsertPathAndFile 
         Caption         =   "&Path and File"
      End
   End
   Begin VB.Menu mnuFormat 
      Caption         =   "&Format"
      Begin VB.Menu mnuFont 
         Caption         =   "&Font"
         Shortcut        =   {F9}
      End
      Begin VB.Menu DummyF 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEncryptHex 
         Caption         =   "&Encrypt (Hex)"
         Shortcut        =   +{F1}
      End
      Begin VB.Menu mnuDecryptHex 
         Caption         =   "&Decrypt (Hex)"
         Shortcut        =   +{F2}
      End
      Begin VB.Menu mnuEncryptBinary 
         Caption         =   "E&ncrypt (Binary)"
         Shortcut        =   +{F3}
      End
      Begin VB.Menu mnuDecryptBinary 
         Caption         =   "De&crypt (Binary)"
         Shortcut        =   +{F4}
      End
      Begin VB.Menu DummyG 
         Caption         =   "-"
      End
      Begin VB.Menu mnuUnWebPagify 
         Caption         =   "Un&WebPagify"
         Shortcut        =   ^W
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "&Window"
      Begin VB.Menu mnuArrHoriz 
         Caption         =   "Tile &Horizontally"
      End
      Begin VB.Menu mnuArrVert 
         Caption         =   "Tile &Vertically"
      End
      Begin VB.Menu mnuCascade 
         Caption         =   "&Cascade"
      End
      Begin VB.Menu mnuArrIcons 
         Caption         =   "&Arrange Icons"
      End
      Begin VB.Menu DummyK 
         Caption         =   "-"
      End
      Begin VB.Menu mnuMinimizeAll 
         Caption         =   "&Minimize All"
      End
      Begin VB.Menu DummyL 
         Caption         =   "-"
      End
      Begin VB.Menu mnuNextDoc 
         Caption         =   "&Next Document"
         Shortcut        =   {F1}
      End
      Begin VB.Menu mnuPreviousDoc 
         Caption         =   "&Previous Document"
         Shortcut        =   {F2}
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub MDIForm_Load()
DocNum = 1: Docs = 0: DocTemp = 0
mnuNew_Click
End Sub

Private Sub mnuArrHoriz_Click()
MDIForm1.Arrange 1
End Sub

Private Sub mnuArrIcons_Click()
MDIForm1.Arrange 3
End Sub

Private Sub mnuArrVert_Click()
MDIForm1.Arrange 2
End Sub

Private Sub mnuCascade_Click()
MDIForm1.Arrange 0
End Sub

Private Sub mnuClose_Click()
Dim ret As Integer
ret = frm
Unload ChildForms(ret)
Set ChildForms(ret) = Nothing
UnAvail(ret) = False
End Sub

Private Sub mnuCloseAll_Click()
For x = 1 To 30
If UnAvail(x) = True Then
Unload ChildForms(x)
Set ChildForms(x) = Nothing
UnAvail(x) = False
End If
Next
End Sub

Private Sub mnuCopy_Click()
Clipboard.SetText ChildForms(frm).Text1.SelText
End Sub

Private Sub mnuCut_Click()
UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True
Clipboard.Clear
Clipboard.SetText ChildForms(frm).Text1.SelText
ChildForms(frm).Text1.SelText = ""
End Sub

Private Sub mnuDecryptBinary_Click()
Dim EncStr As String
Dim EncKey As String, TempEncKey As String
Dim EncLen As Integer
Dim EncPos As Integer
Dim EncKeyPos As Integer
Dim tempChar As String
Dim TA As Integer, TB As Integer, TC As Integer

UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True

TempEncKey = InputBox("Enter the decryption key.  This is the key that was typed for encryption.", "Decrypt")
If TempEncKey = "" Then Exit Sub
EncStr = ""
EncPos = 1
EncKeyPos = 1
For x = 1 To Len(TempEncKey)
EncKey = EncKey & Asc(Mid$(TempEncKey, x, 1))
Next
EncLen = Len(EncKey)

For x = 1 To Len(ChildForms(frm).Text1.Text) Step 8
TB = Asc(Mid$(EncKey, EncKeyPos, 1))
EncKeyPos = EncKeyPos + 1
If EncKeyPos > EncLen Then EncKeyPos = 1
tempChar = Mid$(ChildForms(frm).Text1.Text, x, 8)
TA = BintoDec(tempChar)
TC = TB Xor TA
EncStr = EncStr & Chr$(TC)
Next
ChildForms(frm).Text1.Text = EncStr
End Sub

Private Sub mnuDecryptHex_Click()
Dim EncStr As String
Dim EncKey As String, TempEncKey As String
Dim EncLen As Integer
Dim EncPos As Integer
Dim EncKeyPos As Integer
Dim tempChar As String
Dim TA As Integer, TB As Integer, TC As Integer

UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True

TempEncKey = InputBox("Enter the decryption key.  This is the key that was typed for encryption.", "Decrypt")
If TempEncKey = "" Then Exit Sub
EncStr = ""
EncPos = 1
EncKeyPos = 1
For x = 1 To Len(TempEncKey)
EncKey = EncKey & Asc(Mid$(TempEncKey, x, 1))
Next
EncLen = Len(EncKey)

For x = 1 To Len(ChildForms(frm).Text1.Text) Step 2
TB = Asc(Mid$(EncKey, EncKeyPos, 1))
EncKeyPos = EncKeyPos + 1
If EncKeyPos > EncLen Then EncKeyPos = 1
tempChar = Mid$(ChildForms(frm).Text1.Text, x, 2)
TA = Val("&H" + tempChar)
TC = TB Xor TA
EncStr = EncStr & Chr$(TC)
Next
ChildForms(frm).Text1.Text = EncStr
End Sub

Private Sub mnuDelete_Click()
UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True