Anex Bust

Private Sub Form_Load()
  Dim var_30 As App
  Dim var_34 As App
  var_30 = Global.App
  var_18 = Global.Path
  var_1C = var_18 & "\anexbust.dat"
  call FileExists(var_1C, 0, var_30)
  If call FileExists(var_1C, 0, var_30) + 1 = 0 Then GoTo loc_0040963F
  var_30 = Global.App
  var_18 = Global.Path
  var_28 = var_18 & "\anexbust.dat"
  call WriteToINI("data", "loads", &h00404AEC)
  GoTo loc_00409645
  var_30 = Global.App
  var_18 = Global.Path
  var_24 = var_18 & "\anexbust.dat"
  var_20 = "handle"
  var_1C = "data"
  var_28 = call GetFromINI(var_1C, var_20, var_24)
  var_30 = Global.App
  var_18 = Global.Path
  var_24 = var_18 & "\anexbust.dat"
  var_20 = "handle"
  var_1C = "data"
  var_28 = call GetFromINI(var_1C, var_20, var_24)
  call modAnexBust.Proc_2_10(var_28, , )
  If (var_2C = vbNullString) + 1 = 0 Then GoTo loc_00409892
  var_30 = Global.App
  var_18 = Global.Path
  var_24 = var_18 & "\anexbust.dat"
  var_20 = "loads"
  var_1C = "data"
  var_28 = call GetFromINI(var_1C, var_20, var_24)
  var_34 = Global.App
  var_1C = Global.Path
  var_2C = var_1C & "\anexbust.dat"
  call WriteToINI("data", "loads", __vbaStrR8)
  var_30 = Global.App
  var_18 = Global.Path
  var_24 = var_18 & "\anexbust.dat"
  var_20 = "ttltries"
  var_1C = "data"
  var_28 = call GetFromINI(var_1C, var_20, var_24)
  var_30 = Global.App
  var_18 = Global.Path
  var_24 = var_18 & "\anexbust.dat"
  var_20 = "ttlbusts"
  var_1C = "data"
  var_28 = call GetFromINI(var_1C, var_20, var_24)
  var_30 = Global.App
  var_18 = Global.Path
  var_24 = var_18 & "\anexbust.dat"
  var_20 = "style"
  var_1C = "data"
  var_28 = call GetFromINI(var_1C, var_20, var_24)
  GoTo loc_00409E2A
  If si = 0 Then GoTo loc_00409EBE
  options_style_bust.Checked = True
  options_style_run.Checked = False
  If Me >= 0 Then GoTo loc_00409F2A
  GoTo loc_00409F1B
  options_style_bust.Checked = False
  options_style_run.Checked = True
  If Me >= 0 Then GoTo loc_00409F2A
  var_30 = Global.App
  var_18 = Global.Path
  var_24 = var_18 & "\anexbust.dat"
  var_20 = "showstat"
  var_1C = "data"
  var_28 = call GetFromINI(var_1C, var_20, var_24)
  GoTo loc_0040A000
  If &h0041005C = 0 Then GoTo loc_0040A0F0
  var_eax = frmStats.Hide
  options_status_show.Checked = False
  options_status_hide.Checked = True
  var_eax = frmStats.Show var_38
  options_status_show.Checked = True
  options_status_hide.Checked = False
  Exit Sub
  Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Dim var_34 As App
  Dim var_30 As Variant
  var_34 = Global.App
  var_1C = Global.Path
  var_2C = var_1C & "\anexbust.dat"
  call WriteToINI("data", "handle", var_18)
  var_34 = Global.App
  var_1C = Global.Path
  var_2C = var_1C & "\anexbust.dat"
  call __vbaStrR8(var_40, var_3C, var_30, var_18, var_30, var_34, Me)
  call WriteToINI("data", "ttltries", __vbaStrR8(var_40, var_3C, var_30, var_18, var_30, var_34, Me))
  var_34 = Global.App
  var_1C = Global.Path
  var_2C = var_1C & "\anexbust.dat"
  call __vbaStrR8(var_40, var_3C, Me, var_18, var_30, Me, Me)
  call WriteToINI("data", "ttlbusts", __vbaStrR8(var_40, var_3C, Me, var_18, var_30, Me, Me))
  var_38 = options_style_bust.Checked
  If &h004105C0 = 0 Then GoTo loc_0040A6F5
  var_30 = Global.App
  var_18 = Global.Path
  var_28 = var_18 & "\anexbust.dat"
  GoTo loc_0040A76D
  var_30 = Global.App
  var_18 = Global.Path
  var_28 = var_18 & "\anexbust.dat"
  call WriteToINI("data", "style", &h00404EA8)
  var_38 = options_status_show.Checked
  If edx = 0 Then GoTo loc_0040A896
  var_30 = Global.App
  var_18 = Global.Path
  var_28 = var_18 & "\anexbust.dat"
  GoTo loc_0040A90E
  var_30 = Global.App
  var_18 = Global.Path
  var_28 = var_18 & "\anexbust.dat"
  call WriteToINI("data", "showstat", &h00404EA8)
  Exit Sub
