source code

• yihao93

  17 Mar 07, 09:35

  Lets say i have 2 programs, i nid to edit
  1 of the source code to make it fix intto another program
  how do i do it?
  teach mi can? in full details..
  or help mi?
• thoreldan

  17 Mar 07, 13:20

  Originally posted by yihao93:

  Lets say i have 2 programs, i nid to edit
  1 of the source code to make it fix intto another program
  how do i do it?
  teach mi can? in full details..
  or help mi?

  what are you trying to say?
  
  catch no ball
  
  what do you mean"edit 1 of the source code to make it fix intto another program?"
• surferpunk

  17 Mar 07, 13:32

  Originally posted by yihao93:

  Lets say i have 2 programs, i nid to edit
  1 of the source code to make it fix intto another program
  how do i do it?
  teach mi can? in full details..
  or help mi?

  Ermmm... just copy and paste?? lol... and just make sure u change the necessary names of the variables to ensure the program to run. does that answer your question? lol...
• Darkness_hacker99

  17 Mar 07, 13:38

  You want to put password in your blog ar?
• OasisBlue

  17 Mar 07, 14:11

  sry to hijack the thread just wanna ask how do you encrypt your source code?
• yihao93

  17 Mar 07, 19:45

  ok, guess i jzu let the story out, its like this,
  a AC that i used frequently use in a game called Maplestory
  cant be used anymore, now, i gt a package called a Source
  Code to make it work in the game, wad i wan to ask is,
  how do i change it to enable the AC to be able to use
  in the game?
• yihao93

  17 Mar 07, 20:14

  Originally posted by yihao93:

  ok, guess i jzu let the story out, its like this,
  a AC that i used frequently use in a game called Maplestory
  cant be used anymore, now, i gt a package called a Source
  Code to make it work in the game, wad i wan to ask is,
  how do i change it to enable the AC to be able to use
  in the game?

  can sum1 tell mi, or do it 4 mi
  help would be veri appreciated...
  pros helppp!!!!
• Y_Shun

  17 Mar 07, 20:26

  Originally posted by OasisBlue:

  sry to hijack the thread just wanna ask how do you encrypt your source code?

  http://www.dynamicdrive.com/dynamicindex9/encrypter.htm
  
  there are also HTML Protector softwares that oso encrypts these HTML until WEIRD symbols that you cannot even figure out whats the original.
  
  the one above actually can de-encrypt back to see your code one.
• ndmmxiaomayi

  17 Mar 07, 20:53

  Originally posted by OasisBlue:

  sry to hijack the thread just wanna ask how do you encrypt your source code?

  Programming codes - use a packer. Common ones used are UPX.
  
  HTML codes - No idea why you want to encrypt, it's unreadable to a browser.
• ndmmxiaomayi

  17 Mar 07, 20:55

  Originally posted by yihao93:

  ok, guess i jzu let the story out, its like this,
  a AC that i used frequently use in a game called Maplestory
  cant be used anymore, now, i gt a package called a Source
  Code to make it work in the game, wad i wan to ask is,
  how do i change it to enable the AC to be able to use
  in the game?

  You need a compiler.
  
  Show us the source codes. There are so many types of programming languages out there, don't expect me to figure out what programming language that the programmer used. I can't tell just by looking at the program.
• OasisBlue

  17 Mar 07, 21:26

  Originally posted by Y_Shun:

  http://www.dynamicdrive.com/dynamicindex9/encrypter.htm
  
  there are also HTML Protector softwares that oso encrypts these HTML until WEIRD symbols that you cannot even figure out whats the original.
  
  the one above actually can de-encrypt back to see your code one.

  thanks!
