Skip to content
Permalink
Browse files

[Crash/UI] Fix crash on profile request before first connect; "Settin…

…gs > Edit Profile" disabled when offline
  • Loading branch information...
nmbook committed Mar 13, 2017
1 parent 72e7c24 commit 739f9875280c7db718b233cb3db5bd5b1e663b68
Showing with 8 additions and 9 deletions.
  1. +6 −4 trunk/frmChat.frm
  2. +0 −4 trunk/frmProfile.frm
  3. +2 −1 trunk/modEvents.bas
@@ -9,8 +9,8 @@ Begin VB.Form frmChat
BackColor = &H00000000&
Caption = ":: StealthBot &version :: Disconnected ::"
ClientHeight = 7965
ClientLeft = 225
ClientTop = 870
ClientLeft = 165
ClientTop = 810
ClientWidth = 11400
ForeColor = &H00000000&
Icon = "frmChat.frx":0000
@@ -1081,7 +1081,6 @@ Begin VB.Form frmChat
_ExtentY = 2990
_Version = 393217
BackColor = 0
Enabled = -1 'True
ReadOnly = -1 'True
ScrollBars = 2
AutoVerbMenu = -1 'True
@@ -1107,7 +1106,6 @@ Begin VB.Form frmChat
_ExtentY = 11668
_Version = 393217
BackColor = 0
Enabled = -1 'True
ReadOnly = -1 'True
ScrollBars = 2
AutoVerbMenu = -1 'True
@@ -1344,6 +1342,7 @@ Begin VB.Form frmChat
End
Begin VB.Menu mnuProfile
Caption = "Edit &Profile..."
Enabled = 0 'False
End
Begin VB.Menu mnuFilters
Caption = "&Edit Chat Filters..."
@@ -1823,6 +1822,7 @@ Private Sub Form_Load()
ReDim gBans(0)
ReDim gOutFilters(0)
ReDim gFilters(0)
ReDim UserDataRequests(0)

Call BuildProductInfo

@@ -8237,6 +8237,8 @@ Sub DoDisconnect(Optional ByVal DoNotShow As Byte = 0, Optional ByVal LeaveUCCAl
mnuIgnoreInvites.Visible = False
mnuRealmSwitch.Visible = False

mnuProfile.Enabled = False

BotVars.LastChannel = vbNullString
PrepareHomeChannelMenu
PrepareQuickChannelMenu
@@ -45,7 +45,6 @@ Begin VB.Form frmProfile
_Version = 393217
BackColor = 0
BorderStyle = 0
Enabled = -1 'True
TextRTF = $"frmProfile.frx":0CCA
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
@@ -86,7 +85,6 @@ Begin VB.Form frmProfile
_ExtentY = 4895
_Version = 393217
BackColor = 0
Enabled = -1 'True
ReadOnly = -1 'True
ScrollBars = 2
TextRTF = $"frmProfile.frx":0D5B
@@ -112,7 +110,6 @@ Begin VB.Form frmProfile
_Version = 393217
BackColor = 0
BorderStyle = 0
Enabled = -1 'True
TextRTF = $"frmProfile.frx":0DEC
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
@@ -136,7 +133,6 @@ Begin VB.Form frmProfile
_Version = 393217
BackColor = 0
BorderStyle = 0
Enabled = -1 'True
TextRTF = $"frmProfile.frx":0E7D
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
@@ -479,6 +479,7 @@ Public Sub Event_LoggedOnAs(Username As String, Statstring As String, AccountNam
frmChat.mnuSepZ.Visible = (ShowW3 Or ShowD2)
frmChat.mnuIgnoreInvites.Visible = ShowW3
frmChat.mnuRealmSwitch.Visible = ShowD2
frmChat.mnuProfile.Enabled = True

SharedScriptSupport.myUsername = GetCurrentUsername

@@ -1596,7 +1597,7 @@ Public Sub Event_UserTalk(ByVal Username As String, ByVal Flags As Long, ByVal M
Dim strCompare As String
Dim i As Integer
Dim ColIndex As Integer
Dim B As Boolean
Dim b As Boolean
Dim ToANSI As String
Dim BanningUser As Boolean
Dim UsernameColor As Long

0 comments on commit 739f987

Please sign in to comment.
You can’t perform that action at this time.