End Sub

Private Sub Label1_Change()
  Dim var_1C As PictureBox
  If var_410000 <> 0 Then GoTo loc_0040E0F3
  GoTo loc_0040E0FE
  var_2C = Picture1.Height
  If var_410000 <> 0 Then GoTo loc_0040E1FC
  GoTo loc_0040E207
  If var_410000 <> 0 Then GoTo loc_0040E21B
  GoTo loc_0040E226
  faddp st1
  Exit Sub
  Exit Sub
End Sub

Private Sub Label2_Click()
  var_eax = Me.Hide
  Timer1.Enabled = False
  Timer2.Enabled = False
  Exit Sub
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button <> 1 Then GoTo loc_00409083
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button <> 1 Then GoTo loc_00409386
  var_18 = Me.Left
  Me.Left = var_18
  var_18 = Me.Top
  Me.Top = Me
  var_18 = frmGreets.Left
  frmGreets.Left = var_18
  var_1C = frmGreets.Height
  var_18 = frmGreets.Top
  frmGreets.Top = var_18
  var_18 = frmStats.Left
  frmStats.Left = var_18
  var_1C = frmStats.Height
  var_18 = frmStats.Top
  frmStats.Top = var_18
End Sub

Private Sub Timer1_Timer()
  If eax = 0 Then GoTo loc_0040E552
  Timer1.Enabled = False
  Timer2.Enabled = True
  GoTo loc_0040E61E
  esi+&h00000034 = esi+&h00000034 + 0004h
  If esi+&h00000034 <= 255 Then GoTo loc_0040E570
  var_34 = %x1 = Label1.Standing
  var_40 = %x1 = Label1.Standing
  var_4C = %x1 = Label1.Standing
  Exit Sub
  Exit Sub
End Sub

