bodini

Private Sub CancelEntry_Click()
  var_18 = CStr(Format("", "0."))
  ecx = "CE"
  Exit Sub
End Sub

Private Sub Check1_Click()
  var_3C = Check1.Value
  If eax = 0 Then GoTo loc_005F2A28
  Check2.Value = CInt(1)
  var_eax = mmselect.Hide
  var_3C = Check1.Value
  If eax = 0 Then GoTo loc_005F2B3B
  Check2.Value = 0
  var_eax = mmselect.Show var_1C
  Exit Sub
End Sub

Private Sub Check2_Click()
  var_1C = Check2.Value
  If eax = 0 Then GoTo loc_005F2C66
  Check1.Value = CInt(1)
  var_1C = Check2.Value
  If edx = 0 Then GoTo loc_005F2CF7
  Check1.Value = 0
  Exit Sub
End Sub

Private Sub Command10_Click()
  var_18 = InputBox("who do we add to mm?", "bodini 4.0 mass mailer", var_54, var_64, 10, 10, 10)
  If Len(var_18) < 3 Then GoTo loc_005E82BA
  If Len(var_18) <= 10 Then GoTo loc_005E819B
  var_34 = "Screen names are a max of 10 letters."
  GoTo loc_005E82BA
  var_eax = List1.AddItem var_18, var_98
  var_108 = List1.ListCount
  var_1C = var_108
  Exit Sub
End Sub

Private Sub Command11_Click()
  Dim var_20 As ListBox
  Dim var_B0 As ListBox
  var_A4 = List1.ListCount
  If ebx = 0 Then GoTo loc_005E8424
  var_68 = "You have nobody on the list to remove."
  GoTo loc_005E849D
  var_A4 = List1.SelCount
  If ebx = 0 Then GoTo loc_005E84EB
  var_30 = "Please highlight who you would like to remove."
  GoTo loc_005E8618
  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 Command12_Click()
  var_18 = Text1.Text
  Exit Sub
End Sub

Private Sub Command13_Click()
  var_eax = List1.Clear
  Text1.Text = vbNullString
  Text2.Text = vbNullString
  Exit Sub
End Sub

Private Sub Command14_Click()
  var_eax = Me.Hide
End Sub

Private Sub Command1_Click()
  Dim var_38 As Variant
  var_2C = Command1.Caption
  If (var_2C = "Start") + 1 = 0 Then GoTo loc_005C54B2
  var_2C = "•bodini 4.0• request bot •spek•"
  call FadePreview2(var_58, var_24, 3)
  var_2C = "<font face=""tahoma"">" & var_58
  call MailDeleteNewDuplicates(var_2C & vbNullString, var_24, var_2C)
  call Proc_6098C0(0.5, Me, Me)
  var_2C = Text1.Text
  var_34 = "•requesting• " & var_2C & var_0042EC60
  call FadePreview2(var_58, var_24, 3)
  call MailDeleteNewDuplicates("<font face=""tahoma"">" & var_58 & vbNullString, Me, Me)
  call Proc_6098C0(0.7, , )
  var_2C = Text3.Text
  var_34 = "•type• " & var_2C & " • if you have it•"
  call FadePreview2(var_58, var_24, 3)
  call MailDeleteNewDuplicates("<font face=""tahoma"">" & var_58 & vbNullString, Me, Me)
  Timer1.Enabled = True
  Timer2.Enabled = True
  Command1.Caption = "Stop"
  If var_38 >= 0 Then GoTo loc_005C5605
  GoTo loc_005C55F6
  var_2C = "•bodini 4.0• request bot off•"
  call FadePreview2(var_58, var_24, 3)
  var_2C = "<font face=""tahoma"">" & var_58
  call MailDeleteNewDuplicates(var_2C & vbNullString, var_24, var_2C)
  Timer1.Enabled = False
  Timer2.Enabled = False
  Command1.Caption = "Start"
  If Me >= 0 Then GoTo loc_005C5605
  Exit Sub
End Sub

Private Sub Command2_Click()
  Dim var_3C As TextBox
  var_2C = Text1.Text
  var_44 = var_2C
  var_5C = LCase(var_2C)
  var_30 = Text3.Text
  var_84 = var_30
  var_F4 = " find "
  var_104 = vbNullString
  var_34 = &H43137C & var_5C & " find " & LCase(var_30) & vbNullString
  call FadePreview2(var_DC, var_24, 3)
  call MailDeleteNewDuplicates("<font face=""tahoma"">" & var_DC & vbNullString, var_3C, var_5C)
  Exit Sub
End Sub

Private Sub Command3_Click()
  Dim var_38 As TextBox
  Dim var_3C As TextBox
  Dim var_5C As TextBox
  var_2C = Text5.Text
  var_30 = Text4.Text
  setle cl
  If var_138 = 0 Then GoTo loc_005BA633
  var_4C = "the starting number must be less then the ending number moron."
  GoTo loc_005BAE18
  var_128 = var_38
  Text4.Enabled = edi
  Text5.Enabled = edi
  var_130 = var_3C
  var_2C = Text4.Text
  var_2C = Text1.Text
  var_44 = var_2C
  var_5C = LCase(var_2C)
  var_30 = Text4.Text
  var_84 = var_30
  var_F4 = " send "
  var_104 = vbNullString
  var_34 = &H43137C & var_5C & " send " & LCase(var_30) & vbNullString
  call FadePreview2(var_DC, var_24, 3)
  call MailDeleteNewDuplicates("<font face=""tahoma"">" & var_DC & vbNullString, var_3C, var_5C)
  GoTo loc_005BA9B8
  var_130 = call Proc_6098C0(var_124, , )
  var_2C = Text1.Text
  var_44 = var_2C
  var_5C = LCase(0)
  var_84 = var_30
  var_F4 = " send "
  var_104 = vbNullString
  var_34 = &H43137C & var_5C & " send " & LCase(0) & vbNullString
  call FadePreview2(var_DC, var_24, 3)
  var_2C = "<font face=""tahoma"">" & var_DC
  call MailDeleteNewDuplicates(var_2C & vbNullString, var_3C, var_2C & vbNullString)
  var_30 = Text5.Text
  If (var_2C <> var_30) <> 0 Then GoTo loc_005BA9B2
  Text4.Enabled = True
  Text5.Enabled = True
  Exit Sub
  Exit Sub
End Sub

Private Sub Command4_Click()
  Dim var_3C As TextBox
  var_2C = Text1.Text
  var_44 = var_2C
  var_5C = LCase(var_2C)
  var_30 = Text2.Text
  var_84 = var_30
  var_F4 = " send "
  var_104 = vbNullString
  var_34 = &H43137C & var_5C & " send " & LCase(var_30) & vbNullString
  call FadePreview2(var_DC, var_24, 3)
  call MailDeleteNewDuplicates("<font face=""tahoma"">" & var_DC & vbNullString, var_3C, var_5C)
  Exit Sub
End Sub

Private Sub Command5_Click()
  Dim var_34 As TextBox
  var_18 = Text1.Text
  var_20 = Text5.Text
  call MailDeleteFlashByIndex(vbNullString & var_18 & vbNullString, vbNullString & var_20 & vbNullString, var_34)
  var_18 = Text2.Text
  var_20 = Text6.Text
  call MailDeleteFlashByIndex(vbNullString & var_18 & vbNullString, vbNullString & var_20 & vbNullString, var_34)
  var_18 = Text3.Text
  var_20 = Text7.Text
  call MailDeleteFlashByIndex(vbNullString & var_18 & vbNullString, vbNullString & var_20 & vbNullString, var_34)
  var_18 = Text4.Text
  var_20 = Text8.Text
  call MailDeleteFlashByIndex(vbNullString & var_18 & vbNullString, vbNullString & var_20 & vbNullString, var_34)
  Exit Sub
End Sub

Private Sub Command6_Click()
  Dim var_18 As TextBox
  Text1.Text = vbNullString
  var_1C = var_18
  Text2.Text = vbNullString
  Text3.Text = vbNullString
  var_1C = var_18
  Text4.Text = vbNullString
  Text5.Text = vbNullString
  var_1C = var_18
  Text6.Text = vbNullString
  Text7.Text = vbNullString
  Text8.Text = vbNullString
  Exit Sub
End Sub

Private Sub Command7_Click()
  var_eax = mmoption.Show var_18
End Sub

Private Sub Decimal_Click()
  If (%x1 = Me.hWnd = "NEG") = 0 Then GoTo loc_005B621E
  var_18 = CStr(Format("", "-0."))
  GoTo loc_005B62DA
  If (Me = "NUMS") = 0 Then GoTo loc_005B62E8
  var_18 = CStr(Format("", "0."))
  var_80 = "NUMS"
  Exit Sub
End Sub

Private Sub Dir1_Change()
  var_18 = Dir1.Path
  Dir1.Path = var_18
  Exit Sub
End Sub

Private Sub Drive1_Change()
  Dim var_B0 As DriveListBox
  Dim var_B8 As DriveListBox
  On Error Resume Next
  var_B8 = var_2C
  var_24 = Drive1.Drive
  var_B4 = var_24
  Drive1.Drive = var_24
  var_BC = var_B8
  var_34 = Err
  var_B0 = Err
  If var_B0 = 0 Then GoTo loc_005B0065
  var_4C = "bodini by: spek"
  var_3C = "Drive is not available"
  Exit Sub
End Sub

Private Sub Exit_Click()
  End
End Sub

Private Sub File1_Click()
  Dim var_58 As Variant
  Dim var_A8 As FileListBox
  Dim var_48 As FileListBox
  var_A8 = var_58
  var_9C = File1.ListIndex
  var_48 = File1.List(var_9C)
  var_24 = var_48
  var_48 = Dir1.Path
  var_4C = Dir1.Path
  var_60 = var_48
  var_34 = Mid(var_48, Len(var_4C), 1)
  If (var_34 = &H431038) = 0 Then GoTo loc_005B03DB
  var_48 = Dir1.Path
  var_4C = File1.FileName
  var_44 = var_48 & var_4C
  GoTo loc_005B04B1
  var_48 = Dir1.Path
  var_4C = File1.FileName
  var_44 = var_48 & var_00431038 & var_4C
  var_48 = var_44
  Exit Sub
End Sub

Private Sub Form_Click()
  var_eax = mainform.Show var_18
  var_eax = mainform.Hide
End Sub

Private Sub Form_Load()
  call __vbaCastObj(Me, var_0042DBEC, __vbaCastObj, Me, ebx)
  call Proc_60A5D0(var_18, var_18, __vbaCastObj(Me, var_0042DBEC, __vbaCastObj, Me, ebx))
  call __vbaCastObj(Me, var_0042DBEC)
  call MailToListOld(var_18, var_18, __vbaCastObj(Me, var_0042DBEC))
  Exit Sub
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  call __vbaCastObj(Me, var_0042DBEC, edi, Me, ebx)
  call Proc_60A690(var_18, var_18, __vbaCastObj(Me, var_0042DBEC, edi, Me, ebx))
  Exit Sub
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim var_2C As Screen
  var_2C = Global.Screen
  var_80 = Global.TwipsPerPixelX
  If var_60C000 <> 0 Then GoTo loc_005BBD52
  GoTo loc_005BBD5A
  If eax+&h00000004 <> 0 Then GoTo loc_005BBFA0
  edx = edx - &h00000202
  If edx-&h00000202 = 0 Then GoTo loc_005BBE91
  edx = edx - &h00000003
  If edx-&h00000003 <> 0 Then GoTo loc_005BBF99
  var_80 = Global.FontCount
  SetForegroundWindow(var_80)
  Set var_2C = Me.mainmenu
  GoTo loc_005BBF75
  var_80 = Global.FontCount
  If var_80 >= 0 Then GoTo loc_005BBEAC
  call Me(var_80, Me, var_00431EE8, &h00000058, Me, var_2C)
  SetForegroundWindow(var_80)
  Set var_2C = Me.mainmenu
  Exit Sub
  Exit Sub
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  repz stosd
  var_18 = Me.hWnd
  var_60C514 = var_18
  Shell_NotifyIcon(2, var_18)
End Sub

Private Sub Form_Unload(Cancel As Integer)
  var_18 = Text1.Text
  var_2C = "bodini.ini"
  call ChatIgnoreByIndex("Media Player", "Last Used", vbNullString & var_18 & vbNullString)
  Exit Sub
End Sub

Public Function GetClsName(hWnd)
  call __vbaFixstrConstruct(&h00000064, var_20, edi, esi, ebx)
  var_ret_1 = var_20
  GetClassName(hWnd, var_ret_1, 100)
  call __vbaLsetFixstr(esi, var_20, var_24)
  var_24 = var_20
  var_40 = var_24
  call __vbaLsetFixstr(esi, var_20, var_24)
  var_1C = Left(var_24, GetClassName(hWnd, var_ret_1, 100))
  GoTo loc_005DC9C5
  If var_4 = 0 Then GoTo loc_005DC9A8
  Exit Sub
End Function

Public Function GetWndName(hWnd)
  call __vbaFixstrConstruct(&h00000064, var_20, edi, esi, ebx)
  var_ret_1 = var_20
  GetWindowText(hWnd, var_ret_1, 100)
  call __vbaLsetFixstr(esi, var_20, var_24)
  var_24 = var_20
  var_40 = var_24
  call __vbaLsetFixstr(esi, var_20, var_24)
  var_18 = Left(var_24, GetWindowText(hWnd, var_ret_1, 100))
  GoTo loc_005DCB35
  If var_4 = 0 Then GoTo loc_005DCB18
  Exit Sub
End Function

Private Sub HScroll1_Change()
  Dim var_2C As HScrollBar
  var_28 = HScroll1.Value
  var_2C = HScroll2.Value
  var_30 = HScroll3.Value
  HScroll3.Top = RGB(var_28, var_2C, var_30)
  Exit Sub
End Sub

Private Sub HScroll1_Scroll()
  Dim var_2C As HScrollBar
  var_28 = HScroll1.Value
  var_2C = HScroll2.Value
  var_30 = HScroll3.Value
  HScroll3.Top = RGB(var_28, var_2C, var_30)
  Exit Sub
End Sub

Private Sub HScroll2_Change()
  Dim var_2C As HScrollBar
  var_28 = HScroll1.Value
  var_2C = HScroll2.Value
  var_30 = HScroll3.Value
  HScroll3.Top = RGB(var_28, var_2C, var_30)
  Exit Sub
End Sub

Private Sub HScroll2_Scroll()
  Dim var_2C As HScrollBar
  var_28 = HScroll1.Value
  var_2C = HScroll2.Value
  var_30 = HScroll3.Value
  HScroll3.Top = RGB(var_28, var_2C, var_30)
  Exit Sub
End Sub

Private Sub HScroll3_Change()
  Dim var_2C As HScrollBar
  var_28 = HScroll1.Value
  var_2C = HScroll2.Value
  var_30 = HScroll3.Value
  HScroll3.Top = RGB(var_28, var_2C, var_30)
  Exit Sub
End Sub

Private Sub HScroll3_Scroll()
  Dim var_2C As HScrollBar
  var_28 = HScroll1.Value
  var_2C = HScroll2.Value
  var_30 = HScroll3.Value
  HScroll3.Top = RGB(var_28, var_2C, var_30)
  Exit Sub
End Sub

Private Sub HScroll4_Change()
  Dim var_2C As HScrollBar
  var_28 = HScroll4.Value
  var_2C = HScroll5.Value
  var_30 = HScroll6.Value
  HScroll6.Top = RGB(var_28, var_2C, var_30)
  Exit Sub
End Sub

Private Sub HScroll4_Scroll()
  Dim var_2C As HScrollBar
  var_28 = HScroll4.Value
  var_2C = HScroll5.Value
  var_30 = HScroll6.Value
  HScroll6.Top = RGB(var_28, var_2C, var_30)
  Exit Sub
End Sub

Private Sub HScroll5_Change()
  Dim var_2C As HScrollBar
  var_28 = HScroll4.Value
  var_2C = HScroll5.Value
  var_30 = HScroll6.Value
  HScroll6.Top = RGB(var_28, var_2C, var_30)
  Exit Sub
End Sub

Private Sub HScroll5_Scroll()
  Dim var_2C As HScrollBar
  var_28 = HScroll4.Value
  var_2C = HScroll5.Value
  var_30 = HScroll6.Value
  HScroll6.Top = RGB(var_28, var_2C, var_30)
  Exit Sub
End Sub

Private Sub HScroll6_Change()
  Dim var_2C As HScrollBar
  var_28 = HScroll4.Value
  var_2C = HScroll5.Value
  var_30 = HScroll6.Value
  HScroll6.Top = RGB(var_28, var_2C, var_30)
  Exit Sub
End Sub

Private Sub HScroll6_Scroll()
  Dim var_2C As HScrollBar
  var_28 = HScroll4.Value
  var_2C = HScroll5.Value
  var_30 = HScroll6.Value
  HScroll6.Top = RGB(var_28, var_2C, var_30)
  Exit Sub
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Image1.Visible = False
  Image2.Visible = True
  Exit Sub
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim var_38 As Variant
  Image1.Visible = True
  Image2.Visible = False
  call Proc_6098C0(0.05, var_38, var_38)
  var_3C = Image2.Picture
  var_2C = Text2.Text
  var_ret_1 = var_24
  var_ret_2 = "c:\"
  var_ret_3 = var_2C
  shell32.dll.ShellExecuteA
  Set var_38 = Me
  var_eax = Global.Unload var_38
  Exit Sub
End Sub

Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Image4.Visible = False
  Image3.Visible = True
  Exit Sub
End Sub

Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim var_18 As Image
  Image4.Visible = True
  Image3.Visible = False
  call Proc_6098C0(0.05, var_18, var_18)
  var_eax = Call vcheck.Command1_Click
  Image4.Enabled = False
  Exit Sub
End Sub

Private Sub Image7_Click()
  Text1.Enabled = True
  Exit Sub
End Sub

Private Sub Label1_Click()
  Me.WindowState = CInt(1)
End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  call __vbaCastObj(Me, var_0042DBEC, edi, Me, ebx)
  call Proc_60A690(var_18, var_18, __vbaCastObj(Me, var_0042DBEC, edi, Me, ebx))
  Exit Sub
