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