• yihao93

  17 Mar 07, 23:20

  Originally posted by ndmmxiaomayi:

  You need a compiler.
  
  Show us the source codes. There are so many types of programming languages out there, don't expect me to figure out what programming language that the programmer used. I can't tell just by looking at the program.

  sure
  clsregistry.clsVERSION 1.0 CLASS
  BEGIN
  MultiUse = -1 'True
  Persistable = 0 'NotPersistable
  DataBindingBehavior = 0 'vbNone
  DataSourceBehavior = 0 'vbNone
  MTSTransactionMode = 0 'NotAnMTSObject
  END
  Attribute VB_Name = "Registry"
  Attribute VB_GlobalNameSpace = False
  Attribute VB_Creatable = True
  Attribute VB_PredeclaredId = False
  Attribute VB_Exposed = False
  Option Explicit
  
  'Registry Events
  Public Event RegistryError(ByVal Number As Long, ByVal Description As String)
  
  'Registry API declarations
  Private Declare Function RegFlushKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
  Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
  Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
  
  'Kernel32 declaration
  Private Declare Function FormatMessage Lib "Kernel32" Alias "FormatMessageA" (ByVal dwFlags As Long, lpSource As Any, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Long) As Long
  Private Declare Function GetVersionEx Lib "Kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
  
  Private Type OSVERSIONINFO
  dwOSVersionInfoSize As Long
  dwMajorVersion As Long
  dwMinorVersion As Long
  dwBuildNumber As Long
  dwPlatformId As Long
  szCSDVersion As String * 128 ' Maintenance string for PSS usage
  End Type
  
  'Operating System Platform ID constants
  Private Const VER_PLATFORM_WIN32_NT = 2
  
  'FormatMessage constants
  Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
  
  'Registry Root Key constants
  Public Enum RegRootKey
  HKEY_CLASSES_ROOT = &H80000000
  HKEY_CURRENT_CONFIG = &H80000005
  HKEY_CURRENT_USER = &H80000001
  HKEY_DYN_DATA = &H80000006
  HKEY_LOCAL_MACHINE = &H80000002
  HKEY_USERS = &H80000003
  End Enum
  
  'Registry Data Type constants
  Public Enum RegDataType
  REG_SZ = 1
  REG_BINARY = 3
  REG_DWORD = 4
  REG_DWORD_BIG_ENDIAN = 5
  REG_DWORD_LITTLE_ENDIAN = 4
  REG_QWORD = 11
  REG_QWORD_LITTLE_ENDIAN = 11
  REG_EXPAND_SZ = 2
  REG_MULTI_SZ = 7
  REG_NONE = 0
  End Enum
  
  'Registry base error code
  Private Const ERROR_BASE = 50000
  
  'Windows Error Code constants
  Public Enum RegErrorCode
  ERROR_SUCCESS = 0&
  ERROR_MORE_DATA = ERROR_BASE + 234
  ERROR_INVALID_FUNCTION = ERROR_BASE + 1
  ERROR_FILE_NOT_FOUND = ERROR_BASE + 2&
  ERROR_ACCESS_DENIED = ERROR_BASE + 5&
  ERROR_INVALID_HANDLE = ERROR_BASE + 6&
  ERROR_INVALID_ACCESS = ERROR_BASE + 12&
  ERROR_OUTOFMEMORY = ERROR_BASE + 14&
  ERROR_NETNAME_DELETED = ERROR_BASE + 64&
  ERROR_NETWORK_ACCESS_DENIED = ERROR_BASE + 65&
  ERROR_TOO_MANY_SESS = ERROR_BASE + 69&
  ERROR_INVALID_PARAMETER = ERROR_BASE + 87
  ERROR_BAD_PATHNAME = ERROR_BASE + 161&
  End Enum
  
  'Property variables
  Private pSubKey As String
  Private pRootKey As RegRootKey
  Private pDataType As RegDataType
  Private pValueName As String
  Private pForceWrite As Boolean
  Private pReportError As Boolean
  
  Private Function IsWindowsNT() As Boolean
  Dim lpOSVerInfo As OSVERSIONINFO
  
  'Initialize the structure
  lpOSVerInfo.dwOSVersionInfoSize = Len(lpOSVerInfo)
  
  'Check Windows Platform ID
  GetVersionEx lpOSVerInfo
  
  If lpOSVerInfo.dwPlatformId = VER_PLATFORM_WIN32_NT Then
  'This is Windows NT
  IsWindowsNT = True
  End If
  
  End Function
  
  Private Sub RaiseError(ByVal Number As Long)
  Dim Desc As String * 255
  Dim nChar As Long
  
  If Err.Number <> 0 Then
  'Replace with local error if no error occurred in API
  Number = Err.Number
  Desc = Err.Description
  Else
  'Format the error code into description
  nChar = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, Number, 0, Desc, 255, ByVal 0&)
  
  Desc = Left(Desc, nChar)
  End If
  
  If ReportError Then
  'Raise error
  Err.Raise Number, "Registry", Desc
  End If
  
  RaiseEvent RegistryError(Number, Desc)
  
  End Sub
  
  Public Property Get ReportError() As Boolean
  ReportError = pReportError
  End Property
  
  Public Property Let ReportError(ByVal Value As Boolean)
  pReportError = Value
  End Property
  
  Public Property Get ForceWrite() As Boolean
  ForceWrite = pForceWrite
  End Property
  
  Public Property Let ForceWrite(ByVal Value As Boolean)
  pForceWrite = Value
  End Property
  
  Public Property Get RootKey() As RegRootKey
  RootKey = pRootKey
  End Property
  
  Public Property Let RootKey(ByVal Value As RegRootKey)
  pRootKey = Value
  End Property
  
  Public Property Get SubKey() As String
  SubKey = pSubKey
  End Property
  
  Public Property Let SubKey(ByVal Value As String)
  pSubKey = Value
  End Property
  
  Public Property Get ValueName() As String
  ValueName = pValueName
  End Property
  
  Public Property Let ValueName(ByVal Value As String)
  pValueName = Value
  End Property
  
  Public Property Get DataType() As RegDataType
  DataType = pDataType
  End Property
  
  Public Property Let DataType(ByVal Value As RegDataType)
  pDataType = Value
  End Property
  
  Public Property Get Data() As Variant
  Dim lpBufferCurrency As Currency
  Dim lpBufferBinary() As Byte
  Dim lpBufferString As String
  Dim lpBufferLong As Long
  Dim nSize As Long
  Dim hKey As Long
  Dim lRet As Long
  
  On Local Error GoTo Finally
  
  'Open a handle to the required registry key
  lRet = RegOpenKey(pRootKey, pSubKey, hKey)
  
  If lRet = ERROR_SUCCESS Then
  'Retrieve the data type and data size
  RegQueryValueEx hKey, pValueName, 0&, pDataType, ByVal 0&, nSize
  
  'Convert the buffer to the data type we wanted
  Select Case pDataType
  Case REG_BINARY 'Binary data
  'Initialize buffer to retrieve data
  ReDim lpBufferBinary(1 To nSize)
  
  'Retrieve the binary data
  lRet = RegQueryValueEx(hKey, pValueName, 0&, pDataType, lpBufferBinary(1), nSize)
  
  If lRet = ERROR_SUCCESS Then
  'Return the value
  Data = lpBufferBinary
  End If
  Case REG_SZ, REG_EXPAND_SZ, REG_MULTI_SZ 'String
  'Initialize buffer to retrieve string data
  lpBufferString = Space(nSize)
  
  'Retrieve the string data
  lRet = RegQueryValueEx(hKey, pValueName, 0&, pDataType, ByVal lpBufferString, nSize)
  
  If lRet = ERROR_SUCCESS Then
  'Return the data
  Data = Left(lpBufferString, nSize - 1)
  End If
  Case REG_DWORD, REG_DWORD_BIG_ENDIAN 'Long/Int32
  'Retrieve the DWord value
  lRet = RegQueryValueEx(hKey, pValueName, 0&, pDataType, lpBufferLong, nSize)
  
  If lRet = ERROR_SUCCESS Then
  'Return the value
  Data = lpBufferLong
  End If
  Case REG_QWORD 'Currency/Int64
  'Retrieve the QWord value
  lRet = RegQueryValueEx(hKey, pValueName, 0&, pDataType, lpBufferCurrency, nSize)
  
  If lRet = ERROR_SUCCESS Then
  'Return the value
  Data = lpBufferCurrency
  End If
  End Select
  End If
  
  Finally:
  'Reset error information
  RaiseError lRet
  
  'Release handle
  RegCloseKey hKey
  
  End Property
  
  Public Property Let Data(ByVal Value As Variant)
  Dim hKey As Long
  Dim lRet As Long
  
  'Open a handle to the required key
  lRet = RegCreateKey(pRootKey, pSubKey, hKey)
  If lRet <> ERROR_SUCCESS Then RaiseError lRet
  
  'Automatically determine the data type
  Select Case VarType(Value)
  Case vbByte, vbInteger, vbLong, vbBoolean
  'DWord value
  pDataType = REG_DWORD
  lRet = RegSetValueEx(hKey, pValueName, 0&, pDataType, ByVal VarPtr(CLng(Value)), 4)
  Case vbString
  'LPStr value
  pDataType = REG_SZ
  
  If IsWindowsNT() Then
  lRet = RegSetValueEx(hKey, pValueName, 0&, pDataType, ByVal StrPtr(StrConv(Value, vbFromUnicode)), Len(Value))
  Else
  lRet = RegSetValueEx(hKey, pValueName, 0&, pDataType, ByVal StrPtr(StrConv(Value, vbFromUnicode)), (Len(Value) \ 2))
  End If
  
  Case vbCurrency
  'QWord value
  pDataType = REG_QWORD
  lRet = RegSetValueEx(hKey, pValueName, 0&, pDataType, ByVal VarPtr(CCur(Value)),
  Case Else
  'Unreconised data type
  GoTo Finally
  End Select
  
  'Set the value of the key
  If lRet <> ERROR_SUCCESS Then RaiseError lRet
  
  If pForceWrite Then
  'Force the operation system to write the changes
  RegFlushKey hKey
  End If
  
  Finally:
  'Close the handle
  RegCloseKey hKey
  
  End Property
  
  Public Function GetData(Optional RootKey, Optional SubKey, Optional ValueName) As Variant
  'Set optional property
  If Not IsMissing(SubKey) Then Me.SubKey = SubKey
  If Not IsMissing(RootKey) Then Me.RootKey = RootKey
  If Not IsMissing(ValueName) Then Me.ValueName = ValueName
  
  'Retrieve data
  GetData = Me.Data
  End Function
  
  Public Sub SetData(ByVal Data, Optional RootKey, Optional SubKey, Optional ValueName)
  'Set optional property
  If Not IsMissing(SubKey) Then Me.SubKey = SubKey
  If Not IsMissing(RootKey) Then Me.RootKey = RootKey
  If Not IsMissing(ValueName) Then Me.ValueName = ValueName
  
  'Set data
  Me.Data = Data
  End Sub
  
  frm.Mspro.frmVERSION 5.00
  Begin VB.Form frmMSPro
  BorderStyle = 3 'Fixed Dialog
  Caption = "MSPro v3"
  ClientHeight = 6765
  ClientLeft = 45
  ClientTop = 435
  ClientWidth = 6360
  LinkTopic = "Form1"
  LockControls = -1 'True
  MaxButton = 0 'False
  MinButton = 0 'False
  ScaleHeight = 6765
  ScaleWidth = 6360
  Begin VB.Timer tmrWindowedMode
  Enabled = 0 'False
  Interval = 1000
  Left = 1080
  Top = 6240
  End
  Begin VB.CheckBox chkFocusCheck
  Alignment = 1 'Right Justify
  Caption = "Focus Check :"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Left = 640
  TabIndex = 29
  ToolTipText = "Specifies whether to pause all the macro when MapleStory is out of focus"
  Top = 5160
  Width = 1990
  End
  Begin VB.Timer tmrAutoHide
  Interval = 1
  Left = 600
  Top = 6240
  End
  Begin VB.CommandButton cmdClose
  Caption = "Close"
  Height = 495
  Left = 3413
  TabIndex = 15
  Top = 5760
  Width = 1215
  End
  Begin VB.CommandButton cmdSave
  Caption = "Save"
  Height = 495
  Left = 1733
  TabIndex = 14
  Top = 5760
  Width = 1215
  End
  Begin VB.ComboBox cboAutoClicker
  Height = 315
  Left = 2430
  Style = 2 'Dropdown List
  TabIndex = 0
  ToolTipText = "Assigns the hotkey to toggle auto-clicker"
  Top = 840
  Width = 1455
  End
  Begin VB.ComboBox cboAutoPotionHP
  Height = 315
  Left = 2430
  Style = 2 'Dropdown List
  TabIndex = 4
  ToolTipText = "Assigns the hotkey to toggle HP auto-potion"
  Top = 2280
  Width = 1455
  End
  Begin VB.ComboBox cboAutoChat
  Height = 315
  Left = 2430
  Style = 2 'Dropdown List
  TabIndex = 1
  ToolTipText = "Assigns the hotkey to toggle auto-chat"
  Top = 1320
  Width = 1455
  End
  Begin VB.ComboBox cboAutoLootKey
  Height = 315
  Left = 4575
  Style = 2 'Dropdown List
  TabIndex = 3
  ToolTipText = "Assigns which pickup key to press when auto-loot is on"
  Top = 1800
  Width = 1455
  End
  Begin VB.ComboBox cboAutoLoot
  Height = 315
  Left = 2430
  Style = 2 'Dropdown List
  TabIndex = 2
  ToolTipText = "Assigns the hotkey to toggle auto-loot"
  Top = 1800
  Width = 1455
  End
  Begin VB.ComboBox cboHPPotion
  Height = 315
  Left = 4575
  Style = 2 'Dropdown List
  TabIndex = 5
  ToolTipText = "Assigns which HP potion key to press when HP is low"
  Top = 2280
  Width = 1455
  End
  Begin VB.CheckBox chkBeepNotify
  Alignment = 1 'Right Justify
  Caption = "Beep Notify :"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Left = 810
  TabIndex = 12
  ToolTipText = "Specifies whether to beep when a hotkey is triggered"
  Top = 4200
  Width = 1815
  End
  Begin VB.ComboBox cboMPPotion
  Height = 315
  Left = 4590
  Style = 2 'Dropdown List
  TabIndex = 9
  ToolTipText = "Assigns which MP potion key to press when MP is low"
  Top = 3240
  Width = 1455
  End
  Begin VB.ComboBox cboAutoPotionMP
  Height = 315
  Left = 2445
  Style = 2 'Dropdown List
  TabIndex = 8
  ToolTipText = "Assigns the hotkey to toggle MP auto-potion"
  Top = 3240
  Width = 1455
  End
  Begin VB.HScrollBar hscHPAlarm
  Height = 255
  Left = 2415
  Max = 100
  Min = 1
  TabIndex = 6
  Top = 2760
  Value = 30
  Width = 3015
  End
  Begin VB.TextBox txtHPAlarm
  Height = 285
  Left = 5535
  Locked = -1 'True
  TabIndex = 7
  Text = "txtHPAlarm"
  ToolTipText = "Specifies the HP level to trigger auto-potion"
  Top = 2760
  Width = 495
  End
  Begin VB.TextBox txtMPAlarm
  Height = 285
  Left = 5550
  Locked = -1 'True
  TabIndex = 11
  Text = "txtMPAlarm"
  ToolTipText = "Specifies the MP level to trigger auto-potion"
  Top = 3720
  Width = 495
  End
  Begin VB.HScrollBar hscMPAlarm
  Height = 255
  Left = 2430
  Max = 100
  Min = 1
  TabIndex = 10
  Top = 3720
  Value = 30
  Width = 3015
  End
  Begin VB.CheckBox chkWindowedMode
  Alignment = 1 'Right Justify
  Caption = "Windowed Mode :"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Left = 270
  TabIndex = 13
  ToolTipText = "Specifies whether to run MapleStory in windowed mode"
  Top = 4680
  Width = 2360
  End
  Begin VB.Timer tmrState
  Interval = 1
  Left = 120
  Top = 6240
  End
  Begin VB.Line Line1
  X1 = 120
  X2 = 6240
  Y1 = 600
  Y2 = 600
  End
  Begin VB.Label lblSignature
  Alignment = 1 'Right Justify
  AutoSize = -1 'True
  Caption = "lblSignature"
  Height = 195
  Left = 5400
  TabIndex = 28
  Top = 6480
  Width = 825
  End
  Begin VB.Label Label
  Alignment = 1 'Right Justify
  Caption = "Auto-Clicker:"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Index = 0
  Left = 840
  TabIndex = 27
  Top = 840
  Width = 1350
  End
  Begin VB.Label Label
  Alignment = 1 'Right Justify
  Caption = "HP Auto-Potion:"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Index = 4
  Left = 480
  TabIndex = 26
  Top = 2280
  Width = 1710
  End
  Begin VB.Label Label
  Alignment = 1 'Right Justify
  Caption = "Auto-Chat :"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Index = 1
  Left = 975
  TabIndex = 25
  Top = 1320
  Width = 1215
  End
  Begin VB.Label Label
  Alignment = 1 'Right Justify
  Caption = "Auto-Loot :"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Index = 2
  Left = 1005
  TabIndex = 24
  Top = 1800
  Width = 1185
  End
  Begin VB.Label Label
  Alignment = 1 'Right Justify
  Caption = "Key :"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Index = 3
  Left = 4095
  TabIndex = 23
  Top = 1800
  Width = 510
  End
  Begin VB.Label Label
  Alignment = 1 'Right Justify
  Caption = "Key :"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Index = 5
  Left = 4095
  TabIndex = 22
  Top = 2280
  Width = 510
  End
  Begin VB.Label Label
  Alignment = 1 'Right Justify
  Caption = "Key :"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Index = 8
  Left = 4110
  TabIndex = 21
  Top = 3240
  Width = 510
  End
  Begin VB.Label Label
  Alignment = 1 'Right Justify
  Caption = "MP Auto-Potion:"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Index = 7
  Left = 480
  TabIndex = 20
  Top = 3240
  Width = 1725
  End
  Begin VB.Label Label
  Alignment = 1 'Right Justify
  Caption = "HP Alarm :"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Index = 6
  Left = 1080
  TabIndex = 19
  Top = 2760
  Width = 1125
  End
  Begin VB.Label Label
  Alignment = 1 'Right Justify
  Caption = "MP Alarm :"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Index = 9
  Left = 1080
  TabIndex = 18
  Top = 3720
  Width = 1140
  End
  Begin VB.Label lblHook
  Alignment = 1 'Right Justify
  Caption = "MSPro Status:"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Left = 240
  TabIndex = 17
  Top = 120
  Width = 1545
  End
  Begin VB.Label lblState
  Alignment = 2 'Center
  Caption = "lblState"
  BeginProperty Font
  Name = "MS Sans Serif"
  Size = 12
  Charset = 0
  Weight = 700
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 300
  Left = 1920
  TabIndex = 16
  Top = 120
  Width = 4245
  End
  End
  Attribute VB_Name = "frmMSPro"
  Attribute VB_GlobalNameSpace = False
  Attribute VB_Creatable = False
  Attribute VB_PredeclaredId = True
  Attribute VB_Exposed = False
  Option Explicit
  
  'DirectInput ScanCode Constants
  Private Const DIK_ESCAPE = 1
  Private Const DIK_1 = 2
  Private Const DIK_2 = 3
  Private Const DIK_3 = 4
  Private Const DIK_4 = 5
  Private Const DIK_5 = 6
  Private Const DIK_6 = 7
  Private Const DIK_7 = 8
  Private Const DIK_8 = 9
  Private Const DIK_9 = 10
  Private Const DIK_0 = 11
  Private Const DIK_MINUS = 12
  Private Const DIK_EQUALS = 13
  Private Const DIK_BACKSPACE = 14
  Private Const DIK_TAB = 15
  Private Const DIK_Q = 16
  Private Const DIK_W = 17
  Private Const DIK_E = 18
  Private Const DIK_R = 19
  Private Const DIK_T = 20
  Private Const DIK_Y = 21
  Private Const DIK_U = 22
  Private Const DIK_I = 23
  Private Const DIK_O = 24
  Private Const DIK_P = 25
  Private Const DIK_LBRACKET = 26
  Private Const DIK_RBRACKET = 27
  Private Const DIK_RETURN = 28
  Private Const DIK_LCONTROL = 29
  Private Const DIK_A = 30
  Private Const DIK_S = 31
  Private Const DIK_D = 32
  Private Const DIK_F = 33
  Private Const DIK_G = 34
  Private Const DIK_H = 35
  Private Const DIK_J = 36
  Private Const DIK_K = 37
  Private Const DIK_L = 38
  Private Const DIK_SEMICOLON = 39
  Private Const DIK_APOSTROPHE = 40
  Private Const DIK_GRAVE = 41
  Private Const DIK_LSHIFT = 42
  Private Const DIK_BACKSLASH = 43
  Private Const DIK_Z = 44
  Private Const DIK_X = 45
  Private Const DIK_C = 46
  Private Const DIK_V = 47
  Private Const DIK_B = 48
  Private Const DIK_N = 49
  Private Const DIK_M = 50
  Private Const DIK_COMMA = 51
  Private Const DIK_PERIOD = 52
  Private Const DIK_SLASH = 53
  Private Const DIK_RSHIFT = 54
  Private Const DIK_MULTIPLY = 55
  Private Const DIK_LALT = 56
  Private Const DIK_SPACE = 57
  Private Const DIK_CAPSLOCK = 58
  Private Const DIK_F1 = 59
  Private Const DIK_F2 = 60
  Private Const DIK_F3 = 61
  Private Const DIK_F4 = 62
  Private Const DIK_F5 = 63
  Private Const DIK_F6 = 64
  Private Const DIK_F7 = 65
  Private Const DIK_F8 = 66
  Private Const DIK_F9 = 67
  Private Const DIK_F10 = 68
  Private Const DIK_NUMLOCK = 69
  Private Const DIK_SCROLL = 70
  Private Const DIK_NUMPAD7 = 71
  Private Const DIK_NUMPAD8 = 72
  Private Const DIK_NUMPAD9 = 73
  Private Const DIK_SUBTRACT = 74
  Private Const DIK_NUMPAD4 = 75
  Private Const DIK_NUMPAD5 = 76
  Private Const DIK_NUMPAD6 = 77
  Private Const DIK_ADD = 78
  Private Const DIK_NUMPAD1 = 79
  Private Const DIK_NUMPAD2 = 80
  Private Const DIK_NUMPAD3 = 81
  Private Const DIK_NUMPAD0 = 82
  Private Const DIK_DECIMAL = 83
  Private Const DIK_F11 = 87
  Private Const DIK_F12 = 88
  Private Const DIK_NUMPADENTER = 156
  Private Const DIK_RCONTROL = 157
  Private Const DIK_DIVIDE = 181
  Private Const DIK_RALT = 184
  Private Const DIK_HOME = 199
  Private Const DIK_UP = 200
  Private Const DIK_PAGEUP = 201
  Private Const DIK_LEFT = 203
  Private Const DIK_RIGHT = 205
  Private Const DIK_END = 207
  Private Const DIK_DOWN = 208
  Private Const DIK_PAGEDOWN = 209
  Private Const DIK_INSERT = 210
  Private Const DIK_DELETE = 211
  
  'MSPro Functions
  Private Declare Sub MSPro_Initialize Lib "MSPro_v3" ()
  Private Declare Sub MSPro_Finalize Lib "MSPro_v3" ()
  Private Declare Sub MSPro_SendKeystroke Lib "MSPro_v3" (ByVal bVk As Long)
  Private Declare Function MSPro_GetState Lib "MSPro_v3" () As Long
  
  Private Declare Sub MSPro_SetConfig1 Lib "MSPro_v3" (ByVal vKey As Long)
  Private Declare Sub MSPro_SetConfig2 Lib "MSPro_v3" (ByVal vKey As Long)
  Private Declare Sub MSPro_SetConfig3 Lib "MSPro_v3" (ByVal vKey As Long, ByVal vKey2 As Long)
  Private Declare Sub MSPro_SetConfig4 Lib "MSPro_v3" (ByVal vKey As Long, ByVal vKey2 As Long, ByVal Alarm As Long)
  Private Declare Sub MSPro_SetConfig5 Lib "MSPro_v3" (ByVal vKey As Long, ByVal vKey2 As Long, ByVal Alarm As Long)
  Private Declare Sub MSPro_SetConfig6 Lib "MSPro_v3" (ByVal Enabled As Long)
  Private Declare Sub MSPro_SetConfig7 Lib "MSPro_v3" (ByVal Enabled As Long)
  
  'User32 Functions
  Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  Private Declare Function GetForegroundWindow Lib "user32" () As Long
  
  'Kernel32 Functions
  Private Declare Function LoadLibrary Lib "Kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
  
  Private Type POINTAPI
  x As Long
  y As Long
  End Type
  
  Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
  End Type
  
  'MSPro State Constants
  Private Const MSPRO_STATE_IDLE As Long = 0
  Private Const MSPRO_STATE_HOOK As Long = 1
  Private Const MSPRO_STATE_UNHOOK As Long = 2
  Private Const MSPRO_STATE_PIPEINIT As Long = 3
  Private Const MSPRO_STATE_PIPEOK As Long = 4
  Private Const MSPRO_STATE_PIPEERR As Long = 5
  Private Const MSPRO_STATE_GETFOCUS As Long = 6
  Private Const MSPRO_STATE_LOSTFOCUS As Long = 7
  
  'Configurations
  Private hkBeepNotify As Boolean
  Private hkWindowedMode As Boolean
  Private hkFocusCheck As Boolean
  
  Private hkAutoClicker As Long
  Private hkAutoPotionHP As Long
  Private hkHPPotion As Long
  Private hkHPAlarm As Long
  Private hkAutoPotionMP As Long
  Private hkMPPotion As Long
  Private hkMPAlarm As Long
  Private hkAutoChat As Long
  Private hkAutoLoot As Long
  Private hkAutoLootKey As Long
  
  Private StealthDll As String
  
  Private Function GetMaplePath() As String
  Dim Registry As Registry
  
  'Construct a new Registry API wrapper
  Set Registry = New Registry
  
  'Locate MapleStory path
  GetMaplePath = Registry.GetData(HKEY_LOCAL_MACHINE, "Software\Wizet\MapleStory", "ExecPath")
  
  'Destruct the Registry API wrapper
  Set Registry = Nothing
  
  End Function
  
  Private Sub ShowForm(ByVal Show As Boolean)
  
  If Show Then
  'Show and enable the form
  Me.Height = 7245
  Else
  'Hide the form
  Me.Height = 1020
  End If
  
  End Sub
  
  Private Sub SetHotkey()
  'Configure MSPro hotkeys
  MSPro_SetConfig1 hkAutoClicker
  MSPro_SetConfig2 hkAutoChat
  MSPro_SetConfig3 hkAutoLoot, hkAutoLootKey
  MSPro_SetConfig4 hkAutoPotionHP, hkHPPotion, hkHPAlarm
  MSPro_SetConfig5 hkAutoPotionMP, hkMPPotion, hkMPAlarm
  MSPro_SetConfig6 hkBeepNotify
  MSPro_SetConfig7 hkFocusCheck
  End Sub
  
  Private Sub ComboBox_FillVirtualKeys(ByVal ComboBox As ComboBox, Optional ByVal IsOptional As Boolean = True)
  'Clear the combo box
  ComboBox.Clear
  
  If IsOptional Then
  'Optional item
  ComboBox_AddItemWithItemData ComboBox, "[NONE]", 0
  End If
  
  'Fill combo box with virtual keys
  ComboBox_AddItemWithItemData ComboBox, "F1", vbKeyF1
  ComboBox_AddItemWithItemData ComboBox, "F2", vbKeyF2
  ComboBox_AddItemWithItemData ComboBox, "F3", vbKeyF3
  ComboBox_AddItemWithItemData ComboBox, "F4", vbKeyF4
  ComboBox_AddItemWithItemData ComboBox, "F5", vbKeyF5
  ComboBox_AddItemWithItemData ComboBox, "F6", vbKeyF6
  ComboBox_AddItemWithItemData ComboBox, "F7", vbKeyF7
  ComboBox_AddItemWithItemData ComboBox, "F8", vbKeyF8
  ComboBox_AddItemWithItemData ComboBox, "F9", vbKeyF9
  ComboBox_AddItemWithItemData ComboBox, "F10", vbKeyF10
  ComboBox_AddItemWithItemData ComboBox, "F11", vbKeyF11
  ComboBox_AddItemWithItemData ComboBox, "F12", vbKeyF12
  
  ComboBox_AddItemWithItemData ComboBox, "A", vbKeyA
  ComboBox_AddItemWithItemData ComboBox, "B", vbKeyB
  ComboBox_AddItemWithItemData ComboBox, "C", vbKeyC
  ComboBox_AddItemWithItemData ComboBox, "D", vbKeyD
  ComboBox_AddItemWithItemData ComboBox, "E", vbKeyE
  ComboBox_AddItemWithItemData ComboBox, "F", vbKeyF
  ComboBox_AddItemWithItemData ComboBox, "G", vbKeyG
  ComboBox_AddItemWithItemData ComboBox, "H", vbKeyH
  ComboBox_AddItemWithItemData ComboBox, "I", vbKeyI
  ComboBox_AddItemWithItemData ComboBox, "J", vbKeyJ
  ComboBox_AddItemWithItemData ComboBox, "K", vbKeyK
  ComboBox_AddItemWithItemData ComboBox, "L", vbKeyL
  ComboBox_AddItemWithItemData ComboBox, "M", vbKeyM
  ComboBox_AddItemWithItemData ComboBox, "N", vbKeyN
  ComboBox_AddItemWithItemData ComboBox, "O", vbKeyO
  ComboBox_AddItemWithItemData ComboBox, "P", vbKeyP
  ComboBox_AddItemWithItemData ComboBox, "Q", vbKeyQ
  ComboBox_AddItemWithItemData ComboBox, "R", vbKeyR
  ComboBox_AddItemWithItemData ComboBox, "S", vbKeyS
  ComboBox_AddItemWithItemData ComboBox, "T", vbKeyT
  ComboBox_AddItemWithItemData ComboBox, "U", vbKeyU
  ComboBox_AddItemWithItemData ComboBox, "V", vbKeyV
  ComboBox_AddItemWithItemData ComboBox, "W", vbKeyW
  ComboBox_AddItemWithItemData ComboBox, "X", vbKeyX
  ComboBox_AddItemWithItemData ComboBox, "Y", vbKeyY
  ComboBox_AddItemWithItemData ComboBox, "Z", vbKeyZ
  
  ComboBox_AddItemWithItemData ComboBox, "0", vbKey0
  ComboBox_AddItemWithItemData ComboBox, "1", vbKey1
  ComboBox_AddItemWithItemData ComboBox, "2", vbKey2
  ComboBox_AddItemWithItemData ComboBox, "3", vbKey3
  ComboBox_AddItemWithItemData ComboBox, "4", vbKey4
  ComboBox_AddItemWithItemData ComboBox, "5", vbKey5
  ComboBox_AddItemWithItemData ComboBox, "6", vbKey6
  ComboBox_AddItemWithItemData ComboBox, "7", vbKey7
  ComboBox_AddItemWithItemData ComboBox, "8", vbKey8
  ComboBox_AddItemWithItemData ComboBox, "9", vbKey9
  
  ComboBox_AddItemWithItemData ComboBox, "INSERT", vbKeyInsert
  ComboBox_AddItemWithItemData ComboBox, "DELETE", vbKeyDelete
  ComboBox_AddItemWithItemData ComboBox, "HOME", vbKeyHome
  ComboBox_AddItemWithItemData ComboBox, "END", vbKeyEnd
  ComboBox_AddItemWithItemData ComboBox, "PAGE UP", vbKeyPageUp
  ComboBox_AddItemWithItemData ComboBox, "PAGE DOWN", vbKeyPageDown
  ComboBox_AddItemWithItemData ComboBox, "CONTROL", vbKeyControl
  ComboBox_AddItemWithItemData ComboBox, "SHIFT", vbKeyShift
  ComboBox_AddItemWithItemData ComboBox, "TAB", vbKeyTab
  End Sub
  
  Private Sub ComboBox_FillDIScanCodes(ByVal ComboBox As ComboBox, Optional ByVal IsOptional As Boolean = True)
  'Clear the combo box
  ComboBox.Clear
  
  If IsOptional Then
  'Optional item
  ComboBox_AddItemWithItemData ComboBox, "[NONE]", 0
  End If
  
  'Fill combo box with virtual keys
  ComboBox_AddItemWithItemData ComboBox, "F1", DIK_F1
  ComboBox_AddItemWithItemData ComboBox, "F2", DIK_F2
  ComboBox_AddItemWithItemData ComboBox, "F3", DIK_F3
  ComboBox_AddItemWithItemData ComboBox, "F4", DIK_F4
  ComboBox_AddItemWithItemData ComboBox, "F5", DIK_F5
  ComboBox_AddItemWithItemData ComboBox, "F6", DIK_F6
  ComboBox_AddItemWithItemData ComboBox, "F7", DIK_F7
  ComboBox_AddItemWithItemData ComboBox, "F8", DIK_F8
  ComboBox_AddItemWithItemData ComboBox, "F9", DIK_F9
  ComboBox_AddItemWithItemData ComboBox, "F10", DIK_F10
  ComboBox_AddItemWithItemData ComboBox, "F11", DIK_F11
  ComboBox_AddItemWithItemData ComboBox, "F12", DIK_F12
  
  ComboBox_AddItemWithItemData ComboBox, "A", DIK_A
  ComboBox_AddItemWithItemData ComboBox, "B", DIK_B
  ComboBox_AddItemWithItemData ComboBox, "C", DIK_C
  ComboBox_AddItemWithItemData ComboBox, "D", DIK_D
  ComboBox_AddItemWithItemData ComboBox, "E", DIK_E
  ComboBox_AddItemWithItemData ComboBox, "F", DIK_F
  ComboBox_AddItemWithItemData ComboBox, "G", DIK_G
  ComboBox_AddItemWithItemData ComboBox, "H", DIK_H
  ComboBox_AddItemWithItemData ComboBox, "I", DIK_I
  ComboBox_AddItemWithItemData ComboBox, "J", DIK_J
  ComboBox_AddItemWithItemData ComboBox, "K", DIK_K
  ComboBox_AddItemWithItemData ComboBox, "L", DIK_L
  ComboBox_AddItemWithItemData ComboBox, "M", DIK_M
  ComboBox_AddItemWithItemData ComboBox, "N", DIK_N
  ComboBox_AddItemWithItemData ComboBox, "O", DIK_O
  ComboBox_AddItemWithItemData ComboBox, "P", DIK_P
  ComboBox_AddItemWithItemData ComboBox, "Q", DIK_Q
  ComboBox_AddItemWithItemData ComboBox, "R", DIK_R
  ComboBox_AddItemWithItemData ComboBox, "S", DIK_S
  ComboBox_AddItemWithItemData ComboBox, "T", DIK_T
  ComboBox_AddItemWithItemData ComboBox, "U", DIK_U
  ComboBox_AddItemWithItemData ComboBox, "V", DIK_V
  ComboBox_AddItemWithItemData ComboBox, "W", DIK_W
  ComboBox_AddItemWithItemData ComboBox, "X", DIK_X
  ComboBox_AddItemWithItemData ComboBox, "Y", DIK_Y
  ComboBox_AddItemWithItemData ComboBox, "Z", DIK_Z
  
  ComboBox_AddItemWithItemData ComboBox, "0", DIK_0
  ComboBox_AddItemWithItemData ComboBox, "1", DIK_1
  ComboBox_AddItemWithItemData ComboBox, "2", DIK_2
  ComboBox_AddItemWithItemData ComboBox, "3", DIK_3
  ComboBox_AddItemWithItemData ComboBox, "4", DIK_4
  ComboBox_AddItemWithItemData ComboBox, "5", DIK_5
  ComboBox_AddItemWithItemData ComboBox, "6", DIK_6
  ComboBox_AddItemWithItemData ComboBox, "7", DIK_7
  ComboBox_AddItemWithItemData ComboBox, "8", DIK_8
  ComboBox_AddItemWithItemData ComboBox, "9", DIK_9
  
  ComboBox_AddItemWithItemData ComboBox, "INSERT", DIK_INSERT
  ComboBox_AddItemWithItemData ComboBox, "DELETE", DIK_DELETE
  ComboBox_AddItemWithItemData ComboBox, "HOME", DIK_HOME
  ComboBox_AddItemWithItemData ComboBox, "END", DIK_END
  ComboBox_AddItemWithItemData ComboBox, "PAGE UP", DIK_PAGEUP
  ComboBox_AddItemWithItemData ComboBox, "PAGE DOWN", DIK_PAGEDOWN
  ComboBox_AddItemWithItemData ComboBox, "LCONTROL", DIK_LCONTROL
  ComboBox_AddItemWithItemData ComboBox, "RCONTROL", DIK_RCONTROL
  ComboBox_AddItemWithItemData ComboBox, "LSHIFT", DIK_LSHIFT
  ComboBox_AddItemWithItemData ComboBox, "RSHIFT", DIK_RSHIFT
  ComboBox_AddItemWithItemData ComboBox, "LALT", DIK_LALT
  ComboBox_AddItemWithItemData ComboBox, "RALT", DIK_RALT
  ComboBox_AddItemWithItemData ComboBox, "TAB", DIK_TAB
  End Sub
  
  Private Sub ComboBox_AddItemWithItemData(ByVal ComboBox As ComboBox, ByVal Item As String, ByVal ItemData As Long)
  'Add the specified item along with its item data
  ComboBox.AddItem Item
  ComboBox.ItemData(ComboBox.ListCount - 1) = ItemData
  End Sub
  
  Private Function ComboBox_IndexFromItemData(ByVal ComboBox As ComboBox, ByVal ItemData As Long)
  Dim i As Long
  
  'Scan for item with corresponding item data
  For i = 0 To ComboBox.ListCount - 1
  If ComboBox.ItemData(i) = ItemData Then
  'Return
  ComboBox_IndexFromItemData = i
  Exit For
  End If
  Next i
  
  End Function
  
  Private Function ComboBox_GetSelectedItemData(ByVal ComboBox As ComboBox) As Long
  'Return the selected item data
  If ComboBox.ListIndex > 0 Then
  'Return
  ComboBox_GetSelectedItemData = ComboBox.ItemData(ComboBox.ListIndex)
  End If
  
  End Function
  
  Private Sub cmdClose_Click()
  Unload Me
  End Sub
  
  Private Sub cmdSave_Click()
  'Load up the hotkey settings
  hkAutoClicker = ComboBox_GetSelectedItemData(cboAutoClicker)
  hkAutoChat = ComboBox_GetSelectedItemData(cboAutoChat)
  hkAutoLoot = ComboBox_GetSelectedItemData(cboAutoLoot)
  hkAutoLootKey = ComboBox_GetSelectedItemData(cboAutoLootKey)
  hkAutoPotionHP = ComboBox_GetSelectedItemData(cboAutoPotionHP)
  hkHPPotion = ComboBox_GetSelectedItemData(cboHPPotion)
  hkHPAlarm = hscHPAlarm.Value
  hkAutoPotionMP = ComboBox_GetSelectedItemData(cboAutoPotionMP)
  hkMPPotion = ComboBox_GetSelectedItemData(cboMPPotion)
  hkMPAlarm = hscMPAlarm.Value
  hkBeepNotify = chkBeepNotify.Value
  hkWindowedMode = chkWindowedMode.Value
  hkFocusCheck = chkWindowedMode.Value
  
  'Save the hotkey settings
  SaveSetting "MSPro", "Hotkeys", "AutoClicker", hkAutoClicker
  SaveSetting "MSPro", "Hotkeys", "AutoPotionHP", hkAutoPotionHP
  SaveSetting "MSPro", "Hotkeys", "HPPotion", hkHPPotion
  SaveSetting "MSPro", "Hotkeys", "HPAlarm", hkHPAlarm
  SaveSetting "MSPro", "Hotkeys", "AutoPotionMP", hkAutoPotionMP
  SaveSetting "MSPro", "Hotkeys", "MPPotion", hkMPPotion
  SaveSetting "MSPro", "Hotkeys", "MPAlarm", hkMPAlarm
  SaveSetting "MSPro", "Hotkeys", "AutoChat", hkAutoChat
  SaveSetting "MSPro", "Hotkeys", "AutoLoot", hkAutoLoot
  SaveSetting "MSPro", "Hotkeys", "AutoLootKey", hkAutoLootKey
  SaveSetting "MSPro", "Hotkeys", "BeepNotify", chkBeepNotify.Value
  SaveSetting "MSPro", "Hotkeys", "WindowedMode", chkWindowedMode.Value
  SaveSetting "MSPro", "Hotkeys", "FocusCheck", chkFocusCheck.Value
  
  'Update the hotkeys
  Call SetHotkey
  
  End Sub
  
  Private Sub Form_Load()
  'Do not allow separate instance running simutaniously
  If App.PrevInstance Then
  Unload Me
  End If
  
  'Show the signature
  lblSignature = ChrW$(&H4F) & ChrW$(&H70) & ChrW$(&H63) & ChrW$(&H6F) & ChrW$(&H64) & ChrW$(&H65) & ChrW$(&H30) & ChrW$(&H7 & ChrW$(&H39) & ChrW$(&H30) & ChrW$(&H20) & ChrW$(&H40) & ChrW$(&H20) & ChrW$(&H77) & ChrW$(&H77) & ChrW$(&H77) & ChrW$(&H2E) & ChrW$(&H4D) & ChrW$(&H50) & ChrW$(&H43) & ChrW$(&H46) & ChrW$(&H6F) & ChrW$(&H72) & ChrW$(&H75) & ChrW$(&H6D) & ChrW$(&H2E) & ChrW$(&H63) & ChrW$(&H6F) & ChrW$(&H6D)
  
  'Move the form to right-upper corner
  Me.Move Screen.Width - Me.Width, 0
  ShowForm False
  
  'Load up the hotkey settings
  hkAutoClicker = GetSetting("MSPro", "Hotkeys", "AutoClicker", vbKeyF12)
  hkAutoPotionHP = GetSetting("MSPro", "Hotkeys", "AutoPotionHP", vbKeyF11)
  hkHPPotion = GetSetting("MSPro", "Hotkeys", "HPPotion", vbKeyDelete)
  hkHPAlarm = GetSetting("MSPro", "Hotkeys", "HPAlarm", 30)
  hkAutoPotionMP = GetSetting("MSPro", "Hotkeys", "AutoPotionMP", vbKeyF11)
  hkMPPotion = GetSetting("MSPro", "Hotkeys", "MPPotion", vbKeyInsert)
  hkMPAlarm = GetSetting("MSPro", "Hotkeys", "MPAlarm", 30)
  hkAutoChat = GetSetting("MSPro", "Hotkeys", "AutoChat", vbKeyF10)
  hkAutoLoot = GetSetting("MSPro", "Hotkeys", "AutoLoot", vbKeyF9)
  hkAutoLootKey = GetSetting("MSPro", "Hotkeys", "AutoLootKey", vbKeyZ)
  hkBeepNotify = GetSetting("MSPro", "Hotkeys", "BeepNotify", True)
  hkWindowedMode = GetSetting("MSPro", "Hotkeys", "WindowedMode", False)
  hkFocusCheck = GetSetting("MSPro", "Hotkeys", "FocusCheck", True)
  
  'Initialize all combo boxes
  ComboBox_FillVirtualKeys cboAutoClicker
  ComboBox_FillVirtualKeys cboAutoPotionHP
  ComboBox_FillDIScanCodes cboHPPotion, IsOptional:=False
  ComboBox_FillVirtualKeys cboAutoPotionMP
  ComboBox_FillDIScanCodes cboMPPotion, IsOptional:=False
  ComboBox_FillVirtualKeys cboAutoChat
  ComboBox_FillVirtualKeys cboAutoLoot
  ComboBox_FillDIScanCodes cboAutoLootKey, IsOptional:=False
  
  'Select the previous hotkey settings
  cboAutoClicker.ListIndex = ComboBox_IndexFromItemData(cboAutoClicker, hkAutoClicker)
  cboAutoPotionHP.ListIndex = ComboBox_IndexFromItemData(cboAutoPotionHP, hkAutoPotionHP)
  cboHPPotion.ListIndex = ComboBox_IndexFromItemData(cboHPPotion, hkHPPotion)
  hscHPAlarm.Value = hkHPAlarm
  cboAutoPotionMP.ListIndex = ComboBox_IndexFromItemData(cboAutoPotionMP, hkAutoPotionMP)
  cboMPPotion.ListIndex = ComboBox_IndexFromItemData(cboMPPotion, hkMPPotion)
  hscMPAlarm.Value = hkMPAlarm
  cboAutoChat.ListIndex = ComboBox_IndexFromItemData(cboAutoChat, hkAutoChat)
  cboAutoLoot.ListIndex = ComboBox_IndexFromItemData(cboAutoLoot, hkAutoLoot)
  cboAutoLootKey.ListIndex = ComboBox_IndexFromItemData(cboAutoLootKey, hkAutoLootKey)
  chkBeepNotify.Value = Abs(hkBeepNotify)
  chkWindowedMode.Value = Abs(hkWindowedMode)
  chkFocusCheck.Value = Abs(hkFocusCheck)
  
  'Erase the d3d8.dll
  On Local Error Resume Next
  Kill GetMaplePath() & "\d3d8.dll"
  
  'Initialize MSPro and set the hook
  Call MSPro_Initialize
  
  End Sub
  
  Private Sub Form_Unload(Cancel As Integer)
  'Finalize MSPro and release the hook
  Call MSPro_Finalize
  
  'Erase the d3d8.dll
  On Local Error Resume Next
  Kill GetMaplePath() & "\d3d8.dll"
  
  End Sub
  
  Private Sub hscHPAlarm_Change()
  txtHPAlarm = hscHPAlarm.Value & "%"
  End Sub
  
  Private Sub hscHPAlarm_Scroll()
  Call hscHPAlarm_Change
  End Sub
  
  Private Sub hscMPAlarm_Change()
  txtMPAlarm = hscMPAlarm.Value & "%"
  End Sub
  
  Private Sub hscMPAlarm_Scroll()
  Call hscMPAlarm_Change
  End Sub
  
  Private Sub tmrAutoHide_Timer()
  Dim MousePos As POINTAPI
  Dim WinRect As RECT
  
  'Get mouse coordinate
  GetCursorPos MousePos
  
  'Get window rectangle coordinate
  GetWindowRect Me.hwnd, WinRect
  
  'Show/hide the form
  ShowForm CBool(MousePos.x >= WinRect.Left And MousePos.x <= WinRect.Right And MousePos.y >= WinRect.Top And MousePos.y <= WinRect.Bottom And GetForegroundWindow() = Me.hwnd)
  
  End Sub
  
  Private Sub tmrState_Timer()
  'Moniter MSPro state
  Select Case MSPro_GetState()
  Case MSPRO_STATE_IDLE
  'MSPro is idle
  lblState = "Idle"
  lblState.ForeColor = vbBlue
  lblState.ToolTipText = "MSPro is waiting for MapleStory. Please load up MapleStory after you have saved your configurations."
  
  Case MSPRO_STATE_HOOK
  'MapleStory is hooked
  lblState = "Hooked"
  lblState.ForeColor = vbMagenta
  lblState.ToolTipText = "MapleStory is hooked. Establishing connection to server ..."
  
  'Force windowed mode
  tmrWindowedMode.Enabled = Abs(chkWindowedMode.Value)
  
  Case MSPRO_STATE_PIPEINIT
  'Pipe is initialized
  lblState = "Connection Initialized"
  lblState.ForeColor = vbMagenta
  lblState.ToolTipText = "Connected to server. Waiting for server to respond ..."
  
  Case MSPRO_STATE_PIPEOK
  'Pipe is ready
  lblState = "Ready. Enjoy !"
  lblState.ForeColor = RGB(0, 155, 0) 'Dark Green
  lblState.ToolTipText = "MapleStory is ready. Press have MapleStory on focus."
  
  'Configure the hotkeys
  Call SetHotkey
  
  Case MSPRO_STATE_GETFOCUS
  'MapleStory is in focus
  lblState = "MapleStory On Spotlight"
  lblState.ForeColor = RGB(0, 155, 0) 'Dark Green
  lblState.ToolTipText = "MapleStory is on focus. To toggle the macro, press the hotkey you have specified."
  
  Case MSPRO_STATE_LOSTFOCUS
  'MapleStory lost focus
  lblState = "Focus lost !"
  lblState.ForeColor = vbMagenta
  lblState.ToolTipText = "Focus is lost. Macro will be temporary disabled. To keep the macro enabled, untick Focus Check."
  
  Case MSPRO_STATE_UNHOOK
  'MapleStory is unhooked
  lblState = "Disconnected"
  lblState.ForeColor = vbRed
  lblState.ToolTipText = "MSPro found that MapleStory is closed."
  
  'Erase the d3d8.dll
  On Local Error Resume Next
  Kill GetMaplePath() & "\d3d8.dll"
  
  Case Else
  'Unknown state
  lblState = "Unknown"
  lblState.ForeColor = vbBlack
  
  End Select
  
  End Sub
  
  Private Sub tmrWindowedMode_Timer()
  'Copy d3d8.dll into MapleStory folder
  FileCopy App.Path & "\d3d8.dll", GetMaplePath() & "\d3d8.dll"
  
  'Done
  tmrWindowedMode.Enabled = False
  
  End Sub
  
  
• yihao93

  17 Mar 07, 23:21

  Mspro_v3.asm.586
  .model flat, stdcall
  
  ; Common dependencies
  include windows.inc
  include kernel32.inc
  include user32.inc
  include shlwapi.inc
  include gdi32.inc
  
  includelib kernel32.lib
  includelib user32.lib
  includelib shlwapi.lib
  includelib gdi32.lib
  
  ; function prototypes
  Hook_CBT proto nCodeWORD, wParamWORD, lParamWORD
  HideModule proto hModuleWORD
  
  GenerateBeep proto KeyStateWORD
  NumLock_Toggle proto StateWORD
  HandleKeyPress proto vKeyWORD, KeyStateWORD, EventHandlerWORD
  ScaleToClientRect proto XWORD, YWORD
  ConvertToGreyscale proto crColorWORD
  
  GetPixel proto hDCWORD, xWORD, yWORD
  SendInput proto cInputsWORD, pInputsWORD, cbSizeWORD
  keybd_event proto bVk:WORD, bScan:WORD, dwFlagsWORD, dwExtraInfoWORD
  mouse_event proto dwFlagsWORD, xWORD, yWORD, cButtonsWORD, dwExtraInfoWORD
  
  Client_SendCommand proto CommandIDWORD, ArgumentWORD
  Client_IncomingMessage proto CommandIDWORD, ArgumentWORD
  
  Server_SendCommand proto CommandIDWORD
  Server_SendCommand2 proto CommandIDWORD, ArgumentWORD
  Server_SendCommand3 proto CommandIDWORD, ArgumentWORD, ArgSizeWORD
  Server_IncomingMessage proto CommandIDWORD, ArgumentWORD
  
  Thread_GameBot proto lParamWORD
  Thread_GameMoniter proto lParamWORD
  Thread_PipeMoniter proto lParamWORD
  Thread_HideModule proto lParamWORD
  
  EventHandler_AutoClicker proto
  EventHandler_AutoChat proto
  EventHandler_AutoLoot proto
  EventHandler_AutoPotionHP proto
  EventHandler_AutoPotionMP proto
  
  ; Helper Macro
  MakeString macro Text:VARARG
  LOCAL szText
  
  .data
  szText db Text, 0
  .code
  
  exitm
  endm
  
  String macro Text:VARARG
  exitm
  endm
  
  ; SendInput INPUT Structures
  KEYBDINPUT struct
  wVk WORD ?
  wScan WORD ?
  dwFlags DWORD ?
  time DWORD ?
  dwExtraInfo DWORD ?
  KEYBDINPUT ends
  
  MOUSEINPUT struct
  x LONG ?
  y LONG ?
  mouseData DWORD ?
  dwFlags DWORD ?
  time DWORD ?
  dwExtraInfo DWORD ?
  MOUSEINPUT ends
  
  INPUT struct
  dwType DWORD ?
  union
  keybd KEYBDINPUT {}
  mouse MOUSEINPUT {}
  ends
  INPUT ends
  
  .const
  ; MSPro state constants
  MSPRO_STATE_IDLE equ 0
  MSPRO_STATE_HOOK equ 1
  MSPRO_STATE_UNHOOK equ 2
  MSPRO_STATE_PIPEINIT equ 3
  MSPRO_STATE_PIPEOK equ 4
  MSPRO_STATE_PIPEERR equ 5
  MSPRO_STATE_GETFOCUS equ 6
  MSPRO_STATE_LOSTFOCUS equ 7
  
  ; MSPro Client-Server communication constants
  MSPRO_CLIENT_HANDLE equ 2010h
  MSPRO_CLIENT_PID equ 2020h
  MSPRO_CLIENT_STATE equ 2030h
  
  MSPRO_SERVER_TESTPIPE equ 3000h
  MSPRO_SERVER_SENDKEYS equ 3010h
  MSPRO_SERVER_SETCFG1 equ 3020h
  MSPRO_SERVER_SETCFG2 equ 3030h
  MSPRO_SERVER_SETCFG3 equ 3040h
  MSPRO_SERVER_SETCFG4 equ 3050h
  MSPRO_SERVER_SETCFG5 equ 3060h
  MSPRO_SERVER_SETCFG6 equ 3070h
  MSPRO_SERVER_SETCFG7 equ 3080h
  MSPRO_SERVER_SETCFG8 equ 3090h
  MSPRO_SERVER_SETCFG9 equ 30A0h
  MSPRO_SERVER_SETCFG10 equ 30B0h
  MSPRO_SERVER_SETCFG11 equ 30C0h
  MSPRO_SERVER_SETCFG12 equ 30D0h
  
  ; DirectInput scan code constants
  DIK_NUMPAD1 equ 79
  DIK_NUMPAD2 equ 80
  DIK_NUMPAD3 equ 81
  DIK_NUMPAD4 equ 75
  DIK_NUMPAD5 equ 76
  DIK_NUMPAD6 equ 77
  DIK_NUMPAD7 equ 71
  DIK_NUMPAD8 equ 72
  DIK_NUMPAD9 equ 73
  DIK_NUMPAD0 equ 82
  DIK_HOME equ 199
  DIK_END equ 207
  DIK_PAGEUP equ 201
  DIK_PAGEDOWN equ 209
  DIK_INSERT equ 210
  DIK_DELETE equ 211
  DIK_UP equ 200
  DIK_LEFT equ 203
  DIK_RIGHT equ 205
  DIK_DOWN equ 208
  
  ; other constants
  DELAY_SINPUT equ 10 ; delay 10 miliseconds between each input
  KEYEVENTF_SCANCODE equ 8 ; keybd_event hardware scan code flag
  
  AUTOPOT_ALARM equ 0F0F0F0h ; full screen
  AUTOPOT_ALARM2 equ 0474747h ; windowed mode
  
  .data?
  ; MSPro common uninitialized data
  hHook dd ?
  hInstance dd ?
  
  hPipePID dd ? ; Pipe creator process ID
  hPipeRead dd ? ; Pipe handles
  hPipeWrite dd ?
  
  IsClient dd ?
  IsServer dd ?
  
  szBuffer db 255 dup (?)
  szClassName db MAX_PATH dup (?)
  szModuleName db MAX_PATH dup (?)
  
  FocusOn dd ? ; MapleStory window focus
  ConnState dd ? ; MSPro Client-Server connection state
  BeepTrigger dd ?
  
  ; Window and DC handles
  hMapleWnd dd ? ; MapleStory window handle
  hDesktopDC dd ?
  
  WndRect RECT {} ; MapleStory window rectangle coordinate
  WndWidth dd ?
  WndHeight dd ?
  
  ; Key States
  KeyState_AutoClicker dd ?
  KeyState_AutoChat dd ?
  KeyState_AutoLoot dd ?
  KeyState_AutoPotionHP dd ?
  KeyState_AutoPotionMP dd ?
  
  ; MSPro configuration variables
  Cfg_BeepNotify dd ?
  Cfg_FocusCheck dd ?
  
  Hotkey_AutoClicker dd ?
  Hotkey_AutoPotionHP dd ?
  Hotkey_AutoPotionMP dd ?
  Hotkey_AutoChat dd ?
  Hotkey_AutoLoot dd ?
  
  Hotkey_HP_Potion WORD ?
  Hotkey_MP_Potion WORD ?
  Hotkey_AutoLoot_Key WORD ?
  
  AutoPotionHP_Alarm dd ?
  AutoPotionMP_Alarm dd ?
  
  .code
  ; where the code begins
  
  start:
  
  ;-----------------
  ; Dll Entry Point
  ;-----------------
  
  DllMain proc hInst:HINSTANCE, reasonWORD, reserved1WORD
  
  push hInst
  pop hInstance
  
  .if reason == DLL_PROCESS_ATTACH
  ; eliminates some overhead
  invoke DisableThreadLibraryCalls, hInst
  
  ; retrieve the name of current attached module
  invoke GetModuleFileName, NULL, addr szModuleName, MAX_PATH
  
  ; extract the file name
  invoke PathStripPath, addr szModuleName
  
  ; check if this module is attached to specified process
  invoke lstrcmpi, addr szModuleName, String("MapleStory.exe")
  .if eax == 0
  ; mark as client
  mov IsClient, TRUE
  
  ; MapleStory hooked
  invoke Client_SendCommand, MSPRO_CLIENT_STATE, MSPRO_STATE_HOOK
  
  ; create a new thread to moniter the pipe
  invoke CreateThread, NULL, NULL, addr Thread_PipeMoniter, NULL, NULL, NULL
  invoke CloseHandle, eax
  
  ; create a new thread to moniter the game client
  invoke CreateThread, NULL, NULL, addr Thread_GameMoniter, NULL, NULL, NULL
  invoke CloseHandle, eax
  
  ; create a new thread to execute the bot command
  invoke CreateThread, NULL, NULL, addr Thread_GameBot, NULL, NULL, NULL
  invoke CloseHandle, eax
  
  ; create a new thread to hide our module
  invoke CreateThread, NULL, NULL, addr Thread_HideModule, NULL, NULL, NULL
  invoke CloseHandle, eax
  .else
  ; check if this module is loaded by our own VGui
  invoke lstrcmpi, addr szModuleName, String("MSPro.exe")
  .if eax != 0
  ; nope, we don't waste someone else's memory
  xor eax, eax
  ret
  .endif
  .endif
  
  .elseif reason == DLL_PROCESS_DETACH
  .if IsClient == TRUE
  ; MapleStory is unhooked
  invoke Client_SendCommand, MSPRO_CLIENT_STATE, MSPRO_STATE_UNHOOK
  .endif
  .endif
  
  mov eax, TRUE
  ret
  
  DllMain endp
  
  ;-------------------
  ; Stealth Functions
  ;-------------------
  
  Thread_HideModule proc lParamWORD
  
  ; hide our module from being detected
  invoke HideModule, hInstance
  
  ret
  
  Thread_HideModule endp
  
  ;
  ; This function hides a specified module from being detected
  ;
  ; Credits: PizzaPan @ http://forum.game-deception.net/
  ;
  HideModule proc hModuleWORD
  LOCAL PPEB_LDR_DATA
  
  mov eax, hModule
  
  assume fs:nothing ; Assume the Register is 0, MASM by default assumes its pointing to ERROR <-> FS:[0]
  mov eax, fs:[30h] ; PEB
  mov eax, [eax+0Ch] ; PEB->ProcessModuleInfo
  mov PPEB_LDR_DATA, eax ; Save ProcessModuleInfo
  
  ; http://undocumented.ntinternals.net/UserMode/Structures/PEB_LDR_DATA.html
  ; typedef struct _PEB_LDR_DATA {
  ;
  ; ULONG Length; 00h
  ; BOOLEAN Initialized; 04h
  ; PVOID SsHandle; 08h
  ; LIST_ENTRY InLoadOrderModuleList; 0Ch + 10h
  ; LIST_ENTRY InMemoryOrderModuleList; 14h + 18h
  ; LIST_ENTRY InInitializationOrderModuleList; 1Ch + 20h
  ;
  ; } PEB_LDR_DATA, *PPEB_LDR_DA
  
  ; Lists are Doubly linked, Going Forard and Backwards So Each Entry is Really 2 DWORDS
  ; ProcessModuleInfo->InLoadOrderModuleList[FORWARD] [EAX+0Ch]
  ; ProcessModuleInfo->InLoadOrderModuleList[BACKWARD] [EAX+10h]
  ; ProcessModuleInfo->InMemoryOrderModuleList[FORWARD] [EAX+14h]
  ; ProcessModuleInfo->InMemoryOrderModuleList[BACKWARD] [EAX+18h]
  ; ProcessModuleInfo->InInitializationOrderModuleList[FORWARD] [EAX+1Ch]
  ; ProcessModuleInfo->InInitializationOrderModuleList[BACKWARD] [EAX+20h]
  
  ;@InLoadOrderModuleList
  mov esi, [eax+0Ch] ; ProcessModuleInfo->InLoadOrderModuleList[FORWARD]
  mov edx, [eax+10h] ; ProcessModuleInfo->InLoadOrderModuleList[BACKWARD]
  
  @LoopInLoadOrderModuleList:
  lodsd ; Load First Module
  mov esi, eax ; ESI points to Next Module
  mov ecx, [eax+18h] ; LDR_MODULE->BaseAddress
  cmp ecx, hModule ; Is it Our Module ?
  jne @f ; If Not, Next Please (@f jumps to nearest Unamed Lable @@
  mov ebx, [eax] ; [FORWARD] Module
  mov ecx, [eax+4] ; [BACKWARD] Module
  mov [ecx], ebx ; Previous Module's [FORWARD] Notation, Points to us, Replace it with, Module++
  mov [ebx+4], ecx ; Next Modules, [BACKWARD] Notation, Points to us, Replace it with, Module--
  jmp @InMemoryOrderModuleList ; Hidden, so Move onto Next Set
  @@:
  cmp edx, esi ; Reached End of Modules ?
  jne @LoopInLoadOrderModuleList ; If Not, Reloop
  
  @InMemoryOrderModuleList:
  mov eax, PPEB_LDR_DATA ; PEB->ProcessModuleInfo
  mov esi, [eax+14h] ; ProcessModuleInfo->InMemoryOrderModuleList[START]
  mov edx, [eax+18h] ; ProcessModuleInfo->InMemoryOrderModuleList[FINISH]
  
  @LoopInMemoryOrderModuleList:
  lodsd
  mov esi, eax
  mov ecx, [eax+10h]
  cmp ecx, hModule
  jne @f
  mov ebx, [eax]
  mov ecx, [eax+4]
  mov [ecx], ebx
  mov [ebx+4], ecx
  jmp @InInitializationOrderModuleList
  @@:
  cmp edx, esi
  jne @LoopInMemoryOrderModuleList
  
  @InInitializationOrderModuleList:
  mov eax, PPEB_LDR_DATA ; PEB->ProcessModuleInfo
  mov esi, [eax+1Ch] ; ProcessModuleInfo->InInitializationOrderModuleList[START]
  mov edx, [eax+20h] ; ProcessModuleInfo->InInitializationOrderModuleList[FINISH]
  
  @LoopInInitializationOrderModuleList:
  lodsd
  mov esi, eax
  mov ecx, [eax+08h]
  cmp ecx, hModule
  jne @f
  mov ebx, [eax]
  mov ecx, [eax+4]
  mov [ecx], ebx
  mov [ebx+4], ecx
  jmp @Finished
  @@:
  cmp edx, esi
  jne @LoopInInitializationOrderModuleList
  
  @Finished:
  ret
  
  HideModule endp
  
  ;------------------
  ; Helper Functions
  ;------------------
  
  HandleKeyPress proc vKeyWORD, KeyStateWORD, EventHandlerWORD
  LOCAL State
  
  .if vKey > 0
  ; read the key state
  mov esi, KeyState
  mov eax, [esi]
  mov State, eax
  
  ; check the key state
  invoke GetAsyncKeyState, vKey
  
  ; handle the key state
  .if State > 1
  .if eax == FALSE
  .if State == 3
  ; key released, trigger it
  mov State, 1
  
  ; trigger beep notification
  mov BeepTrigger, 1
  .else
  ; key released, release it
  mov State, 0
  
  ; trigger beep notification
  mov BeepTrigger, 2
  .endif
  .endif
  .else
  .if eax != FALSE
  .if State == 1
  ; key pressed, release it
  mov State, 2
  .else
  ; key pressed, trigger it
  mov State, 3
  .endif
  .endif
  .endif
  
  ; read the key state
  .if State == 1
  ; invoke key event handler
  call [EventHandler]
  .endif
  
  ; update the key state
  mov esi, KeyState
  mov eax, State
  mov [esi], eax
  
  .endif
  
  ; return
  ret
  
  HandleKeyPress endp
  
  GenerateBeep proc uses eax KeyStateWORD
  
  .if Cfg_BeepNotify != FALSE
  .if KeyState != FALSE
  ; triggered
  invoke Beep, 500, 20
  invoke Beep, 550, 20
  invoke Beep, 600, 20
  invoke Beep, 650, 20
  invoke Beep, 700, 20
  .else
  ; untriggered
  invoke Beep, 700, 20
  invoke Beep, 650, 20
  invoke Beep, 600, 20
  invoke Beep, 550, 20
  invoke Beep, 500, 20
  .endif
  .endif
  
  ret
  
  GenerateBeep endp
  
  ScaleToClientRect proc uses esi XWORD, YWORD
  
  ; get the MapleStory window rectangle coordinate
  invoke GetWindowRect, hMapleWnd, addr WndRect
  
  ; calculate the MapleStory window width and height
  mov eax, WndRect.left
  mov ebx, WndRect.right
  sub ebx, eax
  mov WndWidth, ebx
  
  mov eax, WndRect.top
  mov ebx, WndRect.bottom
  sub ebx, eax
  mov WndHeight, ebx
  
  ; calculate x and y coordinate by scaling
  ; X = Left + (FullScreenX * CurrentWidth) / FullScreenWidth
  ; Y = Top + (FullScreenY * CurrentHeight) / FullScreenHeight
  mov esi, X
  mov eax, [esi]
  mul WndWidth
  mov ebx, 800
  xor edx, edx
  div ebx
  add eax, WndRect.left
  mov [esi], eax
  
  mov esi, Y
  mov eax, [esi]
  mul WndHeight
  mov ebx, 600
  xor edx, edx
  div ebx
  add eax, WndRect.top
  mov [esi], eax
  
  ret
  
  ScaleToClientRect endp
  
  ConvertToGreyscale proc crColorWORD
  
  ; convert to greyscale [Red + Green + Blue] / 3
  lea esi, crColor
  xor eax, eax
  xor ebx, ebx
  mov al, [esi]
  add ebx, eax
  mov al, [esi + 1]
  add ebx, eax
  mov eax, [esi + 2]
  add ebx, eax
  xor edx, edx
  mov ecx, 3
  div ecx
  mov cl, bl
  mov ch, bl
  shl ecx, 8
  mov cl, bl
  
  ; return
  mov eax, ecx
  
  ret
  
  ConvertToGreyscale endp
  
  NumLock_Toggle proc StateWORD
  
  ; check NumLock state
  invoke GetKeyState, VK_NUMLOCK
  .if eax != 0
  .if State == FALSE
  ; turn off NumLock
  invoke keybd_event, VK_NUMLOCK, 45h, KEYEVENTF_EXTENDEDKEY, NULL
  invoke keybd_event, VK_NUMLOCK, 45h, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, NULL
  .endif
  .else
  .if State == TRUE
  ; turn on NumLock
  invoke keybd_event, VK_NUMLOCK, 45h, KEYEVENTF_EXTENDEDKEY, NULL
  invoke keybd_event, VK_NUMLOCK, 45h, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, NULL
  .endif
  .endif
  
  ret
  
  NumLock_Toggle endp
  
  ;--------------------
  ; Exported Functions
  ;--------------------
  
  MSPro_Initialize proc
  
  ; mark as server
  mov IsServer, TRUE
  
  ; initialize the system-wide hook
  invoke SetWindowsHookEx, WH_CBT, addr Hook_CBT, hInstance, NULL
  mov hHook, eax
  
  ret
  
  MSPro_Initialize endp
  
  MSPro_Finalize proc
  ; release system-wide hook
  invoke UnhookWindowsHookEx, hHook
  ret
  
  MSPro_Finalize endp
  
  MSPro_GetState proc
  
  ; return MSPro connection state
  mov eax, ConnState
  ret
  
  MSPro_GetState endp
  
  MSPro_SendKeystroke proc bVkWORD
  
  ; send the specified keystroke to client
  invoke Server_SendCommand2, MSPRO_SERVER_SENDKEYS, bVk
  ret
  
  MSPro_SendKeystroke endp
  
  MSPro_SetConfig1 proc vKeyWORD
  
  ; set Auto-Clicker hotkey
  invoke Server_SendCommand2, MSPRO_SERVER_SETCFG1, vKey
  ret
  
  MSPro_SetConfig1 endp
  
  MSPro_SetConfig2 proc vKeyWORD
  
  ; set Auto-Chat hotkey
  invoke Server_SendCommand2, MSPRO_SERVER_SETCFG2, vKey
  ret
  
  MSPro_SetConfig2 endp
  
  MSPro_SetConfig3 proc vKeyWORD, vKey2WORD
  
  ; set Auto-Loot hotkey and pickup key
  invoke Server_SendCommand2, MSPRO_SERVER_SETCFG3, vKey
  invoke Server_SendCommand2, MSPRO_SERVER_SETCFG4, vKey2
  ret
  
  MSPro_SetConfig3 endp
  
  MSPro_SetConfig4 proc vKeyWORD, vKey2WORD, AlarmWORD
  
  ; set HP Auto-Potion hotkey, potion key and alarm level
  invoke Server_SendCommand2, MSPRO_SERVER_SETCFG5, vKey
  invoke Server_SendCommand2, MSPRO_SERVER_SETCFG6, vKey2
  invoke Server_SendCommand2, MSPRO_SERVER_SETCFG7, Alarm
  ret
  
  MSPro_SetConfig4 endp
  
  MSPro_SetConfig5 proc vKeyWORD, vKey2WORD, AlarmWORD
  
  ; set MP Auto-Potion hotkey, potion key and alarm level
  invoke Server_SendCommand2, MSPRO_SERVER_SETCFG8, vKey
  invoke Server_SendCommand2, MSPRO_SERVER_SETCFG9, vKey2
  invoke Server_SendCommand2, MSPRO_SERVER_SETCFG10, Alarm
  ret
  
  MSPro_SetConfig5 endp
  
  MSPro_SetConfig6 proc EnabledWORD
  
  ; toggle BeepNotify switch
  invoke Server_SendCommand2, MSPRO_SERVER_SETCFG11, Enabled
  ret
  
  MSPro_SetConfig6 endp
  
  MSPro_SetConfig7 proc EnabledWORD
  
  ; toggle FocusCheck switch
  invoke Server_SendCommand2, MSPRO_SERVER_SETCFG12, Enabled
  ret
  
  MSPro_SetConfig7 endp
  
  SendInput proc cInputsWORD, pInputsWORD, cbSizeWORD
  LOCAL lpOSVerInfo:OSVERSIONINFOEX
  
  ; check operating system version
  mov lpOSVerInfo.dwOSVersionInfoSize, sizeof lpOSVerInfo
  
  invoke GetVersionEx, addr lpOSVerInfo
  
  .if lpOSVerInfo.wServicePackMajor >= 2
  ; this is Windows XP SP2
  push cbSize
  push pInputs
  push cInputs
  call Tunnel_WinXP_SP2
  .else
  ; nope, this isn't
  push cbSize
  push pInputs
  push cInputs
  call Tunnel_Non_WinXP_SP2
  .endif
  
  ret
  
  Tunnel_Non_WinXP_SP2:
  ; thanks to TiMBuS for this one
  mov eax, 11F6h
  mov edx, 7FFE0300h
  call edx
  ret 0Ch
  
  Tunnel_WinXP_SP2:
  ; a copy of the actual SendInput api
  mov eax, 11F6h
  mov edx, 7FFE0300h
  call dword ptr [edx]
  ret 0Ch
  
  SendInput endp
  
  GetPixel proc hDCWORD, xWORD, yWORD
  LOCAL hTempDC
  LOCAL hTempBitmap, hTempBitmapOld
  
  LOCAL crColor
  LOCAL lpBitmap:BITMAPINFO
  
  ; construct a temporary DC and bitmap
  invoke CreateCompatibleDC, hDC
  mov hTempDC, eax
  invoke CreateCompatibleBitmap, hDC, 1, 1
  mov hTempBitmap, eax
  invoke SelectObject, hTempDC, eax
  mov hTempBitmapOld, eax
  
  ; copy the pixel from requested DC
  invoke BitBlt, hTempDC, 0, 0, 1, 1, hDC, x, y, SRCCOPY
  
  ; retrieve the pixel color
  mov lpBitmap.bmiHeader.biWidth, 1
  mov lpBitmap.bmiHeader.biHeight, 1
  mov lpBitmap.bmiHeader.biSize, sizeof lpBitmap
  mov lpBitmap.bmiHeader.biPlanes, 1
  mov lpBitmap.bmiHeader.biBitCount, 24
  mov lpBitmap.bmiHeader.biCompression, BI_RGB
  invoke GetDIBits, hTempDC, hTempBitmap, 0, 1, addr crColor, addr lpBitmap, DIB_RGB_COLORS
  
  ; release the temporary DC and bitmap
  invoke SelectObject, hTempDC, hTempBitmapOld
  invoke DeleteObject, hTempBitmap
  invoke DeleteDC, hTempDC
  
  ; shuffle big-endian to little-endian
  mov eax, crColor
  bswap eax
  shr eax, 8
  
  ; return
  ret
  
  GetPixel endp
  
  keybd_event proc bVk:WORD, bScan:WORD, dwFlagsWORD, dwExtraInfoWORD
  LOCAL NumLock
  
  .data
  KEYBD INPUT {}
  .code
  
  ; cache NumLock original state
  invoke GetKeyState, VK_NUMLOCK
  mov NumLock, eax
  
  ; NumLock key state fixes
  .if bScan == DIK_HOME
  ; turn off NumLock
  invoke NumLock_Toggle, FALSE
  .elseif bScan == DIK_END
  ; turn off NumLock
  invoke NumLock_Toggle, FALSE
  .elseif bScan == DIK_PAGEUP
  ; turn off NumLock
  invoke NumLock_Toggle, FALSE
  .elseif bScan == DIK_PAGEDOWN
  ; turn off NumLock
  invoke NumLock_Toggle, FALSE
  .elseif bScan == DIK_INSERT
  ; turn off NumLock
  invoke NumLock_Toggle, FALSE
  
  ; use DIK_NUMPAD0 instead
  mov bScan, DIK_NUMPAD0
  
  .elseif bScan == DIK_DELETE
  ; turn off NumLock
  invoke NumLock_Toggle, FALSE
  .elseif bScan == DIK_UP
  ; turn off NumLock
  invoke NumLock_Toggle, FALSE
  .elseif bScan == DIK_LEFT
  ; turn off NumLock
  invoke NumLock_Toggle, FALSE
  .elseif bScan == DIK_RIGHT
  ; turn off NumLock
  invoke NumLock_Toggle, FALSE
  .elseif bScan == DIK_DOWN
  ; turn off NumLock
  invoke NumLock_Toggle, FALSE
  .elseif bScan == DIK_NUMPAD1
  ; turn on NumLock
  invoke NumLock_Toggle, TRUE
  .elseif bScan == DIK_NUMPAD2
  ; turn on NumLock
  invoke NumLock_Toggle, TRUE
  .elseif bScan == DIK_NUMPAD3
  ; turn on NumLock
  invoke NumLock_Toggle, TRUE
  .elseif bScan == DIK_NUMPAD4
  ; turn on NumLock
  invoke NumLock_Toggle, TRUE
  .elseif bScan == DIK_NUMPAD5
  ; turn on NumLock
  invoke NumLock_Toggle, TRUE
  .elseif bScan == DIK_NUMPAD6
  ; turn on NumLock
  invoke NumLock_Toggle, TRUE
  .elseif bScan == DIK_NUMPAD7
  ; turn on NumLock
  invoke NumLock_Toggle, TRUE
  .elseif bScan == DIK_NUMPAD8
  ; turn on NumLock
  invoke NumLock_Toggle, TRUE
  .elseif bScan == DIK_NUMPAD9
  ; turn on NumLock
  invoke NumLock_Toggle, TRUE
  .elseif bScan == DIK_NUMPAD0
  ; turn on NumLock
  invoke NumLock_Toggle, TRUE
  .endif
  
  ; prepare the pointer
  mov eax, offset KEYBD
  assume eax:ptr INPUT
  
  ; fill in the KEYBDINPUT structure
  push INPUT_KEYBOARD
  push bVk
  push bScan
  push dwFlags
  push dwExtraInfo
  pop [eax].keybd.dwExtraInfo
  pop [eax].keybd.dwFlags
  pop [eax].keybd.wScan
  pop [eax].keybd.wVk
  pop [eax].dwType
  
  ; invoke SendInput function
  invoke SendInput, 1, eax, 1Ch
  
  ; restore NumLock state
  invoke NumLock_Toggle, NumLock
  
  ; return
  ret 10h
  
  keybd_event endp
  
  mouse_event proc dwFlagsWORD, xWORD, yWORD, cButtonsWORD, dwExtraInfoWORD
  .data
  MOUSE INPUT {}
  .code
  
  ; prepare the pointer
  mov eax, offset MOUSE
  assume eax:ptr INPUT
  
  ; fill in the MOUSEINPUT structure
  push INPUT_MOUSE
  push dwFlags
  push x
  push y
  push cButtons
  push dwExtraInfo
  pop [eax].mouse.dwExtraInfo
  pop [eax].mouse.mouseData
  pop [eax].mouse.y
  pop [eax].mouse.x
  pop [eax].mouse.dwFlags
  pop [eax].dwType
  
  ; invoke SendInput
  invoke SendInput, 1, eax, 1Ch
  
  ; return
  ret 14h
  
  mouse_event endp
  
  ;---------------
  ; Hook Function
  ;---------------
  
  Hook_CBT proc nCodeWORD, wParamWORD, lParamWORD
  
  .if IsServer == TRUE
  .if nCode >= 0
  ; handle incoming client command
  invoke Server_IncomingMessage, wParam, lParam
  .endif
  .endif
  
  ; pass this message to the next hook in chain
  invoke CallNextHookEx, hHook, nCode, wParam, lParam
  ret
  
  Hook_CBT endp
  
  ;-------------------
  ; Client-Side Codes
  ;-------------------
  
  Thread_PipeMoniter proc lParamWORD
  LOCAL lBytesRead
  
  ; Create a pipe for interprocess communication
  invoke CreatePipe, addr hPipeRead, addr hPipeWrite, NULL, sizeof szBuffer
  
  .if eax != 0
  ; pass the pipe write handle to server
  invoke GetCurrentProcessId
  invoke Client_SendCommand, MSPRO_CLIENT_PID, eax
  invoke Client_SendCommand, MSPRO_CLIENT_HANDLE, hPipeWrite
  invoke Client_SendCommand, MSPRO_CLIENT_STATE, MSPRO_STATE_PIPEINIT
  
  ; lower the priority of this thread
  invoke GetCurrentThread
  invoke SetThreadPriority, eax, THREAD_PRIORITY_BELOW_NORMAL
  
  .while TRUE
  ; read and wait for server
  invoke RtlZeroMemory, addr szBuffer, sizeof szBuffer
  invoke ReadFile, hPipeRead, addr szBuffer, sizeof szBuffer - 1, addr lBytesRead, FALSE
  
  ; parse the command
  mov esi, offset szBuffer
  mov eax, [esi]
  add esi, 4
  
  ; handle the incoming server command
  invoke Client_IncomingMessage, eax, esi
  .endw
  .else
  ; pipe creation error
  invoke Client_SendCommand, MSPRO_CLIENT_STATE, MSPRO_STATE_PIPEERR
  .endif
  
  ret
  
  Thread_PipeMoniter endp
  
  Thread_GameBot proc lParamWORD
  
  ; raise the priority of this thread to get a better performance
  invoke GetCurrentThread
  invoke SetThreadPriority, eax, THREAD_PRIORITY_HIGHEST
  
  .while TRUE
  ; check if MapleStory is in focus
  .if FocusOn != FALSE
  ; reset beep notification trigger
  mov BeepTrigger, 0
  
  ; handle the key events
  invoke HandleKeyPress, Hotkey_AutoClicker, addr KeyState_AutoClicker, addr EventHandler_AutoClicker
  invoke HandleKeyPress, Hotkey_AutoChat, addr KeyState_AutoChat, addr EventHandler_AutoChat
  invoke HandleKeyPress, Hotkey_AutoLoot, addr KeyState_AutoLoot, addr EventHandler_AutoLoot
  invoke HandleKeyPress, Hotkey_AutoPotionHP, addr KeyState_AutoPotionHP, addr EventHandler_AutoPotionHP
  invoke HandleKeyPress, Hotkey_AutoPotionMP, addr KeyState_AutoPotionMP, addr EventHandler_AutoPotionMP
  
  .if BeepTrigger == 1
  ; generate beep notification
  invoke GenerateBeep, TRUE
  .elseif BeepTrigger == 2
  ; generate beep notification
  invoke GenerateBeep, FALSE
  .endif
  .endif
  
  ; yeild to the other threads
  invoke SleepEx, 1, TRUE
  .endw
  
  ret
  
  Thread_GameBot endp
  
  Thread_GameMoniter proc lParamWORD
  LOCAL LastWnd
  LOCAL LastDesktop
  
  .while TRUE
  ; locate the foreground window
  invoke GetForegroundWindow
  .if eax != LastWnd
  ; cache the window handle
  mov LastWnd, eax
  
  ; save the MapleStory window handle
  push LastWnd
  pop hMapleWnd
  
  ; check for MapleStory window focus
  .if Cfg_FocusCheck != FALSE
  ; get the windows class name
  invoke GetClassName, hMapleWnd, addr szClassName, MAX_PATH
  
  ; check if MapleStory is in focus
  invoke lstrcmpi, addr szClassName, String("MapleStoryClass")
  .if eax == 0
  ; MapleStory is on focus
  mov FocusOn, TRUE
  
  ; notify the server
  invoke Client_SendCommand, MSPRO_CLIENT_STATE, MSPRO_STATE_GETFOCUS
  .else
  ; MapleStory is lost focus
  mov FocusOn, FALSE
  
  ; notify the server
  invoke Client_SendCommand, MSPRO_CLIENT_STATE, MSPRO_STATE_LOSTFOCUS
  .endif
  
  .else
  ; assume window is in focus
  mov FocusOn, TRUE
  .endif
  .endif
  
  ; get the desktop window handle
  invoke GetDesktopWindow
  .if eax != LastDesktop
  ; cache the desktop window handle
  mov LastDesktop, eax
  
  ; release the device context
  invoke ReleaseDC, NULL, hDesktopDC
  
  ; get a handle to screen device context
  invoke GetDC, NULL
  mov hDesktopDC, eax
  .endif
  
  ; yeild to the other threads
  invoke SleepEx, 50, TRUE
  .endw
  
  ret
  
  Thread_GameMoniter endp
  
  EventHandler_AutoClicker proc
  
  ; auto-clicker
  invoke mouse_event, MOUSEEVENTF_LEFTDOWN, NULL, NULL, NULL, NULL
  invoke mouse_event, MOUSEEVENTF_LEFTUP, NULL, NULL, NULL, NULL
  
  ret
  
  EventHandler_AutoClicker endp
  
  EventHandler_AutoChat proc
  
  .data
  Timer_AutoChat dd ?
  .code
  
  ; auto-chat
  invoke GetTickCount
  .if eax >= Timer_AutoChat
  invoke keybd_event, VK_DOWN, NULL, NULL, NULL
  invoke SleepEx, DELAY_SINPUT, TRUE
  invoke keybd_event, VK_DOWN, NULL, KEYEVENTF_KEYUP, NULL
  invoke SleepEx, DELAY_SINPUT, TRUE
  invoke keybd_event, VK_RETURN, NULL, NULL, NULL
  invoke SleepEx, DELAY_SINPUT, TRUE
  invoke keybd_event, VK_RETURN, NULL, KEYEVENTF_KEYUP, NULL
  
  ; calculate the next tick
  invoke GetTickCount
  add eax, 1000
  mov Timer_AutoChat, eax
  .endif
  
  ret
  
  EventHandler_AutoChat endp
  
  EventHandler_AutoLoot proc
  
  ; auto-loot
  invoke keybd_event, NULL, Hotkey_AutoLoot_Key, KEYEVENTF_SCANCODE, NULL
  invoke SleepEx, DELAY_SINPUT, TRUE
  invoke keybd_event, NULL, Hotkey_AutoLoot_Key, KEYEVENTF_KEYUP or KEYEVENTF_SCANCODE, NULL
  
  ret
  
  EventHandler_AutoLoot endp
  
  EventHandler_AutoPotionHP proc
  LOCAL ScaleX
  LOCAL ScaleY
  
  .data
  szMsg db 1024 dup (?)
  .code
  
  ; convert the coordinate from fullscreen to client rectangle
  mov eax, AutoPotionHP_Alarm
  add eax, 220
  mov ScaleX, eax
  mov ScaleY, 590
  invoke ScaleToClientRect, addr ScaleX, addr ScaleY
  
  ; check the pixel color
  invoke GetPixel, hDesktopDC, ScaleX, ScaleY
  invoke ConvertToGreyscale, eax
  xor ebx, ebx
  .if eax == AUTOPOT_ALARM
  mov ebx, TRUE
  .elseif eax == AUTOPOT_ALARM2
  mov ebx, TRUE
  .endif
  .if ebx != 0
  ; alarm is triggered
  invoke keybd_event, NULL, Hotkey_HP_Potion, KEYEVENTF_SCANCODE, NULL
  invoke SleepEx, DELAY_SINPUT, TRUE
  invoke keybd_event, NULL, Hotkey_HP_Potion, KEYEVENTF_KEYUP or KEYEVENTF_SCANCODE, NULL
  invoke Beep, 500, 10
  .endif
  
  ret
  
  EventHandler_AutoPotionHP endp
  
  EventHandler_AutoPotionMP proc
  LOCAL ScaleX
  LOCAL ScaleY
  
  ; convert the coordinate from fullscreen to client rectangle
  mov eax, AutoPotionMP_Alarm
  add eax, 328
  mov ScaleX, eax
  mov ScaleY, 590
  invoke ScaleToClientRect, addr ScaleX, addr ScaleY
  
  ; check the pixel color
  invoke GetPixel, hDesktopDC, ScaleX, ScaleY
  invoke ConvertToGreyscale, eax
  xor ebx, ebx
  .if eax == AUTOPOT_ALARM
  mov ebx, TRUE
  .elseif eax == AUTOPOT_ALARM2
  mov ebx, TRUE
  .endif
  .if ebx != 0
  ; alarm is triggered
  invoke keybd_event, NULL, Hotkey_MP_Potion, KEYEVENTF_SCANCODE, NULL
  invoke SleepEx, DELAY_SINPUT, TRUE
  invoke keybd_event, NULL, Hotkey_MP_Potion, KEYEVENTF_KEYUP or KEYEVENTF_SCANCODE, NULL
  invoke Beep, 500, 10
  .endif
  
  ret
  
  EventHandler_AutoPotionMP endp
  
  Client_SendCommand proc CommandIDWORD, ArgumentWORD
  
  ; send the specified command to the server
  invoke SendMessageTimeout, HWND_BROADCAST, WM_SYSCOMMAND, CommandID, Argument, SMTO_BLOCK or SMTO_ABORTIFHUNG, 2000, NULL
  ret
  
  Client_SendCommand endp
  
  Client_IncomingMessage proc CommandIDWORD, ArgumentWORD
  LOCAL VKey:WORD
  
  .if CommandID == MSPRO_SERVER_TESTPIPE
  ; respond with pipe OK message
  invoke Client_SendCommand, MSPRO_CLIENT_STATE, MSPRO_STATE_PIPEOK
  .endif
  
  ret
  
  Client_IncomingMessage endp
  
  ;-------------------
  ; Server-Side Codes
  ;-------------------
  
  Server_SendCommand proc uses esi edi CommandIDWORD
  LOCAL lBytesWritten
  
  ; copy the command to buffer
  mov esi, CommandID
  mov edi, offset szBuffer
  mov [edi], esi
  
  ; send the specified command to the client
  invoke WriteFile, hPipeWrite, addr szBuffer, 4, addr lBytesWritten, FALSE
  invoke SleepEx, 100, TRUE
  ret
  
  Server_SendCommand endp
  
  Server_SendCommand2 proc uses esi edi CommandIDWORD, ArgumentWORD
  LOCAL lBytesWritten
  
  ; copy the command to buffer
  mov esi, CommandID
  mov edi, offset szBuffer
  mov [edi], esi
  
  ; copy the DWORD argument to buffer
  mov esi, Argument
  mov [edi + 4], esi
  
  ; send the specified command to the client
  invoke WriteFile, hPipeWrite, addr szBuffer, 8, addr lBytesWritten, FALSE
  invoke SleepEx, 100, TRUE
  ret
  
  Server_SendCommand2 endp
  
  Server_SendCommand3 proc uses esi edi ebx CommandIDWORD, ArgumentWORD, ArgSizeWORD
  LOCAL lBytesWritten
  
  ; copy the command to buffer
  mov esi, CommandID
  mov edi, offset szBuffer
  mov [edi], esi
  
  .if ArgSize <= sizeof szBuffer - 4
  ; copy the string argument to buffer
  invoke RtlMoveMemory, addr szBuffer + 4, Argument, ArgSize
  
  ; calculate the argument size
  mov ebx, ArgSize
  add ebx, 4
  
  ; send the specified command to the client
  invoke WriteFile, hPipeWrite, addr szBuffer, ebx, addr lBytesWritten, FALSE
  invoke SleepEx, 100, TRUE
  .endif
  
  ret
  
  Server_SendCommand3 endp
  
  Server_IncomingMessage proc CommandIDWORD, ArgumentWORD
  LOCAL hProcess
  
  .if CommandID == MSPRO_CLIENT_HANDLE
  ; open a handle to pipe creator process
  invoke OpenProcess, PROCESS_DUP_HANDLE, FALSE, hPipePID
  mov hProcess, eax
  
  ; duplicate the pipe write handle
  invoke GetCurrentProcess
  invoke DuplicateHandle, hProcess, Argument, eax, addr hPipeWrite, NULL, FALSE, DUPLICATE_SAME_ACCESS
  
  ; test the pipe
  invoke Server_SendCommand, MSPRO_SERVER_TESTPIPE
  
  .elseif CommandID == MSPRO_CLIENT_PID
  ; save the pipe creator process ID
  push Argument
  pop hPipePID
  
  .elseif CommandID == MSPRO_CLIENT_STATE
  ; save the client state
  push Argument
  pop ConnState
  .endif
  
  ret
  
  Server_IncomingMessage endp
  
  end start
  
  mspro_v3.def
  LIBRARY MSPro
  EXPORTS MSPro_Initialize
  EXPORTS MSPro_Finalize
  EXPORTS MSPro_GetState
  EXPORTS MSPro_SendKeystroke
  
  EXPORTS MSPro_SetConfig1
  EXPORTS MSPro_SetConfig2
  EXPORTS MSPro_SetConfig3
  EXPORTS MSPro_SetConfig4
  EXPORTS MSPro_SetConfig5
  EXPORTS MSPro_SetConfig6
  EXPORTS MSPro_SetConfig7
  
  ; Tunnel functions
  EXPORTS SendInput
  EXPORTS GetPixel
  EXPORTS keybd_event
  EXPORTS mouse_event
  
  MSpro_v3.rap
  
  [Project]
  Assembler=masm
  Type=Dll Project
  Description=MSPro v3
  Backup=$P\Bak\
  Group=1
  GroupExpand=1
  Debug=0
  [Files]
  1=MSPro_v3.Asm
  2=
  3=MSPro_v3.Def
  4=
  [MakeFiles]
  0=MSPro_v3.rap
  1=MSPro_v3.rc
  2=MSPro_v3.asm
  3=MSPro_v3.obj
  4=MSPro_v3.res
  5=MSPro_v3.exe
  6=MSPro_v3.def
  7=MSPro_v3.dll
  8=MSPro_v3.txt
  9=MSPro_v3.lib
  10=MSPro_v3.mak
  11=MSPro_v3.hla
  12=MSPro_v3.com
  13=MSPro_v3.ocx
  14=MSPro_v3.idl
  15=MSPro_v3.tlb
  [MakeDef]
  Menu=0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0
  1=4,O,$B\RC.EXE /v,1
  2=3,O,$B\ML.EXE /c /coff /Cp /nologo /I"$I",2
  3=7,O,$B\LINK.EXE /SUBSYSTEM:WINDOWS /RELEASE /DLL /DEF:$6 /LIBPATH:"$L" /OUT:"$7",3
  4=0,0,,5
  5=rsrc.obj,O,$B\CVTRES.EXE,rsrc.res
  6=*.obj,O,$B\ML.EXE /c /coff /Cp /nologo /I"$I",*.asm
  7=0,0,"$E\OllyDbg",5
  11=4,O,$B\RC.EXE /v,1
  12=3,O,$B\ML.EXE /c /coff /Cp /Zi /nologo /I"$I",2
  13=7,O,$B\LINK.EXE /SUBSYSTEM:WINDOWS /DEBUG /DLL /DEF:$6 /LIBPATH:"$L" /OUT:"$7",3
  14=0,0,,5
  15=rsrc.obj,O,$B\CVTRES.EXE,rsrc.res
  16=*.obj,O,$B\ML.EXE /c /coff /Cp /nologo /I"$I",*.asm
  17=0,0,"$E\OllyDbg",5
  [Group]
  Group=Added files,Assembly,Resources,Misc,Modules
  1=2
  2=
  3=4
  4=
  [Collapse]
  4=
  1=,,,
  2=
  3=
  [Size]
  4=0,0,0,0,224
  1=0,0,0,0,16086
  2=
  3=0,0,0,0,403
  [Find]
  1="ConnState"
  2="Redirect_Direct3DCreate8"
  3="Hook_Direct3DCreate8"
  4="ScreenToGameSpace"
  5="KEYPRESS_DELAY"
  6="BeepNotify"
  7="Thread_GameMoniter"
  8="Server_SendCommand"
  9="MSPRO_STATE_CLOSED"
  10="MSPRO_STATE_IDLE"
  [VersionControl]
  Settings=1246
  Milestones=129
  MilestoneEvery=10
  MilestoneEveryCurrent=0
  MilestoneOnBuild=0.0.0.0
  MilestoneOnTime=2
  MilestoneOnDate=0
  MilestoneOnDateWhen=1
  MilestoneOnDateStatus=0
  MilestoneOnDateDate=7
  MilestoneOnDateTimeYear=2006
  MilestoneOnDateTimeMonth=4
  MilestoneOnDateTimeDate=27
  MilestoneOnDateTimeHour=21
  MilestoneOnDateTimeMin=31
  MilestoneOnDateTimeSec=49
  MilestoneOnDateTimeStatus=0
  BackupLocation=C:\RadASM\Masm\Projects\VCBackups\
  CompressionLevel=0
  DefaultComment=Project $N, $Z, Backup Created On $D At $T.
  ExcludeExt1=\
  ExcludeExt2=\
  ExcludeExt3=\
  ExcludeExt4=\
  FileVerLength=4
  FileVer2Range=0
  FileVer3Range=0
  FileVer4Range=0
  ProductVerLength=4
  ProductVer2Range=0
  ProductVer3Range=0
  ProductVer4Range=0
  [Colref]
  0=00FFFFFF
  1=00FFFFFF
  2=00FFFFFF
  3=00FFFFFF
  4=00FFFFFF
  5=00FFFFFF
  6=00FFFFFF
  7=00FFFFFF
  [BookMark]
  0=
  1=
  2=
  3=
  4=
  5=
  6=
  7=
  8=
  9=
  [BreakPoint]
  0=
  
  
• yihao93

  17 Mar 07, 23:22

  prjmspro.vbp
  
  Type=Exe
  Form=frmMSPro.frm
  Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\WINDOWS\System32\stdole2.tlb#OLE Automation
  Class=Registry; clsRegistry.cls
  IconForm="frmMSPro"
  Startup="frmMSPro"
  HelpFile=""
  Title="MSPro"
  ExeName32="MSPro.exe"
  Command32=""
  Name="MSPro"
  HelpContextID="0"
  CompatibleMode="0"
  MajorVer=1
  MinorVer=0
  RevisionVer=0
  AutoIncrementVer=0
  ServerSupportFiles=0
  CompilationType=-1
  OptimizationType=0
  FavorPentiumPro(tm)=0
  CodeViewDebugInfo=0
  NoAliasing=0
  BoundsCheck=0
  OverflowCheck=0
  FlPointCheck=0
  FDIVCheck=0
  UnroundedFP=0
  StartMode=0
  Unattended=0
  Retained=0
  ThreadPerObject=0
  MaxNumberOfThreads=1
  
  [MS Transaction Server]
  AutoRefresh=1
  
  prjmspro.vbw
  
  frmMSPro = 44, 58, 648, 488, Z, 22, 29, 626, 459, C
  Registry = 44, 58, 647, 488, C
  
  
• yihao93

  17 Mar 07, 23:23

  oh , Mayi or other mods, i have a few kind of
  files in the source code, so if u speicfy i can point it out 4 u
  thx...
• ndmmxiaomayi

  17 Mar 07, 23:25

  It's in Visual Basic...
  
  Read this site:
  
  http://www.freebyte.com/programming/compilers/envelop.html
• ndmmxiaomayi

  17 Mar 07, 23:26

  Originally posted by yihao93:

  oh , Mayi or other mods, i have a few kind of
  files in the source code, so if u speicfy i can point it out 4 u
  thx...

  All files are needed... short of one file, nothing will run.
  
  If in doubt, just email the author.
• yihao93

  17 Mar 07, 23:39

  the problem is, i dunoe how to edit!!!
  the author wont entertain any Pms
• ndmmxiaomayi

  17 Mar 07, 23:40

  LOL
  
  Just read the link I've provided...
• yihao93

  17 Mar 07, 23:43

  Originally posted by ndmmxiaomayi:

  LOL
  
  Just read the link I've provided...

  help mi leh..i noob dunoe how
  
• yihao93

  17 Mar 07, 23:53

  wa lao eh, mayi
  i dl liao, load liao, i wan faint liao
  I DUN EVEN NOE WTF IT IS 4
• manyu882

  17 Mar 07, 23:57

  computer language lai de la..
  
  last time they talk with snake language
• ndmmxiaomayi

  17 Mar 07, 23:58

  Originally posted by yihao93:

  wa lao eh, mayi
  i dl liao, load liao, i wan faint liao
  I DUN EVEN NOE WTF IT IS 4

  Then go and learn programming language.
  
  Better still, go and download and install Microsoft Visual Studio.
  
  It will solve your problem.
• yihao93

  18 Mar 07, 00:01

  Originally posted by ndmmxiaomayi:

  Then go and learn programming language.
  
  Better still, go and download and install Microsoft Visual Studio.
  
  It will solve your problem.

  erm mayi, after reading my source code, do u noe how
  to edit it to match the game?
• ndmmxiaomayi

  18 Mar 07, 00:03

  Originally posted by yihao93:

  erm mayi, after reading my source code, do u noe how
  to edit it to match the game?

  I don't play MS, you ask me, I don't know.