End Sub

Private Sub Label2_Click()
  Me.WindowState = CInt(1)
End Sub

Private Sub Label3_Click()
  var_eax = server.Show var_18
  var_eax = server.Hide
End Sub

Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  call __vbaCastObj(Me, var_0042DBEC, edi, Me, ebx)
  call Proc_60A690(var_18, var_18, __vbaCastObj(Me, var_0042DBEC, edi, Me, ebx))
  Exit Sub
End Sub

Private Sub Label4_Click()
  var_9C = var_28
  Exit Sub
  Exit Sub
End Sub

Private Sub Label4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  call __vbaCastObj(Me, var_0042DBEC, edi, Me, ebx)
  call Proc_60A690(var_18, var_18, __vbaCastObj(Me, var_0042DBEC, edi, Me, ebx))
  Exit Sub
End Sub

Private Sub Label5_Click()
  var_9C = var_28
  Exit Sub
  Exit Sub
End Sub

Private Sub Label6_Click()
  var_18 = Text1.Text
  var_28 = var_18
  Text1.Enabled = False
  Exit Sub
End Sub

Private Sub Label7_Click()
  If (var_18 <> var_0042E990) + 1 <> 0 Then GoTo loc_005CA42B
  Exit Sub
  Exit Sub
End Sub

Private Sub List1_Click()
  Dim var_24 As ListBox
  Dim var_38 As ListBox
  var_38 = var_24
  var_28 = List1.ListIndex
  var_28 = List1.Selected
  If edx = 0 Then GoTo loc_005E5417
  var_38 = var_20
  var_28 = List1.ListIndex
  var_28 = List1.Selected
  If ecx = 0 Then GoTo loc_005E5569
  Exit Sub
  Exit Sub
End Sub

Private Sub List1_DblClick()
  var_20 = List1.ListIndex
  var_eax = List1.RemoveItem var_20
  Exit Sub
End Sub

Private Sub List2_Click()
  var_18 = List2.Text
  var_24 = "The message this user left was: " & var_18
  Exit Sub
End Sub

Private Sub MediaPlayer1_UnknownEvent_9
  If (var_18 = "Repeat") + 1 = 0 Then GoTo loc_005B95F1
  Text1.Enabled = True
  var_eax = Call mplayer.Command1_Click
  Text1.Enabled = False
  GoTo loc_005B9662
  Timer1.Enabled = False
  Exit Sub
End Sub

Private Sub Number_Click()
  Dim var_28 As CommandButton
  Dim var_17C As CommandButton
  Dim var_174 As CommandButton
  If (%x1 = Me.hWnd = "NUMS") = 0 Then GoTo loc_005B66E3
  var_18 = CStr(Format("", &H42DCAC))
  If esi+&h00000054 = 0 Then GoTo loc_005B6821
  var_17C = var_30
  var_18 = Number.Caption
  var_20 = var_1C & var_18
  var_198 = var_20
  Number.Caption = var_20
  GoTo loc_005B6AAB
  call var_17C(var_30, var_28, var_30, Me)
  call var_17C(var_2C, var_17C(var_30, var_28, var_30, Me), Me)
  var_174 = var_17C(var_2C, var_17C(var_30, var_28, var_30, Me), Me)
  var_60 = Format("", &H42DCAC)
  var_98 = var_30
  call InStr(var_80, edi, var_60, var_70, &h00000001, &h00000001, &h00000001, Me)
  var_B0 = Left(var_30, CLng(InStr(var_80, edi, var_60, var_70, &h00000001, &h00000001, &h00000001, Me) - 1))
  call var_17C(var_24, var_B0, Me)
  var_18 = Number.Caption
  var_B8 = var_18
  var_1C = CStr(var_B0 + var_18 + Format("", &H42DCAC))
  Number.Caption = var_1C
  If (%x1 = Number.Index = "NEG") = 0 Then GoTo loc_005B6B89
  var_1C = var_00431364 & var_18
  var_1A0 = "NUMS"
  Exit Sub
End Sub

Private Sub Operator_Click()
  Dim var_C8 As Label
  Dim var_20 As Variant
  Dim var_34 As CommandButton
  ecx = Me
  var_6C = "NUMS"
  If (esi+&h00000058 = "NUMS") = 0 Then GoTo loc_005B6D3F
  esi+&h00000056 = esi+&h00000056 + 0001h
  esi+&h00000056 = esi+&h00000056 - edi
  If esi+&h00000056 = 0 Then GoTo loc_005B72B9
  eax = esi+&h00000056 - 1
  If esi+&h00000056 - 1 = 0 Then GoTo loc_005B7115
  eax = esi+&h00000056 - 1 - 1
  If esi+&h00000056 - 1 - 1 <> 0 Then GoTo loc_005B702B
  ecx = esi+&h00000078
  var_C8 = esi+&h00000068
  If (var_C8 = &H42E970) = 0 Then GoTo loc_005B6DB8
  call __vbaR8ErrVar(%x1 = Readout.Standing, Me, %x1 = Readout.Standing)
  call __vbaR8ErrVar(Readout.Font = %StkVar1)
  GoTo loc_005B6FB2
  var_74 = Readout.Standing
  If var_74 = 0 Then GoTo loc_005B6DFA
  call __vbaR8ErrVar(%x1 = Readout.Standing)
  call __vbaR8ErrVar(Readout.Font = %StkVar1)
  fsubr st0, real8 ptr var_E8
  GoTo loc_005B6FB2
  var_74 = Readout.Standing
  If var_74 = 0 Then GoTo loc_005B6E3C
  call __vbaR8ErrVar(%x1 = Readout.Standing)
  call __vbaR8ErrVar(Readout.Font = %StkVar1)
  GoTo loc_005B6FB2
  var_74 = Readout.Standing
  If var_74 = 0 Then GoTo loc_005B6F3C
  var_74 = Readout.Standing
  If var_74 = 0 Then GoTo loc_005B6F01
  var_44 = "Justins Calculator"
  var_34 = "Can't divide by zero"
  GoTo loc_005B6FD1
  call __vbaR8ErrVar(%x1 = Readout.Standing, var_C8)
  call __vbaR8ErrVar(%ecx = %S_edx_S)
  If var_60C000 <> 0 Then GoTo loc_005B6F29
  fdivr st0, real8 ptr var_F8
  GoTo loc_005B6F3A
  GoTo loc_005B6FB2
  var_74 = Readout.Standing
  If var_74 = 0 Then GoTo loc_005B6F75
  call __vbaR8ErrVar(%ecx = %S_edx_S, var_C8, var_F8, var_F4)
  GoTo loc_005B6FCB
  var_74 = Readout.Standing
  If var_74 = 0 Then GoTo loc_005B6FD1
  call __vbaR8ErrVar(%x1 = Readout.Standing)
  call __vbaR8ErrVar(%ecx = %S_edx_S)
  ecx = __vbaR8ErrVar(ecx = %S_edx_S)
  var_18 = %x1 = Readout.Standing
  If (esi+&h00000058 = "NEG") = 0 Then GoTo loc_005B7107
  ecx = "OPS"
  var_18 = Operator.Caption
  ecx = var_18
  GoTo loc_005B74B8
  ecx = Me
  var_18 = Operator.Caption
  eax = (var_18 = var_00431364) + 1
  var_7C = (var_18 = var_00431364) + 1
  var_6C = "NUMS"
  var_ret_4 = Me And (%x1 = Operator.Index <> "NUMS") And (%x1 = Operator.Left <> &H43136C)
  If var_ret_4 = 0 Then GoTo loc_005B7029
  ecx = "NEG"
  GoTo loc_005B7029
  var_18 = Operator.Caption
  eax = (var_18 = var_00431364) + 1
  var_7C = (var_18 = var_00431364) + 1
  var_6C = "NEG"
  var_ret_6 = (vtable) And (%x1 = Operator.Index <> "NEG")
  If var_ret_6 = var_20 Then GoTo loc_005B702B
  var_1C = var_00431364 & var_18
  ecx = "NEG"
  Exit Sub
End Sub

Private Sub Option1_Click()
  Option1.Value = True
  Option2.Value = False
  Option3.Value = False
  Option4.Value = False
  Exit Sub
End Sub

Private Sub Option2_Click()
  Option1.Value = False
  Option2.Value = True
  Option3.Value = False
  Option4.Value = False
  Exit Sub
End Sub

Private Sub Option3_Click()
  Option1.Value = False
  Option2.Value = False
  Option3.Value = True
  Option4.Value = False
  Exit Sub
End Sub

Private Sub Option4_Click()
  Option1.Value = False
  Option2.Value = False
  Option3.Value = False
  Option4.Value = True
  Exit Sub
End Sub

Private Sub Percent_Click()
  If var_60C000 <> 0 Then GoTo loc_005B75A7
  GoTo loc_005B75B8
  ecx = "Ops"
  ecx = &H43156C
  esi+&h00000056 = esi+&h00000056 + 0001h
  Exit Sub
  Exit Sub
End Sub

Private Sub Picture1_Click()
  var_28 = "Hey, if you type my first name in the textbox, you can see a picture of me, I don't know if you would want to though :). Oh yea, type it exactly so the first letter is capitalized!"
  var_18 = InputBox(var_28, "spek's secret area", var_48, var_58, 10, 10, 10)
  var_A0 = "bodini by: spek"
  If (var_18 <> "Jason") <> 0 Then GoTo loc_005DC7CB
  var_38 = "bodini by: spek"
  var_28 = "You must be one of my good friends to know my first name, or you just got lucky, but anyways, here is my ugly picture..."
  call Proc_6098C0(5, 0, var_28 = %S_edx_S)
  var_eax = jason.Show var_8C
  GoTo loc_005DC82F
  call 
  var_90 = "That is not my real first name..."
  call 
  Exit Sub
End Sub

Private Sub Richtextbox1_Change()
  Dim var_24 As Variant
  var_18 = Richtextbox1.Text
  var_20 = "The version of Prophecy 2.0 found on the server is Build " & var_18 & var_0042DCAC
  var_18 = Richtextbox1.Text
  var_24 = Global.App
  var_2C = Global.Revision
  var_54 = var_2C
  GoTo loc_005A1B72
  If di = 0 Then GoTo loc_005A1D3E
  var_18 = "p21.p2m"
  call PrivateRoom(var_18, Me, edi)
  var_18 = Richtextbox1.Text
  var_20 = "New in Build " & var_18 & " ..."
  Image1.Enabled = True
  var_18 = Richtextbox1.Text
  var_24 = Global.App
  var_2C = Global.Revision
  var_60 = var_2C
  GoTo loc_005A1DFF
  If di = 0 Then GoTo loc_005A1E5D
  var_18 = Richtextbox1.Text
  var_24 = Global.App
  var_2C = Global.Revision
  var_6C = var_2C
  GoTo loc_005A1F1E
  If var_24 = 0 Then GoTo loc_005A1F7E
  Exit Sub
End Sub

Private Sub Text1_Change()
  var_18 = Text1.Text
  Text1.SelStart = Len(var_18)
  Exit Sub
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii <> 13 Then GoTo loc_005A26B3
  var_2C = Text1.Text
  If (var_2C <> vbNullString) + 1 <> 0 Then GoTo loc_005A26B1
  var_2C = "•bodini 4.0• attention •spek•"
  call FadePreview2(var_54, var_24, 3)
  var_2C = "<font face=""tahoma"">" & var_54
  call MailDeleteNewDuplicates(var_2C & vbNullString, var_24, var_2C)
  var_6C = 0.7
  call Proc_6098C0(var_6C, Me, @%StkVar2 & %x1)
  var_2C = Text1.Text
  call MailDeleteNewDuplicates(var_2C, var_34, call Proc_6098C0(var_6C, Me, @%StkVar2 & %x1))
  call Proc_6098C0(0.7, Me, var_34 = %S_edx_S)
  var_2C = "•bodini 4.0• attention •spek•"
  call FadePreview2(var_54, var_24, 3)
  var_2C = "<font face=""tahoma"">" & var_54
  call MailDeleteNewDuplicates(var_2C & vbNullString, var_24, var_2C)
  Exit Sub
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii <> 13 Then GoTo loc_005C6E08
  var_eax = Call ipchat2.Command1_Click
End Sub

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode <> 13 Then GoTo loc_005FBD18
  var_eax = Call imchat.Command1_Click
End Sub

Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode <> 13 Then GoTo loc_005FBDA8
  var_eax = Call imchat.Command2_Click
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
  If KeyAscii <> 13 Then GoTo loc_005CC000
  var_2C = Text5.Text
  var_34 = vbNullString & var_2C & vbNullString
  call FadePreview2(var_58, var_24, 3)
  call MailDeleteNewDuplicates("<font face=""tahoma"">" & var_58 & vbNullString, Me, Me)
  Text5.Text = vbNullString
  Exit Sub
End Sub

Private Sub Timer1_Timer()
  Dim var_40 As TextBox
  Dim var_120 As TextBox
  Dim var_44 As TextBox
  Dim var_B4 As OptionButton
  Dim var_2C As TextBox
  call FindIM(var_54, Me, esi)
  var_64 = LCase(var_54)
  var_2C = Text3.Text
  var_30 = vbNullString & var_2C
  var_6C = var_30 & vbNullString
  var_128 = (var_64 = LCase(var_30 & vbNullString))
  If var_128 = 0 Then GoTo loc_005C60CA
  var_DC = vbNullString
  call InstantMessage(var_54, var_40, 8)
  var_EC = vbNullString
  var_2C = vbNullString & var_54 & vbNullString
  Text4.Text = var_2C
  var_118 = Option1.Value
  If ebx = 0 Then GoTo loc_005C5B7D
  call Proc_6098C0(0.5, var_40, Me)
  var_2C = Text4.Text
  var_4C = var_2C
  var_64 = LCase(0)
  var_30 = Text2.Text
  var_8C = var_30
  var_EC = "• "
  var_B4 = &H42EC60 & var_64 & "• " & var_30 &
  GoTo loc_005C5F8A
  var_118 = Option2.Value
  If ebx = 0 Then GoTo loc_005C6083
  var_2C = Text4.Text
  var_4C = var_2C
  var_64 = LCase(0)
  var_30 = Text2.Text
  var_DC = vbNullString
  var_EC = vbNullString
  call MailDeleteFlashByIndex(vbNullString & var_64 & vbNullString, vbNullString & var_30 & vbNullString, var_44)
  call Proc_6098C0(0.5, var_44, var_64)
  var_ret_1 = "America Online"
  var_ret_2 = "#32770"
  FindWindow(var_ret_2, var_ret_1)
  var_11C = FindWindow(var_ret_2, var_ret_1)
  If var_120 <> 0 Then GoTo loc_005C60C8
  var_ret_3 = "America Online"
  var_ret_4 = "#32770"
  FindWindow(var_ret_4, var_ret_3)
  var_11C = FindWindow(var_ret_4, var_ret_3)
  setnz dl
  If var_120 = 0 Then GoTo loc_005C6083
  call Proc_6098C0(0.5, , )
  var_2C = Text4.Text
  var_4C = var_2C
  var_64 = LCase(0)
  var_30 = Text2.Text
  var_8C = var_30
  var_EC = "• "
  var_B4 = &H42EC60 & var_64 & "• " & 0 &
  var_34 = var_B4
  call FadePreview2(var_D4, var_24, 3)
  var_2C = "<font face=""tahoma"">" & var_D4
  call MailDeleteNewDuplicates(var_2C & vbNullString, var_44, var_64)
  GoTo loc_005C60C8
  Text4.Text = vbNullString
  Exit Sub
End Sub

Private Sub Timer2_Timer()
  var_2C = "•bodini 4.0• request bot •spek•"
  call FadePreview2(var_58, var_24, 3)
  var_2C = "<font face=""tahoma"">" & var_58
  call MailDeleteNewDuplicates(var_2C & vbNullString, var_24, var_2C)
  call Proc_6098C0(0.5, ebx, )
  var_2C = Text1.Text
  var_34 = "•requesting• " & var_2C & var_0042EC60
  call FadePreview2(var_58, var_24, 3)
  call MailDeleteNewDuplicates("<font face=""tahoma"">" & var_58 & vbNullString, Me, Me)
  call Proc_6098C0(0.7, , )
  var_2C = Text3.Text
  var_34 = "•type• " & var_2C & " • if you have it•"
  call FadePreview2(var_58, var_24, 3)
  call MailDeleteNewDuplicates("<font face=""tahoma"">" & var_58 & vbNullString, Me, Me)
  Exit Sub
End Sub