Private Sub Timer2_Timer()
  Dim var_1C As Variant
  If ebx = 0 Then GoTo loc_0040EF9D
  ebx = (var_18 = "Greets to...") + 1
  If (var_18 = "Greets to...") + 1 = 0 Then GoTo loc_0040E79C
  GoTo loc_0040EF15
  ebx = (var_18 = "Toxic") + 1
  If (var_18 = "Toxic") + 1 = 0 Then GoTo loc_0040E825
  GoTo loc_0040EF15
  ebx = (var_18 = "ryze") + 1
  If (var_18 = "ryze") + 1 = 0 Then GoTo loc_0040E8AE
  GoTo loc_0040EF15
  ebx = (var_18 = "riptide") + 1
  If (var_18 = "riptide") + 1 = 0 Then GoTo loc_0040E937
  GoTo loc_0040EF15
  ebx = (var_18 = "crims0n") + 1
  If (var_18 = "crims0n") + 1 = 0 Then GoTo loc_0040E9C0
  GoTo loc_0040EF15
  ebx = (var_18 = "Diamond Dawg") + 1
  If (var_18 = "Diamond Dawg") + 1 = 0 Then GoTo loc_0040EA49
  GoTo loc_0040EF15
  ebx = (var_18 = "stanky") + 1
  If (var_18 = "stanky") + 1 = 0 Then GoTo loc_0040EAD2
  GoTo loc_0040EF15
  ebx = (var_18 = "d0tz") + 1
  If (var_18 = "d0tz") + 1 = 0 Then GoTo loc_0040EB5B
  GoTo loc_0040EF15
  ebx = (var_18 = "tetra") + 1
  If (var_18 = "tetra") + 1 = 0 Then GoTo loc_0040EBE4
  GoTo loc_0040EF15
  ebx = (var_18 = "pio") + 1
  If (var_18 = "pio") + 1 = 0 Then GoTo loc_0040EC6D
  GoTo loc_0040EF15
  ebx = (var_18 = "pyro") + 1
  If (var_18 = "pyro") + 1 = 0 Then GoTo loc_0040ECF6
  GoTo loc_0040EF15
  ebx = (var_18 = "notorious") + 1
  If (var_18 = "notorious") + 1 = 0 Then GoTo loc_0040ED7F
  GoTo loc_0040EF15
  ebx = (var_18 = "dlux") + 1
  If (var_18 = "dlux") + 1 = 0 Then GoTo loc_0040EE08
  GoTo loc_0040EF15
  ebx = (var_18 = "bone (auoq)") + 1
  If (var_18 = "bone (auoq)") + 1 = 0 Then GoTo loc_0040EE91
  GoTo loc_0040EF15
  ebx = (var_18 = "sober") + 1
  If (var_18 = "sober") + 1 = 0 Then GoTo loc_0040F07E
  Timer1.Enabled = True
  Timer2.Enabled = False
  esi+&h00000034 = esi+&h00000034 - 0004h
  If esi+&h00000034 >= 0 Then GoTo loc_0040EFBA
  var_38 = %x1 = Label1.Standing
  var_44 = %x1 = Label1.Standing
  var_50 = %x1 = Label1.Standing
  GoTo loc_0040F165
  call var_1C(var_1C, (vtable), var_0040F166, var_1C, RGB(CInt((var_58 * 2.5)), CInt((var_40 * 2.5)), Me), var_1C, var_1C, Me, var_1C, (vtable), Me, Me, "And anyone else I foregot.", var_1C, Me)
  ebx = (var_18 = "And anyone else I foregot.") + 1
  If (var_18 = "And anyone else I foregot.") + 1 = 0 Then GoTo loc_0040EF2D
  call var_1C(var_1C, (var_18 = "And anyone else I foregot."), Me, var_1C(var_1C, (vtable), var_0040F166, var_1C, RGB(CInt((var_58 * 2.5)), CInt((var_40 * 2.5)), Me), var_1C, var_1C, Me, var_1C, (vtable), Me, Me, "And anyone else I foregot.", var_1C, Me), var_18)
  Timer1.Enabled = False
  call var_1C(var_1C, var_1C(var_1C, (var_18 = "And anyone else I foregot."), Me, var_1C(var_1C, (vtable), var_0040F166, var_1C, RGB(CInt((var_58 * 2.5)), CInt((var_40 * 2.5)), Me), var_1C, var_1C, Me, var_1C, (vtable), Me, Me, "And anyone else I foregot.", var_1C, Me), var_18), Me)
  Timer2.Enabled = False
  Exit Sub
  Exit Sub
End Sub

Private Sub lblHandle_Change()
  var_20 = "handle [" & var_18 & var_004052AC
  Exit Sub
End Sub

Private Sub lblLoads_Change()
  var_24 =  & __vbaStrR8 & var_004052AC
  Exit Sub
End Sub

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

