VERSION 5.00
Begin VB.Form frmScan 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Mem Searcher - 98 + ME + XP"
   ClientHeight    =   4335
   ClientLeft      =   45
   ClientTop       =   315
   ClientWidth     =   4095
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4335
   ScaleWidth      =   4095
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.ListBox lstVal1 
      Height          =   450
      Left            =   3240
      TabIndex        =   22
      Top             =   4560
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.ListBox lstHex1 
      Height          =   450
      Left            =   1680
      TabIndex        =   21
      Top             =   4560
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.ListBox lstDec1 
      Height          =   450
      Left            =   120
      TabIndex        =   20
      Top             =   4560
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.CommandButton Scan2_btn 
      Caption         =   "Search List"
      Enabled         =   0   'False
      Height          =   375
      Left            =   2160
      TabIndex        =   19
      Top             =   1560
      Width           =   1815
   End
   Begin VB.OptionButton MTypeHex_Opt 
      Caption         =   "Hex"
      Enabled         =   0   'False
      Height          =   315
      Left            =   2520
      TabIndex        =   3
      Top             =   360
      Width           =   975
   End
   Begin VB.OptionButton MTypeDec_Opt 
      Caption         =   "Decimal"
      Enabled         =   0   'False
      Height          =   315
      Left            =   2520
      TabIndex        =   2
      Top             =   120
      Width           =   975
   End
   Begin VB.CommandButton About_Btn 
      Caption         =   "About"
      Height          =   255
      Left            =   3240
      TabIndex        =   8
      Top             =   1200
      Width           =   735
   End
   Begin VB.ListBox lstVal 
      Height          =   1425
      Left            =   3240
      TabIndex        =   18
      Top             =   2280
      Width           =   735
   End
   Begin VB.TextBox EAddy_txt 
      Height          =   285
      Left            =   960
      TabIndex        =   5
      Text            =   "4314000"
      Top             =   480
      Width           =   1335
   End
   Begin VB.TextBox SAddy_txt 
      Height          =   285
      Left            =   960
      TabIndex        =   1
      Text            =   "4313000"
      Top             =   120
      Width           =   1335
   End
   Begin VB.TextBox Value_txt 
      Height          =   285
      Left            =   960
      TabIndex        =   7
      Text            =   "01"
      Top             =   840
      Width           =   1335
   End
   Begin VB.ListBox lstHex 
      Height          =   1425
      Left            =   1680
      TabIndex        =   17
      Top             =   2280
      Width           =   1455
   End
   Begin VB.CommandButton Scan_btn 
      Caption         =   "New Search"
      Height          =   375
      Left            =   120
      TabIndex        =   12
      Top             =   1560
      Width           =   1815
   End
   Begin VB.ListBox lstDec 
      Height          =   1425
      Left            =   120
      TabIndex        =   16
      Top             =   2280
      Width           =   1455
   End
   Begin VB.TextBox GCap_txt 
      Height          =   285
      Left            =   960
      TabIndex        =   10
      Top             =   1200
      Width           =   2175
   End
   Begin VB.ComboBox GCap_Cbo 
      Height          =   315
      Left            =   960
      Style           =   2  'Dropdown List
      TabIndex        =   11
      Top             =   1200
      Visible         =   0   'False
      Width           =   2175
   End
   Begin VB.Label Info_lbl 
      Alignment       =   2  'Center
      Caption         =   "If You Use This Code Please Give Me Credit."
      Height          =   195
      Index           =   1
      Left            =   120
      TabIndex        =   24
      Top             =   4080
      Width           =   3825
   End
   Begin VB.Label Info_lbl 
      Alignment       =   2  'Center
      Caption         =   "Created By Omega"
      Height          =   195
      Index           =   0
      Left            =   120
      TabIndex        =   23
      Top             =   3840
      Width           =   3855
   End
   Begin VB.Label GCap_lbl 
      AutoSize        =   -1  'True
      Caption         =   "Caption:"
      Height          =   195
      Left            =   120
      TabIndex        =   9
      Top             =   1200
      Width           =   585
   End
   Begin VB.Label lblVal 
      AutoSize        =   -1  'True
      Caption         =   "Value:"
      Height          =   195
      Left            =   3240
      TabIndex        =   15
      Top             =   2040
      Width           =   450
   End
   Begin VB.Label EAddy_lbl 
      AutoSize        =   -1  'True
      Caption         =   "End Addy"
      Height          =   195
      Left            =   120
      TabIndex        =   4
      Top             =   480
      Width           =   690
   End
   Begin VB.Label SAddy_lbl 
      AutoSize        =   -1  'True
      Caption         =   "Start Addy"
      Height          =   195
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   735
   End
   Begin VB.Label Value_lbl 
      AutoSize        =   -1  'True
      Caption         =   "Value:"
      Height          =   195
      Left            =   120
      TabIndex        =   6
      Top             =   840
      Width           =   450
   End
   Begin VB.Label hex_lbl 
      AutoSize        =   -1  'True
      Caption         =   "Hex Addy:"
      Height          =   195
      Left            =   1680
      TabIndex        =   14
      Top             =   2040
      Width           =   735
   End
   Begin VB.Label dec_lbl 
      AutoSize        =   -1  'True
      Caption         =   "Decimal Addy:"
      Height          =   195
      Left            =   120
      TabIndex        =   13
      Top             =   2040
      Width           =   1020
   End