Private Sub Timer3_Timer()
  Dim var_13C As Variant
  Dim var_2E4 As Variant
  Dim var_2EC As Variant
  Dim var_2F4 As Variant
  Dim var_2DC As ListBox
  Dim var_140 As TextBox
  Dim var_154 As ListBox
  Dim var_164 As TextBox
  Dim var_120 As ListBox
  Dim var_0060C640 As TextBox
  var_2DC = Timer3.Interval
  If ebx <> 0 Then GoTo loc_005D7803
  ebx = (var_120 = "off") + 1
  If (var_120 = "off") + 1 = 0 Then GoTo loc_005D1B4D
  call Proc_6098C0(0.5, Me, var_120)
  If (var_120 <> "on") <> 0 Then GoTo loc_005D1AB5
  ebx = (var_120 = "60") + 1
  If (var_120 = "60") + 1 = 0 Then GoTo loc_005D228B
  var_60 = call Scroll(var_13C, var_120, var_13C)
  var_128 = "•bodini 4.0• server •" & var_120 & " mail(s)•"
  call FadePreview2(var_164, var_FC, 3)
  var_120 = "<font face=""tahoma"">" & var_164
  call MailDeleteNewDuplicates(var_120 & vbNullString, var_120, var_13C)
  call Proc_6098C0(0.7, var_0042E980, var_13C)
  var_14C = call Scroll(var_60, , )
  var_27C = "•type• ""/"
  var_28C = " send list"" • - list•"
  var_120 = "•type• ""/" + LCase(call Scroll(var_60, , )) + " send list"" • - list•"
  call FadePreview2(var_1A4, var_FC, 3)
  var_120 = "<font face=""tahoma"">" & var_1A4
  call MailDeleteNewDuplicates(var_120 & vbNullString, var_FC, var_120)
  call Proc_6098C0(0.5, , )
  var_14C = call Scroll(, , )
  var_27C = "•type• ""/"
  var_28C = " send x"" • - index•"
  var_120 = "•type• ""/" + LCase(call Scroll(, , )) + " send x"" • - index•"
  call FadePreview2(var_1A4, var_FC, 3)
  var_120 = "<font face=""tahoma"">" & var_1A4
  call MailDeleteNewDuplicates(var_120 & vbNullString, var_FC, var_120)
  call Proc_6098C0(0.7, , )
  var_14C = call Scroll(, , )
  var_164 = LCase(call Scroll(, , ))
  var_27C = "•type• ""/"
  var_28C = " find x"" • - query•"
  var_120 = "•type• ""/" + var_164 + " find x"" • - query•"
  call FadePreview2(var_1A4, var_FC, 3)
  var_120 = "<font face=""tahoma"">" & var_1A4
  call MailDeleteNewDuplicates(var_120 & vbNullString, var_FC, var_120)
  call Proc_6098C0(1, , )
  GoTo loc_005D2291
  var_2D8 = List1.ListCount
  If eax <> 0 Then GoTo loc_005D7803
  var_2DC = Timer3.Interval
  If edx <> 0 Then GoTo loc_005D7803
  var_120 = List1.List(0)
  If InStr(1, var_120, var_00431C88, 0) = 0 Then GoTo loc_005D3B58
  var_120 = List1.List(0)
  var_D8 = var_120
  call InStr(var_154, &h00000000, var_284, var_D8, &h00000001, var_174, var_13C, Me, Me, var_13C, InStr(1, var_120, var_00431C88, 0), Me, var_13C, Me, Me, var_13C)
  var_ret_1 = CLng(InStr(var_154, &h00000000, var_284, var_D8, &h00000001, var_174, var_13C, Me, Me, var_13C, InStr(1, var_120, var_00431C88, 0), Me, var_13C, Me, Me, var_13C) + 1)
  Text2.Text = CStr(Mid(var_D8, var_ret_1, ))
  var_2E4 = var_13C
  call InStr(var_154, &h00000000, var_284, var_D8, &h00000001, var_13C, var_164, Me)
  var_ret_2 = InStr(var_154, &h00000000, var_284, var_D8, &h00000001, var_13C, var_164, Me) - 1
  var_120 = CStr(Mid(var_D8, 1, var_ret_2))
  Text3.Text = var_120
  Text6.Text = vbNullString
  var_eax = List4.Clear
  var_164 = LCase(Me)
  var_17C = var_164
  var_194 = LCase(var_164)
  var_120 = var_164 + &H431C88 + var_194
  Text2.OLEDragMode = var_120
  var_2D8 = List3.ListCount
  var_2D8 = var_2D8 - 0001h
  var_28C = var_2D8
  For var_10C = 0 To var_2D8 Step 1
  If var_308 = 0 Then GoTo loc_005D2D98
  var_10C = CInt(var_120)
  var_3D0 = var_10C
  var_13C = List3.List(var_10C)
  var_14C = var_120
  var_164 = LCase(var_120)
  var_124 = Text2.Text
  var_128 = var_004342C4 & var_124
  var_16C = var_128 & var_004342C4
  var_184 = LCase(var_128 & var_004342C4)
  call __vbaVarLikeVar(var_194, var_184, var_164, var_140, Me, Me, DoEvents, Me, var_13C, Me, Me, var_288)
  If CBool(__vbaVarLikeVar(var_194, var_184, var_164, var_140, Me, Me, DoEvents, Me, var_13C, Me, Me, var_288)) = 0 Then GoTo loc_005D2D76
  var_eax = List4.AddItem "search found!", var_278
  var_2F4 = DoEvents
  var_120 = Text6.Text
  var_10C = CInt(var_130)
  var_140 = List3.List(var_10C)
  var_138 = var_120 & Chr$(13) & Chr$(10) & var_130
  var_3D8 = var_138
  List3.FontName = var_138
  Next var_10C
  GoTo loc_005D298B
  var_120 = Text6.Text
  If (var_120 = vbNullString) + 1 = 0 Then GoTo loc_005D2FF7
  var_14C = (var_120 = vbNullString)
  var_164 = LCase((var_120 = vbNullString))
  var_18C = var_164
  var_28C = "• "
  var_29C = " •not found•"
  var_120 = &H42EC60 & var_164 & "• " & LCase(var_164) & " •not found•"
  call FadePreview2(var_1E4, var_FC, 3)
  GoTo loc_005D7254
  var_2EC = "<font face=""tahoma"">" & var_1E4 & vbNullString
  var_2D8 = List4.ListCount
  var_120 = var_2D8
  var_128 = Text3.Text
  var_14C = (vtable)
  var_164 = LCase((vtable))
  var_28C = "<font face=""tahoma""><font color=""#FF8080""><b>•bodini 4.0• server •spek•<p>•find results• for •"
  var_19C = var_164
  var_1B4 = LCase(var_164)
  var_29C = "•<p>"
  var_1CC = var_1B4
  var_204 = "<font face=""tahoma""><font color=""#FF8080""><b>•bodini 4.0• server •spek•<p>•find results• for •" & var_1B4 & "•<p>" + LCase(var_1B4)
  var_124 = "•bodini 4.0• " & var_120
  var_16C = var_124 & " finds for •"
  call MailCountOld(0, var_124 & " finds for •" & var_164 & &H42EC60, var_204)
  var_ret_3 = "AOL Frame25"
  FindWindow(var_ret_3, 0)
  var_50 = FindWindow(var_ret_3, 0)
  var_ret_4 = "MDICLIENT"
  FindWindowEx(var_50, 0, var_ret_4, 0)
  var_90 = FindWindowEx(var_50, 0, var_ret_4, 0)
  var_ret_5 = "Write Mail"
  var_ret_6 = "AOL Child"
  FindWindowEx(var_90, 0, var_ret_6, var_ret_5)
  var_AC = FindWindowEx(var_90, 0, var_ret_6, var_ret_5)
  var_ret_7 = "AOL Frame25"
  FindWindow(var_ret_7, 0)
  var_50 = FindWindow(var_ret_7, 0)
  var_ret_8 = "MDICLIENT"
  FindWindowEx(var_50, 0, var_ret_8, 0)
  var_90 = FindWindowEx(var_50, 0, var_ret_8, 0)
  var_ret_9 = "Error"
  var_ret_A = "AOL Child"
  FindWindowEx(var_90, 0, var_ret_A, var_ret_9)
  var_30 = FindWindowEx(var_90, 0, var_ret_A, var_ret_9)
  If var_30 <> 0 Then GoTo loc_005D356A
  If var_AC = 0 Then GoTo loc_005D3840
  GoTo loc_005D339F
  var_ret_B = "America Online"
  var_ret_C = "#32770"
  FindWindow(var_ret_C, var_ret_B)
  var_44 = FindWindow(var_ret_C, var_ret_B)
  var_ret_D = "OK"
  var_ret_E = "Button"
  FindWindowEx(var_44, 0, var_ret_E, var_ret_D)
  call Proc_608D20(FindWindowEx(var_44, 0, var_ret_E, var_ret_D), , )
  var_ret_F = "AOL Frame25"
  FindWindow(var_ret_F, 0)
  var_50 = FindWindow(var_ret_F, 0)
  var_ret_10 = "MDICLIENT"
  FindWindowEx(var_50, 0, var_ret_10, 0)
  var_90 = FindWindowEx(var_50, 0, var_ret_10, 0)
  var_ret_11 = "Error"
  var_ret_12 = "AOL Child"
  FindWindowEx(var_90, 0, var_ret_12, var_ret_11)
  call Proc_608D70(FindWindowEx(var_90, 0, var_ret_12, var_ret_11), , )
  call Proc_608D70(var_AC, , )
  var_164 = LCase(Me)
  var_28C = "• find results •can't be sent•"
  var_120 = &H42EC60 & var_164 & "• find results •can't be sent•"
  call FadePreview2(var_1A4, var_FC, 3)
  var_110 = var_164
  GoTo loc_005D2FC2
  var_14C = DoEvents
  var_164 = LCase(DoEvents)
  var_1BC = (vtable)
  var_18C = var_120
  var_28C = "• "
  var_29C = " results for "
  var_2AC = " •sent•"
  var_124 = &H42EC60 & var_164 & "• " & var_120 & " results for " & LCase((vtable)) & " •sent•"
  call FadePreview2(var_214, var_FC, 3)
  call MailDeleteNewDuplicates("<font face=""tahoma"">" & var_214 & vbNullString, var_FC, "<font face=""tahoma"">" & var_214 & vbNullString)
  var_eax = List1.RemoveItem 0
  var_2DC = Timer3.Interval
  If ebx <> 0 Then GoTo loc_005D7803
  var_120 = List1.List(0)
  If InStr(1, var_120, "-list", 0) = 0 Then GoTo loc_005D5442
  var_120 = List1.List(0)
  var_D8 = var_120
  var_2E4 = var_D8
  call InStr(var_154, &h00000000, var_284, var_D8, &h00000001, var_174, var_13C, var_D8, Me, var_13C, Me, Me, var_13C, var_2DC, Me, var_13C)
  var_ret_13 = CLng(InStr(var_154, &h00000000, var_284, var_D8, &h00000001, var_174, var_13C, var_D8, Me, var_13C, Me, Me, var_13C, var_2DC, Me, var_13C) + 1)
  var_120 = CStr(Mid(var_D8, var_ret_13, ))
  Text2.Text = var_120
  call InStr(var_154, &h00000000, var_284, var_D8, &h00000001, var_13C, Me, Me)
  Text3.Text = CStr(Mid(var_D8, 1, InStr(var_154, &h00000000, var_284, var_D8, &h00000001, var_13C, Me, Me) - 1))
  var_2E4 = DoEvents
  var_2D8 = List3.ListCount
  var_3E8 = var_2D8
  If var_60C000 <> 0 Then GoTo loc_005D3F9A
  GoTo loc_005D3FAB
  For var_A8 = 1 To Int((var_3F0 / 500)) Step 1
  If var_338 = 0 Then GoTo loc_005D528C
  Multiple2.Text = vbNullString
  var_124 = var_A8 * 500
  For var_C8 = (Val(var_A8 * 500) - 499#) To Val(var_124) Step 1
  var_398 = var_C8
  If var_398 = 0 Then GoTo loc_005D4509
  var_2D8 = List3.ListCount
  var_120 = var_C8
  var_3F4 = var_2D8 + 0001h
  If var_400 <> 0 Then GoTo loc_005D4509
  var_2F4 = var_400
  var_120 = Multiple2.Text
  var_ret_18 = var_C8 - 1
  var_ret_18 = CInt(var_124)
  var_404 = var_ret_18
  var_140 = List3.List(var_ret_18)
  var_128 = var_120 & vbNullString
  var_16C = var_128 & var_124
  var_12C = CStr(var_128 & var_124 & Chr(13) & Chr(10))
  var_408 = var_12C
  List3.FontName = var_12C
  Next var_C8
  var_398 = Next var_C8
  GoTo loc_005D41C8
  var_2EC = DoEvents
  var_120 = Multiple2.Text
  Multiple2.Text = var_120
  Multiple2.Text = vbNullString
  var_120 = Multiple2.Text
  var_124 = Multiple1.Text
  var_128 = var_120 & var_124
  var_40C = var_128
  Multiple1.Text = var_128
  Multiple1.Text = vbNullString
  var_120 = Text3.Text
  var_14C = var_120
  var_29C = "<font face=""tahoma""><font color=""#FF8080""><b>•bodini 4.0• server •spek•<p>•type• /"
  var_18C = call Scroll(var_13C, var_13C, Me)
  var_2AC = " send list • - list•<p>•type• /"
  var_1CC = call Scroll(var_13C, var_13C, Me)
  var_2BC = " send x • - index•<p>•type• /"
  var_20C = call Scroll(Me, var_13C, var_13C)
  var_224 = LCase(call Scroll(Me, var_13C, var_13C))
  var_2CC = " find x • - query•<p><p>"
  var_23C = var_224
  var_1B4 = "<font face=""tahoma""><font color=""#FF8080""><b>•bodini 4.0• server •spek•<p>•type• /" & LCase(call Scroll(var_13C, var_13C, Me))
  var_1C4 = var_1B4 & " send list • - list•<p>•type• /"
  var_204 = var_1C4 & LCase(call Scroll(var_13C, var_13C, Me)) & " send x • - index•<p>•type• /"
  var_12C = var_204 & var_224 & " find x • - query•<p><p>" + LCase(var_224)
  var_27C = "•bodini 4.0• server • list "
  call MailCountOld(LCase(0), "•bodini 4.0• server • list " & var_A8 & &H42EC60, var_12C)
  var_ret_19 = "AOL Frame25"
  FindWindow(var_ret_19, 0)
  var_50 = FindWindow(var_ret_19, 0)
  var_ret_1A = "MDICLIENT"
  FindWindowEx(var_50, 0, var_ret_1A, 0)
  var_90 = FindWindowEx(var_50, 0, var_ret_1A, 0)
  var_ret_1B = "Write Mail"
  var_ret_1C = "AOL Child"
  FindWindowEx(var_90, 0, var_ret_1C, var_ret_1B)
  var_AC = FindWindowEx(var_90, 0, var_ret_1C, var_ret_1B)
  var_ret_1D = "Send To:"
  var_ret_1E = "_AOL_Static"
  FindWindowEx(var_AC, 0, var_ret_1E, var_ret_1D)
  var_2DC = FindWindowEx(var_AC, 0, var_ret_1E, var_ret_1D)
  var_ret_1F = "AOL Frame25"
  FindWindow(var_ret_1F, 0)
  var_50 = FindWindow(var_ret_1F, 0)
  var_ret_20 = "MDICLIENT"
  FindWindowEx(var_50, 0, var_ret_20, 0)
  var_90 = FindWindowEx(var_50, 0, var_ret_20, 0)
  var_ret_21 = "Error"
  var_ret_22 = "AOL Child"
  FindWindowEx(var_90, 0, var_ret_22, var_ret_21)
  var_30 = FindWindowEx(var_90, 0, var_ret_22, var_ret_21)
  If var_30 <> 0 Then GoTo loc_005D4F3A
  If var_AC <> 0 Then GoTo loc_005D4AEC
  var_120 = Text3.Text
  var_14C = var_120
  var_28C = "• list "
  var_29C = " • sent•"
  var_124 = &H42EC60 & LCase(0) & "• list " & var_A8 & " • sent•"
  call FadePreview2(var_1C4, var_FC, 3)
  call MailDeleteNewDuplicates("<font face=""tahoma"">" & var_1C4 & vbNullString, var_FC, "<font face=""tahoma"">" & var_1C4 & vbNullString)
  Next var_A8
  GoTo loc_005D4051
  var_ret_23 = "America Online"
  var_ret_24 = "#32770"
  FindWindow(var_ret_24, var_ret_23)
  var_44 = FindWindow(var_ret_24, var_ret_23)
  var_ret_25 = "OK"
  var_ret_26 = "Button"
  FindWindowEx(var_44, 0, var_ret_26, var_ret_25)
  call Proc_608D20(FindWindowEx(var_44, 0, var_ret_26, var_ret_25), , )
  var_ret_27 = "AOL Frame25"
  FindWindow(var_ret_27, 0)
  var_50 = FindWindow(var_ret_27, 0)
  var_ret_28 = "MDICLIENT"
  FindWindowEx(var_50, 0, var_ret_28, 0)
  var_90 = FindWindowEx(var_50, 0, var_ret_28, 0)
  var_ret_29 = "Error"
  var_ret_2A = "AOL Child"
  FindWindowEx(var_90, 0, var_ret_2A, var_ret_29)
  call Proc_608D70(FindWindowEx(var_90, 0, var_ret_2A, var_ret_29), , )
  call Proc_608D70(var_AC, , )
  var_120 = Text3.Text
  var_14C = var_120
  var_28C = "• list "
  var_29C = " • can't be sent•"
  var_124 = &H42EC60 & LCase(var_120) & "• list " & var_A8 & " • can't be sent•"
  call FadePreview2(var_1C4, var_FC, 3)
  var_110 = var_1C4
  GoTo loc_005D6E07
  var_14C = var_13C
  var_27C = "-list"
  var_120 = CStr(LCase(var_13C) + "-list")
  Text3.OLEDragMode = var_120
  var_eax = List1.RemoveItem 0
  Multiple2.Text = vbNullString
  var_2DC = Timer3.Interval
  If ebx <> 0 Then GoTo loc_005D7803
  var_120 = List1.List(0)
  If InStr(1, var_120, var_00431364, 0) = 0 Then GoTo loc_005D7803
  var_120 = List1.List(0)
  var_D8 = var_120
  var_2E4 = var_D8
  call InStr(var_154, &h00000000, var_284, var_D8, &h00000001, var_174, var_13C, var_D8, Me, var_13C, Me, Me, var_13C, var_2DC, Me, var_13C)
  var_ret_2B = CLng(InStr(var_154, &h00000000, var_284, var_D8, &h00000001, var_174, var_13C, var_D8, Me, var_13C, Me, Me, var_13C, var_2DC, Me, var_13C) + 1)
  var_120 = CStr(Mid(var_D8, var_ret_2B, ))
  Text2.Text = var_120
  call InStr(var_154, &h00000000, var_284, var_D8, &h00000001, var_13C, Me, Me)
  Text3.Text = CStr(Mid(var_D8, 1, InStr(var_154, &h00000000, var_284, var_D8, &h00000001, var_13C, Me, Me) - 1))
  var_120 = List1.List(0)
  If InStr(1, var_120, "-list", 0) <> 0 Then GoTo loc_005D7803
  var_120 = Text2.Text
  ebx = (var_120 = vbNullString) + 1
  If (var_120 <> vbNullString) + 1 <> 0 Then GoTo loc_005D7803
  var_13C = var_120
  FindWindow(var_13C, var_120)
  var_50 = FindWindow(var_13C, var_120)
  var_120 = var_120
  FindWindowEx(var_50, 0, var_120, var_120)
  var_90 = FindWindowEx(var_50, 0, var_120, var_120)
  var_124 = var_50
  ecx = var_120
  FindWindowEx(var_90, 0, var_124, var_120)
  var_78 = FindWindowEx(var_90, 0, var_124, var_120)
  var_120 = var_124
  FindWindowEx(var_78, 0, var_120, var_120)
  var_EC = FindWindowEx(var_78, 0, var_120, var_120)
  SendMessage(var_EC, 395, 0, 0)
  var_120 = Text2.Text
  SendMessage(var_EC, 390, CLng((var_120 - 1)), 0)
  PostMessage(var_EC, 256, 13, 0)
  PostMessage(var_EC, 257, 13, 0)
  call Proc_6098C0(1, var_13C, Me)
  var_EC = vbNull
  var_120 = vbNull
  FindWindow(var_120, var_120)
  var_20 = FindWindow(var_120, var_120)
  var_120 = var_120
  FindWindowEx(var_20, 0, var_120, var_120)
  var_1C = FindWindowEx(var_20, 0, var_120, var_120)
  var_120 = var_120
  FindWindowEx(var_20, var_1C, var_120, var_120)
  var_B8 = FindWindowEx(var_20, var_1C, var_120, var_120)
  If var_20 = 0 Then GoTo loc_005D5E1C
  var_120 = call ChatLineSN(var_B8, 1, "Static")
  var_2E4 = InStr(0, var_120, "That mail is no longer available or is not accessible to this account.", 0)
  If var_2E4 = 0 Then GoTo loc_005D5E1C
  var_124 = call ChatLineSN(var_B8, 1, "Static")
  ecx = var_120
  FindWindow(var_124, var_120)
  var_20 = FindWindow(var_124, var_120)
  var_124 = var_120
  FindWindowEx(var_20, 0, var_124, var_120)
  var_2DC = FindWindowEx(var_20, 0, var_124, var_120)
  var_1C = var_2DC
  var_120 = var_2DC
  FindWindowEx(var_20, var_1C, var_120, var_120)
  var_B8 = FindWindowEx(var_20, var_1C, var_120, var_120)
  var_124 = var_20
  ecx = var_120
  FindWindowEx(var_20, 0, var_124, var_120)
  var_4C = FindWindowEx(var_20, 0, var_124, var_120)
  var_14C = call Proc_608D20(var_4C, "OK", "Static")
  var_164 = LCase(call Proc_608D20(var_4C, "OK", "Static"))
  var_120 = Text2.Text
  var_28C = "• "
  var_18C = var_120
  var_29C = " •is not available•"
  GoTo loc_005D6CE0
  var_E8 = call FindForwardWindow(var_13C, var_164, Me)
  If call FindForwardWindow(var_13C, var_164, Me) = 0 Then GoTo loc_005D5E1C
  var_2C = call FindSendWindow(Me, 0, "Static")
  If call FindSendWindow(Me, 0, "Static") <> 0 Then GoTo loc_005D5F7A
  var_E8 = call FindForwardWindow(0, "America Online", "Static")
  ecx = var_120
  FindWindowEx(var_E8, 0, call FindForwardWindow(0, "America Online", "Static"), var_120)
  var_11C = FindWindowEx(var_E8, 0, call FindForwardWindow(0, "America Online", "Static"), var_120)
  If var_18 > 6 Then GoTo loc_005D5EFD
  var_18 = var_120
  FindWindowEx(var_E8, var_11C, var_18, var_120)
  var_11C = FindWindowEx(var_E8, var_11C, var_18, var_120)
  &h00000001 = &h00000001 + var_18
  GoTo loc_005D5E98
  SendMessage(var_11C, 513, 0, 0)
  SendMessage(var_11C, 514, 0, 0)
  call Proc_6098C0(0.55, "_AOL_Icon", 0)
  If var_2C = 0 Then GoTo loc_005D5E31
  GoTo loc_005D5F7A
  var_2C = call FindSendWindow("_AOL_Icon", 0, 0)
  FindWindowEx(var_2C, 0, var_120, var_120)
  var_74 = FindWindowEx(var_2C, 0, var_2DC, var_120)
  var_120 = var_120
  FindWindowEx(var_2C, var_74, var_120, var_120)
  var_2DC = FindWindowEx(var_2C, var_74, var_120, var_120)
  var_70 = var_2DC
  var_120 = var_2DC
  FindWindowEx(var_2C, var_70, var_120, var_120)
  var_6C = FindWindowEx(var_2C, var_70, var_120, var_120)
  var_120 = CInt(9)
  FindWindowEx(var_2C, 0, var_120, var_120)
  var_2DC = FindWindowEx(var_2C, 0, var_120, var_120)
  var_24 = var_2DC
  var_120 = var_2DC
  FindWindowEx(var_2C, 0, var_120, var_120)
  var_2DC = FindWindowEx(var_2C, 0, var_120, var_120)
  var_68 = var_2DC
  var_120 = var_2DC
  FindWindowEx(var_2C, 0, var_120, var_120)
  var_2DC = FindWindowEx(var_2C, 0, var_120, var_120)
  var_B4 = var_2DC
  var_120 = var_2DC
  FindWindowEx(var_2C, 0, var_120, var_120)
  var_2DC = FindWindowEx(var_2C, 0, var_120, var_120)
  var_38 = var_2DC
  var_120 = var_2DC
  FindWindowEx(var_2C, var_38, var_120, var_120)
  var_3C = FindWindowEx(var_2C, var_38, var_120, var_120)
  var_120 = var_120
  FindWindowEx(var_2C, 0, var_120, var_120)
  var_11C = FindWindowEx(var_2C, 0, var_120, var_120)
  If var_18 > 0 Then GoTo loc_005D6209
  var_120 = vbDataObject
  FindWindowEx(var_2C, var_11C, var_120, var_120)
  var_11C = FindWindowEx(var_2C, var_11C, var_120, var_120)
  &h00000001 = &h00000001 + var_18
  GoTo loc_005D61A6
  var_128 = 0 & var_11C
  GoTo loc_005D6279
  setnz dl
  setnz al
  setnz cl
  setnz al
  setnz cl
  setnz al
  setnz cl
  setnz al
  setnz cl
  If Not (ecx) <> 0 Then GoTo loc_005D5F74
  var_2D8 = serverop.Check2.Value
  If ebx = 0 Then GoTo loc_005D6461
  var_48 = call ChatLineSN(var_6C, var_13C, var_0060C640)
  var_27C = var_48
  Len(var_48) = Len(var_48) - &h00000005
  var_154 = Right(var_48, Len(var_48))
  var_48 = var_154
  var_120 = var_154
  SendMessage(var_6C, 12, 0, var_120)
  var_ret_2D = var_120
  GoTo loc_005D6467
  var_120 = Text3.Text
  SendMessage(var_74, 12, 0, var_120)
  var_120 = Text2.Text
  var_124 = "<font face=""tahoma""><font color=""#FF8080""><b>•bodini 4.0• server •spek•<p>•mail number • " & var_120
  var_128 = var_124 & var_0042EC60
  ecx = var_124 & var_0042EC60
  SendMessage(var_24, 12, 0, var_12C)
  If var_2C = 0 Then GoTo loc_005D72AC
  var_13C = var_120
  FindWindow(var_13C, var_120)
  var_50 = FindWindow(var_13C, var_120)
  var_120 = var_120
  FindWindowEx(var_50, 0, var_120, var_120)
  var_90 = FindWindowEx(var_50, 0, var_120, var_120)
  var_120 = var_124
  ecx = var_124
  FindWindowEx(var_90, 0, var_120, var_120)
  var_E4 = FindWindowEx(var_90, 0, var_120, var_120)
  var_120 = var_124
  ecx = var_124
  FindWindow(var_120, var_120)
  var_B0 = FindWindow(var_120, var_120)
  var_120 = var_124
  FindWindowEx(var_B0, 0, var_120, var_120)
  var_94 = FindWindowEx(var_B0, 0, var_120, var_120)
  var_120 = var_B0
  FindWindowEx(var_B0, var_94, var_120, var_120)
  var_34 = FindWindowEx(var_B0, var_94, var_120, var_120)
  If var_B0 = 0 Then GoTo loc_005D685F
  call ChatLineSN(var_34, 1, "Static")
  var_424 = InStr(0, call ChatLineSN(var_34, 1, "Static"), "That mail is no longer available for forwarding.", 0)
  call ChatLineSN(var_34, 1, "Static")
  var_424 = InStr(0, call ChatLineSN(var_34, 1, "Static"), "The original message is no longer available or was not received by this address.", 0)
  call ChatLineSN(var_34, 1, "America Online")
  var_2E4 = InStr("Error", call ChatLineSN(var_34, 1, "America Online"), "Please refrain from forwarding this message.", 0)
  If var_2E4 <> 0 Then GoTo loc_005D696B
  If var_E4 <> 0 Then GoTo loc_005D6E8F
  var_2C = call FindSendWindow(DoEvents, Me, )
  var_120 = var_120
  FindWindowEx(var_2C, 0, var_120, var_120)
  var_11C = FindWindowEx(var_2C, 0, var_120, var_120)
  If var_18 > 11 Then GoTo loc_005D691A
  var_18 = var_120
  FindWindowEx(var_2C, var_11C, var_18, var_120)
  var_11C = FindWindowEx(var_2C, var_11C, var_18, var_120)
  &h00000001 = &h00000001 + var_18
  GoTo loc_005D68B8
  SendMessage(var_11C, 513, 0, 0)
  SendMessage(var_11C, 514, 0, var_2DC)
  GoTo loc_005D65D5
  var_124 = var_2DC
  ecx = var_120
  FindWindow(var_124, var_120)
  var_B0 = FindWindow(var_124, var_120)
  var_124 = var_120
  FindWindowEx(var_B0, 0, var_124, var_120)
  var_2DC = FindWindowEx(var_B0, 0, var_124, var_120)
  var_94 = var_2DC
  var_120 = var_2DC
  FindWindowEx(var_B0, var_94, var_120, var_120)
  var_34 = FindWindowEx(var_B0, var_94, var_120, var_120)
  var_124 = var_B0
  ecx = var_120
  FindWindowEx(var_B0, 0, var_124, var_120)
  call Proc_608D20(FindWindowEx(var_B0, 0, var_124, var_120), "OK", "Static")
  call FindSendWindow(0, "Static", 0)
  call Proc_608D70(call FindSendWindow(0, "Static", 0), "America Online", "_AOL_Icon")
  var_2DC = 0.65
  call Proc_6098C0(var_2DC, 0, "_AOL_Icon")
  var_124 = var_2DC
  ecx = var_120
  FindWindow(var_124, var_120)
  var_118 = FindWindow(var_124, var_120)
  var_124 = var_120
  var_120 = var_120
  FindWindowEx(var_118, 0, var_120, var_120)
  var_28 = FindWindowEx(var_118, 0, var_120, var_120)
  var_124 = var_120
  var_120 = var_120
  FindWindowEx(var_118, var_28, var_120, var_120)
  var_114 = FindWindowEx(var_118, var_28, var_120, var_120)
  call Proc_608D20(var_114, "&No", "&Yes")
  call Proc_608D20(var_114, "AOL Mail", )
  call Proc_6098C0(0.5, , )
  var_2DC = call FindForwardWindow(, , )
  var_14C = call Proc_608D70(var_2DC, , )
  var_164 = LCase(call Proc_608D70(var_2DC, , ))
  var_120 = Text2.Text
  var_28C = "• "
  var_18C = var_120
  var_29C = " •is not forwardable•"
  var_124 = &H42EC60 & var_164 & "• " & var_120 & " •is not forwardable•"
  call FadePreview2(var_1D4, var_FC, 3)
  var_110 = call Scroll(var_13C, var_13C, Me)
  var_120 = "<font face=""tahoma"">" & var_110
  var_124 = var_120 & vbNullString
  call MailDeleteNewDuplicates(var_124, var_FC, var_124)
  var_eax = List1.RemoveItem 0
  If List1.RemoveItem 0 >= 0 Then GoTo loc_005D77F7
  GoTo loc_005D77E5
  ecx = var_124
  ecx = var_124
  FindWindow(var_120, var_120)
  var_64 = FindWindow(var_120, var_120)
  var_124 = var_124
  ecx = var_120
  FindWindowEx(var_64, 0, var_124, var_120)
  call Proc_608D20(FindWindowEx(var_64, 0, var_124, var_120), Me, Me)
  var_DC = var_120
  FindWindow(var_DC, var_120)
  var_50 = FindWindow(var_DC, var_120)
  var_120 = var_120
  FindWindowEx(var_50, 0, var_120, var_120)
  var_90 = FindWindowEx(var_50, 0, var_120, var_120)
  var_124 = var_50
  ecx = var_120
  FindWindowEx(var_90, 0, var_124, var_120)
  call Proc_608D70(FindWindowEx(var_90, 0, var_124, var_120), , )
  call FindForwardWindow(, , )
  call Proc_608D70(call FindForwardWindow(, , ), , )
  var_2DC = call FindSendWindow(, , )
  var_14C = call Proc_608D70(var_2DC, , )
  var_164 = LCase(call Proc_608D70(var_2DC, , ))
  var_120 = Text2.Text
  var_18C = var_120
  var_28C = "• "
  var_29C = " •can't be sent•"
  var_124 = &H42EC60 & var_164 & "• " & var_120 & " •can't be sent•"
  call FadePreview2(var_1D4, var_FC, 3)
  var_120 = "<font face=""tahoma"">" & call Scroll(var_13C, var_13C, Me)
  var_124 = var_120 & vbNullString
  call MailDeleteNewDuplicates(var_124, var_FC, var_124)
  var_eax = List1.RemoveItem 0
  If List1.RemoveItem 0 >= 0 Then GoTo loc_005D77F7
  GoTo loc_005D77E5
  PostMessage(var_E8, 16, 0, 0)
  var_14C = var_120 & var_13C
  var_164 = LCase(var_120 & var_13C)
  var_120 = Text2.Text
  var_124 = serverop.Text2.Text
  var_18C = var_120
  var_1BC = var_124
  var_28C = "• "
  var_29C = " •"
  var_128 = &H42EC60 & var_164 & "• " & var_120 & " •" & var_124 & &H42EC60
  call FadePreview2(var_204, var_FC, 3)
  var_120 = "<font face=""tahoma"">" & var_204
  call MailDeleteNewDuplicates(var_120 & vbNullString, , )
  var_2EC = var_120
  var_27C = vbNullString
  var_164 = LCase(Me)
  var_120 = Text2.Text
  var_18C = var_120
  var_29C = vbNullString
  var_124 = vbNullString + var_164 + &H431364 + 0 + vbNullString
  Text2.OLEDragMode = var_124
  var_eax = List1.RemoveItem 0
  If List1.RemoveItem 0 >= 0 Then GoTo loc_005D77F7
  List1.RemoveItem 0 = CheckObj(Me, var_00432428, 496)
  Exit Sub
  Exit Sub
End Sub

Private Sub Timer4_Timer()
  Dim var_1FC As ListBox
  Dim var_80 As ListBox
  var_88 = call FindRoom(edi, esi, ebx)
  var_68 = LCase(call FindRoom(edi, esi, ebx))
  InStr(1, var_68, var_00431C88, 0) = InStr(1, var_68, var_00431C88, 0) - &h00000001
  var_88 = InStr(1, var_68, var_00431C88, 0)
  var_198 = var_68
  var_18 = Mid(var_68, 1, InStr(1, var_68, var_00431C88, 0))
  var_198 = var_68
  InStr(1, var_68, var_00431C88, 0) = InStr(1, var_68, var_00431C88, 0) + &h00000003
  var_3C = Mid(var_68, InStr(1, var_68, var_00431C88, 0), 10)
  var_198 = var_3C
  var_90 = LCase(var_3C)
  var_98 = call Scroll(, , )
  var_100 = LCase(&H43137C + LCase(call Scroll(, , )) + LCase(" send list"))
  call __vbaVarLikeVar(var_110, var_100, var_90)
  var_1FC = CBool(__vbaVarLikeVar(var_110, var_100, var_90))
  If var_1FC = 0 Then GoTo loc_005D8351
  var_1F4 = List1.ListCount
  var_1F4 = var_1F4 - 0001h
  var_1A8 = var_1F4
  For var_38 = "" To var_1F4 Step 1
  var_2D0 = var_224
  If var_2D0 = 0 Then GoTo loc_005D7FF7
  var_38 = CInt(var_6C)
  var_80 = List1.List(var_38)
  var_40 = var_6C
  var_1C8 = var_40
  var_1A8 = vbNullString
  var_198 = var_18
  var_1B8 = "-list"
  var_1FC = (var_40 = LCase(vbNullString + LCase(var_18) + "-list"))
  If var_1FC <> 0 Then GoTo loc_005DA019
  Next var_38
  var_2D0 = Next var_38
  GoTo loc_005D7E76
  var_1F4 = List2.ListCount
  var_1F4 = var_1F4 - 0001h
  var_1A8 = var_1F4
  For var_38 = "" To var_1F4 Step 1
  var_2D8 = var_244
  If Me = 0 Then GoTo loc_005D8244
  var_38 = CInt(var_6C)
  var_80 = List2.List(var_38)
  var_40 = var_6C
  var_1C8 = var_40
  var_1A8 = vbNullString
  var_198 = var_18
  var_1B8 = "-list"
  var_1FC = (var_40 = LCase(vbNullString + LCase(var_18) + "-list"))
  If var_1FC <> 0 Then GoTo loc_005DA019
  Next var_38
  var_2D8 = Next var_38
  GoTo loc_005D80C1
  var_198 = var_18
  var_1A8 = "-list"
  var_6C = CStr(LCase(var_18) + "-list")
  var_eax = List1.AddItem var_6C, var_1B4
  var_198 = var_3C
  var_90 = LCase(var_3C)
  var_98 = call Scroll(, , )
  var_100 = LCase(&H43137C + LCase(call Scroll(, , )) + LCase(" send status"))
  var_1C8 = var_3C
  var_120 = Ucase(var_3C)
  var_1D8 = "<aolpromo>/"
  var_128 = call Scroll(var_80, Next var_38, var_234)
  var_1E8 = " send status"
  var_170 = Ucase("<aolpromo>/" + LCase(call Scroll(var_80, Next var_38, var_234)) + " send status")
  call __vbaVarLikeVar(var_110, var_100, var_90, var_244, Me, Me, var_80, Me, Me)
  call __vbaVarLikeVar(var_180, var_170, var_120, __vbaVarLikeVar(var_110, var_100, var_90, var_244, Me, Me, var_80, Me, Me))
  call Or(var_190, __vbaVarLikeVar(var_180, var_170, var_120, __vbaVarLikeVar(var_110, var_100, var_90, var_244, Me, Me, var_80, Me, Me)))
  var_1FC = CBool(Or(var_190, __vbaVarLikeVar(var_180, var_170, var_120, __vbaVarLikeVar(var_110, var_100, var_90, var_244, Me, Me, var_80, Me, Me))))
  If var_1FC = 0 Then GoTo loc_005D8730
  var_7C = var_0042EC60 & var_18 & "• " & var_70 & " •commands pending•"
  call FadePreview2(var_A0, var_60, 3)
  var_6C = "<font face=""tahoma"">" & call Scroll(, , )
  call MailDeleteNewDuplicates(var_6C & vbNullString, Me, Me)
  call Proc_6098C0(0.55, , )
  var_198 = var_3C
  var_90 = LCase(var_3C)
  var_98 = call Scroll(, , )
  var_D0 = " send *"
  var_100 = LCase(&H43137C + LCase(call Scroll(, , )) + LCase(var_D0))
  call __vbaVarLikeVar(var_110, var_100, var_90)
  var_1FC = CBool(__vbaVarLikeVar(var_110, var_100, var_90))
  If var_1FC = 0 Then GoTo loc_005D96D1
  var_198 = var_3C
  InStr(1, var_3C, "d ", 0) = InStr(1, var_3C, "d ", 0) + &h00000002
  var_50 = Mid(var_3C, InStr(1, var_3C, "d ", 0), 10)
  var_198 = var_3C
  var_90 = Ucase(var_3C)
  var_98 = call Scroll(, , )
  var_1B8 = " send list"
  var_E0 = Ucase(&H43137C + LCase(call Scroll(, , )) + " send list")
  call __vbaVarLikeVar(var_F0, var_E0, var_90)
  var_1FC = CBool(__vbaVarLikeVar(var_F0, var_E0, var_90))
  If var_1FC <> 0 Then GoTo loc_005DA019
  var_198 = var_3C
  var_90 = Ucase(var_3C)
  var_98 = call Scroll(, , )
  var_1B8 = " send status"
  var_E0 = Ucase(&H43137C + LCase(call Scroll(, , )) + " send status")
  call __vbaVarLikeVar(var_F0, var_E0, var_90)
  var_1FC = CBool(__vbaVarLikeVar(var_F0, var_E0, var_90))
  If var_1FC <> 0 Then GoTo loc_005DA019
  var_1FC = var_80
  var_1F4 = List1.ListCount
  var_1F4 = var_1F4 - 0001h
  var_1A8 = var_1F4
  For var_38 = "" To var_1F4 Step 1
  var_2E0 = var_264
  If var_2E0 = 0 Then GoTo loc_005D8D99
  var_38 = CInt(var_6C)
  var_80 = List1.List(var_38)
  var_40 = var_6C
  var_1D8 = var_40
  var_1A8 = vbNullString
  var_198 = var_18
  var_1C8 = vbNullString
  var_1FC = (var_40 = LCase(vbNullString + LCase(var_18) + &H431364 + var_50 + vbNullString))
  If var_1FC <> 0 Then GoTo loc_005DA019
  Next var_38
  var_2E0 = Next var_38
  GoTo loc_005D8BDA
  var_1F4 = List2.ListCount
  var_1F4 = var_1F4 - 0001h
  var_1A8 = var_1F4
  For var_38 = "" To var_1F4 Step 1
  var_2E8 = var_284
  If var_2E8 = 0 Then GoTo loc_005D9022
  var_38 = CInt(var_6C)
  var_80 = List2.List(var_38)
  var_40 = var_6C
  var_1D8 = var_40
  var_1A8 = vbNullString
  var_198 = var_18
  var_1C8 = vbNullString
  var_1FC = (var_40 = LCase(vbNullString + LCase(var_18) + &H431364 + var_50 + vbNullString))
  If var_1FC <> 0 Then GoTo loc_005DA019
  Next var_38
  var_2E8 = Next var_38
  GoTo loc_005D8E63
  If IsNumeric(var_50) <> 0 Then GoTo loc_005D91AB
  var_6C = var_0042EC60 & var_18
  var_88 = var_6C & "• "
  var_198 = " • is invalid•"
  var_70 = var_6C & "• " & var_50 & " • is invalid•"
  call FadePreview2(var_D0, var_60, 3)
  call MailDeleteNewDuplicates("<font face=""tahoma"">" & var_D0 & vbNullString, var_274, var_284)
  call Proc_6098C0(0.55, Me, Me)
  GoTo loc_005DA019
  var_1F4 = List3.ListCount
  var_204 = (var_50 > var_1F4)
  If var_204 = 0 Then GoTo loc_005D93B1
  var_6C = var_0042EC60 & var_18
  var_88 = var_6C & "• "
  var_198 = " • is invalid•"
  var_A0 = var_6C & "• " & var_50
  var_70 = var_A0 & " • is invalid•"
  call FadePreview2(var_D0, var_60, 3)
  call MailDeleteNewDuplicates("<font face=""tahoma"">" & var_D0 & vbNullString, var_80, Me)
  call Proc_6098C0(0.55, , )
  GoTo loc_005DA019
  call InStr(var_A0, edi, var_1A0, var_90, &h00000001, Me)
  var_1FC = CBool(InStr(var_A0, edi, var_1A0, var_90, &h00000001, Me))
  If var_1FC = 0 Then GoTo loc_005D95A9
  var_6C = var_0042EC60 & var_18
  var_88 = var_6C & "• "
  var_198 = " • is invalid•"
  var_B0 = var_6C & "• " & var_50 & " • is invalid•"
  var_70 = var_B0
  call FadePreview2(var_D0, var_60, 3)
  var_6C = "<font face=""tahoma"">" & var_D0
  call MailDeleteNewDuplicates(var_6C & vbNullString, , )
  call Proc_6098C0(0.55, , )
  GoTo loc_005DA019
  var_198 = var_18
  var_A0 = var_6C & "• "
  ecx = var_50
  var_6C = var_B0
  var_eax = List1.AddItem var_6C, var_B0
  var_198 = var_3C
  var_90 = LCase(var_3C)
  var_98 = call Scroll(var_50, var_A0, var_A0)
  var_B0 = LCase(call Scroll(var_50, 8, 8))
  ecx = " find *"
  var_E0 = LCase(var_D0)
  call __vbaVarLikeVar(var_F0, var_E0, var_90, var_D0, var_1C0, var_C0, var_C0, var_B0, var_1B0, var_1B0, var_90, var_1B4)
  var_1FC = CBool(__vbaVarLikeVar(var_F0, var_E0, var_90, var_D0, var_1C0, var_C0, var_C0, var_B0, var_1B0, var_1B0, var_90, var_1B4))
  If var_1FC = 0 Then GoTo loc_005DA019
  var_198 = var_3C
  InStr(1, var_3C, "d ", 0) = InStr(1, var_3C, "d ", 0) + &h00000002
  var_A0 = Mid(var_3C, InStr(1, var_3C, "d ", 0), 10)
  var_28 = var_A0
  var_90 = Len(var_28)
  If (var_90 < 2) <> 0 Then GoTo loc_005DA019
  If IsNumeric(var_28) <> var_FFFFFF Then GoTo loc_005D99B7
  var_70 = var_0042EC60 & var_18 & "• number finds are invalid•"
  call FadePreview2(var_A0, var_60, 3)
  var_6C = "<font face=""tahoma"">" & var_A0
  call MailDeleteNewDuplicates(var_6C & vbNullString, , )
  call Proc_6098C0(0.55, , )
  GoTo loc_005DA019
  var_1F4 = List1.ListCount
  var_1F4 = var_1F4 - 0001h
  var_1A8 = var_1F4
  For var_38 = "" To var_1F4 Step 1
  var_2F0 = var_2A4
  If var_2F0 = 0 Then GoTo loc_005D9C5A
  var_38 = CInt(var_6C)
  var_80 = List1.List(var_38)
  var_40 = var_6C
  var_1D8 = var_40
  var_1A8 = vbNullString
  var_198 = var_18
  var_90 = LCase(var_18)
  var_90 = var_A0
  var_B0 = var_A0
  LCase(var_28)
  var_1FC = (var_40 = LCase(var_E0))
  If var_1FC <> 0 Then GoTo loc_005DA019
  Next var_38
  var_2F0 = Next var_38
  GoTo loc_005D9A81
  var_1F4 = List2.ListCount
  var_1F4 = var_1F4 - 0001h
  var_1A8 = var_1F4
  For var_38 = "" To var_1F4 Step 1
  var_2F8 = var_2C4
  If Me = 0 Then GoTo loc_005D9EFF
  var_38 = CInt(var_6C)
  var_80 = List2.List(var_38)
  var_40 = var_6C
  var_1D8 = var_40
  var_1A8 = vbNullString
  var_198 = var_18
  var_90 = LCase(var_18)
  var_90 = var_A0
  var_B0 = var_A0
  LCase(var_28)
  var_1FC = (var_40 = LCase(var_E0))
  If var_1FC <> 0 Then GoTo loc_005DA019
  Next var_38
  var_2F8 = Next var_38
  GoTo loc_005D9D24
  var_198 = var_18
  var_90 = LCase(var_18)
  var_6C = var_B0
  var_eax = List1.AddItem var_6C, var_B0
  Exit Sub
  Exit Sub
End Sub

Private Sub VScroll1_Change()
  Dim var_1C As Variant
  DestroyIcon(var_0060C024)
  var_eax = Picture1.Cls
  var_1C = Global.App
  var_28 = Global.hInstance
  var_24 = VScroll1.Value
  var_ret_1 = var_0060C028
  ExtractIcon(var_28, var_ret_1, var_24)
  var_ret_2 = var_18
  var_60C024 = ExtractIcon(var_28, var_ret_1, var_24)
  Picture1.AutoSize = True
  Picture1.AutoRedraw = True
  var_28 = Picture1.hDC
  DrawIcon(var_28, 0, 0, var_0060C024)
  var_eax = Picture1.Refresh
  Exit Sub
End Sub

Private Sub cmdConnect_Click()
  Dim var_20 As Variant
  Dim var_18 As Winsock
  Dim var_34 As Variant
  var_18 = cmdConnect.Caption
  ebx = (var_18 = "&Connect") + 1
  If (var_18 = "&Connect") + 1 = 0 Then GoTo loc_005C7332
  var_18 = txtIP.Text
  ebx = Len(var_18) + 1
  If Len(var_18) + 1 = 0 Then GoTo loc_005C6FB2
  Beep
  var_eax = txtIP.SetFocus
  GoTo loc_005C744C
  var_18 = txtIP.Text
  var_1C = var_18._RemoteHost
  ebx = (var_20 = var_1C) + 1
  If (var_20 = var_1C) + 1 = 0 Then GoTo loc_005C70D6
  Beep
  var_34 = "You cannot connect to yourself."
  GoTo loc_005C744C
  cmdConnect.Caption = "&Close"
  cmdListen.Enabled = False
  txtSend.Enabled = True
  cmdSend.Enabled = True
  var_18 = txtIP.Text
  var_2C = var_18
  esi = Winsock._RemoteHost
  var_eax = ipchat2.Show var_68
  ipchat2.Visible = False
  GoTo loc_005C744C
  call edi(var_20, (vtable), var_20, &h00000046, &h00000000)
  call edi(var_20, (vtable), var_20)
  edi(var_20, (vtable), var_20).Height = NAN
  call edi(var_20, (vtable), var_20)
  edi(var_20, (vtable), var_20).Caption = "&Connect"
  call edi(var_20, (vtable), var_20)
  call edi(var_20, (vtable), var_20)
  Exit Sub
End Sub

Private Sub cmdListen_Click()
  Dim var_1C As Variant
  Dim var_0060C618 As Me
  var_18 = cmdListen.Caption
  eax = (var_18 = "&Listen") + 1
  var_48 = (var_18 = "&Listen") + 1
  If var_48 = 0 Then GoTo loc_005C773F
  var_40 = (var_18 = "&Listen") + 1
  cmdListen.Caption = "&Close"
  cmdConnect.Enabled = False
  var_40 = var_1C
  txtSend.Enabled = True
  cmdSend.Enabled = True
  var_1C = var_1C._RemoteHost
  var_eax = ipchat2.Show var_20
  GoTo loc_005C7853
  call edi(var_1C, (vtable), var_0060C618, &h00000046, &h00000000)
  call edi(var_1C, (vtable), var_0060C618)
  edi(var_1C, (vtable), var_0060C618).Caption = "&Listen"
  call edi(var_1C, (vtable), var_0060C618)
  edi(var_1C, (vtable), var_0060C618).Height = NAN
  call edi(var_1C, (vtable), var_0060C618)
  call edi(var_1C, (vtable), var_0060C618)
  Exit Sub
End Sub

Private Sub cmdSend_Click()
  Dim var_20 As Winsock
  var_54 = cmdListen.Enabled
  If ebx = 0 Then GoTo loc_005C79ED
  var_18 = txtSend.Text
  var_28 = var_18
  var_24 = var_20._RemoteHost
  GoTo loc_005C7A7C
  var_18 = txtSend.Text
  var_34 = var_20._RemoteHost
  txtSend.Text = vbNullString
  Exit Sub
End Sub

Private Sub labLocalIP_Click()
  var_20 = Global.Clipboard
  Beep
  Exit Sub
End Sub

Private Sub mnu45MinuteKiller_Click()
  var_eax = ffmkill.Show var_18
End Sub

Private Sub mnuADriveBomber_Click()
  var_28 = "note: this only works on the beta version of aol4.0, i realize some people are too stupid to upgrade their aol, so this will work for you, if you were smart and upgraded your aol, don't bother with this feature. -spek"
  call MailDeleteNewDuplicates("<b>{</b>*a:}", 0, esi)
  Exit Sub
End Sub

Private Sub mnuAFKBot_Click()
  var_eax = afk.Show var_18
End Sub

Private Sub mnuAbout_Click()
  var_eax = about.Show var_18
End Sub

Private Sub mnuAttention_Click()
  var_eax = attn.Show var_18
End Sub

Private Sub mnuBPad_Click()
  var_eax = bpad.Show var_18
End Sub

Private Sub mnuCalculator_Click()
  var_eax = calc.Show var_18
End Sub

Private Sub mnuChangeAOLCaption_Click()
  var_eax = caolc.Show var_18
End Sub

Private Sub mnuChatFader_Click()
  var_eax = fader.Show var_18
End Sub

Private Sub mnuChatLinkSender_Click()
  var_eax = chatlink.Show var_18
End Sub

Private Sub mnuChatManipulator_Click()
  var_eax = cmanip.Show var_18
End Sub

Private Sub mnuClearChat_Click()
  call MailDeleteNewNotSender(edi, esi, ebx)
  var_ret_1 = "RICHCNTL"
  FindWindowEx(call MailDeleteNewNotSender(edi, esi, ebx), esi, var_ret_1, 0)
  var_4C = FindWindowEx(call MailDeleteNewNotSender(edi, esi, ebx), esi, var_ret_1, 0)
  var_ret_2 = var_4C
  SendMessage(var_ret_2, 13, esi, esi)
  var_38 = SendMessage(var_ret_2, 13, esi, esi)
  var_3C = Space$(var_38)
  var_ret_4 = var_3C
  var_ret_5 = var_38 + 1
  var_ret_6 = var_4C
  SendMessage(var_ret_6, 12, var_ret_5, var_ret_4)
  var_ret_7 = var_50
  var_28 = SendMessage(var_ret_6, 12, var_ret_5, var_ret_4)
  var_18 = var_3C
  Exit Sub
End Sub

Private Sub mnuClearHistory_Click()
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, 0)
  var_ret_2 = "AOL Toolbar"
  var_ret_3 = CLng(FindWindow(var_ret_1, 0))
  FindWindowEx(var_ret_3, 0, var_ret_2, 0)
  var_ret_4 = "_AOL_Toolbar"
  var_ret_5 = CLng(FindWindowEx(var_ret_3, 0, var_ret_2, 0))
  FindWindowEx(var_ret_5, 0, var_ret_4, 0)
  var_ret_6 = "_AOL_Combobox"
  var_ret_7 = CLng(FindWindowEx(var_ret_5, 0, var_ret_4, 0))
  FindWindowEx(var_ret_7, 0, var_ret_6, 0)
  var_34 = FindWindowEx(var_ret_7, 0, var_ret_6, 0)
  var_ret_8 = "Edit"
  var_ret_9 = var_34
  FindWindowEx(var_ret_9, 0, var_ret_8, 0)
  var_ret_A = var_34
  SendMessage(var_ret_A, 1030, edi, var_BC)
  var_C0 = SendMessage(var_ret_A, 1030, edi, var_BC)
  SendMessage(CLng(FindWindowEx(var_ret_9, 0, var_ret_8, 0)), 12, edi, var_BC)
  For var_64 = "" To var_C0 Step 1
  If var_64 = 0 Then GoTo loc_005AB2D0
  var_ret_C = var_64
  var_ret_D = var_34
  SendMessage(var_ret_D, 1028, var_ret_C, var_C0)
  var_74 = SendMessage(var_ret_D, 1028, var_ret_C, var_C0)
  Next var_64
  GoTo loc_005AB25A
  var_ret_E = var_34
  SendMessage(var_ret_E, 1030, edi, var_BC)
  var_ret_F = (SendMessage(var_ret_E, 1030, edi, var_BC) = "")
  call Not(var_98, var_ret_F, var_D4, var_E4, 0, %S_eax_S = %StkVar1, GetLastError())
  If CBool(Not(var_98, var_ret_F, var_D4, var_E4, 0, var_ret_10 <> %StkVar1 <> 0 Then GoTo loc_005AB209
  Exit Sub
End Sub

Private Sub mnuClock_Click()
  var_eax = clock.Show var_18
End Sub

Private Sub mnuCloseChat_Click()
  call MailDeleteNewNotSender(edi, esi, ebx)
  SendMessage(call MailDeleteNewNotSender(edi, esi, ebx), 16, edi, edi)
  var_24 = SendMessage(call MailDeleteNewNotSender(edi, esi, ebx), 16, edi, edi)
End Sub

Private Sub mnuCredits_Click()
  call __vbaCastObj(var_0060C060, var_0042DBEC, 0, __vbaCastObj, ebx)
  call Proc_60A630(var_18, var_18, __vbaCastObj(var_0060C060, var_0042DBEC, 0, __vbaCastObj, ebx))
  call __vbaCastObj(var_18, var_0042E350)
  var_70 = "bodini by: spek"
  var_38 = "bodini by: spek"
  var_60 = "Bodini .02 will have a real simple credits. Version .03's credits will be fancier. I did the head programming, JaKaL and KunTMaSTaH helped with some features. BoFeN did the icon. Mune, Fade, and UtEr0 did the art. BlakShade and Skribble did the music. Thats all the credits put into this proggie so far."
  var_28 = "Bodini .02 will have a real simple credits. Version .03's credits will be fancier. I did the head programming, JaKaL and KunTMaSTaH helped with some features. BoFeN did the icon. Mune, Fade, and UtEr0 did the art. BlakShade and Skribble did the music. Thats all the credits put into this proggie so far."
  call __vbaCastObj(var_0060C060, var_0042DBEC, vbNullString, __vbaCastObj(var_18, var_0042E350))
  call Proc_60A5D0(var_18, var_18, __vbaCastObj(var_0060C060, var_0042DBEC, vbNullString, __vbaCastObj(var_18, var_0042E350)))
  call __vbaCastObj(var_18, var_0042E350)
  Exit Sub
End Sub

Private Sub mnuDecompilerShield_Click()
  var_eax = ds.Show var_18
End Sub

Private Sub mnuDeltreeScanner_Click()
  var_34 = "bodini by: spek"
  var_24 = "This will be .03"
  Exit Sub
End Sub

Private Sub mnuDisableCAD_Click()
  SystemParametersInfo(97, -1, var_24, edi)
  var_ret_1 = SystemParametersInfo(97, -1, var_24, edi)
End Sub

Private Sub mnuDisclaimer_Click()
  var_24 = "I, spek, take no responsibility of what you use this prog for. This prog can be used to cause damage to aol, but it was not made for that intent. America Online, Juno, and any other service I made features for will also not take responsibility. If you click ''Yes'', then you are responsible for your own actions. If you disagree with this and do not accept the terms, click ''No'' and uninstall this prog. Do you agree to my terms?"
  var_34 = "bodini by: spek"
  var_ret_1 = CLng(4132)
  var_CC = MsgBox(var_24, var_ret_1, var_34, var_94, var_A4)
  var_64 = MsgBox(var_24, var_ret_1, var_34, var_94, var_A4)
  If (var_64 = 7) = 0 Then GoTo loc_005ABBAA
  End
  Exit Sub
End Sub

Private Sub mnuEchoBot_Click()
  var_eax = echo.Show var_18
End Sub

Private Sub mnuEnableCAD_Click()
  SystemParametersInfo(97, edi, var_24, edi)
  var_ret_1 = SystemParametersInfo(97, edi, var_24, edi)
End Sub

Private Sub mnuEncrypter_Click()
  var_eax = encrypt.Show var_18
End Sub

Private Sub mnuExit_Click()
  var_24 = "do you wish to exit bodini by: spek?"
  var_34 = "bodini by: spek"
  var_ret_1 = CLng(4132)
  var_CC = MsgBox(var_24, var_ret_1, var_34, var_94, var_A4)
  var_64 = MsgBox(var_24, var_ret_1, var_34, var_94, var_A4)
  If (var_64 = 6) = 0 Then GoTo loc_005AC11A
  End
  Exit Sub
End Sub

Private Sub mnuFindHexID_Click()
  var_eax = hexid.Show var_18
End Sub

Private Sub mnuGreets_Click()
  var_eax = greets.Show var_18
End Sub

Private Sub mnuHTMLFader_Click()
  var_eax = htmlfade.Show var_18
End Sub

Private Sub mnuHelp_Click()
  var_eax = help.Show var_18
End Sub

Private Sub mnuHideAOL_Click()
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, 0)
  ShowWindow(FindWindow(var_ret_1, 0), ebx)
  Exit Sub
End Sub

Private Sub mnuIMAnswer_Click()
  var_eax = imanswer.Show var_18
End Sub

Private Sub mnuIMBomb_Click()
  var_eax = imbomb.Show var_18
End Sub

Private Sub mnuIMChatroom_Click()
  var_eax = imchat.Show var_18
End Sub

Private Sub mnuIMFader_Click()
  var_eax = imfader.Show var_18
End Sub

Private Sub mnuIMLinkSender_Click()
  var_eax = imlink.Show var_18
End Sub

Private Sub mnuIMManager_Click()
  var_eax = imman.Show var_18
End Sub

Private Sub mnuIMManipulator_Click()
  var_eax = immanip.Show var_18
End Sub

Private Sub mnuIMOff2_Click()
  call MailDeleteFlashDuplicates(edi, esi, ebx)
End Sub

Private Sub mnuIMOff_Click()
  call MailDeleteFlashDuplicates(edi, esi, ebx)
End Sub

Private Sub mnuIMOn2_Click()
  call SetMailPrefs(edi, esi, ebx)
End Sub

Private Sub mnuIMOn_Click()
  call SetMailPrefs(edi, esi, ebx)
End Sub

Private Sub mnuIPChatroom_Click()
  var_eax = ipchat.Show var_18
End Sub

Private Sub mnuIconExtractor_Click()
  var_eax = iextract.Show var_18
End Sub

Private Sub mnuIdleBot_Click()
  var_eax = idle.Show var_18
End Sub

Private Sub mnuJunoMailBomb_Click()
  var_eax = junobomb.Show var_18
End Sub

Private Sub mnuKeyword_Click()
  var_eax = quickkw.Show var_18
End Sub

Private Sub mnuKillAOL_Click()
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, 0)
  SendMessage(FindWindow(var_ret_1, 0), 16, ebx, var_20)
  var_ret_2 = SendMessage(FindWindow(var_ret_1, 0), 16, ebx, var_20)
  Exit Sub