Private Sub lblStop_Click()
  If Me.Reset <> var_FFFFFF Then GoTo loc_00408FB1
  var_18 = "</u></i><font color=#000000><font face=""Arial Narrow""><sup>�</sup>�-<sub>�</sub> < a href=www.anexsoft.com><font color=#000000></u><b>A</b><font color=#666666>nex Bust</a> <font color=#000000>� <b>B</b><font color=#666666>y <font color=#000000><b>V</b><font color=#666666>iper"
  call SetText(var_18, var_3C, "[stop]")
  call Proc_40D770(0.6, var_3C, (vtable))
  var_20 = txtRoom.Text
  var_1C = "</u></i><font color=#000000><font face=""Arial Narrow""><sup>�</sup>�-<sub>�</sub> <font color=#000000></u></i><b>" & var_18
  var_30 = var_1C & "</b> � <font color=#000000></u><b>S</b><font color=#666666>topped <font color=#000000>[<b>" & var_20 & "</b>] � <b>T</b><font color=#666666>ries <font color=#000000>[<b>"
  call SetText(var_30 & var_2C & "</b>]", var_00410034, var_2C)
  txtRoom.Enabled = True
  Exit Sub
End Sub

Private Sub lblTries_Change()
  var_38 = var_2C
  var_20 =  & __vbaStrR8
  var_24 =  & __vbaStrR8 & var_004052AC
  Exit Sub
End Sub

Private Sub lblttlBusts_Change()
  var_38 = var_2C
  var_20 =  & __vbaStrR8
  var_24 =  & __vbaStrR8 & var_004052AC
  Exit Sub
End Sub

Private Sub lblttlTries_Change()
  var_38 = var_2C
  var_20 =  & __vbaStrR8
  var_24 =  & __vbaStrR8 & var_004052AC
  Exit Sub
End Sub

Private Sub options_about_Click()
  var_20 = "About Anex Bust -" & "vbCrLf" & "This is just a simple Buster that I made.  Its nothing really special (except the fact that it has a run option which I don't see on much busters).  I spent some time on it,  and did put some work into it.  But I guess it was all worth it.  Now I have a pretty fast buster.  I wouldn't say its the fastest,  but its pretty fast compaired to some of the ones out today."
  var_34 = "Anex Bust"
  var_5C = var_20 & "vbCrLf" & "-Viper"
  Exit Sub
End Sub

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

Private Sub options_greets_Click()
  var_eax = frmGreets.Show var_1C
  frmGreets.Timer1.Enabled = True
  Exit Sub
End Sub

Private Sub options_help_Click()
  var_20 = "Anex Bust help -" & "vbCrLf" & "Most of the options on this buster are self-explanatory. If you have the 'style' set to 'bust' then the buster will act like a normal buster (it busts into the room).  If you have the style set to 'run' then the buster will run to the chatroom (Ex. If you tried to run to 'mp3',  it would try 'mp3','mp32','mp33','mp34' etc.)"
  var_28 = var_20 & "You can change your handle by going to Options>User and clicking on Handle." & "You can show or hide the status window."
  var_2C = var_28 & " Remember that the program will save your settings.  So if you have the style set to 'run', it will still be set to 'run' when you load it up again."
  var_40 = "Anex Bust"
  var_68 = var_2C & "vbCrLf" & "-Viper"
  Exit Sub
End Sub

Private Sub options_stats_handle_Click()
  var_4C = var_20
  var_18 = InputBox("Enter your handle", var_44, var_20, var_64, var_74, 10, 10)
  var_1C = var_18
  call modAnexBust.Proc_2_10(var_18, var_24, var_20)
  VarPtr(var_18) + 1
  If VarPtr(var_18) + 1 = 0 Then GoTo loc_0040BC2E
  GoTo loc_0040BC51
  Exit Sub
End Sub

Private Sub options_status_hide_Click()
  var_1C = options_status_hide.Checked
  If eax = 0 Then GoTo loc_0040BE3C
  options_status_show.Checked = False
  options_status_hide.Checked = True
  var_eax = frmStats.Hide
  Exit Sub
