home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / aolcha1a / errorrai.bas < prev    next >
Encoding:
BASIC Source File  |  1999-09-24  |  120.9 KB  |  3,035 lines
  1. Attribute VB_Name = "ErrorRaiM"
  2. 'ErrorRaiM
  3.  
  4. Option Explicit
  5.  
  6. ' WinMM
  7. Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  8.  
  9. ' Kernel
  10. Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (destination As Any, Source As Any, ByVal Length As Long)
  11. Declare Sub RtlMoveMemory Lib "kernel32" (ByRef dest As Any, ByRef Source As Any, ByVal nBytes As Long)
  12. Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  13. Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
  14. Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  15. Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  16. Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByVal lpBuffer As String, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long
  17. Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
  18.  
  19. ' User
  20. Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long
  21. Declare Function CreatePopupMenu Lib "user32" () As Long
  22. Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
  23. Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  24. Declare Function DestroyMenu Lib "user32" (ByVal hMenu%) As Integer
  25. Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal cmd As Long) As Long
  26. Declare Function EnumWindows& Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long)
  27. Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  28. Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
  29. Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long)
  30. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  31. Declare Function GetClassName& Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long)
  32. Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
  33. Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
  34. Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  35. Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
  36. Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
  37. Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  38. Declare Function GetTopWindow Lib "user32" (ByVal hwnd As Long) As Long
  39. Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
  40. Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)
  41. Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  42. Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  43. Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
  44. Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
  45. Declare Function InsertMenu Lib "user32" Alias "InsertMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long
  46. Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
  47. Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
  48. Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  49. Declare Function PutFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
  50. Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As RECT, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
  51. Declare Function RegisterWindowMessage& Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String)
  52. Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  53. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  54. Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
  55. Declare Function SendMessageByNum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
  56. Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
  57. Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
  58. Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  59. Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
  60. Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  61. Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  62. Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
  63.  
  64. ' Global & Public Const
  65. Const EM_UNDO = &HC7
  66.  
  67. Global Const GFSR_SYSTEMRESOURCES = 0
  68. Global Const GFSR_GDIRESOURCES = 1
  69. Global Const GFSR_USERRESOURCES = 2
  70.  
  71. Global Const WM_MDICREATE = &H220
  72. Global Const WM_MDIDESTROY = &H221
  73. Global Const WM_MDIACTIVATE = &H222
  74. Global Const WM_MDIRESTORE = &H223
  75. Global Const WM_MDINEXT = &H224
  76. Global Const WM_MDIMAXIMIZE = &H225
  77. Global Const WM_MDITILE = &H226
  78. Global Const WM_MDICASCADE = &H227
  79. Global Const WM_MDIICONARRANGE = &H228
  80. Global Const WM_MDIGETACTIVE = &H229
  81. Global Const WM_MDISETMENU = &H230
  82. Global Const WM_CUT = &H300
  83. Global Const WM_COPY = &H301
  84. Global Const WM_PASTE = &H302
  85.  
  86. Global Const SND_SYNC = &H0
  87. Global Const SND_ASYNC = &H1
  88. Global Const SND_NODEFAULT = &H2
  89. Global Const SND_LOOP = &H8
  90. Global Const SND_NOSTOP = &H10
  91.  
  92. Public Const WM_CHAR = &H102
  93. Public Const WM_SETTEXT = &HC
  94. Public Const WM_USER = &H400
  95. Public Const WM_KEYDOWN = &H100
  96. Public Const WM_KEYUP = &H101
  97. Public Const WM_LBUTTONDOWN = &H201
  98. Public Const WM_LBUTTONUP = &H202
  99. Public Const WM_CLOSE = &H10
  100. Public Const WM_COMMAND = &H111
  101. Public Const WM_CLEAR = &H303
  102. Public Const WM_DESTROY = &H2
  103. Public Const WM_GETTEXT = &HD
  104. Public Const WM_GETTEXTLENGTH = &HE
  105. Public Const WM_LBUTTONDBLCLK = &H203
  106.  
  107. Public Const BM_GETCHECK = &HF0
  108. Public Const BM_GETSTATE = &HF2
  109. Public Const BM_SETCHECK = &HF1
  110. Public Const BM_SETSTATE = &HF3
  111.  
  112. Public Const EWX_FORCE = 4
  113. Public Const EWX_LOGOFF = 0
  114. Public Const EWX_REBOOT = 2
  115. Public Const EWX_SHUTDOWN = 1
  116.  
  117. Public Const LB_GETITEMDATA = &H199
  118. Public Const LB_GETCOUNT = &H18B
  119. Public Const LB_ADDSTRING = &H180
  120. Public Const LB_DELETESTRING = &H182
  121. Public Const LB_FINDSTRING = &H18F
  122. Public Const LB_FINDSTRINGEXACT = &H1A2
  123. Public Const LB_GETCURSEL = &H188
  124. Public Const LB_GETTEXT = &H189
  125. Public Const LB_GETTEXTLEN = &H18A
  126. Public Const LB_SELECTSTRING = &H18C
  127. Public Const LB_SETCOUNT = &H1A7
  128. Public Const LB_SETCURSEL = &H186
  129. Public Const LB_SETSEL = &H185
  130. Public Const LB_INSERTSTRING = &H181
  131.  
  132. Public Const VK_HOME = &H24
  133. Public Const VK_RIGHT = &H27
  134. Public Const VK_CONTROL = &H11
  135. Public Const VK_DELETE = &H2E
  136. Public Const VK_DOWN = &H28
  137. Public Const VK_LEFT = &H25
  138. Public Const VK_RETURN = &HD
  139. Public Const VK_SPACE = &H20
  140. Public Const VK_TAB = &H9
  141.  
  142. Public Const HWND_TOP = 0
  143. Public Const HWND_TOPMOST = -1
  144. Public Const HWND_NOTOPMOST = -2
  145.  
  146. Public Const SWP_NOMOVE = &H2
  147. Public Const SWP_NOSIZE = &H1
  148.  
  149. Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
  150.  
  151. Public Const GW_CHILD = 5
  152. Public Const GW_HWNDFIRST = 0
  153. Public Const GW_HWNDLAST = 1
  154. Public Const GW_HWNDNEXT = 2
  155. Public Const GW_HWNDPREV = 3
  156. Public Const GW_MAX = 5
  157. Public Const GW_OWNER = 4
  158.  
  159. Public Const SW_MAXIMIZE = 3
  160. Public Const SW_MINIMIZE = 6
  161. Public Const SW_HIDE = 0
  162. Public Const SW_RESTORE = 9
  163. Public Const SW_SHOW = 5
  164. Public Const SW_SHOWDEFAULT = 10
  165. Public Const SW_SHOWMAXIMIZED = 3
  166. Public Const SW_SHOWMINIMIZED = 2
  167. Public Const SW_SHOWMINNOACTIVE = 7
  168. Public Const SW_SHOWNOACTIVATE = 4
  169. Public Const SW_SHOWNORMAL = 1
  170.  
  171. Public Const MF_APPEND = &H100&
  172. Public Const MF_DELETE = &H200&
  173. Public Const MF_CHANGE = &H80&
  174. Public Const MF_ENABLED = &H0&
  175. Public Const MF_DISABLED = &H2&
  176. Public Const MF_REMOVE = &H1000&
  177. Public Const MF_POPUP = &H10&
  178. Public Const MF_STRING = &H0&
  179. Public Const MF_UNCHECKED = &H0&
  180. Public Const MF_CHECKED = &H8&
  181. Public Const MF_GRAYED = &H1&
  182. Public Const MF_BYPOSITION = &H400&
  183. Public Const MF_BYCOMMAND = &H0&
  184.  
  185. Public Const GWW_HINSTANCE = (-6)
  186. Public Const GWW_ID = (-12)
  187. Public Const GWL_STYLE = (-16)
  188.  
  189. Public Const ENTA = 13
  190. Public Const PROCESS_VM_READ = &H10
  191. Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
  192.  
  193. Private Const EM_LINESCROLL = &HB6
  194. Private Const SPI_SCREENSAVERRUNNING = 97
  195.  
  196. Type RECT
  197.    Left As Long
  198.    Top As Long
  199.    Right As Long
  200.    bottom As Long
  201. End Type
  202.  
  203. Type POINTAPI
  204.    X As Long
  205.    Y As Long
  206. End Type
  207. Sub Shell_Write(TheExe As String)
  208.     Dim Shellz As Long, NoFreeze As Long
  209.  
  210.     Shellz& = Shell("c:\windows\write.exe", 1): NoFreeze& = DoEvents()
  211. End Sub
  212.  
  213. Sub Shell_Paint(TheExe As String)
  214.     Dim Shellz As Long, NoFreeze As Long
  215.  
  216.     Shellz& = Shell("c:\windows\Pbrush.exe", 1): NoFreeze& = DoEvents()
  217. End Sub
  218. Sub Shell_Cdplayer(TheExe As String)
  219.     Dim Shellz As Long, NoFreeze As Long
  220.  
  221.     Shellz& = Shell("c:\windows\Cdplayer.exe", 1): NoFreeze& = DoEvents()
  222. End Sub
  223. Sub Shell_Explorer(TheExe As String)
  224.     Dim Shellz As Long, NoFreeze As Long
  225.  
  226.     Shellz& = Shell("c:\windows\Explorer.exe", 1): NoFreeze& = DoEvents()
  227. End Sub
  228. Sub Shell_MyIP(TheExe As String)
  229.     Dim Shellz As Long, NoFreeze As Long
  230.  
  231.     Shellz& = Shell("c:\windows\Winipcfg.exe", 1): NoFreeze& = DoEvents()
  232. End Sub
  233.  
  234. Sub Shell_NotePad(TheExe As String)
  235.     Dim Shellz As Long, NoFreeze As Long
  236.  
  237.     Shellz& = Shell("c:\windows\notepad.exe", 1): NoFreeze& = DoEvents()
  238. End Sub
  239. Sub Chat_SmileKill()
  240.  
  241.     Chat_Send (":-):-(;-):):-):-(;-):):-(:-):-(;-):):-):-(;-):):-):-(;-):):-):-(:):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):-):-(;-):):-):-(;-):):-):-(;-):):-(:-);-):):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-)")
  242.    TimeOut 0.5
  243.     Chat_Send (":-):-(;-):):-):-(;-):):-(:-):-(;-):):-):-(;-):):-):-(;-):):-):-(:):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):-):-(;-):):-):-(;-):):-):-(;-):):-(:-);-):):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-)")
  244.     TimeOut 0.5
  245.     Chat_Send (":-):-(;-):):-):-(;-):):-(:-):-(;-):):-):-(;-):):-):-(;-):):-):-(:):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):-):-(;-):):-):-(;-):):-):-(;-):):-(:-);-):):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-(;-):):-):-)")
  246. End Sub
  247. Sub Chat_MacroKill_Italic()
  248.  
  249.     Chat_Send ("<I>@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ ")
  250.     TimeOut 0.5
  251.     Chat_Send ("<I>@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ ")
  252.     TimeOut 0.5
  253.     Chat_Send ("<I>@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ ")
  254. End Sub
  255. Sub Chat_MacroKill()
  256.  
  257.     Chat_Send ("@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@")
  258.     TimeOut 0.5
  259.     Chat_Send ("@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@")
  260.     TimeOut 0.5
  261.     Chat_Send ("@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@")
  262. End Sub
  263. Sub Chat_MacroKill_Under()
  264.  
  265.     Chat_Send ("<U>@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ ")
  266.     TimeOut 0.5
  267.     Chat_Send ("<U>@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ ")
  268.     TimeOut 0.5
  269.     Chat_Send ("<U>@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ ")
  270. End Sub
  271. Sub Chat_12liner(SayWhat As String)
  272.  
  273.     Chat_Send (SayWhat$)
  274.     Chat_Send (SayWhat$)
  275.     Chat_Send (SayWhat$)
  276.     TimeOut 0.5
  277.     Chat_Send (SayWhat$)
  278.     Chat_Send (SayWhat$)
  279.     Chat_Send (SayWhat$)
  280.     TimeOut 0.5
  281.     Chat_Send (SayWhat$)
  282.     Chat_Send (SayWhat$)
  283.     Chat_Send (SayWhat$)
  284.     TimeOut 0.5
  285.     Chat_Send (SayWhat$)
  286.     Chat_Send (SayWhat$)
  287.     Chat_Send (SayWhat$)
  288. End Sub
  289. Sub AIM_Show_InviteBut()
  290.     Dim BuddyList As Long, TabThing As Long, ChtIcon As Long
  291.     Dim ChatIcon As Long, X As Long
  292.  
  293.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  294.     TabThing& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  295.     ChtIcon& = FindWindowEx(TabThing&, 0, "_Oscar_IconBtn", vbNullString)
  296.     ChatIcon& = FindWindowEx(TabThing&, ChtIcon&, "_Oscar_IconBtn", vbNullString)
  297.     X& = ShowWindow(ChatIcon&, SW_SHOW)
  298. End Sub
  299. Sub AIM_Hide_InviteBut()
  300.     Dim BuddyList As Long, TabThing As Long, ChtIcon As Long
  301.     Dim ChatIcon As Long, X As Long
  302.  
  303.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  304.     TabThing& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  305.     ChtIcon& = FindWindowEx(TabThing&, 0, "_Oscar_IconBtn", vbNullString)
  306.     ChatIcon& = FindWindowEx(TabThing&, ChtIcon&, "_Oscar_IconBtn", vbNullString)
  307.     X& = ShowWindow(ChatIcon&, SW_HIDE)
  308. End Sub
  309.  
  310.  
  311. Sub AIM_Show_IMButton()
  312.     Dim BuddyList As Long, TabWin As Long, IMButtin As Long, X As Long
  313.  
  314.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  315.     TabWin& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  316.     IMButtin& = FindWindowEx(TabWin&, 0, "_Oscar_IconBtn", vbNullString)
  317.     X& = ShowWindow(IMButtin&, SW_SHOW)
  318. End Sub
  319. Sub AIM_Disable_TabGroup()
  320.     Dim BuddyList As Long, TabGroup As Long
  321.     Dim dis
  322.  
  323.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  324.     TabGroup& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  325.     dis = EnableWindow(TabGroup&, 0)
  326. End Sub
  327.  
  328.  
  329. Sub AIM_Enable_TabGroup()
  330.     Dim BuddyList As Long, TabGroup As Long
  331.     Dim dis
  332.  
  333.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  334.     TabGroup& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  335.     dis = EnableWindow(TabGroup&, 1)
  336. End Sub
  337.  
  338. Sub AIM_Hide_Buddys()
  339.     Dim BuddyList As Long, TabGroup As Long, BuddyTree As Long
  340.  
  341.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  342.     TabGroup& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  343.     BuddyTree& = FindWindowEx(TabGroup&, 0, "_Oscar_Tree", vbNullString)
  344.     Call ShowWindow(BuddyTree&, SW_HIDE)
  345. End Sub
  346.  
  347.  
  348. Sub AIM_Hide_IMButton()
  349.     Dim BuddyList As Long, TabWin As Long, IMButtin As Long, X As Long
  350.  
  351.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  352.     TabWin& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  353.     IMButtin& = FindWindowEx(TabWin&, 0, "_Oscar_IconBtn", vbNullString)
  354.     X& = ShowWindow(IMButtin&, SW_HIDE)
  355. End Sub
  356.  
  357. Sub AIM_Hide_TabGroup()
  358.     Dim BuddyList As Long, TabGroup As Long
  359.  
  360.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  361.     TabGroup& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  362.     Call ShowWindow(TabGroup&, SW_HIDE)
  363. End Sub
  364.  
  365. Sub AIM_Show_Buddys()
  366.     Dim BuddyList As Long, TabGroup As Long, BuddyTree As Long
  367.  
  368.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  369.     TabGroup& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  370.     BuddyTree& = FindWindowEx(TabGroup&, 0, "_Oscar_Tree", vbNullString)
  371.     Call ShowWindow(BuddyTree&, SW_SHOW)
  372. End Sub
  373.  
  374. Sub AIM_Show_TabGroup()
  375.     Dim BuddyList As Long, TabGroup As Long
  376.  
  377.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  378.     TabGroup& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  379.     Call ShowWindow(TabGroup&, SW_SHOW)
  380. End Sub
  381.  
  382. Function HTML_Remove(Stg As String) As String
  383. ' By RaiD rewrote by me
  384.  
  385.     Dim i, beg As String, ends As String, after As String, junk As String, junk2 As String, before As String
  386.     Dim TheStrg As String
  387.  
  388.     TheStrg$ = ReplaceString(Stg$, "<BR>", "" & Chr$(13) + Chr$(10))
  389.     For i = 1 To Len(Stg)
  390.         beg$ = InStr(1, Stg, "<")
  391.         If beg$ = 0 Then
  392.             GoTo Endz:
  393.         Else
  394.             ends$ = InStr(1, Stg, ">")
  395.         End If
  396.         If ends$ = 0 Then
  397.             GoTo Endz:
  398.         Else
  399.             after$ = Mid$(Stg$, ends$ + 1, Len(Stg$) - ends$)
  400.             junk$ = Len(Stg$) - (beg$ - 1)
  401.             junk2$ = Len(Stg$) - junk$
  402.             before$ = Mid$(Stg$, 1, junk2$)
  403.             Stg$ = before$ & after$
  404.         End If
  405.     Next i
  406. Endz:
  407.     HTML_Remove = Stg$
  408. End Function
  409.  
  410.  
  411. Sub Win_Enable_CNT_ALT_DEL()
  412.      Dim Ret As Integer
  413.      Dim pOld As Boolean
  414.  
  415.      Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
  416. End Sub
  417. Sub Win_Disable_CNT_ALT_DEL()
  418.      Dim Ret As Integer
  419.      Dim pOld As Boolean
  420.  
  421.      Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
  422. End Sub
  423.  
  424.  
  425. Sub Win_Restart()
  426.     Call ExitWindowsEx(EWX_REBOOT, 0)
  427. End Sub
  428. Sub Win_ForceShutDwn()
  429.     Call ExitWindowsEx(EWX_FORCE, 0)
  430. End Sub
  431. Sub Win_LogOff()
  432.     Call ExitWindowsEx(EWX_LOGOFF, 0)
  433. End Sub
  434.  
  435.  
  436. Sub Win_Restore(THeWindow As Long)
  437.     Dim res As Long
  438.  
  439.     res& = ShowWindow(THeWindow&, SW_RESTORE)
  440. End Sub
  441. Sub IM_Minimize()
  442.     Dim IMWin As Long, Mini As Long
  443.     
  444.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  445.     Mini& = ShowWindow(IMWin&, SW_MINIMIZE)
  446. End Sub
  447. Sub IM_Maximize()
  448.     Dim IMWin As Long, Mini As Long
  449.     
  450.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  451.     Mini& = ShowWindow(IMWin&, SW_MAXIMIZE)
  452. End Sub
  453. Sub IM_Restore()
  454.     Dim IMWin As Long, Mini As Long
  455.     
  456.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  457.     Mini& = ShowWindow(IMWin&, SW_RESTORE)
  458. End Sub
  459. Sub Chat_Maximize()
  460.     Dim ChatWindow As Long, Mini As Long
  461.     
  462.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  463.     Mini& = ShowWindow(ChatWindow&, SW_MAXIMIZE)
  464. End Sub
  465. Sub Chat_Minimize()
  466.     Dim ChatWindow As Long, Mini As Long
  467.     
  468.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  469.     Mini& = ShowWindow(ChatWindow&, SW_MINIMIZE)
  470. End Sub
  471. Sub Chat_Restore()
  472.     Dim ChatWindow As Long, Mini As Long
  473.     
  474.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  475.     Mini& = ShowWindow(ChatWindow&, SW_RESTORE)
  476. End Sub
  477. Sub AIM_Restore()
  478.     Dim BuddyList As Long, Mini As Long
  479.     
  480.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  481.     Mini& = ShowWindow(BuddyList&, SW_RESTORE)
  482. End Sub
  483. Sub AIM_Maximize()
  484.     Dim BuddyList As Long, Mini As Long
  485.     
  486.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  487.     Mini& = ShowWindow(BuddyList&, SW_MAXIMIZE)
  488. End Sub
  489. Sub AIM_GroupsTo_Combo(Cmb As ComboBox)
  490.     Dim BuddyList As Long, TabGroup As Long
  491.     Dim BuddyTree As Long, LopGet, MooLoo, Moo2
  492.     Dim name As String, NameLen, Buffer As String
  493.     Dim TabPos, NameText As String, Text As String
  494.     Dim mooz, Well As Integer
  495.  
  496.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  497.     If BuddyList& <> 0 Then
  498.         Do
  499.             TabGroup& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  500.             BuddyTree& = FindWindowEx(TabGroup&, 0, "_Oscar_Tree", vbNullString)
  501.         Loop Until BuddyTree& <> 0
  502.         LopGet = SendMessage(BuddyTree&, LB_GETCOUNT, 0, 0)
  503.         For MooLoo = 0 To LopGet - 1
  504.             Call SendMessageByString(BuddyTree&, LB_SETCURSEL, MooLoo, 0)
  505.             NameLen = SendMessage(BuddyTree&, LB_GETTEXTLEN, MooLoo, 0)
  506.             Buffer$ = String$(NameLen, 0)
  507.             Moo2 = SendMessageByString(BuddyTree&, LB_GETTEXT, MooLoo, Buffer$)
  508.             TabPos = InStr(Buffer$, Chr$(9))
  509.             NameText$ = Right$(Buffer$, (Len(Buffer$) - (TabPos)))
  510.             TabPos = InStr(NameText$, Chr$(9))
  511.             Text$ = Right$(NameText$, (Len(NameText$) - (TabPos)))
  512.             name$ = Text$
  513.             If InStr(name$, "(") <> 0 And InStr(name$, ")") <> 0 Then
  514.                 For mooz = 0 To Cmb.ListCount - 1
  515.                     If name$ = Cmb.List(mooz) Then
  516.                         Well% = 123
  517.                         GoTo HellNo
  518.                     End If
  519.                 Next mooz
  520.                 If Well% <> 123 Then
  521.                     Cmb.AddItem name$
  522.                 Else
  523.                 End If
  524.             End If
  525. HellNo:
  526.         Next MooLoo
  527.     End If
  528. End Sub
  529.  
  530. Sub AIM_GroupsTo_List(lis As ListBox)
  531.     Dim BuddyList As Long, TabGroup As Long
  532.     Dim BuddyTree As Long, LopGet, MooLoo, Moo2
  533.     Dim name As String, NameLen, Buffer As String
  534.     Dim TabPos, NameText As String, Text As String
  535.     Dim mooz, Well As Integer
  536.  
  537.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  538.     If BuddyList& <> 0 Then
  539.         Do
  540.             TabGroup& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  541.             BuddyTree& = FindWindowEx(TabGroup&, 0, "_Oscar_Tree", vbNullString)
  542.         Loop Until BuddyTree& <> 0
  543.         LopGet = SendMessage(BuddyTree&, LB_GETCOUNT, 0, 0)
  544.         For MooLoo = 0 To LopGet - 1
  545.             Call SendMessageByString(BuddyTree&, LB_SETCURSEL, MooLoo, 0)
  546.             NameLen = SendMessage(BuddyTree&, LB_GETTEXTLEN, MooLoo, 0)
  547.             Buffer$ = String$(NameLen, 0)
  548.             Moo2 = SendMessageByString(BuddyTree&, LB_GETTEXT, MooLoo, Buffer$)
  549.             TabPos = InStr(Buffer$, Chr$(9))
  550.             NameText$ = Right$(Buffer$, (Len(Buffer$) - (TabPos)))
  551.             TabPos = InStr(NameText$, Chr$(9))
  552.             Text$ = Right$(NameText$, (Len(NameText$) - (TabPos)))
  553.             name$ = Text$
  554.             If InStr(name$, "(") <> 0 And InStr(name$, ")") <> 0 Then
  555.                 For mooz = 0 To lis.ListCount - 1
  556.                     If name$ = lis.List(mooz) Then
  557.                         Well% = 123
  558.                         GoTo HellNo
  559.                     End If
  560.                 Next mooz
  561.                 If Well% <> 123 Then
  562.                     lis.AddItem name$
  563.                 Else
  564.                 End If
  565.             End If
  566. HellNo:
  567.         Next MooLoo
  568.     End If
  569.  
  570. End Sub
  571.  
  572.  
  573. Sub AIM_Minimize()
  574.     Dim BuddyList As Long, Mini As Long
  575.     
  576.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  577.     Mini& = ShowWindow(BuddyList&, SW_MINIMIZE)
  578. End Sub
  579.  
  580. Sub Click_Chat_IM()
  581.     Dim ChatWin As Long, IMBut As Long, Klick As Long
  582.  
  583.     ChatWin& = FindWindow("AIM_ChatWnd", vbNullString)
  584.     IMBut& = FindWindowEx(ChatWin&, 0, "_Oscar_IconBtn", vbNullString)
  585.     Klick& = SendMessage(IMBut&, WM_LBUTTONDOWN, 0, 0&)
  586.     Klick& = SendMessage(IMBut&, WM_LBUTTONUP, 0, 0&)
  587. End Sub
  588.  
  589.  
  590. Sub Click_Chat_Info()
  591.     Dim ChatWin As Long, IM As Long, Ignor As Long
  592.     Dim Info As Long, Klick As Long
  593.  
  594.     ChatWin& = FindWindow("AIM_ChatWnd", vbNullString)
  595.     IM& = FindWindowEx(ChatWin&, 0, "_Oscar_IconBtn", vbNullString)
  596.     Ignor& = FindWindowEx(ChatWin&, IM&, "_Oscar_IconBtn", vbNullString)
  597.     Info& = FindWindowEx(ChatWin&, Ignor&, "_Oscar_IconBtn", vbNullString)
  598.     Klick& = SendMessage(Info&, WM_LBUTTONDOWN, 0, 0&)
  599.     Klick& = SendMessage(Info&, WM_LBUTTONUP, 0, 0&)
  600. End Sub
  601.  
  602.  
  603. Sub Click_Chat_Ignore()
  604.     Dim ChatWindz As Long, IM As Long, IgnoreBut As Long, Klick As Long
  605.  
  606.     ChatWindz& = FindWindow("AIM_ChatWnd", vbNullString)
  607.     IM& = FindWindowEx(ChatWindz&, 0, "_Oscar_IconBtn", vbNullString)
  608.     IgnoreBut& = FindWindowEx(ChatWindz&, IM&, "_Oscar_IconBtn", vbNullString)
  609.     Klick& = SendMessage(IgnoreBut&, WM_LBUTTONDOWN, 0, 0&)
  610.     Klick& = SendMessage(IgnoreBut&, WM_LBUTTONUP, 0, 0&)
  611. End Sub
  612.  
  613.  
  614. Sub Click_IM_AddBud()
  615.     Dim IMWin As Long, Icon1 As Long, Icon2 As Long, Icon3 As Long
  616.     Dim AddBud As Long, Click As Long
  617.  
  618.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  619.     Icon1& = FindWindowEx(IMWin&, 0, "_Oscar_IconBtn", vbNullString)
  620.     Icon2& = FindWindowEx(IMWin&, Icon1&, "_Oscar_IconBtn", vbNullString)
  621.     Icon3& = FindWindowEx(IMWin&, Icon2&, "_Oscar_IconBtn", vbNullString)
  622.     AddBud& = FindWindowEx(IMWin&, Icon3&, "_Oscar_IconBtn", vbNullString)
  623.     Click& = SendMessage(AddBud&, WM_LBUTTONDOWN, 0, 0&)
  624.     Click& = SendMessage(AddBud&, WM_LBUTTONUP, 0, 0&)
  625. End Sub
  626.  
  627. Sub Click_IM_Block()
  628.     Dim IMWin As Long, some As Long, Warn As Long, Block As Long
  629.     Dim Click As Long
  630.  
  631.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  632.     some& = FindWindowEx(IMWin&, 0, "_Oscar_IconBtn", vbNullString)
  633.     Warn& = FindWindowEx(IMWin&, some&, "_Oscar_IconBtn", vbNullString)
  634.     Block& = FindWindowEx(IMWin&, Warn&, "_Oscar_IconBtn", vbNullString)
  635.     Click& = SendMessage(Block&, WM_LBUTTONDOWN, 0, 0&)
  636.     Click& = SendMessage(Block&, WM_LBUTTONUP, 0, 0&)
  637. End Sub
  638.  
  639. Sub Click_IM_Info()
  640.     Dim IMWin As Long, some As Long, Warn As Long, Block As Long
  641.     Dim AddBud As Long, Info As Long, Click As Long
  642.  
  643.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  644.     some& = FindWindowEx(IMWin&, 0, "_Oscar_IconBtn", vbNullString)
  645.     Warn& = FindWindowEx(IMWin&, some&, "_Oscar_IconBtn", vbNullString)
  646.     Block& = FindWindowEx(IMWin&, Warn&, "_Oscar_IconBtn", vbNullString)
  647.     AddBud& = FindWindowEx(IMWin&, Block&, "_Oscar_IconBtn", vbNullString)
  648.     Info& = FindWindowEx(IMWin&, AddBud&, "_Oscar_IconBtn", vbNullString)
  649.     Click& = SendMessage(Info&, WM_LBUTTONDOWN, 0, 0&)
  650.     Click& = SendMessage(Info&, WM_LBUTTONUP, 0, 0&)
  651. End Sub
  652.  
  653. Sub Click_IM_Warn()
  654.     Dim IMWin As Long, some As Long, Warn As Long, Click As Long
  655.  
  656.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  657.     some& = FindWindowEx(IMWin&, 0, "_Oscar_IconBtn", vbNullString)
  658.     Warn& = FindWindowEx(IMWin&, some&, "_Oscar_IconBtn", vbNullString)
  659.     Click& = SendMessage(Warn&, WM_LBUTTONDOWN, 0, 0&)
  660.     Click& = SendMessage(Warn&, WM_LBUTTONUP, 0, 0&)
  661. End Sub
  662.  
  663. Sub Combo_AddFonts(Cmb As ComboBox)
  664.     Dim i
  665.     For i = 0 To Screen.FontCount - 1
  666.         Cmb.AddItem Screen.Fonts(i)
  667.     Next i
  668. End Sub
  669.  
  670. Sub List_KillDup(lst As ListBox)
  671.     Dim i, ReV
  672.     For i = 0 To lst.ListCount - 1
  673.         For ReV = 0 To lst.ListCount - 1
  674.         If LCase(lst.List(i)) Like LCase(lst.List(ReV)) And i <> ReV Then
  675.             lst.RemoveItem (ReV)
  676.         End If
  677.         Next ReV
  678.     Next i
  679. End Sub
  680. Sub List_AddFonts(lst As ListBox)
  681.     Dim i
  682.     For i = 0 To Screen.FontCount - 1
  683.         lst.AddItem Screen.Fonts(i)
  684.     Next i
  685. End Sub
  686.  
  687. Function Talker_Lcase(Strn As String) As String
  688.     Dim chang As String
  689.  
  690.     chang$ = LCase(Strn)
  691.     Talker_Lcase = chang$
  692. End Function
  693.  
  694.  
  695. Sub Chat_AddRoom_Combo(Cmb As ComboBox)
  696.     Dim ChatRoom As Long, LopGet, MooLoo, Moo2
  697.     Dim name As String, NameLen, Buffer As String
  698.     Dim TabPos, NameText As String, Text As String
  699.     Dim mooz, Well As Integer, BuddyTree As Long
  700.  
  701.     ChatRoom& = FindWindow("AIM_ChatWnd", vbNullString)
  702.  
  703.     If ChatRoom& <> 0 Then
  704.         Do
  705.             BuddyTree& = FindWindowEx(ChatRoom&, 0, "_Oscar_Tree", vbNullString)
  706.         Loop Until BuddyTree& <> 0
  707.         LopGet = SendMessage(BuddyTree&, LB_GETCOUNT, 0, 0)
  708.         For MooLoo = 0 To LopGet - 1
  709.             Call SendMessageByString(BuddyTree&, LB_SETCURSEL, MooLoo, 0)
  710.             NameLen = SendMessage(BuddyTree&, LB_GETTEXTLEN, MooLoo, 0)
  711.             Buffer$ = String$(NameLen, 0)
  712.             Moo2 = SendMessageByString(BuddyTree&, LB_GETTEXT, MooLoo, Buffer$)
  713.             TabPos = InStr(Buffer$, Chr$(9))
  714.             NameText$ = Right$(Buffer$, (Len(Buffer$) - (TabPos)))
  715.             TabPos = InStr(NameText$, Chr$(9))
  716.             Text$ = Right$(NameText$, (Len(NameText$) - (TabPos)))
  717.             name$ = Text$
  718.             For mooz = 0 To Cmb.ListCount - 1
  719.                 If name$ = Cmb.List(mooz) Then
  720.                     Well% = 123
  721.                     GoTo Endz
  722.                 End If
  723.             Next mooz
  724.             If Well% <> 123 Then
  725.                 Cmb.AddItem name$
  726.             Else
  727.             End If
  728. Endz:
  729.         Next MooLoo
  730.     End If
  731. End Sub
  732.  
  733. Sub AIM_SignOn2(ScrnName As String, Pass As String)
  734.     Dim SignOnS2 As Long, Comb As Long
  735.     Dim CombEdit As Long, SetScreenN As Long
  736.     Dim Password As Long, SetPassW As Long, Help2 As Long
  737.     Dim SetUp2 As Long, SignOn2 As Long
  738.     Dim BuddyList As Long, Klick As Long
  739.     
  740.     SignOnS2& = FindWindow("#32770", "Sign On")
  741.     Comb& = FindWindowEx(SignOnS2&, 0, "ComboBox", vbNullString)
  742.     CombEdit& = FindWindowEx(Comb&, 0, "Edit", vbNullString)
  743.     SetScreenN& = SendMessageByString(CombEdit&, WM_SETTEXT, 0, ScrnName$)
  744.     Password& = FindWindowEx(SignOnS2&, 0, "Edit", vbNullString)
  745.    TimeOut 0.5
  746.     SetPassW& = SendMessageByString(Password&, WM_SETTEXT, 0, Pass$)
  747.     Call SendMessageLong(SetPassW&, WM_CHAR, VK_RETURN, 0&)
  748.     Call SendMessageLong(SetPassW&, WM_CHAR, VK_RETURN, 0&)
  749.     Help2& = FindWindowEx(SignOnS2&, 0, "_Oscar_IconBtn", vbNullString)
  750.     SetUp2& = FindWindowEx(SignOnS2&, Help2&, "_Oscar_IconBtn", vbNullString)
  751.     SignOn2& = FindWindowEx(SignOnS2&, SetUp2&, "_Oscar_IconBtn", vbNullString)
  752.     Klick& = SendMessage(SignOn2&, WM_LBUTTONDOWN, 0, 0&)
  753.     Klick& = SendMessage(SignOn2&, WM_LBUTTONUP, 0, 0&)
  754. End Sub
  755. Sub AIM_AddBuddyTo_Combo(Cmb As ComboBox)
  756.     Dim BuddyList As Long, TabGroup As Long
  757.     Dim BuddyTree As Long, LopGet, MooLoo, Moo2
  758.     Dim name As String, NameLen, Buffer As String
  759.     Dim TabPos, NameText As String, Text As String
  760.     Dim mooz, Well As Integer
  761.  
  762.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  763.     If BuddyList& <> 0 Then
  764.         Do
  765.             TabGroup& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  766.             BuddyTree& = FindWindowEx(TabGroup&, 0, "_Oscar_Tree", vbNullString)
  767.         Loop Until BuddyTree& <> 0
  768.         LopGet = SendMessage(BuddyTree&, LB_GETCOUNT, 0, 0)
  769.         For MooLoo = 0 To LopGet - 1
  770.             Call SendMessageByString(BuddyTree&, LB_SETCURSEL, MooLoo, 0)
  771.             NameLen = SendMessage(BuddyTree&, LB_GETTEXTLEN, MooLoo, 0)
  772.             Buffer$ = String$(NameLen, 0)
  773.             Moo2 = SendMessageByString(BuddyTree&, LB_GETTEXT, MooLoo, Buffer$)
  774.             TabPos = InStr(Buffer$, Chr$(9))
  775.             NameText$ = Right$(Buffer$, (Len(Buffer$) - (TabPos)))
  776.             TabPos = InStr(NameText$, Chr$(9))
  777.             Text$ = Right$(NameText$, (Len(NameText$) - (TabPos)))
  778.             name$ = Text$
  779.             If InStr(name$, "(") <> 0 And InStr(name$, ")") <> 0 Then
  780.                 GoTo HellNo
  781.             End If
  782.             For mooz = 0 To Cmb.ListCount - 1
  783.                 If name$ = Cmb.List(mooz) Then
  784.                     Well% = 123
  785.                     GoTo HellNo
  786.                 End If
  787.             Next mooz
  788.             If Well% <> 123 Then
  789.                 Cmb.AddItem name$
  790.             Else
  791.             End If
  792. HellNo:
  793.         Next MooLoo
  794.     End If
  795. End Sub
  796. Sub AIM_AddBuddyTo_List(lis As ListBox)
  797.     Dim BuddyList As Long, TabGroup As Long
  798.     Dim BuddyTree As Long, LopGet, MooLoo, Moo2
  799.     Dim name As String, NameLen, Buffer As String
  800.     Dim TabPos, NameText As String, Text As String
  801.     Dim mooz, Well As Integer
  802.  
  803.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  804.     If BuddyList& <> 0 Then
  805.         Do
  806.             TabGroup& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  807.             BuddyTree& = FindWindowEx(TabGroup&, 0, "_Oscar_Tree", vbNullString)
  808.         Loop Until BuddyTree& <> 0
  809.         LopGet = SendMessage(BuddyTree&, LB_GETCOUNT, 0, 0)
  810.         For MooLoo = 0 To LopGet - 1
  811.             Call SendMessageByString(BuddyTree&, LB_SETCURSEL, MooLoo, 0)
  812.             NameLen = SendMessage(BuddyTree&, LB_GETTEXTLEN, MooLoo, 0)
  813.             Buffer$ = String$(NameLen, 0)
  814.             Moo2 = SendMessageByString(BuddyTree&, LB_GETTEXT, MooLoo, Buffer$)
  815.             TabPos = InStr(Buffer$, Chr$(9))
  816.             NameText$ = Right$(Buffer$, (Len(Buffer$) - (TabPos)))
  817.             TabPos = InStr(NameText$, Chr$(9))
  818.             Text$ = Right$(NameText$, (Len(NameText$) - (TabPos)))
  819.             name$ = Text$
  820.             If InStr(name$, "(") <> 0 And InStr(name$, ")") <> 0 Then
  821.                 GoTo HellNo
  822.             End If
  823.             For mooz = 0 To lis.ListCount - 1
  824.                 If name$ = lis.List(mooz) Then
  825.                     Well% = 123
  826.                     GoTo HellNo
  827.                 End If
  828.             Next mooz
  829.             If Well% <> 123 Then
  830.                 lis.AddItem name$
  831.             Else
  832.             End If
  833. HellNo:
  834.         Next MooLoo
  835.     End If
  836. End Sub
  837. Sub Change_SignOnCaption(NewCap As String)
  838.     Dim SignOnS As Long, SetCap As String
  839.  
  840.     SignOnS& = FindWindow("#32770", "Sign On")
  841.     SetCap$ = SendMessageByString(SignOnS&, WM_SETTEXT, 0, NewCap$)
  842. End Sub
  843.  
  844. Sub Chat_AddRoom_List(lis As ListBox)
  845.     Dim ChatRoom As Long, LopGet, MooLoo, Moo2
  846.     Dim name As String, NameLen, Buffer As String
  847.     Dim TabPos, NameText As String, Text As String
  848.     Dim mooz, Well As Integer, BuddyTree As Long
  849.  
  850.     ChatRoom& = FindWindow("AIM_ChatWnd", vbNullString)
  851.  
  852.     If ChatRoom& <> 0 Then
  853.         Do
  854.             BuddyTree& = FindWindowEx(ChatRoom&, 0, "_Oscar_Tree", vbNullString)
  855.         Loop Until BuddyTree& <> 0
  856.         LopGet = SendMessage(BuddyTree&, LB_GETCOUNT, 0, 0)
  857.         For MooLoo = 0 To LopGet - 1
  858.             Call SendMessageByString(BuddyTree&, LB_SETCURSEL, MooLoo, 0)
  859.             NameLen = SendMessage(BuddyTree&, LB_GETTEXTLEN, MooLoo, 0)
  860.             Buffer$ = String$(NameLen, 0)
  861.             Moo2 = SendMessageByString(BuddyTree&, LB_GETTEXT, MooLoo, Buffer$)
  862.             TabPos = InStr(Buffer$, Chr$(9))
  863.             NameText$ = Right$(Buffer$, (Len(Buffer$) - (TabPos)))
  864.             TabPos = InStr(NameText$, Chr$(9))
  865.             Text$ = Right$(NameText$, (Len(NameText$) - (TabPos)))
  866.             name$ = Text$
  867.             For mooz = 0 To lis.ListCount - 1
  868.                 If name$ = lis.List(mooz) Then
  869.                     Well% = 123
  870.                     GoTo Endz
  871.                 End If
  872.             Next mooz
  873.             If Well% <> 123 Then
  874.                 lis.AddItem name$
  875.             Else
  876.             End If
  877. Endz:
  878.         Next MooLoo
  879.     End If
  880. End Sub
  881.  
  882. Sub Chat_Flash_ON_OFF()
  883.     Dim PrefWin As Long, ZeeWin As Long, Flash As Long
  884.     Dim OKbuttin As Long, ChatWindow As Long
  885.  
  886.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  887.     Call RunMenuByString(ChatWindow&, "&Edit Chat Preferences...")
  888.  
  889.     PrefWin& = FindWindow("#32770", "Buddy Chat")
  890.     ZeeWin& = FindWindowEx(PrefWin&, 0, "#32770", vbNullString)
  891.     Flash& = FindWindowEx(ZeeWin&, 0, "Button", vbNullString)
  892.     Call SendMessage(Flash&, WM_KEYDOWN, VK_SPACE, 0&)
  893.     Call SendMessage(Flash&, WM_KEYUP, VK_SPACE, 0&)
  894.     OKbuttin& = FindWindowEx(PrefWin&, 0, "Button", vbNullString)
  895.     Call SendMessage(OKbuttin&, WM_KEYDOWN, VK_SPACE, 0&)
  896.     Call SendMessage(OKbuttin&, WM_KEYUP, VK_SPACE, 0&)
  897. End Sub
  898.  
  899.  
  900. Sub Chat_IgnoreUser(Who As String)
  901.     Dim ChatRoom As Long, LopGet, MooLoo, Moo2
  902.     Dim name As String, NameLen, Buffer As String
  903.     Dim TabPos, NameText As String, Text As String
  904.     Dim mooz, Well As Integer, BuddyTree As Long
  905.  
  906.     ChatRoom& = FindWindow("AIM_ChatWnd", vbNullString)
  907.  
  908.     If ChatRoom& <> 0 Then
  909.         Do
  910.             BuddyTree& = FindWindowEx(ChatRoom&, 0, "_Oscar_Tree", vbNullString)
  911.         Loop Until BuddyTree& <> 0
  912.         LopGet = SendMessage(BuddyTree&, LB_GETCOUNT, 0, 0)
  913.         For MooLoo = 0 To LopGet - 1
  914.             Call SendMessageByString(BuddyTree&, LB_SETCURSEL, MooLoo, 0)
  915.             NameLen = SendMessage(BuddyTree&, LB_GETTEXTLEN, MooLoo, 0)
  916.             Buffer$ = String$(NameLen, 0)
  917.             Moo2 = SendMessageByString(BuddyTree&, LB_GETTEXT, MooLoo, Buffer$)
  918.             TabPos = InStr(Buffer$, Chr$(9))
  919.             NameText$ = Right$(Buffer$, (Len(Buffer$) - (TabPos)))
  920.             TabPos = InStr(NameText$, Chr$(9))
  921.             Text$ = Right$(NameText$, (Len(NameText$) - (TabPos)))
  922.             name$ = Text$
  923.             If name$ = Who$ Then GoTo Igorn
  924.         Next MooLoo
  925.     End If
  926. Igorn:
  927.     Dim ChatWindz As Long, IM As Long, IgnoreBut As Long, Klick As Long
  928.  
  929.     ChatWindz& = FindWindow("AIM_ChatWnd", vbNullString)
  930.     IM& = FindWindowEx(ChatWindz&, 0, "_Oscar_IconBtn", vbNullString)
  931.     IgnoreBut& = FindWindowEx(ChatWindz&, IM&, "_Oscar_IconBtn", vbNullString)
  932.     Klick& = SendMessage(IgnoreBut&, WM_LBUTTONDOWN, 0, 0&)
  933.     Klick& = SendMessage(IgnoreBut&, WM_LBUTTONUP, 0, 0&)
  934. End Sub
  935.  
  936. Sub Chat_IgnoreInvites()
  937.     Dim ChatWindow As Long, PrefWin As Long, ZeeWin As Long
  938.     Dim Buttin1 As Long, Buttin2 As Long, Buttin3 As Long
  939.     Dim Buttin4 As Long, Buttin5 As Long, Buttin6 As Long
  940.     Dim Buttin7 As Long, Buttin8 As Long, IIButtin As Long
  941.     Dim OKbuttin As Long
  942.  
  943.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  944.     Call RunMenuByString(ChatWindow&, "&Edit Chat Preferences...")
  945.  
  946.     PrefWin& = FindWindow("#32770", "Buddy Chat")
  947.     ZeeWin& = FindWindowEx(PrefWin&, 0, "#32770", vbNullString)
  948.     Buttin1& = FindWindowEx(ZeeWin&, 0, "Button", vbNullString)
  949.     Buttin2& = FindWindowEx(ZeeWin&, Buttin1&, "Button", vbNullString)
  950.     Buttin3& = FindWindowEx(ZeeWin&, Buttin2&, "Button", vbNullString)
  951.     Buttin4& = FindWindowEx(ZeeWin&, Buttin3&, "Button", vbNullString)
  952.     Buttin5& = FindWindowEx(ZeeWin&, Buttin4&, "Button", vbNullString)
  953.     Buttin6& = FindWindowEx(ZeeWin&, Buttin5&, "Button", vbNullString)
  954.     Buttin7& = FindWindowEx(ZeeWin&, Buttin6&, "Button", vbNullString)
  955.     Buttin8& = FindWindowEx(ZeeWin&, Buttin7&, "Button", vbNullString)
  956.     IIButtin& = FindWindowEx(ZeeWin&, Buttin8&, "Button", vbNullString)
  957.     Call SendMessage(IIButtin&, WM_KEYDOWN, VK_SPACE, 0&)
  958.     Call SendMessage(IIButtin&, WM_KEYUP, VK_SPACE, 0&)
  959.     OKbuttin& = FindWindowEx(PrefWin&, 0, "Button", vbNullString)
  960.     Call SendMessage(OKbuttin&, WM_KEYDOWN, VK_SPACE, 0&)
  961.     Call SendMessage(OKbuttin&, WM_KEYUP, VK_SPACE, 0&)
  962. End Sub
  963.  
  964.  
  965. Sub Chat_SoundsON_OFF()
  966.     Dim ChatWindow As Long, ZeeWin As Long, PrefWin As Long
  967.     Dim Buttin2 As Long, Buttin As Long, PlayMess As Long
  968.     Dim Buttin1 As Long, Buttin22 As Long, Buttin3 As Long
  969.     Dim Buttin4 As Long, Buttin5 As Long, PlaySend As Long
  970.     Dim OKbuttin As Long
  971.  
  972.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  973.     Call RunMenuByString(ChatWindow&, "&Edit Chat Preferences...")
  974.  
  975.     PrefWin& = FindWindow("#32770", "Buddy Chat")
  976.     ZeeWin& = FindWindowEx(PrefWin&, 0, "#32770", vbNullString)
  977.     Buttin& = FindWindowEx(ZeeWin&, 0, "Button", vbNullString)
  978.     Buttin2& = FindWindowEx(ZeeWin&, Buttin&, "Button", vbNullString)
  979.     PlayMess& = FindWindowEx(ZeeWin&, Buttin2&, "Button", vbNullString)
  980.     Call SendMessage(PlayMess&, WM_KEYDOWN, VK_SPACE, 0&)
  981.     Call SendMessage(PlayMess&, WM_KEYUP, VK_SPACE, 0&)
  982.     Buttin1& = FindWindowEx(ZeeWin&, 0, "Button", vbNullString)
  983.     Buttin22& = FindWindowEx(ZeeWin&, Buttin1&, "Button", vbNullString)
  984.     Buttin3& = FindWindowEx(ZeeWin&, Buttin22&, "Button", vbNullString)
  985.     Buttin4& = FindWindowEx(ZeeWin&, Buttin3&, "Button", vbNullString)
  986.     Buttin5& = FindWindowEx(ZeeWin&, Buttin4&, "Button", vbNullString)
  987.     PlaySend& = FindWindowEx(ZeeWin&, Buttin5&, "Button", vbNullString)
  988.     Call SendMessage(PlaySend&, WM_KEYDOWN, VK_SPACE, 0&)
  989.     Call SendMessage(PlaySend&, WM_KEYUP, VK_SPACE, 0&)
  990.  
  991.     OKbuttin& = FindWindowEx(PrefWin&, 0, "Button", vbNullString)
  992.     Call SendMessage(OKbuttin&, WM_KEYDOWN, VK_SPACE, 0&)
  993.     Call SendMessage(OKbuttin&, WM_KEYUP, VK_SPACE, 0&)
  994. End Sub
  995.  
  996.  
  997. Sub Click_AutoLogin()
  998.     Dim SignOn As Long, Help As Long
  999.     Dim SavePass As Long, Alogin As Long
  1000.  
  1001.     SignOn& = FindWindow("#32770", "Sign On")
  1002.     Help& = FindWindowEx(SignOn&, 0, "Button", vbNullString)
  1003.     SavePass& = FindWindowEx(SignOn&, Help&, "Button", vbNullString)
  1004.     Alogin& = FindWindowEx(SignOn&, SavePass&, "Button", vbNullString)
  1005.     Call PostMessage(Alogin&, WM_KEYDOWN, VK_SPACE, 0&)
  1006.     Call PostMessage(Alogin&, WM_KEYUP, VK_SPACE, 0&)
  1007. End Sub
  1008.  
  1009. Sub Click_Chat_Send()
  1010.     Dim ChatWindow As Long
  1011.     Dim Buttin As Long, Buttin2 As Long, Buttin3 As Long
  1012.     Dim SendButtin As Long, Click As Long
  1013.     
  1014.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  1015.     Buttin& = FindWindowEx(ChatWindow&, 0, "_Oscar_IconBtn", vbNullString)
  1016.     Buttin2& = FindWindowEx(ChatWindow&, Buttin&, "_Oscar_IconBtn", vbNullString)
  1017.     Buttin3& = FindWindowEx(ChatWindow&, Buttin2&, "_Oscar_IconBtn", vbNullString)
  1018.     SendButtin& = FindWindowEx(ChatWindow&, Buttin3&, "_Oscar_IconBtn", vbNullString)
  1019.     
  1020.     Click& = SendMessage(SendButtin&, WM_LBUTTONDOWN, 0, 0&)
  1021.     Click& = SendMessage(SendButtin&, WM_LBUTTONUP, 0, 0&)
  1022. End Sub
  1023.  
  1024. Sub Click_Go()
  1025.     Dim BuddyList As Long, GoButtin As Long, Click As Long
  1026.  
  1027.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1028.     GoButtin& = FindWindowEx(BuddyList&, 0, "_Oscar_IconBtn", vbNullString)
  1029.     Click& = SendMessage(GoButtin&, WM_LBUTTONDOWN, 0, 0&)
  1030.     Click& = SendMessage(GoButtin&, WM_LBUTTONUP, 0, 0&)
  1031. End Sub
  1032. Sub Click_IM()
  1033.     Dim BuddyList As Long, TabWin As Long, IMButtin As Long
  1034.     Dim Click As Long
  1035.  
  1036.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1037.     TabWin& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  1038.     IMButtin& = FindWindowEx(TabWin&, 0, "_Oscar_IconBtn", vbNullString)
  1039.     Click& = SendMessage(IMButtin&, WM_LBUTTONDOWN, 0, 0&)
  1040.     Click& = SendMessage(IMButtin&, WM_LBUTTONUP, 0, 0&)
  1041. End Sub
  1042.  
  1043. Sub Click_IM_Send()
  1044.     Dim IMWin As Long, SendButtin As Long, Click As Long
  1045.  
  1046.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  1047.     SendButtin& = FindWindowEx(IMWin&, 0, "_Oscar_IconBtn", vbNullString)
  1048.     Click& = SendMessage(SendButtin&, WM_LBUTTONDOWN, 0, 0&)
  1049.     Click& = SendMessage(SendButtin&, WM_LBUTTONUP, 0, 0&)
  1050. End Sub
  1051.  
  1052. Sub Click_Invite()
  1053.     Dim BuddyList As Long, TabThing As Long, ChtIcon As Long
  1054.     Dim ChatIcon As Long, Click As Long
  1055.  
  1056.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1057.     TabThing& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  1058.     ChtIcon& = FindWindowEx(TabThing&, 0, "_Oscar_IconBtn", vbNullString)
  1059.     ChatIcon& = FindWindowEx(TabThing&, ChtIcon&, "_Oscar_IconBtn", vbNullString)
  1060.     Click& = SendMessage(ChatIcon&, WM_LBUTTONDOWN, 0, 0&)
  1061.     Click& = SendMessage(ChatIcon&, WM_LBUTTONUP, 0, 0&)
  1062. End Sub
  1063.  
  1064. Sub Click_SavePass()
  1065.     Dim SignOnS As Long, Pass As Long, SavePass As Long
  1066.  
  1067.     SignOnS& = FindWindow("#32770", "Sign On")
  1068.     Pass& = FindWindowEx(SignOnS&, 0, "Button", vbNullString)
  1069.     SavePass& = FindWindowEx(SignOnS&, Pass&, "Button", vbNullString)
  1070.     Call SendMessage(SavePass&, WM_KEYDOWN, VK_SPACE, 0&)
  1071.     Call SendMessage(SavePass&, WM_KEYUP, VK_SPACE, 0&)
  1072. End Sub
  1073.  
  1074.  
  1075. Sub AIM_Hide_AoCom()
  1076.     Dim BuddyList As Long, TabGroup As Long, Rounder As Long
  1077.     Dim AoCom As Long
  1078.  
  1079.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1080.     TabGroup& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  1081.     Rounder& = FindWindowEx(TabGroup&, 0, "WndAte32Class", vbNullString)
  1082.     AoCom& = FindWindowEx(Rounder&, 0, "Ate32Class", vbNullString)
  1083.     Call ShowWindow(AoCom&, SW_HIDE)
  1084. End Sub
  1085.  
  1086.  
  1087. Sub AIM_Set_PW(Pass As String)
  1088.     Dim SignOnS2 As Long, Password As Long, SetPassW As Long
  1089.  
  1090.     SignOnS2& = FindWindow("#32770", "Sign On")
  1091.     Password& = FindWindowEx(SignOnS2&, 0, "Edit", vbNullString)
  1092.     SetPassW& = SendMessageByString(Password&, WM_SETTEXT, 0, Pass$)
  1093. End Sub
  1094.  
  1095. Sub AIM_Set_SN(ScrnName As String)
  1096.     Dim SignOnS2 As Long, Comb As Long, CombEdit As Long
  1097.     Dim SetScreenN As Long
  1098.  
  1099.     SignOnS2& = FindWindow("#32770", "Sign On")
  1100.     Comb& = FindWindowEx(SignOnS2&, 0, "ComboBox", vbNullString)
  1101.     CombEdit& = FindWindowEx(Comb&, 0, "Edit", vbNullString)
  1102.     SetScreenN& = SendMessageByString(CombEdit&, WM_SETTEXT, 0, ScrnName$)
  1103. End Sub
  1104.  
  1105. Sub AIM_Show_AoCom()
  1106.     Dim BuddyList As Long, TabGroup As Long, Rounder As Long
  1107.     Dim AoCom As Long
  1108.  
  1109.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1110.     TabGroup& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  1111.     Rounder& = FindWindowEx(TabGroup&, 0, "WndAte32Class", vbNullString)
  1112.     AoCom& = FindWindowEx(Rounder&, 0, "Ate32Class", vbNullString)
  1113.     Call ShowWindow(AoCom&, SW_SHOW)
  1114. End Sub
  1115.  
  1116. Sub Click_SignOn()
  1117.     Dim SignOnS2 As Long, Help2 As Long, SetUp2 As Long
  1118.     Dim SignOn2 As Long, Klick As Long
  1119.  
  1120.     SignOnS2& = FindWindow("#32770", "Sign On")
  1121.     Help2& = FindWindowEx(SignOnS2&, 0, "_Oscar_IconBtn", vbNullString)
  1122.     SetUp2& = FindWindowEx(SignOnS2&, Help2&, "_Oscar_IconBtn", vbNullString)
  1123.     SignOn2& = FindWindowEx(SignOnS2&, SetUp2&, "_Oscar_IconBtn", vbNullString)
  1124.     Klick& = SendMessage(SignOn2&, WM_LBUTTONDOWN, 0, 0&)
  1125.     Klick& = SendMessage(SignOn2&, WM_LBUTTONUP, 0, 0&)
  1126. End Sub
  1127.  
  1128. Function List_ToString(TheList As ListBox) As String
  1129.  
  1130.     Dim DoList As Long, MailString As String
  1131.     If TheList.List(0) = "" Then Exit Function
  1132.     For DoList& = 0 To TheList.ListCount - 1
  1133.         MailString$ = MailString$ & TheList.List(DoList&) & ", "
  1134.     Next DoList&
  1135.     MailString$ = Mid(MailString$, 1, Len(MailString$) - 2)
  1136.     List_ToString$ = MailString$
  1137. End Function
  1138. Sub Mass_Invite(lis As ListBox, say As String, room As String)
  1139.     Dim ChatWindow As Long, Moo As String
  1140.  
  1141.     If lis.ListCount = 0 Then
  1142.         Exit Sub
  1143.     Else
  1144.     End If
  1145.     If room$ = "" Then
  1146.         Exit Sub
  1147.     End If
  1148.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  1149.     Call Win_Killwin(ChatWindow&)
  1150.  
  1151.     Moo$ = List_ToString(lis)
  1152.     Call Send_Invite(Moo$, say, room)
  1153. End Sub
  1154. Sub Click_Button2(TheButin As Long)
  1155.     Call PostMessage(TheButin&, WM_KEYDOWN, VK_SPACE, 0&)
  1156.     Call PostMessage(TheButin&, WM_KEYUP, VK_SPACE, 0&)
  1157. End Sub
  1158.  
  1159.  
  1160. Sub EnterKey(TheWin As Long)
  1161.     Call SendMessageLong(TheWin&, WM_CHAR, ENTA, 0&)
  1162. End Sub
  1163.  
  1164.  
  1165. Sub Win_Enable(Window&)
  1166.     Dim dis
  1167.     dis = EnableWindow(Window&, 1)
  1168. End Sub
  1169.  
  1170. Sub Win_Disable(Window&)
  1171.     Dim dis
  1172.     dis = EnableWindow(Window&, 0)
  1173. End Sub
  1174. Sub AIM_SignOff_Close()
  1175. ' This Signs off and closes AIM
  1176.     Dim BuddyList As Long, SignOnS As Long, KillNow As Integer
  1177.     
  1178.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1179.     Call RunMenuByString(BuddyList&, "Sign O&ff")
  1180.  
  1181.     SignOnS& = FindWindow("#32770", "Sign On")
  1182.     KillNow% = SendMessageByNum(SignOnS&, WM_CLOSE, 0, 0)
  1183. End Sub
  1184. Sub AIM_Close()
  1185.     Dim BuddyList As Long
  1186.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1187.  
  1188.     If BuddyList& <> 0& Then
  1189.         GoTo Start
  1190.     Else
  1191.       Exit Sub
  1192.     End If
  1193.  
  1194. Start:
  1195.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1196.     Call Win_Killwin(BuddyList&)
  1197. End Sub
  1198.  
  1199.  
  1200. Sub Chat_9liner(ErrorRsaY As String)
  1201.  
  1202.     Chat_Send (ErrorRsaY$)
  1203.     Chat_Send (ErrorRsaY$)
  1204.     Chat_Send (ErrorRsaY$)
  1205.     TimeOut 0.5
  1206.     Chat_Send (ErrorRsaY$)
  1207.     Chat_Send (ErrorRsaY$)
  1208.     Chat_Send (ErrorRsaY$)
  1209.    TimeOut 0.5
  1210.     Chat_Send (ErrorRsaY$)
  1211.     Chat_Send (ErrorRsaY$)
  1212.     Chat_Send (ErrorRsaY$)
  1213. End Sub
  1214.  
  1215.  
  1216.  
  1217.  
  1218. Sub Chat_6liner(ErrorRsaY As String)
  1219.  
  1220.     Chat_Send (ErrorRsaY$)
  1221.     Chat_Send (ErrorRsaY$)
  1222.     Chat_Send (ErrorRsaY$)
  1223.     TimeOut 0.5
  1224.     Chat_Send (ErrorRsaY$)
  1225.     Chat_Send (ErrorRsaY$)
  1226.     Chat_Send (ErrorRsaY$)
  1227. End Sub
  1228. Sub AIM_Create_Profile(Text As String)
  1229. 'Ex: Call AIM_Create_Profile("<b>Wee</b>, <i>my profile</i>")
  1230.     Dim BuddyList As Long
  1231.  
  1232.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1233.     If BuddyList& <> 0& Then
  1234.         GoTo Start
  1235.     Else
  1236.       Exit Sub
  1237.     End If
  1238.  
  1239. Start:
  1240.  
  1241.     Dim CreateMain As Long, TheBut As Long
  1242.     Dim NextButtin As Long, CreatInt As Long, TheBut2 As Long
  1243.     Dim NextButtin2 As Long, ProfCre As Long, ProfCWin As Long
  1244.     Dim Borderz As Long, ProfText As Long, SetProfStng As Long
  1245.     Dim Back As Long, Cancel As Long, Finish As Long
  1246.  
  1247.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1248.     Call RunMenuByString(BuddyList&, "My &Profile...")
  1249.  
  1250.     CreateMain& = FindWindow("#32770", "Create a Profile - Searchable Directory")
  1251.     TheBut& = FindWindowEx(CreateMain&, 0, "Button", vbNullString)
  1252.     NextButtin& = FindWindowEx(CreateMain&, TheBut&, "Button", vbNullString)
  1253.     Call SendMessage(NextButtin&, WM_KEYDOWN, VK_SPACE, 0&)
  1254.     Call SendMessage(NextButtin&, WM_KEYUP, VK_SPACE, 0&)
  1255.     CreatInt& = FindWindow("#32770", "Create a Profile - Chat Interests")
  1256.     TheBut2& = FindWindowEx(CreatInt&, 0, "Button", vbNullString)
  1257.     NextButtin2& = FindWindowEx(CreatInt&, TheBut2&, "Button", vbNullString)
  1258.     Call SendMessage(NextButtin2&, WM_KEYDOWN, VK_SPACE, 0&)
  1259.     Call SendMessage(NextButtin2&, WM_KEYUP, VK_SPACE, 0&)
  1260.     ProfCre& = FindWindow("#32770", "Create a Profile - More Info")
  1261.     ProfCWin& = FindWindowEx(ProfCre&, 0, "#32770", vbNullString)
  1262.     Borderz& = FindWindowEx(ProfCWin&, 0, "WndAte32Class", vbNullString)
  1263.     ProfText& = FindWindowEx(Borderz&, 0, "Ate32Class", vbNullString)
  1264.     SetProfStng& = SendMessageByString(ProfText&, WM_SETTEXT, 0, Text$)
  1265.     Back& = FindWindowEx(ProfCre&, 0, "Button", vbNullString)
  1266.     Cancel& = FindWindowEx(ProfCre&, Back&, "Button", vbNullString)
  1267.     Finish& = FindWindowEx(ProfCre&, Cancel&, "Button", vbNullString)
  1268.     Call SendMessage(Finish&, WM_KEYDOWN, VK_SPACE, 0&)
  1269.     Call SendMessage(Finish&, WM_KEYUP, VK_SPACE, 0&)
  1270.  
  1271.     MsgBox "ErrorR-Com Just created your profile.", vbInformation, "Profile created."
  1272. End Sub
  1273. Sub AIM_SignOn()
  1274.     Select Case MsgBox("Is your name and password allready set?", vbYesNo + vbQuestion + vbDefaultButton2, "Signing on.")
  1275.         Case vbYes
  1276.             Dim SignOnS As Long, Help As Long, Setup As Long
  1277.             Dim SignOn As Long, Klick As Long
  1278.  
  1279.             SignOnS& = FindWindow("#32770", "Sign On")
  1280.             Help& = FindWindowEx(SignOnS&, 0, "_Oscar_IconBtn", vbNullString)
  1281.             Setup& = FindWindowEx(SignOnS&, Help&, "_Oscar_IconBtn", vbNullString)
  1282.             SignOn& = FindWindowEx(SignOnS&, Setup&, "_Oscar_IconBtn", vbNullString)
  1283.             Klick& = SendMessage(SignOn&, WM_LBUTTONDOWN, 0, 0&)
  1284.             Klick& = SendMessage(SignOn&, WM_LBUTTONUP, 0, 0&)
  1285.         Case vbNo
  1286.             Dim SignOnS2 As Long, ScrnName As String, Comb As Long
  1287.             Dim CombEdit As Long, SetScreenN As Long, Pass As String
  1288.             Dim Password As Long, SetPassW As Long, Help2 As Long
  1289.             Dim SetUp2 As Long, SignOn2 As Long
  1290.             Dim BuddyList As Long
  1291.  
  1292.             SignOnS2& = FindWindow("#32770", "Sign On")
  1293.             ScrnName$ = InputBox("Please enter your screen name.", "Enter screen name for sign on.")
  1294.             Comb& = FindWindowEx(SignOnS2&, 0, "ComboBox", vbNullString)
  1295.             CombEdit& = FindWindowEx(Comb&, 0, "Edit", vbNullString)
  1296.             SetScreenN& = SendMessageByString(CombEdit&, WM_SETTEXT, 0, ScrnName$)
  1297.  
  1298.             Pass$ = InputBox("Please enter your password and you will be signed on.", "Enter password for sign on.")
  1299.             Password& = FindWindowEx(SignOnS2&, 0, "Edit", vbNullString)
  1300.            TimeOut 0.5
  1301.             SetPassW& = SendMessageByString(Password&, WM_SETTEXT, 0, Pass$)
  1302.  
  1303.             Call SendMessageLong(SetPassW&, WM_CHAR, VK_RETURN, 0&)
  1304.             Call SendMessageLong(SetPassW&, WM_CHAR, VK_RETURN, 0&)
  1305.             Help2& = FindWindowEx(SignOnS2&, 0, "_Oscar_IconBtn", vbNullString)
  1306.             SetUp2& = FindWindowEx(SignOnS2&, Help2&, "_Oscar_IconBtn", vbNullString)
  1307.             SignOn2& = FindWindowEx(SignOnS2&, SetUp2&, "_Oscar_IconBtn", vbNullString)
  1308.             Klick& = SendMessage(SignOn2&, WM_LBUTTONDOWN, 0, 0&)
  1309.             Klick& = SendMessage(SignOn2&, WM_LBUTTONUP, 0, 0&)
  1310. BuddyOn:
  1311.  
  1312.             BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1313.             If BuddyList& <> 0& Then
  1314.                 MsgBox "You have been signed on and your screen name and password is now set and you only have to click 'Sign On' next session.", vbInformation, "Your on!"
  1315.                 Exit Sub
  1316.             Else
  1317.                 GoTo BuddyOn
  1318.             End If
  1319.     End Select
  1320. End Sub
  1321.  
  1322. Sub Chat_3liner(ErrorRsaY As String)
  1323.  
  1324.     Chat_Send (ErrorRsaY$)
  1325.     Chat_Send (ErrorRsaY$)
  1326.     Chat_Send (ErrorRsaY$)
  1327. End Sub
  1328. Sub Chat_Close()
  1329.     Dim ChatWindow As Long
  1330.  
  1331.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  1332.     If ChatWindow& <> 0& Then
  1333.         GoTo Start
  1334.     Else
  1335.       Exit Sub
  1336.     End If
  1337. Start:
  1338.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  1339.     Call Win_Killwin(ChatWindow&)
  1340. End Sub
  1341.  
  1342. Function Chat_GetName2() As String
  1343.     Dim ChatWindow As Long
  1344.  
  1345.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  1346.  
  1347.     If ChatWindow& <> 0& Then
  1348.     GoTo Start
  1349.     Else
  1350.         Chat_GetName2 = "[Not in room.]"
  1351.         Exit Function
  1352.     End If
  1353. Start:
  1354.     Dim GetsIt As String, Clear As String
  1355.  
  1356.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  1357.     GetsIt$ = Get_Caption(ChatWindow&)
  1358.     Clear$ = ReplaceString(GetsIt, "Chat Room: ", "")
  1359.     Chat_GetName2 = Clear$
  1360. End Function
  1361.  
  1362. Function Chat_Lang() As String
  1363. ' Gets the Chats language
  1364.     Dim RoomInfo As Long, ChStat As Long, BrdStat As Long
  1365.     Dim RnStat As Long, lStat As Long, DVDStat As Long, LangStat As Long
  1366.     Dim GetIt As String, ChatWindow As Long
  1367.  
  1368.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  1369.  
  1370.     If ChatWindow& <> 0& Then
  1371.     GoTo Start
  1372.     Else
  1373.         Chat_Lang = "[Not in room.]"
  1374.         Exit Function
  1375.     End If
  1376. Start:
  1377.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  1378.     Call RunMenuByString(ChatWindow&, "&Chat Room Info...")
  1379.     RoomInfo& = FindWindow("AIM_CtlGroupWnd", "Chat Room Info")
  1380.     ChStat& = FindWindowEx(RoomInfo&, 0, "_Oscar_Static", vbNullString)
  1381.     BrdStat& = FindWindowEx(RoomInfo&, ChStat&, "_Oscar_Static", vbNullString)
  1382.     RnStat& = FindWindowEx(RoomInfo&, BrdStat&, "_Oscar_Static", vbNullString)
  1383.     lStat& = FindWindowEx(RoomInfo&, RnStat&, "_Oscar_Static", vbNullString)
  1384.     DVDStat& = FindWindowEx(RoomInfo&, lStat&, "_Oscar_Static", vbNullString)
  1385.     LangStat& = FindWindowEx(RoomInfo&, DVDStat&, "_Oscar_Static", vbNullString)
  1386.     GetIt$ = Get_Text(LangStat&)
  1387.     Chat_Lang = GetIt$
  1388.  
  1389.     Call Win_Killwin(RoomInfo&)
  1390. End Function
  1391. Function Chat_MaxMess() As Integer
  1392. ' Gets the max message length
  1393.     Dim ChatWindow As Long, RoomInfo As Long, GetIt As String
  1394.     Dim ScStatik As Long, RnStatik As Long, LSatik As Long
  1395.     Dim MMLStatik As Long, DVDStatik As Long, DVD2Statik As Long
  1396.     Dim CaStatik As Long, LStatik As Long, MessLegn As Long
  1397.  
  1398.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  1399.  
  1400.     If ChatWindow& <> 0& Then
  1401.     GoTo Start
  1402.     Else
  1403.         Chat_MaxMess = "[Not in room.]"
  1404.         Exit Function
  1405.     End If
  1406.  
  1407. Start:
  1408.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  1409.     Call RunMenuByString(ChatWindow&, "&Chat Room Info...")
  1410.  
  1411.     RoomInfo& = FindWindow("AIM_CtlGroupWnd", "Chat Room Info")
  1412.     CaStatik& = FindWindowEx(RoomInfo&, 0, "_Oscar_Static", vbNullString)
  1413.     RnStatik& = FindWindowEx(RoomInfo&, CaStatik&, "_Oscar_Static", vbNullString)
  1414.     LStatik& = FindWindowEx(RoomInfo&, RnStatik&, "_Oscar_Static", vbNullString)
  1415.     MMLStatik& = FindWindowEx(RoomInfo&, LStatik&, "_Oscar_Static", vbNullString)
  1416.     DVDStatik& = FindWindowEx(RoomInfo&, MMLStatik&, "_Oscar_Static", vbNullString)
  1417.     DVD2Statik& = FindWindowEx(RoomInfo&, DVDStatik&, "_Oscar_Static", vbNullString)
  1418.     MessLegn& = FindWindowEx(RoomInfo&, DVD2Statik&, "_Oscar_Static", vbNullString)
  1419.     GetIt$ = Get_Text(MessLegn&)
  1420.     Chat_MaxMess = GetIt$
  1421.  
  1422.     Call Win_Killwin(RoomInfo&)
  1423.  
  1424. End Function
  1425.  
  1426. Function Chat_GetText() As String
  1427.     Dim ChatWindow As Long, BorderThing As Long, GetIt As String
  1428.  
  1429.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  1430.     BorderThing& = FindWindowEx(ChatWindow&, 0&, "WndAte32Class", vbNullString)
  1431.     GetIt$ = Get_Text(BorderThing&)
  1432.     Chat_GetText = GetIt$
  1433. End Function
  1434.  
  1435. Function Chat_GetText_NOHTML() As String
  1436.     Dim ChatWindow As Long, BorderThing As Long, GetIt As String
  1437.     Dim Clear As String
  1438.  
  1439.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  1440.     BorderThing& = FindWindowEx(ChatWindow&, 0&, "WndAte32Class", vbNullString)
  1441.     GetIt$ = Get_Text(BorderThing&)
  1442.     Clear$ = HTML_Remove(GetIt$)
  1443.     Chat_GetText_NOHTML = Clear$
  1444. End Function
  1445. Sub About()
  1446. '               *** THIS IS THE LAST ***
  1447. '
  1448. '
  1449. ' [For..]
  1450. '    For AIM(95/98) 2.0.912 (Should work for newer ones also if not e-mail me and tell me.)
  1451. '    For VB 4,5 and 6
  1452. '
  1453. ' [Added..]
  1454. '    I recoded alot of stuff to make it more flexable and faster
  1455. '    fixed errors made a help thing small exe and added:
  1456. '
  1457. '    Chat_Ignore:    so you can ignore people
  1458. '    Clicks:         so you can click stuff on your own
  1459. '    Talkers:        More anoying talkers ;)
  1460. '    List Stuff:     Its good for something
  1461. '    Combo Stuff:    Its good for something
  1462. '    Add Groups:     Adds your Budylist group to a list I don't know what its good for! :(
  1463. '    Windows Stuff:  Shut down win, rebot, ect...
  1464. '    Enables:        enables stuff
  1465. '    Disables:       disables stuff
  1466. '    Shells:         Shells to programs
  1467. '
  1468. ' [About..]
  1469. '    THis one has 200 subs forms lil help exe and thats it
  1470. '    THis is the last V of this bas sorry
  1471. '
  1472. '    ╨igital-Flame
  1473. '
  1474. ' [Greetz..]
  1475. ' To all ErrorR members all out there
  1476. ' Props too: (=r3XoR, Choas, Vision, FreeZN, RaGe
  1477. '              LqqK, RyDeR, UniTy, Insect, BuG
  1478.  
  1479. '    So I guess this is a small blank section.
  1480. '
  1481. ' [Contact Me..]
  1482. '    www.errorrcrew.com
  1483. '
  1484. '    hangu21@hotmail.com, revxor@farts.com, rebi@farts.com, rebyz@farts.com
  1485. '
  1486. End Sub
  1487. Function Chat_GetName() As String
  1488.     Dim ChatWindow As Long, RoomInfo As Long, RoomBox As Long
  1489.     Dim GetIt As String
  1490.  
  1491.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  1492.  
  1493.     If ChatWindow& <> 0& Then
  1494.     GoTo Start
  1495.     Else
  1496.         Chat_GetName = "[Not in room.]"
  1497.         Exit Function
  1498.     End If
  1499. Start:
  1500.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  1501.     Call RunMenuByString(ChatWindow&, "&Chat Room Info...")
  1502.  
  1503.     RoomInfo& = FindWindow("AIM_CtlGroupWnd", "Chat Room Info")
  1504.     RoomBox& = FindWindowEx(RoomInfo&, 0, "Edit", vbNullString)
  1505.     GetIt$ = Get_Text(RoomBox&)
  1506.     Chat_GetName = GetIt$
  1507.  
  1508.     Call Win_Killwin(RoomInfo&)
  1509. End Function
  1510.  
  1511. Function Chat_NumUsers() As Integer
  1512.     Dim AimChatWin As Long, NumStat As Long, HowMany As String
  1513.     Dim Clear As String, Clear2 As Integer
  1514.  
  1515.     AimChatWin& = FindWindow("AIM_ChatWnd", vbNullString)
  1516.     NumStat& = FindWindowEx(AimChatWin&, 0, "_Oscar_Static", vbNullString)
  1517.     HowMany$ = Get_Text(NumStat)
  1518.     Clear$ = ReplaceString(HowMany$, " person here", "")
  1519.     Clear2% = ReplaceString(HowMany$, " people here", "")
  1520.     Chat_NumUsers = Clear2%
  1521. End Function
  1522.  
  1523. Sub Chat_Scroll_INFO()
  1524.     Dim MaxMess As String, NumbUser As Integer, ChatLang As String
  1525.     Dim GetNm As String
  1526.  
  1527.     MaxMess$ = Chat_MaxMess
  1528.     NumbUser% = Chat_NumUsers
  1529.     ChatLang$ = Chat_Lang
  1530.     GetNm$ = Chat_GetName
  1531.     Chat_Send ("[<b><I>Chat Name: </I></b>   " & Chat_GetName & "]")
  1532.     Chat_Send ("[<b><I>Chat Language: </I></b>   " & ChatLang$ & "]")
  1533.     Chat_Send ("[<b><I>Number of Users: </I></b>   " & Chat_NumUsers & "]")
  1534.     Chat_Send ("[<b><I>Max Message: </I></b>   " & MaxMess$ & "]")
  1535. End Sub
  1536.  
  1537. Sub Find_BuddyBy_Interest(Cbm1 As ComboBox)
  1538. ' Please put all these in a Combo box for the user to
  1539. ' select from, you HAVE to have a combo with all these
  1540. ' in it for this to work
  1541.  
  1542.     'Books and Writing
  1543.     'Banking
  1544.     'Education
  1545.     'Engineering
  1546.     'Entrepeneurship
  1547.     'Finance
  1548.     'Law
  1549.     'Marketing
  1550.     'Medical
  1551.     'Performing Arts
  1552.     'Small Business
  1553.     'Cars
  1554.     'African -American
  1555.     'College Students
  1556.     'Hispanic
  1557.     'Seniors
  1558.     'Teens
  1559.     'Women
  1560.     'Computers and Technology
  1561.     'Business News
  1562.     'International News
  1563.     'Politics
  1564.     'Sports News
  1565.     'Fashion
  1566.     'Moms Online
  1567.     'Parenting
  1568.     'Pregnancy and Birth
  1569.     'Separation and Divorce
  1570.     'Games
  1571.     'Diseases
  1572.     'Fitness
  1573.     'Medicine
  1574.     'Antiques
  1575.     'Architecture
  1576.     'Astrology
  1577.     'Aviation
  1578.     'Civil War
  1579.     'Bird Watching
  1580.     'Coins
  1581.     'Crafts
  1582.     'Food
  1583.     'Gardening
  1584.     'Genealogy
  1585.     'Martial Arts
  1586.     'Pets
  1587.     'Photography
  1588.     'Science Fiction
  1589.     'Sewing and Needlecraft
  1590.     'Stamps
  1591.     'The Arts
  1592.     'Wines and Beer
  1593.     'Gardening
  1594.     'Home Decorating
  1595.     'Home Improvement
  1596.     'Bonds
  1597.     'Mutual Funds
  1598.     'Real Estate
  1599.     'Stocks
  1600.     'Taxes
  1601.     'Chat
  1602.     'Marriage
  1603.     'Romance
  1604.     'Movies
  1605.     'Alternative
  1606.     'Classical
  1607.     'Jazz
  1608.     'Rythm and Blues
  1609.     'Rock
  1610.     'Atheism
  1611.     'Buddhism
  1612.     'Christianity
  1613.     'Hinduism
  1614.     'Islam
  1615.     'Judaism
  1616.     'Auto Racing
  1617.     'Baseball
  1618.     'Basketball
  1619.     'Boating and Sailing
  1620.     'Boxing
  1621.     'Cycling
  1622.     'Fishing
  1623.     'Football
  1624.     'Golf
  1625.     'Hockey
  1626.     'Running
  1627.     'Scuba
  1628.     'Skiing and Boarding
  1629.     'Soccer
  1630.     'Swimming
  1631.     'Tennis
  1632.     'Women 's Sports
  1633.     'Cartoons and Comics
  1634.     'Celebrities
  1635.     'Comedy
  1636.     'Daytime Soaps
  1637.     'Talk Radio
  1638.     'Talk Shows
  1639.     'Family Travel
  1640.     'General Travel
  1641.     'International Travel
  1642.  
  1643.     Dim BuddyList As Long
  1644.     Dim FndBudWin As Long, InsideWin As Long
  1645.     Dim Email As Long, NameAdd As Long, ChatWith As Long
  1646.     Dim backBut As Long, NextBut As Long, FBBCI As Long, FBBCIwin As Long
  1647.     Dim TextBoxz As Long, Moo As String, TextSet As Long
  1648.     Dim BackBut2 As Long, NextBut2 As Long, FindFail As Long
  1649.     Dim FindFail2 As Long, FindFail3 As Long, KillNow As Integer
  1650.  
  1651.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1652.     If BuddyList& <> 0& Then
  1653.         GoTo Start
  1654.     Else
  1655.         Exit Sub
  1656.     End If
  1657. Start:
  1658.     Call RunMenuByString(BuddyList&, "Find a Buddy &Wizard")
  1659.  
  1660.     FndBudWin& = FindWindow("#32770", "Find a Buddy")
  1661.     InsideWin& = FindWindowEx(FndBudWin&, 0, "#32770", vbNullString)
  1662.     Email& = FindWindowEx(InsideWin&, 0, "Button", vbNullString)
  1663.     NameAdd& = FindWindowEx(InsideWin&, Email&, "Button", vbNullString)
  1664.     ChatWith& = FindWindowEx(InsideWin&, NameAdd&, "Button", vbNullString)
  1665.     Call SendMessage(ChatWith&, WM_KEYDOWN, VK_SPACE, 0&)
  1666.     Call SendMessage(ChatWith&, WM_KEYUP, VK_SPACE, 0&)
  1667.     backBut& = FindWindowEx(FndBudWin&, 0, "Button", vbNullString)
  1668.     NextBut& = FindWindowEx(FndBudWin&, backBut&, "Button", vbNullString)
  1669.     Call SendMessage(NextBut&, WM_KEYDOWN, VK_SPACE, 0&)
  1670.     Call SendMessage(NextBut&, WM_KEYUP, VK_SPACE, 0&)
  1671.  
  1672.     FBBCI& = FindWindow("#32770", "Find a Buddy By Common Interest")
  1673.     FBBCIwin& = FindWindowEx(FBBCI&, 0, "#32770", vbNullString)
  1674.     TextBoxz& = FindWindowEx(FBBCIwin&, 0, "Edit", vbNullString)
  1675.     Moo$ = Cbm1.Text
  1676.     TextSet& = SendMessageByString(TextBoxz&, WM_SETTEXT, 0, Moo$)
  1677.     BackBut2& = FindWindowEx(FBBCI&, 0, "Button", vbNullString)
  1678.     NextBut2& = FindWindowEx(FBBCI&, BackBut2&, "Button", vbNullString)
  1679.     Call SendMessage(NextBut2&, WM_KEYDOWN, VK_SPACE, 0&)
  1680.     Call SendMessage(NextBut2&, WM_KEYUP, VK_SPACE, 0&)
  1681.  
  1682.     FindFail& = FindWindow("#32770", "Find a Buddy - Failure")
  1683.     FindFail2& = FindWindowEx(FindFail&, 0, "#32770", vbNullString)
  1684.     FindFail3& = FindWindowEx(FindFail2&, 0, "Static", vbNullString)
  1685.  
  1686.     If FindFail& <> 0& And FindFail2& <> 0& And FindFail3& <> 0& Then
  1687.         KillNow% = SendMessageByNum(FindFail&, WM_CLOSE, 0, 0)
  1688.         MsgBox "Sorry, no one found in AIM database that likes what you like.", vbExclamation, "Interest search."
  1689.     Else
  1690.         Exit Sub
  1691.     End If
  1692. End Sub
  1693.  
  1694. Function Find_SignOn()
  1695.     Dim SignOnS As Long
  1696.  
  1697.     SignOnS& = FindWindow("#32770", "Sign On")
  1698.     Find_SignOn = SignOnS&
  1699. End Function
  1700.  
  1701. Sub Get_MemInfo(Who As String)
  1702.     Dim BuddyList As Long
  1703.  
  1704.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1705.     If BuddyList& <> 0& Then
  1706.         GoTo Start
  1707.     Else
  1708.       Exit Sub
  1709.     End If
  1710.  
  1711. Start:
  1712.     Dim InfoWin As Long, Edgz As Long
  1713.     Dim DropDown As Long, SetWho As Long, OKbuttin As Long
  1714.     
  1715.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1716.     Call RunMenuByString(BuddyList&, "Get Member Inf&o")
  1717.  
  1718.     InfoWin& = FindWindow("_Oscar_Locate", "Buddy Info: ")
  1719.     Edgz& = FindWindowEx(InfoWin&, 0, "_Oscar_PersistantCombo", vbNullString)
  1720.     DropDown& = FindWindowEx(Edgz&, 0, "Edit", vbNullString)
  1721.     SetWho& = SendMessageByString(DropDown&, WM_SETTEXT, 0, Who$)
  1722.     OKbuttin& = FindWindowEx(InfoWin&, 0, "Button", vbNullString)
  1723.     Call SendMessage(OKbuttin&, WM_KEYDOWN, VK_SPACE, 0&)
  1724.     Call SendMessage(OKbuttin&, WM_KEYUP, VK_SPACE, 0&)
  1725. End Sub
  1726.  
  1727. Function IM_GetSn() As String
  1728. ' This gets the screenname of the person your talking to
  1729.  
  1730.     Dim IMWin As Long, GetIt As String, Clear As String
  1731.  
  1732.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  1733.     GetIt$ = Get_Caption(IMWin&)
  1734.     Clear$ = ReplaceString(GetIt$, " - Instant Message", "")
  1735.     IM_GetSn = Clear$
  1736. End Function
  1737.  
  1738. Function IM_GetText() As String
  1739.     'this gets the text from last person that im you..
  1740.     
  1741.     Dim AIMim As Long, Thing As Long, GetIt As String
  1742.     
  1743.     AIMim& = FindWindow("AIM_IMessage", vbNullString)
  1744.     Thing& = FindWindowEx(AIMim&, 0, "WndAte32Class", vbNullString)
  1745.     GetIt$ = Get_Text(Thing&)
  1746.     IM_GetText = GetIt$
  1747. End Function
  1748.  
  1749. Function IM_GetText_NOHTML() As String
  1750.     ' this does the same as get IM_GetText but this one does not get the HTML
  1751.     
  1752.     Dim AIMim As Long, Thing As Long, GetIt As String, Clear As String
  1753.     
  1754.     AIMim& = FindWindow("AIM_IMessage", vbNullString)
  1755.     Thing& = FindWindowEx(AIMim&, 0, "WndAte32Class", vbNullString)
  1756.     GetIt$ = Get_Text(Thing&)
  1757.     Clear$ = HTML_Remove(GetIt$)
  1758.     IM_GetText_NOHTML = Clear$
  1759. End Function
  1760.  
  1761.  
  1762. Function INI_GetFrom(Section As String, Key As String, Directory As String) As String
  1763.    Dim Buff As String
  1764.  
  1765.    Buff = String(750, Chr(0))
  1766.    Key$ = (Key$)
  1767.    INI_GetFrom$ = Left(Buff, GetPrivateProfileString(Section$, ByVal Key$, "", Buff, Len(Buff), Directory$))
  1768. End Function
  1769. Sub Msg_NoAccess(ProgramName As String)
  1770.     'nice simple pw on your project
  1771.     Dim Rand
  1772.     Randomize
  1773.      Rand = Int((Rnd * 3) + 1)
  1774.       If Rand = 1 Then MsgBox "Bitch you dont got fucking axcess.", vbCritical, "" & ProgramName & " [No access.]"
  1775.       If Rand = 2 Then MsgBox "Stop trying you fucking lamer.", vbCritical, "" & ProgramName & " [No access.]"
  1776.       If Rand = 3 Then MsgBox "HaHaha bitch you trying to hard heeh.", vbCritical, "" & ProgramName & " [No access.]"
  1777. End Sub
  1778.  
  1779. Sub Msg_NotOnError(ProgramName As String)
  1780.     Dim Rand
  1781.     Randomize
  1782.      Rand = Int((Rnd * 4) + 1)
  1783.       If Rand = 1 Then MsgBox "Please sign on first.", vbCritical, "" & ProgramName & " [Not online.]"
  1784.       If Rand = 2 Then MsgBox "It helps to be online to use this feature.", vbCritical, "" & ProgramName & " [Not online.]"
  1785.       If Rand = 3 Then MsgBox "Sign on.", vbCritical, "" & ProgramName & " [Not online.]"
  1786.       If Rand = 4 Then MsgBox "You must be online to use this feature", vbCritical, "" & ProgramName & " [Not online.]"
  1787. End Sub
  1788. Function List_Count(lst As ListBox)
  1789.     Dim Moo As Integer
  1790.  
  1791.     Moo% = lst.ListCount
  1792.     List_Count = Moo%
  1793. End Function
  1794. Sub Load_ComboBox(Path As String, Combo As ComboBox)
  1795. 'Call Load_ComboBox("c:\windows\desktop\combo.cmb", Combo1)
  1796.  
  1797.     Dim What As String
  1798.     On Error Resume Next
  1799.     Open Path$ For Input As #1
  1800.     While Not EOF(1)
  1801.         Input #1, What$
  1802.         DoEvents
  1803.         Combo.AddItem What$
  1804.     Wend
  1805.     Close #1
  1806. End Sub
  1807.  
  1808.  
  1809. Sub Msg_PasswordProtect(Password As String, ProgName As String, FormToLoad As Form)
  1810.    'Ex: call msg_passwordProtect(1337N355,ErrorR,form1)
  1811.     Dim GetPass As String
  1812.  
  1813.     GetPass$ = InputBox("Please enter the password.", "Enter password to enter " & ProgName & " .")
  1814.     If GetPass$ = Password$ Then
  1815.         FormToLoad.Show
  1816.     Else
  1817.         MsgBox "heheh bitch dont fuck with ErrorR lamer you dont got axcess heheh ashole.", vbCritical, "" & ProgName & " Password wrong."
  1818.     End If
  1819. End Sub
  1820.  
  1821. Sub Msg_ShureExit(ProgName As String, TheFrm As Form)
  1822.     Select Case MsgBox("Are you shure you want to exit " & ProgName & "?", vbYesNo + vbQuestion + vbDefaultButton2, ProgName$ & " [Exit?]")
  1823.     Case vbYes
  1824.         Unload TheFrm
  1825.         End
  1826.         End
  1827.         Unload TheFrm
  1828.     Case vbNo
  1829.         Exit Sub
  1830.     End Select
  1831. End Sub
  1832.  
  1833. Sub Save_ComboBox(Path As String, Combo As ComboBox)
  1834. 'Ex: Call Save_ComboBox("c:\windows\desktop\combo.cmb", combo1)
  1835.  
  1836.     Dim Savez As Long
  1837.     On Error Resume Next
  1838.  
  1839.     Open Path$ For Output As #1
  1840.     For Savez& = 0 To Combo.ListCount - 1
  1841.         Print #1, Combo.List(Savez&)
  1842.     Next Savez&
  1843.     Close #1
  1844. End Sub
  1845. Sub Save_ListBox(Path As String, lst As ListBox)
  1846. 'Ex: Call Save_ListBox("c:\windows\desktop\list.lst", list1)
  1847.  
  1848.     Dim Listz As Long
  1849.     On Error Resume Next
  1850.    
  1851.     Open Path$ For Output As #1
  1852.     For Listz& = 0 To lst.ListCount - 1
  1853.         Print #1, lst.List(Listz&)
  1854.         Next Listz&
  1855.     Close #1
  1856. End Sub
  1857.  
  1858. Sub Load_ListBox(Path As String, lst As ListBox)
  1859. 'Ex: Call Load_ListBox("c:\windows\desktop\list.lst", list1)
  1860.  
  1861.     Dim What As String
  1862.     On Error Resume Next
  1863.  
  1864.     Open Path$ For Input As #1
  1865.     While Not EOF(1)
  1866.         Input #1, What$
  1867.         DoEvents
  1868.         lst.AddItem What$
  1869.     Wend
  1870.     Close #1
  1871. End Sub
  1872. Sub Click_Buttin(DaButtin As Long)
  1873.  
  1874.     Call SendMessage(DaButtin&, WM_KEYDOWN, VK_SPACE, 0&)
  1875.     Call SendMessage(DaButtin&, WM_KEYUP, VK_SPACE, 0&)
  1876. End Sub
  1877.  
  1878.  
  1879. Function Find_BuddyList()
  1880.     Dim BuddyList As Long
  1881.     
  1882.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1883.     Find_BuddyList = BuddyList&
  1884. End Function
  1885. Sub Find_BuddyBy_NameAddress(First As String, Middle As String, last As String, Maiden As String, NickName As String, Street As String, city As String, State As String, Country As String, Zip As String)
  1886. ' Ex:
  1887. ' Call Find_BuddyBy_NameAddress("First", "Middle", "Last", "Maiden", "NickName", "Street", "City", "State", "Country", "Zip")
  1888.     Dim BuddyList As Long
  1889.  
  1890.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1891.     If BuddyList& <> 0& Then
  1892.         GoTo Start
  1893.     Else
  1894.       Exit Sub
  1895.     End If
  1896.  
  1897. Start:
  1898.  
  1899.     Dim FindaBud As Long, FindBud As Long
  1900.     Dim Email As Long, NameAdd As Long, Nbut As Long, NextButtin As Long
  1901.     Dim Findname As Long, FindNWin As Long, FirstName As Long, Fndwinz As Long
  1902.     Dim TextSet As Long, MiddleName As Long, TextSet2 As Long, NickNames As Long
  1903.     Dim LastName As Long, TextSet3 As Long, Maidens As Long
  1904.     Dim TextSet33 As Long, NickName2 As Long, TextSet4 As Long
  1905.     Dim StreetName As Long, TextSet5 As Long, CityName As Long
  1906.     Dim TextSet6 As Long, StateName As Long, TextSet7 As Long
  1907.     Dim CountryName As Long, TextSet8 As Long, ZipCode As Long
  1908.     Dim TextSet9 As Long, Findwinz As Long, Nxt As Long, NextButtin2 As Long
  1909.     Dim Fails As Long, Fails2 As Long, Fails3 As Long, FindBwin As Long
  1910.     Dim NoInfo As Long, NoInfo2 As Long, NoInfo3 As Long
  1911.  
  1912.  
  1913.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1914.     Call RunMenuByString(BuddyList&, "Find a Buddy &Wizard")
  1915.  
  1916.     FindaBud& = FindWindow("#32770", "Find a Buddy")
  1917.     FindBwin& = FindWindowEx(FindaBud&, 0, "#32770", vbNullString)
  1918.     Email& = FindWindowEx(FindBwin&, 0, "Button", vbNullString)
  1919.     NameAdd& = FindWindowEx(FindBwin&, Email&, "Button", vbNullString)
  1920.     Call SendMessage(NameAdd&, WM_KEYDOWN, VK_SPACE, 0&)
  1921.     Call SendMessage(NameAdd&, WM_KEYUP, VK_SPACE, 0&)
  1922.  
  1923.     Nbut& = FindWindowEx(FindaBud&, 0, "Button", vbNullString)
  1924.     NextButtin& = FindWindowEx(FindaBud&, Nbut&, "Button", vbNullString)
  1925.     Call SendMessage(NextButtin&, WM_KEYDOWN, VK_SPACE, 0&)
  1926.     Call SendMessage(NextButtin&, WM_KEYUP, VK_SPACE, 0&)
  1927.  
  1928.     Findname& = FindWindow("#32770", "Find a Buddy By Name and Address")
  1929.     FindNWin& = FindWindowEx(Findname&, 0, "#32770", vbNullString)
  1930.     FirstName& = FindWindowEx(FindNWin&, 0, "Edit", vbNullString)
  1931.     TextSet& = SendMessageByString(FirstName&, WM_SETTEXT, 0, First$)
  1932.     MiddleName& = FindWindowEx(FindNWin&, FirstName&, "Edit", vbNullString)
  1933.     TextSet2& = SendMessageByString(MiddleName&, WM_SETTEXT, 0, Middle$)
  1934.     LastName& = FindWindowEx(FindNWin&, MiddleName&, "Edit", vbNullString)
  1935.     TextSet3& = SendMessageByString(LastName&, WM_SETTEXT, 0, last$)
  1936.     Maidens& = FindWindowEx(FindNWin&, LastName&, "Edit", vbNullString)
  1937.     TextSet33& = SendMessageByString(Maidens&, WM_SETTEXT, 0, Maiden$)
  1938.     NickNames& = FindWindowEx(FindNWin&, Maidens&, "Edit", vbNullString)
  1939.     TextSet4& = SendMessageByString(NickNames&, WM_SETTEXT, 0, NickName$)
  1940.     StreetName& = FindWindowEx(FindNWin&, NickNames&, "Edit", vbNullString)
  1941.     TextSet5& = SendMessageByString(StreetName&, WM_SETTEXT, 0, Street$)
  1942.     CityName& = FindWindowEx(FindNWin&, StreetName&, "Edit", vbNullString)
  1943.     TextSet6& = SendMessageByString(CityName&, WM_SETTEXT, 0, city$)
  1944.     StateName& = FindWindowEx(FindNWin&, CityName&, "Edit", vbNullString)
  1945.     TextSet7& = SendMessageByString(StateName&, WM_SETTEXT, 0, State$)
  1946.     CountryName& = FindWindowEx(FindNWin&, StateName&, "Edit", vbNullString)
  1947.     TextSet8& = SendMessageByString(CountryName&, WM_SETTEXT, 0, Country$)
  1948.     ZipCode& = FindWindowEx(FindNWin&, CountryName&, "Edit", vbNullString)
  1949.     TextSet9& = SendMessageByString(ZipCode&, WM_SETTEXT, 0, Zip$)
  1950.  
  1951.     Fndwinz& = FindWindow("#32770", "Find a Buddy By Name and Address")
  1952.     Nxt& = FindWindowEx(Fndwinz&, 0, "Button", vbNullString)
  1953.     NextButtin2& = FindWindowEx(Fndwinz&, Nxt&, "Button", vbNullString)
  1954.     Call SendMessage(NextButtin2&, WM_KEYDOWN, VK_SPACE, 0&)
  1955.     Call SendMessage(NextButtin2&, WM_KEYUP, VK_SPACE, 0&)
  1956.  
  1957.     NoInfo& = FindWindow("#32770", "Find a Buddy - Need More Information")
  1958.     NoInfo2& = FindWindowEx(NoInfo&, 0, "#32770", vbNullString)
  1959.     NoInfo3& = FindWindowEx(NoInfo2&, 0, "Static", vbNullString)
  1960.  
  1961.     If NoInfo& And NoInfo2& And NoInfo3& <> 0& Then
  1962.         Win_Killwin (NoInfo&)
  1963.         MsgBox "Please fill in all the boxes to complet the search.", vbExclamation, "More info needed."
  1964.         Exit Sub
  1965.     End If
  1966.  
  1967.     Fails& = FindWindow("#32770", "Find a Buddy - Failure")
  1968.     Fails2& = FindWindowEx(Fails&, 0, "#32770", vbNullString)
  1969.     Fails3& = FindWindowEx(Fails2&, 0, "Static", vbNullString)
  1970.     If Fails& And Fails2& And Fails3& <> 0& Then
  1971.         Win_Killwin (Fails&)
  1972.         MsgBox "No one found in AIM database that matches the info you provided.", vbExclamation, "Name and address not found."
  1973.     Else
  1974.         Exit Sub
  1975.     End If
  1976. End Sub
  1977. Sub Find_BuddyBy_Email(ThereEmail As String)
  1978. 'Ex: Call Find_BuddyBy_Email("Person@doamin.com")
  1979.     Dim BuddyList As Long
  1980.  
  1981.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1982.     If BuddyList& <> 0& Then
  1983.         GoTo Start
  1984.     Else
  1985.       Exit Sub
  1986.     End If
  1987.  
  1988. Start:
  1989.  
  1990.     Dim FindBud As Long, TheWin As Long
  1991.     Dim Email As Long, Nxbut As Long, NextButtin As Long
  1992.     Dim FindEm As Long, Ewin As Long, textbox As Long, TextSet As Long
  1993.     Dim NextB As Long, NextButtin2 As Long, EndUpNo As Long
  1994.     Dim Resultz As Long, Well As Long
  1995.  
  1996.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  1997.     Call RunMenuByString(BuddyList&, "Find a Buddy &Wizard")
  1998.  
  1999.     FindBud& = FindWindow("#32770", "Find a Buddy")
  2000.     TheWin& = FindWindowEx(FindBud&, 0, "#32770", vbNullString)
  2001.     Email& = FindWindowEx(TheWin&, 0, "Button", vbNullString)
  2002.     Call SendMessage(Email&, WM_KEYDOWN, VK_SPACE, 0&)
  2003.     Call SendMessage(Email&, WM_KEYUP, VK_SPACE, 0&)
  2004.  
  2005.     Nxbut& = FindWindowEx(FindBud&, 0, "Button", vbNullString)
  2006.     NextButtin& = FindWindowEx(FindBud&, Nxbut&, "Button", vbNullString)
  2007.     Call SendMessage(NextButtin&, WM_KEYDOWN, VK_SPACE, 0&)
  2008.     Call SendMessage(NextButtin&, WM_KEYUP, VK_SPACE, 0&)
  2009.  
  2010.     FindEm& = FindWindow("#32770", "Find a Buddy by E-mail Address")
  2011.     Ewin& = FindWindowEx(FindEm&, 0, "#32770", vbNullString)
  2012.     textbox& = FindWindowEx(Ewin&, 0, "Edit", vbNullString)
  2013.     TextSet& = SendMessageByString(textbox&, WM_SETTEXT, 0, ThereEmail$)
  2014.     NextB& = FindWindowEx(FindEm&, 0, "Button", vbNullString)
  2015.     NextButtin2& = FindWindowEx(FindEm&, NextB&, "Button", vbNullString)
  2016.     Call SendMessage(NextButtin2&, WM_KEYDOWN, VK_SPACE, 0&)
  2017.     Call SendMessage(NextButtin2&, WM_KEYUP, VK_SPACE, 0&)
  2018.  
  2019.     EndUpNo& = FindWindow("#32770", "Find a Buddy by E-mail Address")
  2020.     Resultz& = FindWindowEx(EndUpNo&, 0, "#32770", vbNullString)
  2021.     Well& = FindWindowEx(Resultz&, 0, "Static", vbNullString)
  2022.     If EndUpNo& And Resultz& And Well& <> 0& Then
  2023.         Win_Killwin (EndUpNo&)
  2024.         MsgBox "No one found in AIM database matching that e-mail address.", vbExclamation, "E-mail not found."
  2025.     Else
  2026.         Exit Sub
  2027.     End If
  2028. End Sub
  2029.  
  2030. Function HTML_Remove2(TheStrg As String) As String
  2031.  
  2032.     TheStrg$ = ReplaceString(TheStrg$, "<FONT COLOR=" & """" & "#ff0000" & """" & ">", "")
  2033.     TheStrg$ = ReplaceString(TheStrg$, "<FONT COLOR=" & """" & "#0000ff" & """" & ">", "")
  2034.     TheStrg$ = ReplaceString(TheStrg$, "<FONT COLOR=" & """" & "#000000" & """" & ">", "")
  2035.     TheStrg$ = ReplaceString(TheStrg$, "<FONT COLOR=" & """" & "#ffffff" & """" & ">", "")
  2036.     TheStrg$ = ReplaceString(TheStrg$, "<BODY BGCOLOR=" & """" & "#ffffff" & """" & ">", "")
  2037.     TheStrg$ = ReplaceString(TheStrg$, "<B>", "")
  2038.     TheStrg$ = ReplaceString(TheStrg$, "</B>", "")
  2039.     TheStrg$ = ReplaceString(TheStrg$, "<I>", "")
  2040.     TheStrg$ = ReplaceString(TheStrg$, "</I>", "")
  2041.     TheStrg$ = ReplaceString(TheStrg$, "<U>", "")
  2042.     TheStrg$ = ReplaceString(TheStrg$, "</U>", "")
  2043.     TheStrg$ = ReplaceString(TheStrg$, "<BR>", "" & Chr$(13) + Chr$(10))
  2044.     TheStrg$ = ReplaceString(TheStrg$, "<HTML>", "")
  2045.     TheStrg$ = ReplaceString(TheStrg$, "</HTML>", "")
  2046.     TheStrg$ = ReplaceString(TheStrg$, "<FONT>", "")
  2047.     TheStrg$ = ReplaceString(TheStrg$, "</FONT>", "")
  2048.     HTML_Remove2 = TheStrg$
  2049. End Function
  2050. Function Find_IM()
  2051.     Dim IMWin As Long
  2052.  
  2053.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  2054.     Find_IM = IMWin&
  2055. End Function
  2056.  
  2057. Sub IM_Close()
  2058.     Dim IMWin As Long
  2059.  
  2060.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  2061.     If IMWin& <> 0& Then
  2062.         GoTo Start
  2063.     Else
  2064.       Exit Sub
  2065.     End If
  2066. Start:
  2067.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  2068.     Call Win_Killwin(IMWin&)
  2069. End Sub
  2070.  
  2071. Function ReplaceString(MyString As String, ToFind As String, ReplaceWith As String) As String
  2072. ' By dos, from dos23.bas He gets all the credit for this one
  2073.     Dim Spot As Long, NewSpot As Long, LeftString As String
  2074.     Dim RightString As String, NewString As String
  2075.     Spot& = InStr(LCase(MyString$), LCase(ToFind))
  2076.     NewSpot& = Spot&
  2077.     Do
  2078.         If NewSpot& > 0& Then
  2079.             LeftString$ = Left(MyString$, NewSpot& - 1)
  2080.             If Spot& + Len(ToFind$) <= Len(MyString$) Then
  2081.                 RightString$ = Right(MyString$, Len(MyString$) - NewSpot& - Len(ToFind$) + 1)
  2082.             Else
  2083.                 RightString = ""
  2084.             End If
  2085.             NewString$ = LeftString$ & ReplaceWith$ & RightString$
  2086.             MyString$ = NewString$
  2087.         Else
  2088.             NewString$ = MyString$
  2089.         End If
  2090.         Spot& = NewSpot& + Len(ReplaceWith$)
  2091.         If Spot& > 0 Then
  2092.             NewSpot& = InStr(Spot&, LCase(MyString$), LCase(ToFind$))
  2093.         End If
  2094.     Loop Until NewSpot& < 1
  2095.     ReplaceString$ = NewString$
  2096. End Function
  2097.  
  2098. Sub Win_Hide(TheWin As Long)
  2099.     Call ShowWindow(TheWin&, SW_HIDE)
  2100. End Sub
  2101.  
  2102. Sub Win_Killwin(TheWind&)
  2103.     Call PostMessage(TheWind&, WM_CLOSE, 0&, 0&)
  2104. End Sub
  2105. Function Get_Caption(TheWin)
  2106. ' From Dos32.bas He gets fill credit
  2107.     Dim WindowLngth As Integer, WindowTtle As String, Moo As String
  2108.     
  2109.     WindowLngth% = GetWindowTextLength(TheWin)
  2110.     WindowTtle$ = String$(WindowLngth%, 0)
  2111.     Moo$ = GetWindowText(TheWin, WindowTtle$, (WindowLngth% + 1))
  2112.     Get_Caption = WindowTtle$
  2113. End Function
  2114. Function Get_Class(TheWin)
  2115. ' From Dos32.bas He gets fill credit
  2116.     Dim Buffzz As String, GetClass As String
  2117.     
  2118.     Buffzz$ = String$(250, 0)
  2119.     GetClass$ = GetClassName(TheWin, Buffzz$, 250)
  2120.     Get_Class = Buffzz$
  2121. End Function
  2122. Function Get_Text(child)
  2123. ' From Dos32.bas He gets fill credit
  2124.     Dim GetTrim As Integer, TrimSpace As String, GetString As String
  2125.     
  2126.     GetTrim% = SendMessageByNum(child, 14, 0&, 0&)
  2127.     TrimSpace$ = Space$(GetTrim)
  2128.     GetString$ = SendMessageByString(child, 13, GetTrim + 1, TrimSpace$)
  2129.     Get_Text = TrimSpace$
  2130. End Function
  2131. Sub Click_Icon(TheIcon&)
  2132.     Dim Klick As Long
  2133.     
  2134.     Klick& = SendMessage(TheIcon&, WM_LBUTTONDOWN, 0, 0&)
  2135.     Klick& = SendMessage(TheIcon&, WM_LBUTTONUP, 0, 0&)
  2136. End Sub
  2137. Sub Win_SetText(TheWin As Long, What As String)
  2138.     Call SendMessageByString(TheWin&, WM_SETTEXT, 0&, What$)
  2139. End Sub
  2140.  
  2141. Sub Win_Show(TheWin As Long)
  2142.     Call ShowWindow(TheWin&, SW_SHOW)
  2143. End Sub
  2144.  
  2145. Sub Win_OnTop(TheFrm As Form)
  2146.     Dim SetOnTop
  2147.  
  2148.     SetOnTop = SetWindowPos(TheFrm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
  2149. End Sub
  2150. Sub IM_Send(SendName As String, SayWhat As String, CloseIM As Boolean)
  2151. ' My send IM comes with a little thing where you can eather close
  2152. ' it or not close it....
  2153. ' Ex: Call IM_Send("ThereSn","Sup man",True) <-- that closes the IM
  2154. ' Put False to not close the IM, All the IM sends have the TRUE FALSE thing
  2155.     Dim BuddyList As Long
  2156.  
  2157.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2158.     If BuddyList& <> 0& Then
  2159.         GoTo Start
  2160.     Else
  2161.       Exit Sub
  2162.     End If
  2163.  
  2164. Start:
  2165.  
  2166.     Dim TabWin As Long, IMButtin As Long, IMWin As Long
  2167.     Dim ComboBox As Long, TextEditBox As Long, TextSet As Long
  2168.     Dim EditThing As Long, TextSet2 As Long, SendButtin As Long, Click As Long
  2169.  
  2170.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2171.     TabWin& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  2172.     IMButtin& = FindWindowEx(TabWin&, 0, "_Oscar_IconBtn", vbNullString)
  2173.     Click& = SendMessage(IMButtin&, WM_LBUTTONDOWN, 0, 0&)
  2174.     Click& = SendMessage(IMButtin&, WM_LBUTTONUP, 0, 0&)
  2175.    TimeOut 0.5
  2176.   
  2177.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  2178.     ComboBox& = FindWindowEx(IMWin&, 0, "_Oscar_PersistantCombo", vbNullString)
  2179.     TextEditBox& = FindWindowEx(ComboBox&, 0, "Edit", vbNullString)
  2180.     TextSet& = SendMessageByString(TextEditBox&, WM_SETTEXT, 0, SendName$)
  2181.     TimeOut 0.5
  2182.     EditThing& = FindWindowEx(IMWin&, 0, "WndAte32Class", vbNullString)
  2183.     EditThing& = GetWindow(EditThing&, 2)
  2184.     TextSet2& = SendMessageByString(EditThing&, WM_SETTEXT, 0, SayWhat$)
  2185.     SendButtin& = FindWindowEx(IMWin&, 0, "_Oscar_IconBtn", vbNullString)
  2186.     Click& = SendMessage(SendButtin&, WM_LBUTTONDOWN, 0, 0&)
  2187.     Click& = SendMessage(SendButtin&, WM_LBUTTONUP, 0, 0&)
  2188.     If CloseIM = True Then
  2189.         Win_Killwin (IMWin&)
  2190.     Else
  2191.         Exit Sub
  2192.     End If
  2193. End Sub
  2194. Sub Send_Invite(Who As String, message As String, room As String)
  2195.     Dim BuddyList As Long
  2196.  
  2197.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2198.     If BuddyList& <> 0& Then
  2199.         GoTo Start
  2200.     Else
  2201.       Exit Sub
  2202.     End If
  2203.  
  2204. Start:
  2205.  
  2206.     Dim TabThing As Long, ChtIcon As Long
  2207.     Dim ChatIcon As Long, ChatInvite As Long, ToWhoBox As Long, SetWho As Long
  2208.     Dim MessageBox As Long, RealBox As Long, SetMessage As Long
  2209.     Dim MesRoom As Long, EdBox As Long, RoomBox As Long, SetRoom As Long
  2210.     Dim SendIcon1 As Long, SendIcon2 As Long, SendIcon As Long, Click As Long
  2211.     Dim MesBox As Long
  2212.     
  2213.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2214.     TabThing& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  2215.     ChtIcon& = FindWindowEx(TabThing&, 0, "_Oscar_IconBtn", vbNullString)
  2216.     ChatIcon& = FindWindowEx(TabThing&, ChtIcon&, "_Oscar_IconBtn", vbNullString)
  2217.     Click& = SendMessage(ChatIcon&, WM_LBUTTONDOWN, 0, 0&)
  2218.     Click& = SendMessage(ChatIcon&, WM_LBUTTONUP, 0, 0&)
  2219.  
  2220.     TimeOut 0.2
  2221.     
  2222.     ChatInvite& = FindWindow("AIM_ChatInviteSendWnd", "Buddy Chat Invitation ")
  2223.     ToWhoBox& = FindWindowEx(ChatInvite&, 0, "Edit", vbNullString)
  2224.     SetWho& = SendMessageByString(ToWhoBox&, WM_SETTEXT, 0, Who$)
  2225.     
  2226.     MessageBox& = FindWindowEx(ChatInvite&, 0, "Edit", vbNullString)
  2227.     RealBox& = FindWindowEx(ChatInvite&, MessageBox&, "Edit", vbNullString)
  2228.     SetMessage& = SendMessageByString(RealBox&, WM_SETTEXT, 0, message$)
  2229.     MesBox& = FindWindowEx(ChatInvite&, 0, "Edit", vbNullString)
  2230.     EdBox& = FindWindowEx(ChatInvite&, MesBox&, "Edit", vbNullString)
  2231.     RoomBox& = FindWindowEx(ChatInvite&, EdBox&, "Edit", vbNullString)
  2232.     SetRoom& = SendMessageByString(RoomBox&, WM_SETTEXT, 0, room$)
  2233.     SendIcon1& = FindWindowEx(ChatInvite&, 0, "_Oscar_IconBtn", vbNullString)
  2234.     SendIcon2& = FindWindowEx(ChatInvite&, SendIcon1&, "_Oscar_IconBtn", vbNullString)
  2235.     SendIcon& = FindWindowEx(ChatInvite&, SendIcon2&, "_Oscar_IconBtn", vbNullString)
  2236.     Click& = SendMessage(SendIcon&, WM_LBUTTONDOWN, 0, 0&)
  2237.     Click& = SendMessage(SendIcon&, WM_LBUTTONUP, 0, 0&)
  2238.  
  2239. End Sub
  2240. Sub Chat_Send(SayWhat As String)
  2241.     Dim ChatWindow As Long, Thing As Long, Thing2 As Long
  2242.     Dim SetChatText As Long, Buttin As Long, Buttin2 As Long, Buttin3 As Long
  2243.     Dim SendButtin As Long, Click As Long
  2244.     
  2245.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  2246.     Thing& = FindWindowEx(ChatWindow&, 0&, "WndAte32Class", vbNullString)
  2247.     Thing2& = FindWindowEx(ChatWindow&, Thing&, "WndAte32Class", vbNullString)
  2248.     SetChatText& = SendMessageByString(Thing2&, WM_SETTEXT, 0, SayWhat$)
  2249.     Buttin& = FindWindowEx(ChatWindow&, 0, "_Oscar_IconBtn", vbNullString)
  2250.     Buttin2& = FindWindowEx(ChatWindow&, Buttin&, "_Oscar_IconBtn", vbNullString)
  2251.     Buttin3& = FindWindowEx(ChatWindow&, Buttin2&, "_Oscar_IconBtn", vbNullString)
  2252.     SendButtin& = FindWindowEx(ChatWindow&, Buttin3&, "_Oscar_IconBtn", vbNullString)
  2253.     
  2254.     Click& = SendMessage(SendButtin&, WM_LBUTTONDOWN, 0, 0&)
  2255.     Click& = SendMessage(SendButtin&, WM_LBUTTONUP, 0, 0&)
  2256. End Sub
  2257. Function Get_UserSN() As String
  2258.     Dim BuddyList As Long
  2259.  
  2260.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2261.     If BuddyList& <> 0& Then
  2262.         GoTo Start
  2263.     Else
  2264.       Get_UserSN = "[ not online.]"
  2265.       Exit Function
  2266.     End If
  2267.  
  2268. Start:
  2269.     Dim GetIt As String, Clear As String
  2270.     
  2271.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2272.     GetIt$ = Get_Caption(BuddyList&)
  2273.     Clear$ = ReplaceString(GetIt$, "'s Buddy List", "")
  2274.     Get_UserSN = Clear$
  2275. End Function
  2276.  
  2277. Sub Chat_Clear()
  2278.     Dim ChatWindow As Long, BorderThing As Long
  2279.  
  2280.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  2281.     BorderThing& = FindWindowEx(ChatWindow&, 0&, "WndAte32Class", vbNullString)
  2282.     Call SendMessageByString(BorderThing&, WM_SETTEXT, 0, "")
  2283. End Sub
  2284. Sub Chat_Attention(ErrorRsaY As String)
  2285.     Chat_Send ("áá á   [<B><U>(]A.T.T.E.N.T.I.O.N[)</B></U>]")
  2286.     Chat_Send ErrorRsaY$
  2287.     Chat_Send ("áá á   [<B><U>(]A.T.T.E.N.T.I.O.N[)</B></U>]")
  2288. End Sub
  2289. Sub Chat_Link(Address As String, Text As String)
  2290. Chat_Send "<A HREF=""" + Address$ + """>" + Text$ + ""
  2291. End Sub
  2292. Sub IM_Open()
  2293.     Dim BuddyList As Long, TabWin As Long, IMButtin As Long, Click As Long
  2294.     
  2295.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2296.     TabWin& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  2297.     IMButtin& = FindWindowEx(TabWin&, 0, "_Oscar_IconBtn", vbNullString)
  2298.     Click& = SendMessage(IMButtin&, WM_LBUTTONDOWN, 0, 0&)
  2299.     Click& = SendMessage(IMButtin&, WM_LBUTTONUP, 0, 0&)
  2300. End Sub
  2301. Sub RunMenuByString(Application, StringSearch)
  2302.  
  2303.     Dim ToSearch As Integer, MenuCount As Integer, FindString
  2304.     Dim ToSearchSub As Integer, MenuItemCount As Integer, GetString
  2305.     Dim SubCount As Integer, MenuString As String, GetStringMenu As Integer
  2306.     Dim MenuItem As Integer, RunTheMenu As Integer
  2307.     
  2308.     ToSearch% = GetMenu(Application)
  2309.     MenuCount% = GetMenuItemCount(ToSearch%)
  2310.     
  2311.     For FindString = 0 To MenuCount% - 1
  2312.         ToSearchSub% = GetSubMenu(ToSearch%, FindString)
  2313.         MenuItemCount% = GetMenuItemCount(ToSearchSub%)
  2314.         For GetString = 0 To MenuItemCount% - 1
  2315.             SubCount% = GetMenuItemID(ToSearchSub%, GetString)
  2316.             MenuString$ = String$(100, " ")
  2317.             GetStringMenu% = GetMenuString(ToSearchSub%, SubCount%, MenuString$, 100, 1)
  2318.             If InStr(UCase(MenuString$), UCase(StringSearch)) Then
  2319.                 MenuItem% = SubCount%
  2320.                 GoTo MatchString
  2321.             End If
  2322.     Next GetString
  2323.     Next FindString
  2324. MatchString:
  2325.     RunTheMenu% = SendMessage(Application, WM_COMMAND, MenuItem%, 0)
  2326. End Sub
  2327. Sub AIM_Exit()
  2328.     Dim BuddyList As Long
  2329.     
  2330.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2331.     Call RunMenuByString(BuddyList&, "E&xit")
  2332. End Sub
  2333. Sub AIM_SignOff()
  2334.     Dim BuddyList As Long
  2335.     
  2336.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2337.     Call RunMenuByString(BuddyList&, "Sign O&ff")
  2338. End Sub
  2339. Sub AIM_Hide()
  2340.     Dim BuddyList As Long, X As Long
  2341.     
  2342.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2343.     X& = ShowWindow(BuddyList&, SW_HIDE)
  2344. End Sub
  2345. Sub AIM_Show()
  2346.     Dim BuddyList As Long, X As Long
  2347.     
  2348.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2349.     X& = ShowWindow(BuddyList&, SW_SHOW)
  2350. End Sub
  2351. Function Find_ChatRoom()
  2352.     Dim ChatWindow As Long
  2353.     
  2354.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  2355.     Find_ChatRoom = ChatWindow&
  2356. End Function
  2357. Function AIM_Online()
  2358.     Dim BuddyList As Long
  2359.     
  2360.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2361.     AIM_Online = BuddyList&
  2362. End Function
  2363. Sub GoTo_WebPage(Address As String)
  2364. ' Takes you to a webpage threw the GoTo bar
  2365.     Dim BuddyList As Long
  2366.  
  2367.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2368.     If BuddyList& <> 0& Then
  2369.         GoTo Start
  2370.     Else
  2371.       Exit Sub
  2372.     End If
  2373.  
  2374. Start:
  2375.  
  2376.     Dim STWbox As Long, SetAdd As Long
  2377.     Dim GoButtin As Long, Click As Long
  2378.     
  2379.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2380.     STWbox& = FindWindowEx(BuddyList&, 0, "Edit", vbNullString)
  2381.     SetAdd& = SendMessageByString(STWbox&, WM_SETTEXT, 0, Address$)
  2382.   TimeOut 0.5
  2383.     GoButtin& = FindWindowEx(BuddyList&, 0, "_Oscar_IconBtn", vbNullString)
  2384.     Click& = SendMessage(GoButtin&, WM_LBUTTONDOWN, 0, 0&)
  2385.     Click& = SendMessage(GoButtin&, WM_LBUTTONUP, 0, 0&)
  2386. End Sub
  2387.  
  2388. Sub Win_Playwav(FilePath As String)
  2389.     Dim SoundName As String, Pla, Flagz As Integer
  2390.     
  2391.     SoundName$ = FilePath$
  2392.     Flagz% = SND_ASYNC Or SND_NODEFAULT
  2393.     Pla = sndPlaySound(SoundName$, Flagz%)
  2394. End Sub
  2395. Sub Win_Center(frmz As Form)
  2396.  
  2397.     frmz.Top = (Screen.Height * 0.85) / 2 - frmz.Height / 2
  2398.     frmz.Left = Screen.Width / 2 - frmz.Width / 2
  2399. End Sub
  2400. Sub AIM_Load()
  2401.     Dim X As Long, NoFreeze As Integer
  2402.     
  2403.     X& = Shell("C:\Program Files\AIM95\aim.exe", 1): NoFreeze% = DoEvents(): Exit Sub
  2404. End Sub
  2405. Sub GoTo_Room(room As String)
  2406. ' This sub takes the user to a room without inviteing people
  2407. ' Kinda like a enter room
  2408.  
  2409.     Dim BuddyList As Long
  2410.  
  2411.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2412.     If BuddyList& <> 0& Then
  2413.         GoTo Start
  2414.     Else
  2415.       Exit Sub
  2416.     End If
  2417.  
  2418. Start:
  2419.     Dim TabThing As Long, ChtIcon As Long
  2420.     Dim ChatIcon As Long, ChatInvite As Long, ToWhoBox As Long, SetWho As Long
  2421.     Dim MessageBox As Long, RealBox As Long, SetMessage As Long
  2422.     Dim MesRoom As Long, EdBox As Long, RoomBox As Long, SetRoom As Long
  2423.     Dim SendIcon1 As Long, SendIcon2 As Long, SendIcon As Long, Who As String
  2424.     Dim Click As Long, MesBox As Long
  2425.     Who$ = Get_UserSN
  2426.     If Who$ = "[Could not retrieve]" Then Exit Sub
  2427.     
  2428.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2429.     TabThing& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  2430.     ChtIcon& = FindWindowEx(TabThing&, 0, "_Oscar_IconBtn", vbNullString)
  2431.     ChatIcon& = FindWindowEx(TabThing&, ChtIcon&, "_Oscar_IconBtn", vbNullString)
  2432.     
  2433.     Click& = SendMessage(ChatIcon&, WM_LBUTTONDOWN, 0, 0&)
  2434.     Click& = SendMessage(ChatIcon&, WM_LBUTTONUP, 0, 0&)
  2435.     TimeOut 0.2
  2436.     
  2437.     ChatInvite& = FindWindow("AIM_ChatInviteSendWnd", "Buddy Chat Invitation ")
  2438.     ToWhoBox& = FindWindowEx(ChatInvite&, 0, "Edit", vbNullString)
  2439.     SetWho& = SendMessageByString(ToWhoBox&, WM_SETTEXT, 0, Who$)
  2440.     
  2441.     MessageBox& = FindWindowEx(ChatInvite&, 0, "Edit", vbNullString)
  2442.     RealBox& = FindWindowEx(ChatInvite&, MessageBox&, "Edit", vbNullString)
  2443.     SetMessage& = SendMessageByString(RealBox&, WM_SETTEXT, 0, "")
  2444.     
  2445.     MesBox& = FindWindowEx(ChatInvite&, 0, "Edit", vbNullString)
  2446.     EdBox& = FindWindowEx(ChatInvite&, MesBox&, "Edit", vbNullString)
  2447.     RoomBox& = FindWindowEx(ChatInvite&, EdBox&, "Edit", vbNullString)
  2448.     SetRoom& = SendMessageByString(RoomBox&, WM_SETTEXT, 0, room$)
  2449.     
  2450.     SendIcon1& = FindWindowEx(ChatInvite&, 0, "_Oscar_IconBtn", vbNullString)
  2451.     SendIcon2& = FindWindowEx(ChatInvite&, SendIcon1&, "_Oscar_IconBtn", vbNullString)
  2452.     SendIcon& = FindWindowEx(ChatInvite&, SendIcon2&, "_Oscar_IconBtn", vbNullString)
  2453.     
  2454.     Click& = SendMessage(SendIcon&, WM_LBUTTONDOWN, 0, 0&)
  2455.     Click& = SendMessage(SendIcon&, WM_LBUTTONUP, 0, 0&)
  2456. End Sub
  2457. Sub Chat_StampsON_OFF()
  2458.     Dim ChatWindow As Long
  2459.     
  2460.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  2461.     Call RunMenuByString(ChatWindow&, "Timestamp")
  2462. End Sub
  2463. Sub IM_GetInfo()
  2464. ' This gets the Info of the person you are talking to
  2465. ' Note: only works on the TOP im!
  2466.  
  2467.     Dim IMWin As Long
  2468.     
  2469.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  2470.     Call RunMenuByString(IMWin&, "Info")
  2471. End Sub
  2472. Sub Chat_MacroKill_Bold()
  2473.  
  2474.     Chat_Send ("<b>@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ ")
  2475.    TimeOut 0.2
  2476.     Chat_Send ("<b>@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ ")
  2477.    TimeOut 0.2
  2478.     Chat_Send ("<b>@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ ")
  2479. End Sub
  2480. Sub IM_StampsON_OFF()
  2481.     Dim IMWin As Long
  2482.     
  2483.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  2484.     Call RunMenuByString(IMWin&, "Timestamp")
  2485. End Sub
  2486. Sub Change_BuddyCaption(NewCap As String)
  2487. ' If you change caption some stuff might not work.
  2488.  
  2489.     Dim BuddyWin As Long, SetCap As String
  2490.     
  2491.     BuddyWin& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2492.     SetCap$ = SendMessageByString(BuddyWin&, WM_SETTEXT, 0, NewCap$)
  2493. End Sub
  2494. Sub Change_IMCaption(NewCap As String)
  2495. ' If you change caption some stuff might not work.
  2496.  
  2497.     Dim IMCaption As Long, SetCap As String
  2498.     
  2499.     IMCaption& = FindWindow("AIM_IMessage", vbNullString)
  2500.     SetCap$ = SendMessageByString(IMCaption&, WM_SETTEXT, 0, NewCap$)
  2501. End Sub
  2502. Sub Change_ChatCaption(NewCap As String)
  2503. ' If you change caption some stuff might not work.
  2504.  
  2505.     Dim ChatWindow As Long, SetCap As String
  2506.     
  2507.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  2508.     SetCap$ = SendMessageByString(ChatWindow&, WM_SETTEXT, 0, NewCap$)
  2509. End Sub
  2510. Sub Chat_SendBold(SayWhat As String)
  2511.     Dim ChatWindow As Long, Thing As Long, Thing2 As Long
  2512.     Dim SetChatText As Long, Buttin As Long, Buttin2 As Long, Buttin3 As Long
  2513.     Dim SendButtin As Long, Click As Long
  2514.     
  2515.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  2516.     Thing& = FindWindowEx(ChatWindow&, 0&, "WndAte32Class", vbNullString)
  2517.     Thing2& = FindWindowEx(ChatWindow&, Thing&, "WndAte32Class", vbNullString)
  2518.     SetChatText& = SendMessageByString(Thing2&, WM_SETTEXT, 0, "<B>" & SayWhat$)
  2519.     Buttin& = FindWindowEx(ChatWindow&, 0, "_Oscar_IconBtn", vbNullString)
  2520.     Buttin2& = FindWindowEx(ChatWindow&, Buttin&, "_Oscar_IconBtn", vbNullString)
  2521.     Buttin3& = FindWindowEx(ChatWindow&, Buttin2&, "_Oscar_IconBtn", vbNullString)
  2522.     SendButtin& = FindWindowEx(ChatWindow&, Buttin3&, "_Oscar_IconBtn", vbNullString)
  2523.     
  2524.     Click& = SendMessage(SendButtin&, WM_LBUTTONDOWN, 0, 0&)
  2525.     Click& = SendMessage(SendButtin&, WM_LBUTTONUP, 0, 0&)
  2526. End Sub
  2527. Sub Chat_SendUnderlined(SayWhat As String)
  2528.     Dim ChatWindow As Long, Thing As Long, Thing2 As Long
  2529.     Dim SetChatText As Long, Buttin As Long, Buttin2 As Long, Buttin3 As Long
  2530.     Dim SendButtin As Long, Click As Long
  2531.     
  2532.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  2533.     Thing& = FindWindowEx(ChatWindow&, 0&, "WndAte32Class", vbNullString)
  2534.     Thing2& = FindWindowEx(ChatWindow&, Thing&, "WndAte32Class", vbNullString)
  2535.     SetChatText& = SendMessageByString(Thing2&, WM_SETTEXT, 0, "<U>" & SayWhat$)
  2536.     Buttin& = FindWindowEx(ChatWindow&, 0, "_Oscar_IconBtn", vbNullString)
  2537.     Buttin2& = FindWindowEx(ChatWindow&, Buttin&, "_Oscar_IconBtn", vbNullString)
  2538.     Buttin3& = FindWindowEx(ChatWindow&, Buttin2&, "_Oscar_IconBtn", vbNullString)
  2539.     SendButtin& = FindWindowEx(ChatWindow&, Buttin3&, "_Oscar_IconBtn", vbNullString)
  2540.     
  2541.     Click& = SendMessage(SendButtin&, WM_LBUTTONDOWN, 0, 0&)
  2542.     Click& = SendMessage(SendButtin&, WM_LBUTTONUP, 0, 0&)
  2543. End Sub
  2544. Sub Chat_SendItalic(SayWhat As String)
  2545.     Dim ChatWindow As Long, Thing As Long, Thing2 As Long
  2546.     Dim SetChatText As Long, Buttin As Long, Buttin2 As Long, Buttin3 As Long
  2547.     Dim SendButtin As Long, Click As Long
  2548.     
  2549.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  2550.     Thing& = FindWindowEx(ChatWindow&, 0&, "WndAte32Class", vbNullString)
  2551.     Thing2& = FindWindowEx(ChatWindow&, Thing&, "WndAte32Class", vbNullString)
  2552.     SetChatText& = SendMessageByString(Thing2&, WM_SETTEXT, 0, "<I>" & SayWhat$)
  2553.     Buttin& = FindWindowEx(ChatWindow&, 0, "_Oscar_IconBtn", vbNullString)
  2554.     Buttin2& = FindWindowEx(ChatWindow&, Buttin&, "_Oscar_IconBtn", vbNullString)
  2555.     Buttin3& = FindWindowEx(ChatWindow&, Buttin2&, "_Oscar_IconBtn", vbNullString)
  2556.     SendButtin& = FindWindowEx(ChatWindow&, Buttin3&, "_Oscar_IconBtn", vbNullString)
  2557.     
  2558.     Click& = SendMessage(SendButtin&, WM_LBUTTONDOWN, 0, 0&)
  2559.     Click& = SendMessage(SendButtin&, WM_LBUTTONUP, 0, 0&)
  2560. End Sub
  2561. Sub Chat_SendStress(SayWhat As String)
  2562.     Dim ChatWindow As Long, Thing As Long, Thing2 As Long
  2563.     Dim SetChatText As Long, Buttin As Long, Buttin2 As Long, Buttin3 As Long
  2564.     Dim SendButtin As Long, Click As Long
  2565.     
  2566.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  2567.     Thing& = FindWindowEx(ChatWindow&, 0&, "WndAte32Class", vbNullString)
  2568.     Thing2& = FindWindowEx(ChatWindow&, Thing&, "WndAte32Class", vbNullString)
  2569.     SetChatText& = SendMessageByString(Thing2&, WM_SETTEXT, 0, "<B><I><U>" & SayWhat$)
  2570.     Buttin& = FindWindowEx(ChatWindow&, 0, "_Oscar_IconBtn", vbNullString)
  2571.     Buttin2& = FindWindowEx(ChatWindow&, Buttin&, "_Oscar_IconBtn", vbNullString)
  2572.     Buttin3& = FindWindowEx(ChatWindow&, Buttin2&, "_Oscar_IconBtn", vbNullString)
  2573.     SendButtin& = FindWindowEx(ChatWindow&, Buttin3&, "_Oscar_IconBtn", vbNullString)
  2574.     
  2575.     Click& = SendMessage(SendButtin&, WM_LBUTTONDOWN, 0, 0&)
  2576.     Click& = SendMessage(SendButtin&, WM_LBUTTONUP, 0, 0&)
  2577. End Sub
  2578. Sub Win_Maximize(THeWindow As Long)
  2579.     Dim max As Long
  2580.  
  2581.     max& = ShowWindow(THeWindow&, SW_MAXIMIZE)
  2582. End Sub
  2583. Sub Win_Minimize(THeWindow As Long)
  2584.     Dim Mini As Long
  2585.  
  2586.     Mini& = ShowWindow(THeWindow&, SW_MINIMIZE)
  2587. End Sub
  2588. Sub Load_Text(txt As textbox, FilePath As String)
  2589. 'Ex: Call load_Text(list1,"c:\windows\desktop\text.txt")
  2590.  
  2591.     Dim mystr As String, FilePath2 As String, textz As String, a As String
  2592.     
  2593.     Open FilePath2$ For Input As #1
  2594.     Do While Not EOF(1)
  2595.     Line Input #1, a$
  2596.         textz$ = textz$ + a$ + Chr$(13) + Chr$(10)
  2597.         Loop
  2598.         txt = textz$
  2599.     Close #1
  2600. End Sub
  2601.  
  2602. Sub Save_Text(txt, FilePath3 As String)
  2603. 'Ex: Call Save_Text(list1,"c:\windows\desktop\text.txt")
  2604.  '  Open Path$
  2605.    
  2606.         
  2607.    ' Open FilePath3$ For Output As #1
  2608.    '     Print #1, Text
  2609.    ' Close 1
  2610. End Sub
  2611. Sub Win_ShutDown()
  2612.     Call ExitWindowsEx(EWX_SHUTDOWN, 0)
  2613. End Sub
  2614.  
  2615. Sub Win_StartButtin()
  2616.     Dim WinShell As Long, StartButtin As Long, Klick As Long
  2617.  
  2618.     WinShell& = FindWindow("Shell_TrayWnd", "")
  2619.     StartButtin& = FindWindowEx(WinShell&, 0, "Button", vbNullString)
  2620.     Call SendMessage(StartButtin&, WM_KEYDOWN, VK_SPACE, 0&)
  2621.     Call SendMessage(StartButtin&, WM_KEYUP, VK_SPACE, 0&)
  2622. End Sub
  2623.  
  2624. Sub IM_SendLink(Who As String, Address As String, Text As String, Closez As Boolean)
  2625. 'Call IM_SendLink("There SN", "http://www.hider.com", "kickass VB site GO here!", True)
  2626.  
  2627.     If Closez = True Then
  2628.         Call IM_Send(Who$, "<A HREF=""" + Address$ + """>" + Text$ + "", True)
  2629.     Else
  2630.         Call IM_Send(Who$, "<A HREF=""" + Address$ + """>" + Text$ + "", False)
  2631.     End If
  2632. End Sub
  2633. Sub IM_Send_Bold(SendName As String, SayWhat As String, CloseIM As Boolean)
  2634.     Dim BuddyList As Long
  2635.  
  2636.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2637.     If BuddyList& <> 0& Then
  2638.         GoTo Start
  2639.     Else
  2640.       Exit Sub
  2641.     End If
  2642.  
  2643. Start:
  2644.     Dim TabWin As Long, IMButtin As Long, IMWin As Long
  2645.     Dim ComboBox As Long, TextEditBox As Long, TextSet As Long
  2646.     Dim EditThing As Long, TextSet2 As Long, Click As Long, SendButtin As Long
  2647.  
  2648.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2649.     TabWin& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  2650.     IMButtin& = FindWindowEx(TabWin&, 0, "_Oscar_IconBtn", vbNullString)
  2651.     
  2652.     Click& = SendMessage(IMButtin&, WM_LBUTTONDOWN, 0, 0&)
  2653.     Click& = SendMessage(IMButtin&, WM_LBUTTONUP, 0, 0&)
  2654.   TimeOut 0.2
  2655.   
  2656.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  2657.     ComboBox& = FindWindowEx(IMWin&, 0, "_Oscar_PersistantCombo", vbNullString)
  2658.     TextEditBox& = FindWindowEx(ComboBox&, 0, "Edit", vbNullString)
  2659.     TextSet& = SendMessageByString(TextEditBox&, WM_SETTEXT, 0, SendName$)
  2660.   TimeOut 0.2
  2661.     EditThing& = FindWindowEx(IMWin&, 0, "WndAte32Class", vbNullString)
  2662.     EditThing& = GetWindow(EditThing&, 2)
  2663.     TextSet2& = SendMessageByString(EditThing&, WM_SETTEXT, 0, "<B>" & SayWhat$)
  2664.     SendButtin& = FindWindowEx(IMWin&, 0, "_Oscar_IconBtn", vbNullString)
  2665.     
  2666.     Click& = SendMessage(SendButtin&, WM_LBUTTONDOWN, 0, 0&)
  2667.     Click& = SendMessage(SendButtin&, WM_LBUTTONUP, 0, 0&)
  2668.  
  2669.     If CloseIM = True Then
  2670.         Win_Killwin (IMWin&)
  2671.     Else
  2672.         Exit Sub
  2673.     End If
  2674. End Sub
  2675. Sub IM_Send_Italic(SendName As String, SayWhat As String, CloseIM As Boolean)
  2676.     Dim BuddyList As Long
  2677.  
  2678.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2679.     If BuddyList& <> 0& Then
  2680.         GoTo Start
  2681.     Else
  2682.       Exit Sub
  2683.     End If
  2684.  
  2685. Start:
  2686.  
  2687.     Dim TabWin As Long, IMButtin As Long, IMWin As Long
  2688.     Dim ComboBox As Long, TextEditBox As Long, TextSet As Long
  2689.     Dim EditThing As Long, TextSet2 As Long, Click As Long, SendButtin As Long
  2690.  
  2691.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2692.     TabWin& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  2693.     IMButtin& = FindWindowEx(TabWin&, 0, "_Oscar_IconBtn", vbNullString)
  2694.  
  2695.     Click& = SendMessage(IMButtin&, WM_LBUTTONDOWN, 0, 0&)
  2696.     Click& = SendMessage(IMButtin&, WM_LBUTTONUP, 0, 0&)
  2697.     TimeOut 0.2
  2698.   
  2699.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  2700.     ComboBox& = FindWindowEx(IMWin&, 0, "_Oscar_PersistantCombo", vbNullString)
  2701.     TextEditBox& = FindWindowEx(ComboBox&, 0, "Edit", vbNullString)
  2702.     TextSet& = SendMessageByString(TextEditBox&, WM_SETTEXT, 0, SendName$)
  2703.    TimeOut 0.2
  2704.     EditThing& = FindWindowEx(IMWin&, 0, "WndAte32Class", vbNullString)
  2705.     EditThing& = GetWindow(EditThing&, 2)
  2706.     TextSet2& = SendMessageByString(EditThing&, WM_SETTEXT, 0, "<I>" & SayWhat$)
  2707.     SendButtin& = FindWindowEx(IMWin&, 0, "_Oscar_IconBtn", vbNullString)
  2708.     Click& = SendMessage(SendButtin&, WM_LBUTTONDOWN, 0, 0&)
  2709.     Click& = SendMessage(SendButtin&, WM_LBUTTONUP, 0, 0&)
  2710.     If CloseIM = True Then
  2711.         Win_Killwin (IMWin&)
  2712.     Else
  2713.         Exit Sub
  2714.     End If
  2715. End Sub
  2716. Sub IM_Send_Underlined(SendName As String, SayWhat As String, CloseIM As Boolean)
  2717.     Dim BuddyList As Long
  2718.  
  2719.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2720.     If BuddyList& <> 0& Then
  2721.         GoTo Start
  2722.     Else
  2723.       Exit Sub
  2724.     End If
  2725.  
  2726. Start:
  2727.  
  2728.     Dim TabWin As Long, IMButtin As Long, IMWin As Long
  2729.     Dim ComboBox As Long, TextEditBox As Long, TextSet As Long
  2730.     Dim EditThing As Long, TextSet2 As Long, Click As Long, SendButtin As Long
  2731.  
  2732.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2733.     TabWin& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  2734.     IMButtin& = FindWindowEx(TabWin&, 0, "_Oscar_IconBtn", vbNullString)
  2735.  
  2736.     Click& = SendMessage(IMButtin&, WM_LBUTTONDOWN, 0, 0&)
  2737.     Click& = SendMessage(IMButtin&, WM_LBUTTONUP, 0, 0&)
  2738.    TimeOut 0.2
  2739.   
  2740.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  2741.     ComboBox& = FindWindowEx(IMWin&, 0, "_Oscar_PersistantCombo", vbNullString)
  2742.     TextEditBox& = FindWindowEx(ComboBox&, 0, "Edit", vbNullString)
  2743.     TextSet& = SendMessageByString(TextEditBox&, WM_SETTEXT, 0, SendName$)
  2744.    TimeOut 0.2
  2745.     EditThing& = FindWindowEx(IMWin&, 0, "WndAte32Class", vbNullString)
  2746.     EditThing& = GetWindow(EditThing&, 2)
  2747.     TextSet2& = SendMessageByString(EditThing&, WM_SETTEXT, 0, "<U>" & SayWhat$)
  2748.     SendButtin& = FindWindowEx(IMWin&, 0, "_Oscar_IconBtn", vbNullString)
  2749.     Click& = SendMessage(SendButtin&, WM_LBUTTONDOWN, 0, 0&)
  2750.     Click& = SendMessage(SendButtin&, WM_LBUTTONUP, 0, 0&)
  2751.     
  2752.     If CloseIM = True Then
  2753.         Win_Killwin (IMWin&)
  2754.     Else
  2755.         Exit Sub
  2756.     End If
  2757. End Sub
  2758. Sub IM_Send_Stress(SendName As String, SayWhat As String, CloseIM As Boolean)
  2759.     Dim BuddyList As Long
  2760.  
  2761.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2762.     If BuddyList& <> 0& Then
  2763.         GoTo Start
  2764.     Else
  2765.       Exit Sub
  2766.     End If
  2767.  
  2768. Start:
  2769.  
  2770.     Dim TabWin As Long, IMButtin As Long, IMWin As Long
  2771.     Dim ComboBox As Long, TextEditBox As Long, TextSet As Long
  2772.     Dim EditThing As Long, TextSet2 As Long, Click As Long, SendButtin As Long
  2773.  
  2774.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2775.     TabWin& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  2776.     IMButtin& = FindWindowEx(TabWin&, 0, "_Oscar_IconBtn", vbNullString)
  2777.     
  2778.     Click& = SendMessage(IMButtin&, WM_LBUTTONDOWN, 0, 0&)
  2779.     Click& = SendMessage(IMButtin&, WM_LBUTTONUP, 0, 0&)
  2780.     TimeOut 0.2
  2781.   
  2782.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  2783.     ComboBox& = FindWindowEx(IMWin&, 0, "_Oscar_PersistantCombo", vbNullString)
  2784.     TextEditBox& = FindWindowEx(ComboBox&, 0, "Edit", vbNullString)
  2785.     TextSet& = SendMessageByString(TextEditBox&, WM_SETTEXT, 0, SendName$)
  2786.    TimeOut 0.2
  2787.     EditThing& = FindWindowEx(IMWin&, 0, "WndAte32Class", vbNullString)
  2788.     EditThing& = GetWindow(EditThing&, 2)
  2789.     TextSet2& = SendMessageByString(EditThing&, WM_SETTEXT, 0, "<B><I><U>" & SayWhat$)
  2790.     SendButtin& = FindWindowEx(IMWin&, 0, "_Oscar_IconBtn", vbNullString)
  2791.     Click& = SendMessage(SendButtin&, WM_LBUTTONDOWN, 0, 0&)
  2792.     Click& = SendMessage(SendButtin&, WM_LBUTTONUP, 0, 0&)
  2793.     
  2794.     If CloseIM = True Then
  2795.         Win_Killwin (IMWin&)
  2796.     Else
  2797.         Exit Sub
  2798.     End If
  2799. End Sub
  2800.  
  2801. Sub IM_Clear()
  2802.     Dim AIMim As Long, Thing As Long
  2803.     
  2804.     AIMim& = FindWindow("AIM_IMessage", vbNullString)
  2805.     Thing& = FindWindowEx(AIMim&, 0, "WndAte32Class", vbNullString)
  2806.     Call SendMessageByString(Thing&, WM_SETTEXT, 0, "")
  2807. End Sub
  2808. Sub IM_Send2(SendName As String, SayWhat As String, CloseIM As Boolean)
  2809.     Dim BuddyList As Long
  2810.  
  2811.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2812.     If BuddyList& <> 0& Then
  2813.         GoTo Start
  2814.     Else
  2815.       Exit Sub
  2816.     End If
  2817.  
  2818. Start:
  2819.  
  2820.     Dim IMWin As Long, ComboBox As Long
  2821.     Dim TextEditBox As Long, TextSet As Long, EditThing As Long
  2822.     Dim SendButtin As Long, TextSet2 As Long, Click As Long
  2823.     
  2824.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2825.     Call RunMenuByString(BuddyList&, "Send &Instant Message")
  2826.     
  2827.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  2828.     ComboBox& = FindWindowEx(IMWin&, 0, "_Oscar_PersistantCombo", vbNullString)
  2829.     TextEditBox& = FindWindowEx(ComboBox&, 0, "Edit", vbNullString)
  2830.     TextSet& = SendMessageByString(TextEditBox&, WM_SETTEXT, 0, SendName$)
  2831.     TimeOut 0.5
  2832.     EditThing& = FindWindowEx(IMWin&, 0, "WndAte32Class", vbNullString)
  2833.     EditThing& = GetWindow(EditThing&, 2)
  2834.     TextSet2& = SendMessageByString(EditThing&, WM_SETTEXT, 0, SayWhat$)
  2835.     SendButtin& = FindWindowEx(IMWin&, 0, "_Oscar_IconBtn", vbNullString)
  2836.     Click& = SendMessage(SendButtin&, WM_LBUTTONDOWN, 0, 0&)
  2837.     Click& = SendMessage(SendButtin&, WM_LBUTTONUP, 0, 0&)
  2838.  
  2839.     If CloseIM = True Then
  2840.         Win_Killwin (IMWin&)
  2841.     Else
  2842.         Exit Sub
  2843.     End If
  2844. End Sub
  2845. Sub Send_Invite_2(Who As String, message As String, room As String)
  2846.     Dim BuddyList As Long
  2847.  
  2848.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2849.     If BuddyList& <> 0& Then
  2850.         GoTo Start
  2851.     Else
  2852.       Exit Sub
  2853.     End If
  2854.  
  2855. Start:
  2856.     Dim ChatInvite As Long, ToWhoBox As Long, SetWho As Long
  2857.     Dim MessageBox As Long, RealBox As Long, SetMessage As Long
  2858.     Dim MesRoom As Long, EdBox As Long, RoomBox As Long, SetRoom As Long
  2859.     Dim SendIcon1 As Long, SendIcon2 As Long, SendIcon As Long, MesBox As Long
  2860.     Dim Click As Long
  2861.        
  2862.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2863.     Call RunMenuByString(BuddyList&, "Send &Buddy Chat Invitation")
  2864.     
  2865.     ChatInvite& = FindWindow("AIM_ChatInviteSendWnd", "Buddy Chat Invitation ")
  2866.     ToWhoBox& = FindWindowEx(ChatInvite&, 0, "Edit", vbNullString)
  2867.     SetWho& = SendMessageByString(ToWhoBox&, WM_SETTEXT, 0, Who$)
  2868.     
  2869.     MessageBox& = FindWindowEx(ChatInvite&, 0, "Edit", vbNullString)
  2870.     RealBox& = FindWindowEx(ChatInvite&, MessageBox&, "Edit", vbNullString)
  2871.     SetMessage& = SendMessageByString(RealBox&, WM_SETTEXT, 0, message$)
  2872.     MesBox& = FindWindowEx(ChatInvite&, 0, "Edit", vbNullString)
  2873.     EdBox& = FindWindowEx(ChatInvite&, MesBox&, "Edit", vbNullString)
  2874.     RoomBox& = FindWindowEx(ChatInvite&, EdBox&, "Edit", vbNullString)
  2875.     SetRoom& = SendMessageByString(RoomBox&, WM_SETTEXT, 0, room$)
  2876.     SendIcon1& = FindWindowEx(ChatInvite&, 0, "_Oscar_IconBtn", vbNullString)
  2877.     SendIcon2& = FindWindowEx(ChatInvite&, SendIcon1&, "_Oscar_IconBtn", vbNullString)
  2878.     SendIcon& = FindWindowEx(ChatInvite&, SendIcon2&, "_Oscar_IconBtn", vbNullString)
  2879.     Click& = SendMessage(SendIcon&, WM_LBUTTONDOWN, 0, 0&)
  2880.     Click& = SendMessage(SendIcon&, WM_LBUTTONUP, 0, 0&)
  2881. End Sub
  2882. Sub AIM_Hide_AD()
  2883.     Dim BuddyList As Long, TheAdd As Long, X As Long
  2884.     
  2885.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2886.     TheAdd& = FindWindowEx(BuddyList&, 0, "WndAte32Class", vbNullString)
  2887.     X& = ShowWindow(TheAdd&, SW_HIDE)
  2888. End Sub
  2889. Sub AIM_Show_AD()
  2890.     Dim BuddyList As Long, TheAdd As Long, X As Long
  2891.     
  2892.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2893.     TheAdd& = FindWindowEx(BuddyList&, 0, "WndAte32Class", vbNullString)
  2894.     X& = ShowWindow(TheAdd&, SW_SHOW)
  2895. End Sub
  2896. Sub AIM_Hide_MyNews()
  2897.     Dim BuddyList As Long, TabThing As Long, NewsButtin As Long
  2898.     Dim X As Long
  2899.     
  2900.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2901.     TabThing& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  2902.     NewsButtin& = FindWindowEx(TabThing&, 0, "WndAte32Class", vbNullString)
  2903.     X& = ShowWindow(NewsButtin&, SW_HIDE)
  2904. End Sub
  2905. Sub AIM_Show_MyNews()
  2906.     Dim BuddyList As Long, TabThing As Long, NewsButtin As Long
  2907.     Dim X As Long
  2908.     
  2909.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2910.     TabThing& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  2911.     NewsButtin& = FindWindowEx(TabThing&, 0, "WndAte32Class", vbNullString)
  2912.     X& = ShowWindow(NewsButtin&, SW_SHOW)
  2913. End Sub
  2914. Sub IM_Send_Invite(message As String, room As String)
  2915. 'This sub send an Invite to the person in the TOP im!
  2916.     Dim IMWin As Long, ChatInvite As Long, SetMessage As Long
  2917.     Dim MessageBox As Long, RealBox As Long
  2918.     Dim SetMessafe As Long, MesBox As Long, EdBox As Long
  2919.     Dim RoomBox As Long, SetRoom As Long, SendIcon1 As Long
  2920.     Dim SendIcon2 As Long, SendIcon As Long, Click As Long
  2921.     
  2922.     IMWin& = FindWindow("AIM_IMessage", vbNullString)
  2923.     Call RunMenuByString(IMWin&, "&Send Chat Invitation")
  2924.     
  2925.     ChatInvite& = FindWindow("AIM_ChatInviteSendWnd", "Buddy Chat Invitation ")
  2926.     MessageBox& = FindWindowEx(ChatInvite&, 0, "Edit", vbNullString)
  2927.     RealBox& = FindWindowEx(ChatInvite&, MessageBox&, "Edit", vbNullString)
  2928.     SetMessage& = SendMessageByString(RealBox&, WM_SETTEXT, 0, message$)
  2929.     MesBox& = FindWindowEx(ChatInvite&, 0, "Edit", vbNullString)
  2930.     EdBox& = FindWindowEx(ChatInvite&, MesBox&, "Edit", vbNullString)
  2931.     RoomBox& = FindWindowEx(ChatInvite&, EdBox&, "Edit", vbNullString)
  2932.     SetRoom& = SendMessageByString(RoomBox&, WM_SETTEXT, 0, room$)
  2933.     SendIcon1& = FindWindowEx(ChatInvite&, 0, "_Oscar_IconBtn", vbNullString)
  2934.     SendIcon2& = FindWindowEx(ChatInvite&, SendIcon1&, "_Oscar_IconBtn", vbNullString)
  2935.     SendIcon& = FindWindowEx(ChatInvite&, SendIcon2&, "_Oscar_IconBtn", vbNullString)
  2936.     Click& = SendMessage(SendIcon&, WM_LBUTTONDOWN, 0, 0&)
  2937.     Click& = SendMessage(SendIcon&, WM_LBUTTONUP, 0, 0&)
  2938.  
  2939. End Sub
  2940. Sub IM_HideButtins()
  2941.     Dim TheIM As Long, Thing As Long, WarnButtin As Long
  2942.     Dim Thing2 As Long, Thing3 As Long, BlockButtin As Long
  2943.     Dim X As Long
  2944.     
  2945.     TheIM& = FindWindow("AIM_IMessage", vbNullString)
  2946.     Thing& = FindWindowEx(TheIM&, 0, "_Oscar_IconBtn", vbNullString)
  2947.     WarnButtin& = FindWindowEx(TheIM&, Thing&, "_Oscar_IconBtn", vbNullString)
  2948.     Thing2& = FindWindowEx(TheIM&, 0, "_Oscar_IconBtn", vbNullString)
  2949.     Thing3& = FindWindowEx(TheIM&, Thing2&, "_Oscar_IconBtn", vbNullString)
  2950.     BlockButtin& = FindWindowEx(TheIM&, Thing3&, "_Oscar_IconBtn", vbNullString)
  2951.     X = ShowWindow(WarnButtin&, SW_HIDE)
  2952.     X = ShowWindow(BlockButtin&, SW_HIDE)
  2953. End Sub
  2954. Sub IM_ShowButtins()
  2955.     Dim TheIM As Long, Thing As Long, WarnButtin As Long
  2956.     Dim Thing2 As Long, Thing3 As Long, BlockButtin As Long
  2957.     Dim X As Long
  2958.     
  2959.     TheIM& = FindWindow("AIM_IMessage", vbNullString)
  2960.     Thing& = FindWindowEx(TheIM&, 0, "_Oscar_IconBtn", vbNullString)
  2961.     WarnButtin& = FindWindowEx(TheIM&, Thing&, "_Oscar_IconBtn", vbNullString)
  2962.     Thing2& = FindWindowEx(TheIM&, 0, "_Oscar_IconBtn", vbNullString)
  2963.     Thing3& = FindWindowEx(TheIM&, Thing2&, "_Oscar_IconBtn", vbNullString)
  2964.     BlockButtin& = FindWindowEx(TheIM&, Thing3&, "_Oscar_IconBtn", vbNullString)
  2965.     X& = ShowWindow(WarnButtin&, SW_SHOW)
  2966.     X& = ShowWindow(BlockButtin&, SW_SHOW)
  2967. End Sub
  2968. Sub AIM_Hide_GoToBar()
  2969.     Dim BuddyList As Long, STWbox As Long, GoButtin As Long
  2970.     Dim X  As Long
  2971.     
  2972.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2973.     STWbox& = FindWindowEx(BuddyList&, 0, "Edit", vbNullString)
  2974.     GoButtin& = FindWindowEx(BuddyList&, 0, "_Oscar_IconBtn", vbNullString)
  2975.     X& = ShowWindow(STWbox&, SW_HIDE)
  2976.     X& = ShowWindow(GoButtin&, SW_HIDE)
  2977. End Sub
  2978. Sub AIM_Show_GoToBar()
  2979.     Dim BuddyList As Long, STWbox As Long, GoButtin As Long
  2980.     Dim X  As Long
  2981.     
  2982.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  2983.     STWbox& = FindWindowEx(BuddyList&, 0, "Edit", vbNullString)
  2984.     GoButtin& = FindWindowEx(BuddyList&, 0, "_Oscar_IconBtn", vbNullString)
  2985.     X& = ShowWindow(STWbox&, SW_SHOW)
  2986.     X& = ShowWindow(GoButtin&, SW_SHOW)
  2987. End Sub
  2988. Sub Chat_InviteBuddy(Who As String, message As String)
  2989.     Dim ChatWindow As Long, ChatInvite As Long, ToWhoBox As Long
  2990.     Dim SetWho As Long, MessageBox As Long, RealBox As Long
  2991.     Dim SetMessage As Long, SendIcon As Long, SendIcon1 As Long
  2992.     Dim SendIcon2 As Long, Click As Long
  2993.     
  2994.     ChatWindow& = FindWindow("AIM_ChatWnd", vbNullString)
  2995.     Call RunMenuByString(ChatWindow&, "&Invite a Buddy...")
  2996.  
  2997.     ChatInvite& = FindWindow("AIM_ChatInviteSendWnd", "Buddy Chat Invitation ")
  2998.     ToWhoBox& = FindWindowEx(ChatInvite&, 0, "Edit", vbNullString)
  2999.     SetWho& = SendMessageByString(ToWhoBox&, WM_SETTEXT, 0, Who$)
  3000.     
  3001.     MessageBox& = FindWindowEx(ChatInvite&, 0, "Edit", vbNullString)
  3002.     RealBox& = FindWindowEx(ChatInvite&, MessageBox&, "Edit", vbNullString)
  3003.     SetMessage& = SendMessageByString(RealBox&, WM_SETTEXT, 0, message$)
  3004.     SendIcon1& = FindWindowEx(ChatInvite&, 0, "_Oscar_IconBtn", vbNullString)
  3005.     SendIcon2& = FindWindowEx(ChatInvite&, SendIcon1&, "_Oscar_IconBtn", vbNullString)
  3006.     SendIcon& = FindWindowEx(ChatInvite&, SendIcon2&, "_Oscar_IconBtn", vbNullString)
  3007.     Click& = SendMessage(SendIcon&, WM_LBUTTONDOWN, 0, 0&)
  3008.     Click& = SendMessage(SendIcon&, WM_LBUTTONUP, 0, 0&)
  3009. End Sub
  3010. Sub IM_Open2()
  3011.     Dim BuddyList As Long
  3012.     
  3013.     BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  3014.     Call RunMenuByString(BuddyList&, "Send &Instant Message")
  3015. End Sub
  3016.  
  3017.  
  3018.  
  3019. Sub WinApp_ShellTo(TheExe As String)
  3020.     Dim Shellz As Long, NoFreeze As Long
  3021.  
  3022.     Shellz& = Shell(TheExe$, 1): NoFreeze& = DoEvents()
  3023. End Sub
  3024.  
  3025. Sub WinApp_Unload(TheFrm As Form)
  3026.     Unload TheFrm
  3027.     End
  3028.     End
  3029.     Unload TheFrm
  3030. End Sub
  3031.  
  3032.  
  3033.  
  3034.  
  3035.