End Sub

Private Sub mnuKillGlyph_Click()
  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_2C = FindWindowEx(var_2C, 0, var_ret_3, 0)
  var_ret_4 = "_AOL_Glyph"
  FindWindowEx(var_2C, 0, var_ret_4, 0)
  ShowWindow(FindWindowEx(var_2C, 0, var_ret_4, 0), 0)
  Exit Sub
End Sub

Private Sub mnuKillModal_Click()
  var_ret_1 = "_AOL_Modal"
  FindWindow(var_ret_1, 0)
  var_ret_2 = FindWindow(var_ret_1, 0)
  SendMessage(var_ret_2, 16, 0, 0)
  If var_ret_2 <> 0 Then GoTo loc_005AD533
  Exit Sub
End Sub

Private Sub mnuKillWait_Click()
  var_ret_1 = "_AOL_Modal"
  FindWindow(var_ret_1, 0)
  call CheckIMs(4, 10, var_ret_2 = #StkVar1%StkVar2)
  call Proc_6098C0(0.3, esi, GetLastError())
  var_ret_3 = 0
  var_ret_4 = "_AOL_Icon"
  var_ret_5 = CLng(FindWindow(var_ret_1, 0))
  FindWindowEx(var_ret_5, var_ret_4, var_ret_3, 0)
  call Proc_608D20(FindWindowEx(var_ret_5, var_ret_4, var_ret_3, 0), , )
  Exit Sub
End Sub

Private Sub mnuKillWelcome_Click()
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, var_24)
  var_ret_2 = "MDIClient"
  FindWindowEx(FindWindow(var_ret_1, var_24), 0, var_ret_2, 0)
  var_34 = FindWindowEx(FindWindow(var_ret_1, var_24), 0, var_ret_2, 0)
  call Scroll("Welcome, ", var_ret_3 = #StkVar1%StkVar2, GetLastError())
  var_ret_4 = ecx = %S_edx_S & var_ret_3 & var_00430680
  FindWindowEx(var_34, 0, 0, var_ret_4)
  ShowWindow(FindWindowEx(var_34, 0, 0, var_ret_4), 0)
  Exit Sub
End Sub

Private Sub mnuMailBomb_Click()
  var_eax = mailbomb.Show var_18
End Sub

Private Sub mnuMailMe_Click()
  var_eax = mailspek.Show var_18
End Sub

Private Sub mnuMailSpammer_Click()
  var_eax = mspammer.Show var_18
End Sub

Private Sub mnuMassIM_Click()
  var_eax = massim.Show var_18
End Sub

Private Sub mnuMassMailer_Click()
  var_eax = mm.Show var_18
End Sub

Private Sub mnuMediaPlayer_Click()
  var_eax = mplayer.Show var_18
End Sub

Private Sub mnuMinimize_Click()
  mainform.WindowState = CInt(1)
End Sub

Private Sub mnuMultitaskChat_Click()
  var_eax = mchat.Show var_18
End Sub

Private Sub mnuMyWebSite_Click()
  call CheckAlive("http://www.xclipticonline.com/spek", edi, esi)
  Exit Sub
End Sub

Private Sub mnuPWSD_Click()
  var_eax = pwsd.Show var_18
End Sub

Private Sub mnuPasswordCracker_Click()
  var_eax = pwc.Show var_18
End Sub

Private Sub mnuPhisher_Click()
  var_eax = phisher.Show var_18
End Sub

Private Sub mnuProfiler_Click()
  var_eax = profiler.Show var_18
End Sub

Private Sub mnuQuadIM_Click()
  var_eax = quadim.Show var_18
End Sub

Private Sub mnuRequestBot_Click()
  var_eax = wreqbot.Show var_18
End Sub

Private Sub mnuRoomBuster_Click()
  var_eax = roombust.Show var_18
End Sub

Private Sub mnuSNRevealer_Click()
  var_eax = snreveal.Show var_18
End Sub

Private Sub mnuScramblerBot_Click()
  var_eax = scramble.Show var_18
End Sub

Private Sub mnuSecretArea_Click()
  var_eax = sa.Show var_18
End Sub

Private Sub mnuSendIM_Click()
  var_eax = sendim.Show var_18
End Sub

Private Sub mnuSendMail_Click()
  var_eax = semail.Show var_18
End Sub

Private Sub mnuServerHelper_Click()
  var_eax = shelper.Show var_18
End Sub

Private Sub mnuServer_Click()
  var_eax = server.Show var_18
End Sub

Private Sub mnuShowAOL_Click()
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, 0)
  ShowWindow(FindWindow(var_ret_1, 0), 5)
  Exit Sub
