Didn't mean to commit these files, reverse merging...

stealthbot · Feb 21, 2010 · 554cf85 · 554cf85
1 parent 0b7978c
commit 554cf85
Show file tree

Hide file tree

Showing 5 changed files with 4,036 additions and 3,395 deletions.
diff --git a/trunk/Bot.vbp b/trunk/Bot.vbp
@@ -1,17 +1,17 @@
 Type=Exe
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\..\..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation
-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
-Reference=*\G{F5078F18-C551-11D3-89B9-0000F81FE221}#6.0#0#..\..\..\..\..\..\..\..\..\..\WINDOWS\system32\msxml6.dll#Microsoft XML, v6.0
-Reference=*\G{8B217740-717D-11CE-AB5B-D41203C10000}#1.0#0#..\..\..\..\..\..\..\..\..\..\WINDOWS\system32\TLBINF32.DLL#TypeLib Information
-Reference=*\G{0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}#1.0#0#..\..\..\..\..\..\..\..\..\..\WINDOWS\system32\msscript.ocx#Microsoft Script Control 1.0
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\Windows\system32\stdole2.tlb#OLE Automation
+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
+Reference=*\G{F5078F18-C551-11D3-89B9-0000F81FE221}#6.0#0#..\..\..\..\Windows\System32\msxml6.dll#Microsoft XML, v6.0
+Reference=*\G{8B217740-717D-11CE-AB5B-D41203C10000}#1.0#0#..\..\..\..\Windows\system32\TLBINF32.DLL#TypeLib Information
+Reference=*\G{0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}#1.0#0#..\..\..\..\Windows\system32\msscript.ocx#Microsoft Script Control 1.0
 Object={0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}#1.0#0; msscript.ocx
 Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
 Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
 Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
-Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; msinet.ocx
-Object={CA5A8E1E-C861-4345-8FF8-EF0A27CD4236}#1.1#0; vbalTreeView6.ocx
-Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; Richtx32.ocx
+Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; MSINET.OCX
+Object={CA5A8E1E-C861-4345-8FF8-EF0A27CD4236}#1.0#0; vbalTreeView6.ocx
+Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
 Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
 Form=frmAbout.frm
 Class=clsBNLSRecvBuffer; clsBNLSRecvBuffer.cls
@@ -118,8 +118,7 @@ IconForm="frmChat"
 Startup="frmChat"
 HelpFile=""
 Title="StealthBot"
-ExeName32="StealthBot27.exe"
-Path32="..\..\..\.."
+ExeName32="StealthBot v2.7.exe"
 Command32=""
 Name="StealthBot"
 HelpContextID="0"

diff --git a/trunk/clsOSVersion.cls b/trunk/clsOSVersion.cls
@@ -19,7 +19,7 @@ Attribute VB_Exposed = False
 Option Explicit
 
 Private Declare Function GetVersionEx Lib "Kernel32.dll" Alias "GetVersionExA" (lpVersionInformation As Any) As Long
-
+  
 Private Const VER_PLATFORM_WIN32_NT    As Long = 2
 Private Const VER_NT_WORKSTATION       As Long = 1
 Private Const VER_NT_DOMAIN_CONTROLLER As Long = 2
@@ -93,7 +93,6 @@ End Sub
 
 Public Property Get Name() As String
 
-    Dim NullPos As Integer
     ' ...
     If (IsWindowsNT = False) Then
         If (IsWindows95) Then
@@ -127,12 +126,6 @@ Public Property Get Name() As String
         Name = "Unknown"
     End If
 
-    ' service pack
-    NullPos = InStr(m_osVer.szCSDVersion, Chr$(0))
-    If (NullPos > 1) Then
-        Name = Name & " " & Left$(m_osVer.szCSDVersion, NullPos - 1)
-    End If
-
 End Property
 
 Public Property Get IsWindowsNT() As Boolean

diff --git a/trunk/clsQueueObj.cls b/trunk/clsQueueObj.cls
@@ -19,7 +19,7 @@ Private m_priority As Integer
 Private m_response As String
 Private m_tag      As String
 
-Public Property Let ID(ByVal i As Double)
+Public Property Let id(ByVal i As Double)
 
     If (m_obj_id > 0) Then
         Exit Property
@@ -29,15 +29,15 @@ Public Property Let ID(ByVal i As Double)
 
 End Property
 
-Public Property Get ID() As Double
+Public Property Get id() As Double
 
-    ID = m_obj_id
+    id = m_obj_id
 
 End Property
 
-Public Property Let Message(ByVal msg As String)
+Public Property Let Message(ByVal Msg As String)
 
-    m_message = msg
+    m_message = Msg
 
 End Property
 
@@ -47,15 +47,15 @@ Public Property Get Message() As String
 
 End Property
 
-Public Property Let Priority(ByVal pri As Integer)
+Public Property Let PRIORITY(ByVal pri As Integer)
 
     m_priority = pri
 
 End Property
 
-Public Property Get Priority() As Integer
+Public Property Get PRIORITY() As Integer
 
-    Priority = m_priority
+    PRIORITY = m_priority
 
 End Property