End Sub

Private Sub options_status_show_Click()
  var_3C = options_status_show.Checked
  If eax = 0 Then GoTo loc_0040C010
  options_status_hide.Checked = False
  options_status_show.Checked = True
  var_eax = frmStats.Show var_1C
  Exit Sub
End Sub

Private Sub options_style_bust_Click()
  var_1C = options_style_bust.Checked
  If eax = 0 Then GoTo loc_0040C158
  options_style_run.Checked = False
  options_style_bust.Checked = True
  Exit Sub
End Sub

Private Sub options_style_run_Click()
  var_1C = options_style_run.Checked
  If eax = 0 Then GoTo loc_0040C298
  options_style_bust.Checked = False
  options_style_run.Checked = True
  Exit Sub
End Sub

Private Sub txtRoom_KeyPress(KeyAscii As Integer)
  If KeyAscii <> 13 Then GoTo loc_00409428
  var_eax = Call Form1.lblStart_Click
End Sub

Public Function GetFromINI(Section As String, Key As String, Directory As String) As String
   Dim strBuffer As String
   strBuffer = String(750, Chr(0))
   Key$ = LCase$(Key$)
   GetFromINI$ = Left(strBuffer, GetPrivateProfileString(Section$, ByVal Key$, "", strBuffer, Len(strBuffer), Directory$))

Public Sub WriteToINI(Section As String, Key As String, KeyValue As String, Directory As String)
    Call WritePrivateProfileString(Section$, UCase$(Key$), KeyValue$, Directory$)

Public Function FileExists(sFileName As String) As Boolean
    If Len(sFileName$) = 0 Then
        FileExists = False
        Exit Function
    End If
    If Len(Dir$(sFileName$)) Then
        FileExists = True
    Else
        FileExists = False
    End If

Public Function GetText(WindowHandle As Long) As String
    Dim buffer As String, TextLength As Long
    TextLength& = SendMessage(WindowHandle&, WM_GETTEXTLENGTH, 0&, 0&)
    buffer$ = String(TextLength&, 0&)
    Call SendMessageByString(WindowHandle&, WM_GETTEXT, TextLength& + 1, buffer$)
    GetText$ = buffer$

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 SetText(Window As Long, Text As String)
    Call SendMessageByString(Window&, WM_SETTEXT, 0&, Text$)

Public Function ReplaceString(MyString As String, ToFind As String, ReplaceWith As String) As String
    Dim Spot As Long, NewSpot As Long, LeftString As String
    Dim RightString As String, NewString As String
    Spot& = InStr(LCase(MyString$), LCase(ToFind))
    NewSpot& = Spot&
    Do
        If NewSpot& > 0& Then
            LeftString$ = Left(MyString$, NewSpot& - 1)
            If Spot& + Len(ToFind$) <= Len(MyString$) Then
                RightString$ = Right(MyString$, Len(MyString$) - NewSpot& - Len(ToFind$) + 1)
            Else
                RightString = ""
            End If
            NewString$ = LeftString$ & ReplaceWith$ & RightString$
            MyString$ = NewString$
        Else
            NewString$ = MyString$
        End If
        Spot& = NewSpot& + Len(ReplaceWith$)
        If Spot& > 0 Then
            NewSpot& = InStr(Spot&, LCase(MyString$), LCase(ToFind$))
        End If
    Loop Until NewSpot& < 1
    ReplaceString$ = NewString$

Public Function IMText() As String
    Dim Rich As Long
    Rich& = FindWindowEx(FindIM&, 0&, "RICHCNTL", vbNullString)
    IMText$ = GetText(Rich&)

Public Sub modAnexBust.Proc_2_10
  LCase(Me)
  var_20 = vbNullString
  call ReplaceString(Me, var_1C, var_20)
  call ReplaceString(Me, var_1C, var_20)
  GoTo loc_0040D74C
  If var_4 = 0 Then GoTo loc_0040D72F
  Exit Sub
End Sub