End Sub

Private Sub mnuShowWelcome_Click()
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, var_24)
  var_ret_2 = "MDIClient"
  FindWindowEx(FindWindow(var_ret_1, var_24), 0, var_ret_2, 0)
  var_34 = FindWindowEx(FindWindow(var_ret_1, var_24), 0, var_ret_2, 0)
  call Scroll("Welcome, ", var_ret_3 = #StkVar1%StkVar2, GetLastError())
  var_ret_4 = ecx = %S_edx_S & var_ret_3 & var_00430680
  FindWindowEx(var_34, 0, 0, var_ret_4)
  ShowWindow(FindWindowEx(var_34, 0, 0, var_ret_4), 5)
  Exit Sub
End Sub

Private Sub mnuSignOff_Click()
  call IMIgnore("Sign Off", edi, esi)
  Exit Sub
End Sub

Private Sub mnuSupBot_Click()
  var_eax = supbot.Show var_18
End Sub

Private Sub mnuUnUpchat_Click()
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, var_28)
  var_38 = FindWindow(var_ret_1, var_28)
  var_ret_3 = "_AOL_Modal"
  FindWindowEx(var_38, 0, var_ret_3, 0)
  var_18 = FindWindowEx(var_38, 0, var_ret_3, 0)
  var_ret_5 = "_AOL_Gauge"
  FindWindowEx(var_18, 0, var_ret_5, 0)
  var_ret_6 = FindWindowEx(var_18, 0, var_ret_5, 0)
  If var_ret_6 <> 0 Then GoTo loc_005AF22D
  EnableWindow(var_1C, 1)
  EnableWindow(var_38, 0)
  Exit Sub