End
Attribute VB_Name = "frmScan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Scan_btn_Click()
'************************************************
'* THIS CODE IS 2 SLOW TO BE A MEMORY SEARCHER. *
'************************************************

If GCap_txt.Text = "" Then: MsgBox "You Need To Choose A Window Caption": Exit Sub

'Start Dim List
Dim value As Byte
'End Dim List

'Clear The ListBoxes, To More Address' Can Be Added
lstDec.Clear
lstHex.Clear
lstVal.Clear

'Hide ListBoxes, To Speed Up List.AddItem
lstDec.Visible = False
lstHex.Visible = False
lstVal.Visible = False

'Use Step Num If u know the address Jumps so Many Address'
'eg. Step 4 if the address changes 4 Address'

For ADDR& = SAddy_txt.Text To EAddy_txt.Text ' Step 16
'
Call ReadAByte(GCap_txt.Text, ADDR&, value)
'If The Memory Location Value Equals The Value Searching then add it to the list.

If value = Value_txt Then

'Add The Decimal Memory Location
    lstDec.AddItem ADDR&
    
'Add The Hex Memory Location (Most Memory Scanners Use Hex Address's Not Decimal)
    lstHex.AddItem Hex(ADDR&)
    
'Add The Value
    lstVal.AddItem value
End If

'Return To The Code Under The For Call
Next ADDR&

'Show List Boxes Again
lstDec.Visible = True
lstHex.Visible = True
lstVal.Visible = True

Scan2_btn.Enabled = True
MsgBox lstDec.ListCount & " Address' Found."
End Sub

Private Sub About_btn_Click()
MsgBox "                      CES:" + vbCrLf _
+ "Disclaimer: Use at your own risk!" + vbCrLf _
+ "In NO way is Omega" + vbCrLf _
+ "responsible for what this program" + vbCrLf _
+ "does to your computer, game," + vbCrLf _
+ "player, or what happens in the game." + vbCrLf _
+ "I will say it again." + vbCrLf + vbCrLf _
+ "USE AT YOUR OWN RISK!!!!!!"
End Sub

Private Sub Scan2_btn_Click()
'Start Dim List
Dim value As Byte
'End Dim List

'Hide ListBoxes, To Speed Up List.AddItem
lstDec.Visible = False
lstHex.Visible = False
lstVal.Visible = False

lstDec1.Visible = False
lstHex1.Visible = False
lstVal1.Visible = False

lstDec1.Clear
lstHex1.Clear
lstVal1.Clear

'Use Step Num If u know the address Jumps so Many Address'
'eg. Step 4 if the address changes 4 Address'
lstDec.Selected(0) = True

For I = 0 To lstDec.ListCount - 1
lstDec.Selected(I) = True
Call ReadAByte(GCap_txt.Text, lstDec.Text, value)

If value = Value_txt Then
    lstDec1.AddItem lstDec.Text
    lstHex1.AddItem Hex(lstDec.Text)
    lstVal1.AddItem value
End If
Next I

lstDec.Visible = True
lstHex.Visible = True
lstVal.Visible = True

If lstDec1.ListCount = "0" Then
    MsgBox "None Found"
Else

lstDec.Clear
lstHex.Clear
lstVal.Clear

For I = 0 To lstDec1.ListCount - 1
lstDec1.Selected(I) = True
    lstDec.AddItem lstDec1.Text
    lstHex.AddItem Hex(lstDec1.Text)
    lstVal.AddItem value
Next I

lstDec1.Clear
lstHex1.Clear
lstVal1.Clear
MsgBox lstDec.ListCount & " Address' Found."
End If

End Sub

Private Sub GCap_Cbo_Click()
GCap_txt.Text = GCap_Cbo.Text
GCap_Cbo.Visible = False
GCap_txt.ZOrder 0
End Sub

Private Sub GCap_txt_DblClick()
Call fEnumWindows(GCap_Cbo)
GCap_Cbo.Visible = True
GCap_Cbo.ZOrder 0
End Sub

