Permalink
Browse files

fix counters, mobs with numbers and periods, alliance members, blu mi…

…sses, general missing info
  • Loading branch information...
U-THOMAS\Jason Merrill
U-THOMAS\Jason Merrill committed Sep 29, 2007
1 parent 8d49afd commit b32c4ee7336d0ad4a15a5f33b94f70101d2abc1a
Showing with 196 additions and 166 deletions.
  1. +2 −1 Parser.vbp
  2. +4 −4 frmKeylogger.frm
  3. +168 −157 frmRead.frm
  4. +2 −2 modParser.bas
  5. +20 −2 notes.txt
View
@@ -2,6 +2,7 @@ Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation
Reference=*\G{00000205-0000-0010-8000-00AA006D2EA4}#2.5#0#..\..\..\..\..\Program Files\Common Files\system\ado\msado25.tlb#Microsoft ActiveX Data Objects 2.5 Library
Reference=*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#..\..\..\..\..\WINDOWS\system32\scrrun.dll#Microsoft Scripting Runtime
+Reference=*\G{3F4DACA7-160D-11D2-A8E9-00104B365C9F}#5.5#0#..\..\..\..\..\WINDOWS\system32\vbscript.dll\3#Microsoft VBScript Regular Expressions 5.5
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; comdlg32.ocx
Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; MSINET.OCX
@@ -23,7 +24,7 @@ Name="Parser"
HelpContextID="0"
CompatibleMode="0"
MajorVer=6
-MinorVer=7
+MinorVer=8
RevisionVer=1
AutoIncrementVer=0
ServerSupportFiles=0
View
@@ -930,11 +930,11 @@ Next
For i = 0 To UBound(KeyLogs)
If KeyLogs(i, 0) <> "" Then
MyPos = InStr(1, KeyLogs(i, 0), "-")
- If Left(KeyLogs(i, 0), MyPos - 1) = "CTRL" Or Left(KeyLogs(i, 0), MyPos - 1) = "ALT" Or Left(KeyLogs(i, 0), MyPos - 1) = "SHIFT" Then
- comboType(i).Text = Left(KeyLogs(i, 0), MyPos - 1)
+ If Left$(KeyLogs(i, 0), MyPos - 1) = "CTRL" Or Left$(KeyLogs(i, 0), MyPos - 1) = "ALT" Or Left$(KeyLogs(i, 0), MyPos - 1) = "SHIFT" Then
+ comboType(i).Text = Left$(KeyLogs(i, 0), MyPos - 1)
End If
- If Right(KeyLogs(i, 0), 1) <> "-" Then
- txtKey(i).Text = Right(KeyLogs(i, 0), 1)
+ If Right$(KeyLogs(i, 0), 1) <> "-" Then
+ txtKey(i).Text = Right$(KeyLogs(i, 0), 1)
End If
txtLen(i).Text = KeyLogs(i, 1)
If KeyLogs(i, 2) <> "" Then
Oops, something went wrong.

0 comments on commit b32c4ee

Please sign in to comment.