End Sub

Private Sub mnuUpchat_Click()
  var_ret_1 = "AOL Frame25"
  FindWindow(var_ret_1, var_28)
  var_38 = FindWindow(var_ret_1, var_28)
  var_ret_3 = "_AOL_Modal"
  FindWindowEx(var_38, 0, var_ret_3, 0)
  var_18 = FindWindowEx(var_38, 0, var_ret_3, 0)
  var_ret_5 = "_AOL_Gauge"
  FindWindowEx(var_18, 0, var_ret_5, 0)
  var_ret_6 = FindWindowEx(var_18, 0, var_ret_5, 0)
  If var_ret_6 <> 0 Then GoTo loc_005AF36D
  EnableWindow(var_38, 1)
  EnableWindow(var_1C, 0)
  Exit Sub
End Sub

Private Sub mnuVerifyMe_Click()
  var_eax = verifier.Show var_18
End Sub

Private Sub mnuVoterBot_Click()
  var_eax = voterbot.Show var_18
End Sub

Private Sub mnueightballbot_Click()
  var_eax = eightball.Show var_18
End Sub

Private Sub sckListen_UnknownEvent_A
  esi = Winsock._RemoteHost
  var_1C = ipchat2.Text1.Text
  var_40 = var_1C & var_18
  var_20 = CStr(var_1C & var_18 & Chr(13) & Chr(10))
  ipchat2.Text1.Text = var_20
  Exit Sub
End Sub

Private Sub sckListen_UnknownEvent_B
  Dim var_20 As Winsock
  var_44 = var_20
  var_18 = var_20._RemoteHost
  txtIP.Locked = True
  Exit Sub
End Sub

Private Sub sckListen_UnknownEvent_C
  Dim var_18 As Winsock
  var_28 = var_18._RemoteHost
  var_18 = CInt(Me)
  If var_4C = 0 Then GoTo loc_005C82D3
  esi = Winsock._RemoteHost
  var_2C = var_18._RemoteHost
  txtSend.Enabled = True
  cmdSend.Enabled = True
  Exit Sub
End Sub

Private Sub sckListen_UnknownEvent_D
  txtIP.Locked = False
  cmdListen.Caption = "&Close"
  var_eax = Call ipchat.cmdListen_Click
  Exit Sub
End Sub

Private Sub sckSend_UnknownEvent_A
  esi = Winsock._RemoteHost
  Beep
  var_1C = ipchat2.Text1.Text
  var_40 = var_1C & var_18
  var_20 = CStr(var_1C & var_18 & Chr(13) & Chr(10))
  ipchat2.Text1.Text = var_20
  Exit Sub
End Sub

Private Sub sckSend_UnknownEvent_B
  cmdSend.Enabled = True
  txtSend.Enabled = True
  Exit Sub
End Sub

Private Sub sckSend_UnknownEvent_D
  cmdSend.Caption = "&Cancel"
  var_eax = Call ipchat.cmdSend_Click
  Exit Sub
End Sub

Private Sub txtIP_KeyPress(KeyAscii As Integer)
  If KeyAscii <> 13 Then GoTo loc_005C9668
  var_eax = Call ipchat.cmdConnect_Click
End Sub

Private Sub txtSend_KeyPress(KeyAscii As Integer)
  If KeyAscii <> 13 Then GoTo loc_005C96F8
  var_eax = Call ipchat.cmdSend_Click
End Sub

Public Function FindIM() As Long
    Dim AOL As Long, MDI As Long, child As Long, Caption As String
    AOL& = FindWindow("AOL Frame25", vbNullString)
    MDI& = FindWindowEx(AOL&, 0&, "MDIClient", vbNullString)
    child& = FindWindowEx(MDI&, 0&, "AOL Child", vbNullString)
    Caption$ = GetCaption(child&)
    If InStr(Caption$, "Instant Message") = 1 Or InStr(Caption$, "Instant Message") = 2 Or InStr(Caption$, "Instant Message") = 3 Then
        FindIM& = child&
        Exit Function
    Else
        Do
            child& = FindWindowEx(MDI&, child&, "AOL Child", vbNullString)
            Caption$ = GetCaption(child&)
            If InStr(Caption$, "Instant Message") = 1 Or InStr(Caption$, "Instant Message") = 2 Or InStr(Caption$, "Instant Message") = 3 Then
                FindIM& = child&
                Exit Function
            End If
        Loop Until child& = 0&
    End If
    FindIM& = child&

Sub FadePreview2(RichTB As Control, ByVal FadedText As String)
'Modified by monk-e-god for use in a RichTextBox

'NOTE: RichTB must be a RichTextBox.
'NOTE: You cannot preview wavy fades with this sub.
Dim StartPlace%
StartPlace% = 0
RichTB.SelStart = StartPlace%
RichTB.Font = "Arial": RichTB.SelFontSize = 10
RichTB.SelBold = False: RichTB.SelItalic = False: RichTB.SelUnderline = False: RichTB.SelStrikeThru = False
RichTB.SelColor = 0&: RichTB.Text = ""
For X = 1 To Len(FadedText$)
  c$ = Mid$(FadedText$, X, 1)
  RichTB.SelStart = StartPlace%
  RichTB.SelLength = 1
  If c$ = "<" Then
    TagStart = X + 1
    TagEnd = InStr(X + 1, FadedText$, ">") - 1
    T$ = LCase$(Mid$(FadedText$, TagStart, (TagEnd - TagStart) + 1))
    X = TagEnd + 1
    RichTB.SelStart = StartPlace%
    RichTB.SelLength = 1
    Select Case T$
      Case "u"
        RichTB.SelUnderline = True
      Case "/u"
        RichTB.SelUnderline = False
      Case "s"
        RichTB.SelStrikeThru = True
      Case "/s"
        RichTB.SelStrikeThru = False
      Case "b"    'start bold
        RichTB.SelBold = True
      Case "/b"   'stop bold
        RichTB.SelBold = False
      Case "i"    'start italic
        RichTB.SelItalic = True
      Case "/i"   'stop italic
        RichTB.SelItalic = False

      Case Else
        If Left$(T$, 10) = "font color" Then 'change font color
          ColorStart = InStr(T$, "#")
          ColorString$ = Mid$(T$, ColorStart + 1, 6)
          RedString$ = Left$(ColorString$, 2)
          GreenString$ = Mid$(ColorString$, 3, 2)
          BlueString$ = Right$(ColorString$, 2)
          RV = Hex2Dec!(RedString$)
          GV = Hex2Dec!(GreenString$)
          BV = Hex2Dec!(BlueString$)
          RichTB.SelStart = StartPlace%
          RichTB.SelColor = RGB(RV, GV, BV)
        End If
        If Left$(T$, 9) = "font face" Then
            fontstart% = InStr(T$, Chr(34))
            dafont$ = Right(T$, Len(T$) - fontstart%)
            RichTB.SelStart = StartPlace%
            RichTB.SelFontName = dafont$
        End If
    End Select
  Else  'normal text
    RichTB.SelText = RichTB.SelText + c$
    StartPlace% = StartPlace% + 1
    RichTB.SelStart = StartPlace%
  End If
Next X

Function GETVAL%(ByVal strLetter$)
'by aDRaMoLEk
  Select Case strLetter$
    Case "0"
      GETVAL = 0
    Case "1"
      GETVAL = 1
    Case "2"
      GETVAL = 2
    Case "3"
      GETVAL = 3
    Case "4"
      GETVAL = 4
    Case "5"
      GETVAL = 5
    Case "6"
      GETVAL = 6
    Case "7"
      GETVAL = 7
    Case "8"
      GETVAL = 8
    Case "9"
      GETVAL = 9
    Case "A"
      GETVAL = 10
    Case "B"
      GETVAL = 11
    Case "C"
      GETVAL = 12
    Case "D"
      GETVAL = 13
    Case "E"
      GETVAL = 14
    Case "F"
      GETVAL = 15
  End Select

Function CLRBars(RedBar As Control, GreenBar As Control, BlueBar As Control)
'This gets a color from 3 scroll bars
CLRBars = RGB(RedBar.Value, GreenBar.Value, BlueBar.Value)

'Put this in the scroll event of the
'3 scroll bars RedScroll1, GreenScroll1,
'& BlueScroll1.  It changes the backcolor
'of ColorLbl when you scroll the bars
'ColorLbl.BackColor = CLRBars(RedScroll1, GreenScroll1, BlueScroll1)

Public Function FindForwardWindow() As Long
    Dim AOL As Long, MDI As Long, child As Long
    Dim Rich1 As Long, Rich2 As Long, Combo As Long
    Dim FontCombo As Long
    AOL& = FindWindow("AOL Frame25", vbNullString)
    MDI& = FindWindowEx(AOL&, 0&, "MDIClient", vbNullString)
    child& = FindWindowEx(MDI&, 0&, "AOL Child", vbNullString)
    Rich1& = FindWindowEx(child&, 0&, "RICHCNTL", vbNullString)
    Rich2& = FindWindowEx(child&, Rich1&, "RICHCNTL", vbNullString)
    Combo& = FindWindowEx(child&, 0&, "_AOL_Combobox", vbNullString)
    FontCombo& = FindWindowEx(child&, 0&, "_AOL_FontCombo", vbNullString)
    If Rich1& <> 0& And Rich2& = 0& And Combo& = 0& And FontCombo& = 0& Then
        FindForwardWindow& = child&
        Exit Function
    Else
        Do
            child& = FindWindowEx(MDI&, child&, "AOL Child", vbNullString)
            Rich1& = FindWindowEx(child&, 0&, "RICHCNTL", vbNullString)
            Rich2& = FindWindowEx(child&, Rich1&, "RICHCNTL", vbNullString)
            Combo& = FindWindowEx(child&, 0&, "_AOL_Combobox", vbNullString)
            FontCombo& = FindWindowEx(child&, 0&, "_AOL_FontCombo", vbNullString)
            If Rich1& <> 0& And Rich2& = 0& And Combo& = 0& And FontCombo& = 0& Then
                FindForwardWindow& = child&
                Exit Function
            End If
        Loop Until child& = 0&
    End If
    FindForwardWindow& = 0&

Public Function MailCountOld() As Long
    Dim MailBox As Long, TabControl As Long, TabPage As Long
    Dim mTree As Long, Count As Long
    MailBox& = FindMailBox&
    If MailBox& = 0& Then Exit Function
    TabControl& = FindWindowEx(MailBox&, 0&, "_AOL_TabControl", vbNullString)
    TabPage& = FindWindowEx(TabControl&, 0&, "_AOL_TabPage", vbNullString)
    TabPage& = FindWindowEx(TabControl&, TabPage&, "_AOL_TabPage", vbNullString)
    mTree& = FindWindowEx(TabPage&, 0&, "_AOL_Tree", vbNullString)
    Count& = SendMessage(mTree&, LB_GETCOUNT, 0&, 0&)
    MailCountOld& = Count&

Public Sub MailDeleteNewDuplicates(VBForm As Form, DisplayStatus As Boolean)
    Dim MailBox As Long, TabControl As Long, TabPage As Long
    Dim mTree As Long, Count As Long, dButton As Long
    Dim SearchBox As Long, cSender As String, cSubject As String
    Dim SearchFor As Long, sSender As String, sSubject As String
    Dim CurCaption As String
    MailBox& = FindMailBox&
    CurCaption$ = VBForm.Caption
    If MailBox& = 0& Then Exit Sub
    TabControl& = FindWindowEx(MailBox&, 0&, "_AOL_TabControl", vbNullString)
    TabPage& = FindWindowEx(TabControl&, 0&, "_AOL_TabPage", vbNullString)
    mTree& = FindWindowEx(TabPage&, 0&, "_AOL_Tree", vbNullString)
    dButton& = FindWindowEx(MailBox&, 0&, "_AOL_Icon", vbNullString)
    dButton& = FindWindowEx(MailBox&, dButton&, "_AOL_Icon", vbNullString)
    dButton& = FindWindowEx(MailBox&, dButton&, "_AOL_Icon", vbNullString)
    dButton& = FindWindowEx(MailBox&, dButton&, "_AOL_Icon", vbNullString)
    dButton& = FindWindowEx(MailBox&, dButton&, "_AOL_Icon", vbNullString)
    dButton& = FindWindowEx(MailBox&, dButton&, "_AOL_Icon", vbNullString)
    dButton& = FindWindowEx(MailBox&, dButton&, "_AOL_Icon", vbNullString)
    Count& = SendMessage(mTree&, LB_GETCOUNT, 0&, 0&)
    If Count& = 0& Then Exit Sub
    For SearchFor& = 0& To Count& - 2
        DoEvents
        sSender$ = MailSenderNew(SearchFor&)
        sSubject$ = MailSubjectNew(SearchFor&)
        If sSender$ = "" Then
            VBForm.Caption = CurCaption$
            Exit Sub
        End If
        For SearchBox& = SearchFor& + 1 To Count& - 1
            If DisplayStatus = True Then
                VBForm.Caption = "Now checking #" & SearchFor& & " for match with #" & SearchBox&
            End If
            cSender$ = MailSenderNew(SearchBox&)
            cSubject$ = MailSubjectNew(SearchBox&)
            If cSender$ = sSender$ And cSubject$ = sSubject$ Then
                Call SendMessage(mTree&, LB_SETCURSEL, SearchBox&, 0&)
                DoEvents
                Call SendMessage(dButton&, WM_LBUTTONDOWN, 0&, 0&)
                Call SendMessage(dButton&, WM_LBUTTONUP, 0&, 0&)
                DoEvents
                SearchBox& = SearchBox& - 1
            End If
        Next SearchBox&
    Next SearchFor&
    VBForm.Caption = CurCaption$

Public Sub MailDeleteNewNotSender(Sender As String)
    Dim MailBox As Long, TabControl As Long, TabPage As Long
    Dim mTree As Long, Count As Long, dButton As Long
    Dim SearchBox As Long, cSender As String
    MailBox& = FindMailBox&
    If MailBox& = 0& Then Exit Sub
    TabControl& = FindWindowEx(MailBox&, 0&, "_AOL_TabControl", vbNullString)
    TabPage& = FindWindowEx(TabControl&, 0&, "_AOL_TabPage", vbNullString)
    mTree& = FindWindowEx(TabPage&, 0&, "_AOL_Tree", vbNullString)
    dButton& = FindWindowEx(MailBox&, 0&, "_AOL_Icon", vbNullString)
    dButton& = FindWindowEx(MailBox&, dButton&, "_AOL_Icon", vbNullString)
    dButton& = FindWindowEx(MailBox&, dButton&, "_AOL_Icon", vbNullString)
    dButton& = FindWindowEx(MailBox&, dButton&, "_AOL_Icon", vbNullString)
    dButton& = FindWindowEx(MailBox&, dButton&, "_AOL_Icon", vbNullString)
    dButton& = FindWindowEx(MailBox&, dButton&, "_AOL_Icon", vbNullString)
    dButton& = FindWindowEx(MailBox&, dButton&, "_AOL_Icon", vbNullString)
    Count& = SendMessage(mTree&, LB_GETCOUNT, 0&, 0&)
    If Count& = 0& Then Exit Sub
    For SearchBox& = 0& To Count& - 1
        cSender$ = MailSenderNew(SearchBox&)
        If cSender$ = "" Then Exit Sub
        If LCase(cSender$) <> LCase(Sender$) Then
            Call SendMessage(mTree&, LB_SETCURSEL, SearchBox&, 0&)
            DoEvents
            Call SendMessage(dButton&, WM_LBUTTONDOWN, 0&, 0&)
            Call SendMessage(dButton&, WM_LBUTTONUP, 0&, 0&)
            DoEvents
            SearchBox& = SearchBox& - 1
        End If
    Next SearchBox&

Public Function FindSendWindow() As Long
    Dim AOL As Long, MDI As Long, child As Long
    Dim SendStatic As Long
    AOL& = FindWindow("AOL Frame25", vbNullString)
    MDI& = FindWindowEx(AOL&, 0&, "MDIClient", vbNullString)
    child& = FindWindowEx(MDI&, 0&, "AOL Child", vbNullString)
    SendStatic& = FindWindowEx(child&, 0&, "_AOL_Static", "Send Now")
    If SendStatic& <> 0& Then
        FindSendWindow& = child&
        Exit Function
    Else
        Do
            child& = FindWindowEx(MDI&, child&, "AOL Child", vbNullString)
            SendStatic& = FindWindowEx(child&, 0&, "_AOL_Static", "Send Now")
            If SendStatic& <> 0& Then
                FindSendWindow& = child&
                Exit Function
            End If
        Loop Until child& = 0&
    End If
    FindSendWindow& = 0&

Public Sub MailToListOld(TheList As ListBox)
    Dim MailBox As Long, TabControl As Long, TabPage As Long
    Dim mTree As Long, AddMails As Long, sLength As Long
    Dim Spot As Long, MyString As String, Count As Long
    MailBox& = FindMailBox&
    If MailBox& = 0& Then Exit Sub
    TabControl& = FindWindowEx(MailBox&, 0&, "_AOL_TabControl", vbNullString)
    TabPage& = FindWindowEx(TabControl&, 0&, "_AOL_TabPage", vbNullString)
    TabPage& = FindWindowEx(TabControl&, TabPage&, "_AOL_TabPage", vbNullString)
    mTree& = FindWindowEx(TabPage&, 0&, "_AOL_Tree", vbNullString)
    Count& = SendMessage(mTree&, LB_GETCOUNT, 0&, 0&)
    If Count& = 0 Then Exit Sub
    For AddMails& = 0 To Count& - 1
        DoEvents
        sLength& = SendMessage(mTree&, LB_GETTEXTLEN, AddMails&, 0&)
        MyString$ = String(sLength& + 1, 0)
        Call SendMessageByString(mTree&, LB_GETTEXT, AddMails&, MyString$)
        Spot& = InStr(MyString$, Chr(9))
        Spot& = InStr(Spot& + 1, MyString$, Chr(9))
        MyString$ = Right(MyString$, Len(MyString$) - Spot&)
        TheList.AddItem MyString$
    Next AddMails&

Public Sub MailDeleteFlashByIndex(index As Long)
    Dim AOL As Long, MDI As Long, fMail As Long, fList As Long
    Dim fCount As Long, DeleteButton As Long
    AOL& = FindWindow("AOL Frame25", vbNullString)
    MDI& = FindWindowEx(AOL&, 0&, "MDICLIENT", vbNullString)
    fMail& = FindWindowEx(MDI&, 0&, "AOL Child", "Incoming/Saved Mail")
    fList& = FindWindowEx(fMail&, 0&, "_AOL_Tree", vbNullString)
    fCount& = SendMessage(fList&, LB_GETCOUNT, 0&, 0&)
    If fCount& < index& Then Exit Sub
    DeleteButton& = FindWindowEx(fMail&, 0&, "_AOL_Icon", vbNullString)
    DeleteButton& = FindWindowEx(fMail&, DeleteButton&, "_AOL_Icon", vbNullString)
    DeleteButton& = FindWindowEx(fMail&, DeleteButton&, "_AOL_Icon", vbNullString)
    DeleteButton& = FindWindowEx(fMail&, DeleteButton&, "_AOL_Icon", vbNullString)
    Call SendMessage(fList&, LB_SETCURSEL, index&, 0&)
    Call SendMessage(DeleteButton&, WM_LBUTTONDOWN, 0&, 0&)
    Call SendMessage(DeleteButton&, WM_LBUTTONUP, 0&, 0&)

Public Sub MailDeleteFlashDuplicates(VBForm As Form, DisplayStatus As Boolean)
    Dim AOL As Long, MDI As Long, fMail As Long, fList As Long
    Dim fCount As Long, DeleteButton As Long, SearchFor As Long
    Dim SearchBox As Long, CurCaption As String
    Dim sSender As String, sSubject As String
    Dim cSender As String, cSubject As String
    AOL& = FindWindow("AOL Frame25", vbNullString)
    MDI& = FindWindowEx(AOL&, 0&, "MDICLIENT", vbNullString)
    fMail& = FindWindowEx(MDI&, 0&, "AOL Child", "Incoming/Saved Mail")
    fList& = FindWindowEx(fMail&, 0&, "_AOL_Tree", vbNullString)
    fCount& = SendMessage(fList&, LB_GETCOUNT, 0&, 0&)
    If fCount& < 2& Then Exit Sub
    DeleteButton& = FindWindowEx(fMail&, 0&, "_AOL_Icon", vbNullString)
    DeleteButton& = FindWindowEx(fMail&, DeleteButton&, "_AOL_Icon", vbNullString)
    DeleteButton& = FindWindowEx(fMail&, DeleteButton&, "_AOL_Icon", vbNullString)
    DeleteButton& = FindWindowEx(fMail&, DeleteButton&, "_AOL_Icon", vbNullString)
    CurCaption$ = VBForm.Caption
    If fCount& = 0& Then Exit Sub
    For SearchFor& = 0& To fCount& - 2
        DoEvents
        sSender$ = MailSenderFlash(SearchFor&)
        sSubject$ = MailSubjectFlash(SearchFor&)
        If sSender$ = "" Then
            VBForm.Caption = CurCaption$
            Exit Sub
        End If
        For SearchBox& = SearchFor& + 1 To fCount& - 1
            If DisplayStatus = True Then
                VBForm.Caption = "Checking #" & SearchFor& & " with #" & SearchBox&
            End If
            cSender$ = MailSenderFlash(SearchBox&)
            cSubject$ = MailSubjectFlash(SearchBox&)
            If cSender$ = sSender$ And cSubject$ = sSubject$ Then
                Call SendMessage(fList&, LB_SETCURSEL, SearchBox&, 0&)
                DoEvents
                Call SendMessage(DeleteButton&, WM_LBUTTONDOWN, 0&, 0&)
                Call SendMessage(DeleteButton&, WM_LBUTTONUP, 0&, 0&)
                DoEvents
                SearchBox& = SearchBox& - 1
            End If
        Next SearchBox&
    Next SearchFor&
    VBForm.Caption = CurCaption$

Public Sub SetMailPrefs()
    Dim AOL As Long, tool As Long, Toolbar As Long
    Dim ToolIcon As Long, DoThis As Long, sMod As Long
    Dim MDI As Long, mPrefs As Long, mButton As Long
    Dim gStatic As Long, mStatic As Long, fStatic As Long
    Dim maStatic As Long, dMod As Long, ConfirmCheck As Long
    Dim CloseCheck As Long, SpellCheck As Long, OKButton As Long
    Dim CurPos As POINTAPI, WinVis As Long
    AOL& = FindWindow("AOL Frame25", vbNullString)
    MDI& = FindWindowEx(AOL&, 0&, "MDICLIENT", vbNullString)
    tool& = FindWindowEx(AOL&, 0&, "AOL Toolbar", vbNullString)
    Toolbar& = FindWindowEx(tool&, 0&, "_AOL_Toolbar", vbNullString)
    ToolIcon& = FindWindowEx(Toolbar&, 0&, "_AOL_Icon", vbNullString)
    ToolIcon& = FindWindowEx(Toolbar&, ToolIcon&, "_AOL_Icon", vbNullString)
    ToolIcon& = FindWindowEx(Toolbar&, ToolIcon&, "_AOL_Icon", vbNullString)
    ToolIcon& = FindWindowEx(Toolbar&, ToolIcon&, "_AOL_Icon", vbNullString)
    ToolIcon& = FindWindowEx(Toolbar&, ToolIcon&, "_AOL_Icon", vbNullString)
    ToolIcon& = FindWindowEx(Toolbar&, ToolIcon&, "_AOL_Icon", vbNullString)
    Call GetCursorPos(CurPos)
    Call SetCursorPos(Screen.Width, Screen.Height)
    Call PostMessage(ToolIcon&, WM_LBUTTONDOWN, 0&, 0&)
    Call PostMessage(ToolIcon&, WM_LBUTTONUP, 0&, 0&)
    Do
        sMod& = FindWindow("#32768", vbNullString)
        WinVis& = IsWindowVisible(sMod&)
    Loop Until WinVis& = 1
    For DoThis& = 1 To 3
        Call PostMessage(sMod&, WM_KEYDOWN, VK_DOWN, 0&)
        Call PostMessage(sMod&, WM_KEYUP, VK_DOWN, 0&)
    Next DoThis&
    Call PostMessage(sMod&, WM_KEYDOWN, VK_RETURN, 0&)
    Call PostMessage(sMod&, WM_KEYUP, VK_RETURN, 0&)
    Call SetCursorPos(CurPos.X, CurPos.Y)
    Do
        DoEvents
        mPrefs& = FindWindowEx(MDI&, 0&, "AOL Child", "Preferences")
        gStatic& = FindWindowEx(mPrefs&, 0&, "_AOL_Static", "General")
        mStatic& = FindWindowEx(mPrefs&, 0&, "_AOL_Static", "Mail")
        fStatic& = FindWindowEx(mPrefs&, 0&, "_AOL_Static", "Font")
        maStatic& = FindWindowEx(mPrefs&, 0&, "_AOL_Static", "Marketing")
    Loop Until mPrefs& <> 0& And gStatic& <> 0& And mStatic& <> 0& And fStatic& <> 0& And maStatic& <> 0&
    mButton& = FindWindowEx(mPrefs&, 0&, "_AOL_Icon", vbNullString)
    mButton& = FindWindowEx(mPrefs&, mButton&, "_AOL_Icon", vbNullString)
    mButton& = FindWindowEx(mPrefs&, mButton&, "_AOL_Icon", vbNullString)
    Do
        DoEvents
        Call SendMessage(mButton&, WM_LBUTTONDOWN, 0&, 0&)
        Call SendMessage(mButton&, WM_LBUTTONUP, 0&, 0&)
        dMod& = FindWindow("_AOL_Modal", "Mail Preferences")
        Pause 0.6
    Loop Until dMod& <> 0&
    ConfirmCheck& = FindWindowEx(dMod&, 0&, "_AOL_Checkbox", vbNullString)
    CloseCheck& = FindWindowEx(dMod&, ConfirmCheck&, "_AOL_Checkbox", vbNullString)
    SpellCheck& = FindWindowEx(dMod&, CloseCheck&, "_AOL_Checkbox", vbNullString)
    SpellCheck& = FindWindowEx(dMod&, SpellCheck&, "_AOL_Checkbox", vbNullString)
    SpellCheck& = FindWindowEx(dMod&, SpellCheck&, "_AOL_Checkbox", vbNullString)
    SpellCheck& = FindWindowEx(dMod&, SpellCheck&, "_AOL_Checkbox", vbNullString)
    OKButton& = FindWindowEx(dMod&, 0&, "_AOL_icon", vbNullString)
    Call SendMessage(ConfirmCheck&, BM_SETCHECK, False, vbNullString)
    Call SendMessage(CloseCheck&, BM_SETCHECK, True, vbNullString)
    Call SendMessage(SpellCheck&, BM_SETCHECK, False, vbNullString)
    Call SendMessage(OKButton&, WM_LBUTTONDOWN, 0&, 0&)
    Call SendMessage(OKButton&, WM_LBUTTONUP, 0&, 0&)
    DoEvents
    Call PostMessage(mPrefs&, WM_CLOSE, 0&, 0&)

Public Function CheckAlive(ScreenName As String) As Boolean
    Dim AOL As Long, MDI As Long, ErrorWindow As Long
    Dim ErrorTextWindow As Long, ErrorString As String
    Dim MailWindow As Long, NoWindow As Long, NoButton As Long
    Call SendMail("*, " & ScreenName$, "You alive?", "=)")
    AOL& = FindWindow("AOL Frame25", vbNullString)
    MDI& = FindWindowEx(AOL&, 0&, "MDICLIENT", vbNullString)
    Do
        DoEvents
        ErrorWindow& = FindWindowEx(MDI&, 0&, "AOL Child", "Error")
        ErrorTextWindow& = FindWindowEx(ErrorWindow&, 0&, "_AOL_View", vbNullString)
        ErrorString$ = GetText(ErrorTextWindow&)
    Loop Until ErrorWindow& <> 0 And ErrorTextWindow& <> 0 And ErrorString$ <> ""
    If InStr(LCase(ReplaceString(ErrorString$, " ", "")), LCase(ReplaceString(ScreenName$, " ", ""))) > 0 Then
        CheckAlive = False
    Else
        CheckAlive = True
    End If
    MailWindow& = FindWindowEx(MDI&, 0&, "AOL Child", "Write Mail")
    Call PostMessage(ErrorWindow&, WM_CLOSE, 0&, 0&)
    DoEvents
    Call PostMessage(MailWindow&, WM_CLOSE, 0&, 0&)
    DoEvents
    Do
        DoEvents
        NoWindow& = FindWindow("#32770", "America Online")
        NoButton& = FindWindowEx(NoWindow&, 0&, "Button", "&No")
    Loop Until NoWindow& <> 0& And NoButton& <> 0
    Call SendMessage(NoButton&, WM_KEYDOWN, VK_SPACE, 0&)
    Call SendMessage(NoButton&, WM_KEYUP, VK_SPACE, 0&)

Public Sub ChatSend(Chat As String)
    Dim Room As Long, AORich As Long, AORich2 As Long
    Room& = FindRoom&
    AORich& = FindWindowEx(Room, 0&, "RICHCNTL", vbNullString)
    AORich2& = FindWindowEx(Room, AORich, "RICHCNTL", vbNullString)
    Call SendMessageByString(AORich2, WM_SETTEXT, 0&, Chat$)
    Call SendMessageLong(AORich2, WM_CHAR, ENTER_KEY, 0&)

Public Function FindIM() As Long
    Dim AOL As Long, MDI As Long, child As Long, Caption As String
    AOL& = FindWindow("AOL Frame25", vbNullString)
    MDI& = FindWindowEx(AOL&, 0&, "MDIClient", vbNullString)
    child& = FindWindowEx(MDI&, 0&, "AOL Child", vbNullString)
    Caption$ = GetCaption(child&)
    If InStr(Caption$, "Instant Message") = 1 Or InStr(Caption$, "Instant Message") = 2 Or InStr(Caption$, "Instant Message") = 3 Then
        FindIM& = child&
        Exit Function
    Else
        Do
            child& = FindWindowEx(MDI&, child&, "AOL Child", vbNullString)
            Caption$ = GetCaption(child&)
            If InStr(Caption$, "Instant Message") = 1 Or InStr(Caption$, "Instant Message") = 2 Or InStr(Caption$, "Instant Message") = 3 Then
                FindIM& = child&
                Exit Function
            End If
        Loop Until child& = 0&
    End If
    FindIM& = child&

Public Function FindRoom() As Long
    Dim AOL As Long, MDI As Long, child As Long
    Dim Rich As Long, AOLList As Long
    Dim AOLIcon As Long, AOLStatic As Long
    AOL& = FindWindow("AOL Frame25", vbNullString)
    MDI& = FindWindowEx(AOL&, 0&, "MDIClient", vbNullString)
    child& = FindWindowEx(MDI&, 0&, "AOL Child", vbNullString)
    Rich& = FindWindowEx(child&, 0&, "RICHCNTL", vbNullString)
    AOLList& = FindWindowEx(child&, 0&, "_AOL_Listbox", vbNullString)
    AOLIcon& = FindWindowEx(child&, 0&, "_AOL_Icon", vbNullString)
    AOLStatic& = FindWindowEx(child&, 0&, "_AOL_Static", vbNullString)
    If Rich& <> 0& And AOLList& <> 0& And AOLIcon& <> 0& And AOLStatic& <> 0& Then
        FindRoom& = child&
        Exit Function
    Else
        Do
            child& = FindWindowEx(MDI&, child&, "AOL Child", vbNullString)
            Rich& = FindWindowEx(child&, 0&, "RICHCNTL", vbNullString)
            AOLList& = FindWindowEx(child&, 0&, "_AOL_Listbox", vbNullString)
            AOLIcon& = FindWindowEx(child&, 0&, "_AOL_Icon", vbNullString)
            AOLStatic& = FindWindowEx(child&, 0&, "_AOL_Static", vbNullString)
            If Rich& <> 0& And AOLList& <> 0& And AOLIcon& <> 0& And AOLStatic& <> 0& Then
                FindRoom& = child&
                Exit Function
            End If
        Loop Until child& = 0&
    End If
    FindRoom& = child&

Public Sub ChatIgnoreByIndex(index As Long)
    Dim Room As Long, sList As Long, iWindow As Long
    Dim iCheck As Long, a As Long, Count As Long
    Count& = RoomCount&
    If index& > Count& - 1 Then Exit Sub
    Room& = FindRoom&
    sList& = FindWindowEx(Room&, 0&, "_AOL_Listbox", vbNullString)
    Call SendMessage(sList&, LB_SETCURSEL, index&, 0&)
    Call PostMessage(sList&, WM_LBUTTONDBLCLK, 0&, 0&)
    Do
        DoEvents
        iWindow& = FindInfoWindow
    Loop Until iWindow& <> 0&
    DoEvents
    iCheck& = FindWindowEx(iWindow&, 0&, "_AOL_Checkbox", vbNullString)
    DoEvents
    Do
        DoEvents
        a& = SendMessage(iCheck&, BM_GETCHECK, 0&, 0&)
        Call PostMessage(iCheck&, WM_LBUTTONDOWN, 0&, 0&)
        DoEvents
        Call PostMessage(iCheck&, WM_LBUTTONUP, 0&, 0&)
        DoEvents
    Loop Until a& <> 0&
    DoEvents
    Call PostMessage(iWindow&, WM_CLOSE, 0&, 0&)

Public Sub ChatIgnoreByName(name As String)
    On Error Resume Next
    Dim cProcess As Long, itmHold As Long, ScreenName As String
    Dim psnHold As Long, rBytes As Long, index As Long, Room As Long
    Dim rList As Long, sThread As Long, mThread As Long
    Dim lIndex As Long
    Room& = FindRoom&
    If Room& = 0& Then Exit Sub
    rList& = FindWindowEx(Room&, 0&, "_AOL_Listbox", vbNullString)
    sThread& = GetWindowThreadProcessId(rList, cProcess&)
    mThread& = OpenProcess(PROCESS_READ Or RIGHTS_REQUIRED, False, cProcess&)
    If mThread& Then
        For index& = 0 To SendMessage(rList, LB_GETCOUNT, 0, 0) - 1
            ScreenName$ = String$(4, vbNullChar)
            itmHold& = SendMessage(rList, LB_GETITEMDATA, ByVal index&, ByVal 0&)
            itmHold& = itmHold& + 24
            Call ReadProcessMemory(mThread&, itmHold&, ScreenName$, 4, rBytes)
            Call CopyMemory(psnHold&, ByVal ScreenName$, 4)
            psnHold& = psnHold& + 6
            ScreenName$ = String$(16, vbNullChar)
            Call ReadProcessMemory(mThread&, psnHold&, ScreenName$, Len(ScreenName$), rBytes&)
            ScreenName$ = Left$(ScreenName$, InStr(ScreenName$, vbNullChar) - 1)
            If ScreenName$ <> GetUser$ And LCase(ScreenName$) = LCase(name$) Then
                lIndex& = index&
                Call ChatIgnoreByIndex(lIndex&)
                DoEvents
                Exit Sub
            End If
        Next index&
        Call CloseHandle(mThread)
    End If

Public Function ChatLineSN(TheChatLine As String) As String
    If InStr(TheChatLine, ":") = 0 Then
        ChatLineSN = ""
        Exit Function
    End If
    ChatLineSN = Left(TheChatLine, InStr(TheChatLine, ":") - 1)

Public Sub Scroll(ScrollString As String)
    Dim CurLine As String, Count As Long, ScrollIt As Long
    Dim sProgress As Long
    If FindRoom& = 0 Then Exit Sub
    If ScrollString$ = "" Then Exit Sub
    Count& = LineCount(ScrollString$)
    sProgress& = 1
    For ScrollIt& = 1 To Count&
        CurLine$ = LineFromString(ScrollString$, ScrollIt&)
        If Len(CurLine$) > 3 Then
            If Len(CurLine$) > 92 Then
                CurLine$ = Left(CurLine$, 92)
            End If
            Call ChatSend(CurLine$)
            Pause 0.7
        End If
        sProgress& = sProgress& + 1
        If sProgress& > 4 Then
            sProgress& = 1
            Pause 0.5
        End If
    Next ScrollIt&

Public Sub PrivateRoom(Room As String)
    Call Keyword("aol://2719:2-2-" & Room$)

Public Sub InstantMessage(Person As String, message As String)
    Dim AOL As Long, MDI As Long, IM As Long, Rich As Long
    Dim SendButton As Long, OK As Long, Button As Long
    AOL& = FindWindow("AOL Frame25", vbNullString)
    MDI& = FindWindowEx(AOL&, 0&, "MDIClient", vbNullString)
    Call Keyword("aol://9293:" & Person$)
    Do
        DoEvents
        IM& = FindWindowEx(MDI&, 0&, "AOL Child", "Send Instant Message")
        Rich& = FindWindowEx(IM&, 0&, "RICHCNTL", vbNullString)
        SendButton& = FindWindowEx(IM&, 0&, "_AOL_Icon", vbNullString)
        SendButton& = FindWindowEx(IM&, SendButton&, "_AOL_Icon", vbNullString)
        SendButton& = FindWindowEx(IM&, SendButton&, "_AOL_Icon", vbNullString)
        SendButton& = FindWindowEx(IM&, SendButton&, "_AOL_Icon", vbNullString)
        SendButton& = FindWindowEx(IM&, SendButton&, "_AOL_Icon", vbNullString)
        SendButton& = FindWindowEx(IM&, SendButton&, "_AOL_Icon", vbNullString)
        SendButton& = FindWindowEx(IM&, SendButton&, "_AOL_Icon", vbNullString)
        SendButton& = FindWindowEx(IM&, SendButton&, "_AOL_Icon", vbNullString)
        SendButton& = FindWindowEx(IM&, SendButton&, "_AOL_Icon", vbNullString)
    Loop Until IM& <> 0& And Rich& <> 0& And SendButton& <> 0&
    Call SendMessageByString(Rich&, WM_SETTEXT, 0&, message$)
    Call SendMessage(SendButton&, WM_LBUTTONDOWN, 0&, 0&)
    Call SendMessage(SendButton&, WM_LBUTTONUP, 0&, 0&)
    Do
        DoEvents
        OK& = FindWindow("#32770", "America Online")
        IM& = FindWindowEx(MDI&, 0&, "AOL Child", "Send Instant Message")
    Loop Until OK& <> 0& Or IM& = 0&
    If OK& <> 0& Then
        Button& = FindWindowEx(OK&, 0&, "Button", vbNullString)
        Call PostMessage(Button&, WM_KEYDOWN, VK_SPACE, 0&)
        Call PostMessage(Button&, WM_KEYUP, VK_SPACE, 0&)
        Call PostMessage(IM&, WM_CLOSE, 0&, 0&)
    End If

Public Function CheckIMs(Person As String) As Boolean
    Dim AOL As Long, MDI As Long, IM As Long, Rich As Long
    Dim Available As Long, Available1 As Long, Available2 As Long
    Dim Available3 As Long, oWindow As Long, oButton As Long
    Dim oStatic As Long, oString As String
    AOL& = FindWindow("AOL Frame25", vbNullString)
    MDI& = FindWindowEx(AOL&, 0&, "MDIClient", vbNullString)
    Call Keyword("aol://9293:" & Person$)
    Do
        DoEvents
        IM& = FindWindowEx(MDI&, 0&, "AOL Child", "Send Instant Message")
        Rich& = FindWindowEx(IM&, 0&, "RICHCNTL", vbNullString)
        Available1& = FindWindowEx(IM&, 0&, "_AOL_Icon", vbNullString)
        Available2& = FindWindowEx(IM&, Available1&, "_AOL_Icon", vbNullString)
        Available3& = FindWindowEx(IM&, Available2&, "_AOL_Icon", vbNullString)
        Available& = FindWindowEx(IM&, Available3&, "_AOL_Icon", vbNullString)
        Available& = FindWindowEx(IM&, Available&, "_AOL_Icon", vbNullString)
        Available& = FindWindowEx(IM&, Available&, "_AOL_Icon", vbNullString)
        Available& = FindWindowEx(IM&, Available&, "_AOL_Icon", vbNullString)
        Available& = FindWindowEx(IM&, Available&, "_AOL_Icon", vbNullString)
        Available& = FindWindowEx(IM&, Available&, "_AOL_Icon", vbNullString)
        Available& = FindWindowEx(IM&, Available&, "_AOL_Icon", vbNullString)
    Loop Until IM& <> 0& And Rich <> 0& And Available& <> 0& And Available& <> Available1& And Available& <> Available2& And Available& <> Available3&
    DoEvents
    Call SendMessage(Available&, WM_LBUTTONDOWN, 0&, 0&)
    Call SendMessage(Available&, WM_LBUTTONUP, 0&, 0&)
    Do
        DoEvents
        oWindow& = FindWindow("#32770", "America Online")
        oButton& = FindWindowEx(oWindow&, 0&, "Button", "OK")
    Loop Until oWindow& <> 0& And oButton& <> 0&
    Do
        DoEvents
        oStatic& = FindWindowEx(oWindow&, 0&, "Static", vbNullString)
        oStatic& = FindWindowEx(oWindow&, oStatic&, "Static", vbNullString)
        oString$ = GetText(oStatic)
    Loop Until oStatic& <> 0& And Len(oString$) > 15
    If InStr(oString$, "is online and able to receive") <> 0 Then
        CheckIMs = True
    Else
        CheckIMs = False
    End If
    Call SendMessage(oButton&, WM_KEYDOWN, VK_SPACE, 0&)
    Call SendMessage(oButton&, WM_KEYUP, VK_SPACE, 0&)
    Call PostMessage(IM&, WM_CLOSE, 0&, 0&)

Public Sub IMIgnore(Person As String)
    Call InstantMessage("$IM_OFF, " & Person$, "=)")