home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD61025252000.psc / easyvb_minimonitor / ItchyBallBatch < prev    next >
Encoding:
Text File  |  2000-04-20  |  49.7 KB  |  1,246 lines
  1. Attribute VB_Name = "ItchyBallBatch"
  2.  
  3.  
  4.  
  5. Option Explicit
  6. Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (destination As Any, Source As Any, ByVal Length As Long)
  7. Declare Sub RtlMoveMemory Lib "kernel32" (ByRef dest As Any, ByRef Source As Any, ByVal nBytes As Long)
  8. Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  9. 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
  10. Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  11. Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  12. 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
  13. 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
  14. 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
  15. Declare Function CreatePopupMenu Lib "user32" () As Long
  16. Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
  17. Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  18. Declare Function DestroyMenu Lib "user32" (ByVal hMenu%) As Integer
  19. Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal cmd As Long) As Long
  20. Declare Function EnumWindows& Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long)
  21. Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  22. 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
  23. Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long)
  24. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  25. Declare Function GetClassName& Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long)
  26. Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
  27. Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
  28. Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  29. 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
  30. Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
  31. Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  32. Declare Function GetTopWindow Lib "user32" (ByVal hwnd As Long) As Long
  33. Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
  34. Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)
  35. Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  36. Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  37. Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
  38. Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
  39. 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
  40. Declare Function iswindowenabled Lib "user32" Alias "IsWindowEnabled" (ByVal hwnd As Long) As Long
  41. 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
  42. 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
  43. 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
  44. Declare Function PutFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
  45. Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As RECT, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
  46. Declare Function RegisterWindowMessage& Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String)
  47. Declare Function ReleaseCapture Lib "user32" () As Long
  48. Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  49. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  50. Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
  51. Declare Function sendmessagebynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
  52. 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
  53. Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
  54. 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
  55. Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
  56. 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
  57. Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
  58. Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  59. Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  60. Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
  61. Const EM_UNDO = &HC7
  62. Global Const GFSR_SYSTEMRESOURCES = 0
  63. Global Const GFSR_GDIRESOURCES = 1
  64. Global Const GFSR_USERRESOURCES = 2
  65. Global Const WM_MDICREATE = &H220
  66. Global Const WM_MDIDESTROY = &H221
  67. Global Const WM_MDIACTIVATE = &H222
  68. Global Const WM_MDIRESTORE = &H223
  69. Global Const WM_MDINEXT = &H224
  70. Global Const WM_MDIMAXIMIZE = &H225
  71. Global Const WM_MDITILE = &H226
  72. Global Const WM_MDICASCADE = &H227
  73. Global Const WM_MDIICONARRANGE = &H228
  74. Global Const WM_MDIGETACTIVE = &H229
  75. Global Const WM_MDISETMENU = &H230
  76. Global Const WM_CUT = &H300
  77. Global Const WM_COPY = &H301
  78. Global Const WM_PASTE = &H302
  79. Global Const SND_SYNC = &H0
  80. Global Const SND_ASYNC = &H1
  81. Global Const SND_NODEFAULT = &H2
  82. Global Const SND_LOOP = &H8
  83. Global Const SND_NOSTOP = &H10
  84. Public Const WM_CHAR = &H102
  85. Public Const WM_SETTEXT = &HC
  86. Public Const WM_USER = &H400
  87. Public Const WM_KEYDOWN = &H100
  88. Public Const WM_KEYUP = &H101
  89. Public Const WM_LBUTTONDOWN = &H201
  90. Public Const WM_LBUTTONUP = &H202
  91. Public Const WM_CLOSE = &H10
  92. Public Const WM_COMMAND = &H111
  93. Public Const WM_CLEAR = &H303
  94. Public Const WM_DESTROY = &H2
  95. Public Const WM_GETTEXT = &HD
  96. Public Const WM_GETTEXTLENGTH = &HE
  97. Public Const WM_LBUTTONDBLCLK = &H203
  98. Public Const BM_GETCHECK = &HF0
  99. Public Const BM_GETSTATE = &HF2
  100. Public Const BM_SETCHECK = &HF1
  101. Public Const BM_SETSTATE = &HF3
  102. Public Const EWX_FORCE = 4
  103. Public Const EWX_LOGOFF = 0
  104. Public Const EWX_REBOOT = 2
  105. Public Const EWX_SHUTDOWN = 1
  106. Public Const LB_GETITEMDATA = &H199
  107. Public Const LB_GETCOUNT = &H18B
  108. Public Const LB_ADDSTRING = &H180
  109. Public Const LB_DELETESTRING = &H182
  110. Public Const LB_FINDSTRING = &H18F
  111. Public Const LB_FINDSTRINGEXACT = &H1A2
  112. Public Const LB_GETCURSEL = &H188
  113. Public Const LB_GETTEXT = &H189
  114. Public Const LB_GETTEXTLEN = &H18A
  115. Public Const LB_SELECTSTRING = &H18C
  116. Public Const LB_SETCOUNT = &H1A7
  117. Public Const LB_SETCURSEL = &H186
  118. Public Const LB_SETSEL = &H185
  119. Public Const LB_INSERTSTRING = &H181
  120. Public Const VK_HOME = &H24
  121. Public Const VK_RIGHT = &H27
  122. Public Const VK_CONTROL = &H11
  123. Public Const VK_DELETE = &H2E
  124. Public Const VK_DOWN = &H28
  125. Public Const VK_LEFT = &H25
  126. Public Const VK_RETURN = &HD
  127. Public Const VK_SPACE = &H20
  128. Public Const VK_TAB = &H9
  129. Public Const HWND_TOP = 0
  130. Public Const HWND_TOPMOST = -1
  131. Public Const HWND_NOTOPMOST = -2
  132. Public Const SWP_NOMOVE = &H2
  133. Public Const SWP_NOSIZE = &H1
  134. Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
  135. Public Const GW_CHILD = 5
  136. Public Const GW_HWNDFIRST = 0
  137. Public Const GW_HWNDLAST = 1
  138. Public Const GW_HWNDNEXT = 2
  139. Public Const GW_HWNDPREV = 3
  140. Public Const GW_MAX = 5
  141. Public Const GW_OWNER = 4
  142. Public Const SW_MAXIMIZE = 3
  143. Public Const SW_MINIMIZE = 6
  144. Public Const SW_HIDE = 0
  145. Public Const SW_RESTORE = 9
  146. Public Const SW_SHOW = 5
  147. Public Const SW_SHOWDEFAULT = 10
  148. Public Const SW_SHOWMAXIMIZED = 3
  149. Public Const SW_ShowMinimized = 2
  150. Public Const SW_SHOWMINNOACTIVE = 7
  151. Public Const SW_SHOWNOACTIVATE = 4
  152. Public Const SW_SHOWNORMAL = 1
  153. Public Const MF_APPEND = &H100&
  154. Public Const MF_DELETE = &H200&
  155. Public Const MF_CHANGE = &H80&
  156. Public Const MF_ENABLED = &H0&
  157. Public Const MF_DISABLED = &H2&
  158. Public Const MF_REMOVE = &H1000&
  159. Public Const MF_POPUP = &H10&
  160. Public Const MF_STRING = &H0&
  161. Public Const MF_UNCHECKED = &H0&
  162. Public Const MF_CHECKED = &H8&
  163. Public Const MF_GRAYED = &H1&
  164. Public Const MF_BYPOSITION = &H400&
  165. Public Const MF_BYCOMMAND = &H0&
  166. Public Const MF_SEPARATOR = &H800&
  167. Public Const GWW_HINSTANCE = (-6)
  168. Public Const GWW_ID = (-12)
  169. Public Const GWL_STYLE = (-16)
  170. Public Const ENTA = 13
  171. Public Const PROCESS_VM_READ = &H10
  172. Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
  173. Private Const EM_LINESCROLL = &HB6
  174. Private Const SPI_SCREENSAVERRUNNING = 97
  175. Type RECT
  176.    Left As Long
  177.    Top As Long
  178.    Right As Long
  179.    Bottom As Long
  180. End Type
  181. Type POINTAPI
  182.    X As Long
  183.    Y As Long
  184. End Type
  185. Sub Aim_Buddylist_ToCombo(Cmb As ComboBox)
  186. 'This was taken from DigitalAimGold.bas
  187. Dim BuddyList As Long, TabGroup As Long
  188. Dim BuddyTree As Long, LopGet, MooLoo, Moo2
  189. Dim Name As String, NameLen, buffer As String
  190. Dim TabPos, NameText As String, text As String
  191. Dim mooz, Well As Integer
  192. BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  193. If BuddyList& <> 0 Then
  194. Do
  195. TabGroup& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  196. BuddyTree& = FindWindowEx(TabGroup&, 0, "_Oscar_Tree", vbNullString)
  197. Loop Until BuddyTree& <> 0
  198. LopGet = SendMessage(BuddyTree&, LB_GETCOUNT, 0, 0)
  199. For MooLoo = 0 To LopGet - 1
  200. Call SendMessageByString(BuddyTree&, LB_SETCURSEL, MooLoo, 0)
  201. NameLen = SendMessage(BuddyTree&, LB_GETTEXTLEN, MooLoo, 0)
  202. buffer$ = String$(NameLen, 0)
  203. Moo2 = SendMessageByString(BuddyTree&, LB_GETTEXT, MooLoo, buffer$)
  204. TabPos = InStr(buffer$, Chr$(9))
  205. NameText$ = Right$(buffer$, (Len(buffer$) - (TabPos)))
  206. TabPos = InStr(NameText$, Chr$(9))
  207. text$ = Right$(NameText$, (Len(NameText$) - (TabPos)))
  208. Name$ = text$
  209. If InStr(Name$, "(") <> 0 And InStr(Name$, ")") <> 0 Then
  210. GoTo HellNo
  211. End If
  212. For mooz = 0 To Cmb.ListCount - 1
  213. If Name$ = Cmb.List(mooz) Then
  214. Well% = 123
  215. GoTo HellNo
  216. End If
  217. Next mooz
  218. If Well% <> 123 Then
  219. Cmb.AddItem Name$
  220. Else
  221. End If
  222. HellNo:
  223. Next MooLoo
  224. End If
  225. End Sub
  226. Sub Aim_Buddylist_ToList(lis As ListBox)
  227. 'This was taken from DigitalAimGold.bas
  228. Dim BuddyList As Long, TabGroup As Long
  229. Dim BuddyTree As Long, LopGet, MooLoo, Moo2
  230. Dim Name As String, NameLen, buffer As String
  231. Dim TabPos, NameText As String, text As String
  232. Dim mooz, Well As Integer
  233. BuddyList& = FindWindow("_Oscar_BuddyListWin", vbNullString)
  234. If BuddyList& <> 0 Then
  235. Do
  236. TabGroup& = FindWindowEx(BuddyList&, 0, "_Oscar_TabGroup", vbNullString)
  237. BuddyTree& = FindWindowEx(TabGroup&, 0, "_Oscar_Tree", vbNullString)
  238. Loop Until BuddyTree& <> 0
  239. LopGet = SendMessage(BuddyTree&, LB_GETCOUNT, 0, 0)
  240. For MooLoo = 0 To LopGet - 1
  241. Call SendMessageByString(BuddyTree&, LB_SETCURSEL, MooLoo, 0)
  242. NameLen = SendMessage(BuddyTree&, LB_GETTEXTLEN, MooLoo, 0)
  243. buffer$ = String$(NameLen, 0)
  244. Moo2 = SendMessageByString(BuddyTree&, LB_GETTEXT, MooLoo, buffer$)
  245. TabPos = InStr(buffer$, Chr$(9))
  246. NameText$ = Right$(buffer$, (Len(buffer$) - (TabPos)))
  247. TabPos = InStr(NameText$, Chr$(9))
  248. text$ = Right$(NameText$, (Len(NameText$) - (TabPos)))
  249. Name$ = text$
  250. If InStr(Name$, "(") <> 0 And InStr(Name$, ")") <> 0 Then
  251. GoTo HellNo
  252. End If
  253. For mooz = 0 To lis.ListCount - 1
  254. If Name$ = lis.List(mooz) Then
  255. Well% = 123
  256. GoTo HellNo
  257. End If
  258. Next mooz
  259. If Well% <> 123 Then
  260. lis.AddItem Name$
  261. Else
  262. End If
  263. HellNo:
  264. Next MooLoo
  265. End If
  266. End Sub
  267. Sub Combo_AddFonts(Cmb As ComboBox)
  268. Dim i
  269. For i = 0 To Screen.FontCount - 1
  270. Cmb.AddItem Screen.Fonts(i)
  271. Next i
  272. End Sub
  273. Function Get_Caption(TheWin)
  274. 'This was taken from dos32.bas
  275. Dim WindowLngth As Integer, WindowTtle As String, Moo As String
  276. WindowLngth% = GetWindowTextLength(TheWin)
  277. WindowTtle$ = String$(WindowLngth%, 0)
  278. Moo$ = GetWindowText(TheWin, WindowTtle$, (WindowLngth% + 1))
  279. Get_Caption = WindowTtle$
  280. End Function
  281. Sub List_KillDup(Lst As ListBox)
  282. Dim i, Moo
  283. For i = 0 To Lst.ListCount - 1
  284. For Moo = 0 To Lst.ListCount - 1
  285. If LCase(Lst.List(i)) Like LCase(Lst.List(Moo)) And i <> Moo Then
  286. Lst.RemoveItem (Moo)
  287. End If
  288. Next Moo
  289. Next i
  290. End Sub
  291. Sub Window_Hide(TheWindow)
  292. Call ShowWindow(TheWindow, SW_HIDE)
  293. End Sub
  294. Sub Window_Minimize(TheWindow)
  295. Call ShowWindow(TheWindow, SW_MINIMIZE)
  296. End Sub
  297. Sub Window_Maximize(TheWindow)
  298. Call ShowWindow(TheWindow, SW_MAXIMIZE)
  299. End Sub
  300. Sub Window_Show(TheWindow)
  301. Call ShowWindow(TheWindow, SW_SHOW)
  302. End Sub
  303. Sub Window_OnTop(theForm As Form)
  304. Dim SetOnTop
  305. SetOnTop = SetWindowPos(theForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
  306. End Sub
  307. Sub Window_SetText(TheWindow As Long, TheMessage As String)
  308. Call SendMessageByString(TheWindow&, WM_SETTEXT, 0&, TheMessage$)
  309. End Sub
  310. Sub Window_Close(TheWindow)
  311. Call PostMessage(TheWindow, WM_CLOSE, 0&, 0&)
  312. End Sub
  313. Sub Aim_Im_BlankIm()
  314. Dim gobuttonicon&
  315. Dim oscarbuddylistwin&
  316. Dim editx&
  317. oscarbuddylistwin& = FindWindow("_oscar_buddylistwin", vbNullString)
  318. editx& = FindWindowEx(oscarbuddylistwin&, 0&, "edit", vbNullString)
  319. Call SendMessageByString(editx&, WM_SETTEXT, 0&, "aim:goim")
  320. Dim oscariconbtn&
  321. oscarbuddylistwin& = FindWindow("_oscar_buddylistwin", vbNullString)
  322. oscariconbtn& = FindWindowEx(oscarbuddylistwin&, 0&, "_oscar_iconbtn", vbNullString)
  323. gobuttonicon& = SendMessage(oscariconbtn&, WM_LBUTTONDOWN, 0, 0&)
  324. gobuttonicon& = SendMessage(oscariconbtn&, WM_LBUTTONUP, 0, 0&)
  325. oscarbuddylistwin& = FindWindow("_oscar_buddylistwin", vbNullString)
  326. editx& = FindWindowEx(oscarbuddylistwin&, 0&, "edit", vbNullString)
  327. Call SendMessageByString(editx&, WM_SETTEXT, 0&, "*Search the Web*")
  328. End Sub
  329. Sub Aim_Im_Send_Normal(ThePerson$, TheMessage$)
  330. 'This will send a Im.
  331. Dim oscarpersistantcombo&
  332. Dim oscarbuddylistwin&
  333. Dim sendbuttonicon1&
  334. Dim oscariconbtn2&
  335. Dim gobuttonicon&
  336. Dim oscariconbtn&
  337. Dim wndateclass&
  338. Dim aimimessage&
  339. Dim ateclass&
  340. Dim editx2&
  341. Dim editx&
  342. oscarbuddylistwin& = FindWindow("_oscar_buddylistwin", vbNullString)
  343. editx& = FindWindowEx(oscarbuddylistwin&, 0&, "edit", vbNullString)
  344. Call SendMessageByString(editx&, WM_SETTEXT, 0&, "aim:goim")
  345. oscarbuddylistwin& = FindWindow("_oscar_buddylistwin", vbNullString)
  346. oscariconbtn& = FindWindowEx(oscarbuddylistwin&, 0&, "_oscar_iconbtn", vbNullString)
  347. gobuttonicon& = SendMessage(oscariconbtn&, WM_LBUTTONDOWN, 0, 0&)
  348. gobuttonicon& = SendMessage(oscariconbtn&, WM_LBUTTONUP, 0, 0&)
  349. aimimessage& = FindWindow("aim_imessage", vbNullString)
  350. oscarpersistantcombo& = FindWindowEx(aimimessage&, 0&, "_oscar_persistantcombo", vbNullString)
  351. editx2& = FindWindowEx(oscarpersistantcombo&, 0&, "edit", vbNullString)
  352. Call SendMessageByString(editx2&, WM_SETTEXT, 0&, ThePerson$)
  353. aimimessage& = FindWindow("aim_imessage", vbNullString)
  354. wndateclass& = FindWindowEx(aimimessage&, 0&, "wndate32class", vbNullString)
  355. wndateclass& = FindWindowEx(aimimessage&, wndateclass&, "wndate32class", vbNullString)
  356. ateclass& = FindWindowEx(wndateclass&, 0&, "ate32class", vbNullString)
  357. Call SendMessageByString(ateclass&, WM_SETTEXT, 0&, TheMessage$)
  358. aimimessage& = FindWindow("aim_imessage", vbNullString)
  359. oscariconbtn2& = FindWindowEx(aimimessage&, 0&, "_oscar_iconbtn", vbNullString)
  360. sendbuttonicon1& = SendMessage(oscariconbtn2&, WM_LBUTTONDOWN, 0, 0&)
  361. sendbuttonicon1& = SendMessage(oscariconbtn2&, WM_LBUTTONUP, 0, 0&)
  362. oscarbuddylistwin& = FindWindow("_oscar_buddylistwin", vbNullString)
  363. editx& = FindWindowEx(oscarbuddylistwin&, 0&, "edit", vbNullString)
  364. Call SendMessageByString(editx&, WM_SETTEXT, 0&, "*Search the Web*")
  365. End Sub
  366. Sub Pause(interval)
  367. 'This was taken from digitalaimgold.bas
  368. Dim current
  369. current = Timer
  370. Do While Timer - current < Val(interval)
  371. DoEvents
  372. Loop
  373. End Sub
  374. Sub Aim_Im_Send_Normal2(ThePerson$, TheMessage$)
  375. 'This will send a Im and then close it.
  376. Dim oscarpersistantcombo&
  377. Dim oscarbuddylistwin&
  378. Dim sendbuttonicon1&
  379. Dim oscariconbtn2&
  380. Dim gobuttonicon&
  381. Dim oscariconbtn&
  382. Dim wndateclass&
  383. Dim aimimessage&
  384. Dim ateclass&
  385. Dim editx2&
  386. Dim editx&
  387. oscarbuddylistwin& = FindWindow("_oscar_buddylistwin", vbNullString)
  388. editx& = FindWindowEx(oscarbuddylistwin&, 0&, "edit", vbNullString)
  389. Call SendMessageByString(editx&, WM_SETTEXT, 0&, "aim:goim")
  390. oscarbuddylistwin& = FindWindow("_oscar_buddylistwin", vbNullString)
  391. oscariconbtn& = FindWindowEx(oscarbuddylistwin&, 0&, "_oscar_iconbtn", vbNullString)
  392. gobuttonicon& = SendMessage(oscariconbtn&, WM_LBUTTONDOWN, 0, 0&)
  393. gobuttonicon& = SendMessage(oscariconbtn&, WM_LBUTTONUP, 0, 0&)
  394. aimimessage& = FindWindow("aim_imessage", vbNullString)
  395. oscarpersistantcombo& = FindWindowEx(aimimessage&, 0&, "_oscar_persistantcombo", vbNullString)
  396. editx2& = FindWindowEx(oscarpersistantcombo&, 0&, "edit", vbNullString)
  397. Call SendMessageByString(editx2&, WM_SETTEXT, 0&, ThePerson$)
  398. aimimessage& = FindWindow("aim_imessage", vbNullString)
  399. wndateclass& = FindWindowEx(aimimessage&, 0&, "wndate32class", vbNullString)
  400. wndateclass& = FindWindowEx(aimimessage&, wndateclass&, "wndate32class", vbNullString)
  401. ateclass& = FindWindowEx(wndateclass&, 0&, "ate32class", vbNullString)
  402. Call SendMessageByString(ateclass&, WM_SETTEXT, 0&, TheMessage$)
  403. aimimessage& = FindWindow("aim_imessage", vbNullString)
  404. oscariconbtn2& = FindWindowEx(aimimessage&, 0&, "_oscar_iconbtn", vbNullString)
  405. sendbuttonicon1& = SendMessage(oscariconbtn2&, WM_LBUTTONDOWN, 0, 0&)
  406. sendbuttonicon1& = SendMessage(oscariconbtn2&, WM_LBUTTONUP, 0, 0&)
  407. oscarbuddylistwin& = FindWindow("_oscar_buddylistwin", vbNullString)
  408. editx& = FindWindowEx(oscarbuddylistwin&, 0&, "edit", vbNullString)
  409. Call SendMessageByString(editx&, WM_SETTEXT, 0&, "*Search the Web*")
  410. aimimessage& = FindWindow("aim_imessage", vbNullString)
  411. Call ShowWindow(aimimessage&, SW_HIDE)
  412. End Sub
  413. Sub Aim_Im_Clear()
  414. 'This clears the open Im.
  415. Dim aimimessage&
  416. Dim wndateclass&
  417. Dim ateclass&
  418. aimimessage& = FindWindow("aim_imessage", vbNullString)
  419. wndateclass& = FindWindowEx(aimimessage&, 0&, "wndate32class", vbNullString)
  420. ateclass& = FindWindowEx(wndateclass&, 0&, "ate32class", vbNullString)
  421. Call SendMessageByString(ateclass&, WM_SETTEXT, 0&, "")
  422. End Sub
  423. Function Get_Text(child)
  424. 'This was taken from dos32.bas
  425. Dim GetTrim As Integer, TrimSpace As String, GetString As String
  426. GetTrim% = sendmessagebynum(child, 14, 0&, 0&)
  427. TrimSpace$ = Space$(GetTrim)
  428. GetString$ = SendMessageByString(child, 13, GetTrim + 1, TrimSpace$)
  429. Get_Text = TrimSpace$
  430. End Function
  431. Function Aim_Im_Get_Text()
  432. 'Gets text from open Im.
  433. Dim aimimessage2$
  434. Dim aimimessage&
  435. Dim wndateclass&
  436. Dim ateclass&
  437. aimimessage& = FindWindow("aim_imessage", vbNullString)
  438. wndateclass& = FindWindowEx(aimimessage&, 0&, "wndate32class", vbNullString)
  439. ateclass& = FindWindowEx(wndateclass&, 0&, "ate32class", vbNullString)
  440. aimimessage2$ = Get_Text(ateclass&)
  441. Aim_Im_Get_Text = aimimessage2$
  442. End Function
  443. Sub Aim_Im_AntiPunt()
  444. Dim aimimessage2$
  445. Dim aimimessage&
  446. Dim wndateclass&
  447. Dim ateclass&
  448. aimimessage& = FindWindow("aim_imessage", vbNullString)
  449. wndateclass& = FindWindowEx(aimimessage&, 0&, "wndate32class", vbNullString)
  450. ateclass& = FindWindowEx(wndateclass&, 0&, "ate32class", vbNullString)
  451. aimimessage2$ = Get_Text(ateclass&)
  452. If InStr(aimimessage2$, "Punt") Or InStr(aimimessage2$, "punt") Or InStr(aimimessage2$, "Punter") Or InStr(aimimessage2$, "punter") Then
  453. aimimessage& = FindWindow("aim_imessage", vbNullString)
  454. wndateclass& = FindWindowEx(aimimessage&, 0&, "wndate32class", vbNullString)
  455. ateclass& = FindWindowEx(wndateclass&, 0&, "ate32class", vbNullString)
  456. Call SendMessageByString(ateclass&, WM_SETTEXT, 0&, "")
  457. End If
  458. End Sub
  459. Sub Aim_Im_AutoClear(TheWord$)
  460. Dim aimimessage2$
  461. Dim aimimessage&
  462. Dim wndateclass&
  463. Dim ateclass&
  464. aimimessage& = FindWindow("aim_imessage", vbNullString)
  465. wndateclass& = FindWindowEx(aimimessage&, 0&, "wndate32class", vbNullString)
  466. ateclass& = FindWindowEx(wndateclass&, 0&, "ate32class", vbNullString)
  467. aimimessage2$ = Get_Text(ateclass&)
  468. If InStr(aimimessage2$, TheWord$) Then
  469. aimimessage& = FindWindow("aim_imessage", vbNullString)
  470. wndateclass& = FindWindowEx(aimimessage&, 0&, "wndate32class", vbNullString)
  471. ateclass& = FindWindowEx(wndateclass&, 0&, "ate32class", vbNullString)
  472. Call SendMessageByString(ateclass&, WM_SETTEXT, 0&, "")
  473. End If
  474. End Sub
  475. Sub RunMenuByString(Application, StringSearch)
  476. 'This was taken from hix32.bas
  477. Dim ToSearch As Integer, MenuCount As Integer, FindString
  478. Dim ToSearchSub As Integer, MenuItemCount As Integer, GetString
  479. Dim SubCount As Integer, MenuString As String, GetStringMenu As Integer
  480. Dim MenuItem As Integer, RunTheMenu As Integer
  481. ToSearch% = GetMenu(Application)
  482. MenuCount% = GetMenuItemCount(ToSearch%)
  483. For FindString = 0 To MenuCount% - 1
  484. ToSearchSub% = GetSubMenu(ToSearch%, FindString)
  485. MenuItemCount% = GetMenuItemCount(ToSearchSub%)
  486. For GetString = 0 To MenuItemCount% - 1
  487. SubCount% = GetMenuItemID(ToSearchSub%, GetString)
  488. MenuString$ = String$(100, " ")
  489. GetStringMenu% = GetMenuString(ToSearchSub%, SubCount%, MenuString$, 100, 1)
  490. If InStr(UCase(MenuString$), UCase(StringSearch)) Then
  491. MenuItem% = SubCount%
  492. GoTo MatchString
  493. End If
  494. Next GetString
  495. Next FindString
  496. MatchString:
  497. RunTheMenu% = SendMessage(Application, WM_COMMAND, MenuItem%, 0)
  498. End Sub
  499. Sub Aim_Im_TimestampsOnOff()
  500. 'This turns Timestamps on and off in the open Im.
  501. Dim aimimessage&
  502. aimimessage& = FindWindow("aim_imessage", vbNullString)
  503. Call RunMenuByString(aimimessage&, "&Timestamp")
  504. End Sub
  505. Sub Aim_Im_DirectConnectOpen()
  506. 'This direct connects to the person in the open Im.
  507. Dim aimimessage&
  508. aimimessage& = FindWindow("aim_imessage", vbNullString)
  509. Call RunMenuByString(aimimessage&, "Connect to Send IM I&mage")
  510. End Sub
  511. Sub Aim_Im_DirectConnectClose()
  512. 'This disconnects to the person in the open Im.
  513. Dim aimimessage&
  514. aimimessage& = FindWindow("aim_imessage", vbNullString)
  515. Call RunMenuByString(aimimessage&, "&Close IM Image Connection")
  516. End Sub
  517. Sub Aim_Im_Close()
  518. Dim aimimessage&
  519. aimimessage& = FindWindow("aim_imessage", vbNullString)
  520. Call PostMessage(aimimessage&, WM_CLOSE, 0&, 0&)
  521. End Sub
  522. Sub Aim_Im_Minimize()
  523. Dim aimimessage&
  524. Dim minimizeim&
  525. aimimessage& = FindWindow("aim_imessage", vbNullString)
  526. minimizeim& = ShowWindow(aimimessage&, SW_MINIMIZE)
  527. End Sub
  528. Sub Aim_Im_Maximize()
  529. Dim aimimessage&
  530. Dim maximizeim&
  531. aimimessage& = FindWindow("aim_imessage", vbNullString)
  532. maximizeim& = ShowWindow(aimimessage&, SW_MAXIMIZE)
  533. End Sub
  534. Sub Aim_Im_Restore()
  535. Dim aimimessage&
  536. Dim maximizeim&
  537. aimimessage& = FindWindow("aim_imessage", vbNullString)
  538. maximizeim& = ShowWindow(aimimessage&, SW_RESTORE)
  539. End Sub
  540. Sub Aim_Im_Hide_Im()
  541. Dim aimimessage&
  542. Dim hideim&
  543. aimimessage& = FindWindow("aim_imessage", vbNullString)
  544. hideim& = ShowWindow(aimimessage&, SW_HIDE)
  545. End Sub
  546. Sub Aim_Im_Show_Im()
  547. Dim aimimessage&
  548. Dim showim&
  549. aimimessage& = FindWindow("aim_imessage", vbNullString)
  550. showim& = ShowWindow(aimimessage&, SW_SHOW)
  551. End Sub
  552. Sub Aim_Im_AppendMenu(TheMessage$)
  553. 'This makes a menu in on the menu in the Im.
  554. Dim aimimmenu$
  555. Dim aimimsubmenu$
  556. Dim aimimappendmenu$
  557. aimimmenu$ = FindWindow("aim_imessage", vbNullString)
  558. aimimsubmenu$ = GetMenu(aimimmenu$)
  559. aimimsubmenu$ = GetSubMenu(aimimsubmenu$, 0)
  560. aimimappendmenu$ = AppendMenu(aimimsubmenu$, MF_STRING, 5, TheMessage$)
  561. End Sub
  562. Function Aim_Im_FindMe()
  563. Dim aimimessage&
  564. aimimessage& = FindWindow("aim_imessage", vbNullString)
  565. End Function
  566. Sub Aim_Im_AppendGrayMenu(TheMessage$)
  567. Dim aimimmenu$
  568. Dim aimimsubmenu$
  569. Dim aimimappendmenu$
  570. aimimmenu$ = FindWindow("aim_imessage", vbNullString)
  571. aimimsubmenu$ = GetMenu(aimimmenu$)
  572. aimimsubmenu$ = GetSubMenu(aimimsubmenu$, 0)
  573. aimimappendmenu$ = AppendMenu(aimimsubmenu$, MF_GRAYED, 5, TheMessage$)
  574. End Sub
  575. Sub Aim_Im_Click_TalkButton()
  576. Dim sendbuttonicon1&
  577. Dim aimimessage&
  578. Dim oscariconbtn&
  579. aimimessage& = FindWindow("aim_imessage", vbNullString)
  580. oscariconbtn& = FindWindowEx(aimimessage&, 0&, "_oscar_iconbtn", vbNullString)
  581. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  582. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  583. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  584. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  585. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  586. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  587. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  588. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  589. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  590. sendbuttonicon1& = SendMessage(oscariconbtn&, WM_LBUTTONDOWN, 0, 0&)
  591. sendbuttonicon1& = SendMessage(oscariconbtn&, WM_LBUTTONUP, 0, 0&)
  592. End Sub
  593. Sub Aim_Im_Click_InfoButton()
  594. Dim sendbuttonicon1&
  595. Dim aimimessage&
  596. Dim oscariconbtn&
  597. aimimessage& = FindWindow("aim_imessage", vbNullString)
  598. oscariconbtn& = FindWindowEx(aimimessage&, 0&, "_oscar_iconbtn", vbNullString)
  599. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  600. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  601. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  602. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  603. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  604. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  605. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  606. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  607. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  608. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  609. sendbuttonicon1& = SendMessage(oscariconbtn&, WM_LBUTTONDOWN, 0, 0&)
  610. sendbuttonicon1& = SendMessage(oscariconbtn&, WM_LBUTTONUP, 0, 0&)
  611. End Sub
  612. Sub Aim_Im_Click_SendButton()
  613. Dim sendbuttonicon1&
  614. Dim aimimessage&
  615. Dim oscariconbtn&
  616. aimimessage& = FindWindow("aim_imessage", vbNullString)
  617. oscariconbtn& = FindWindowEx(aimimessage&, 0&, "_oscar_iconbtn", vbNullString)
  618. sendbuttonicon1& = SendMessage(oscariconbtn&, WM_LBUTTONDOWN, 0, 0&)
  619. sendbuttonicon1& = SendMessage(oscariconbtn&, WM_LBUTTONUP, 0, 0&)
  620. End Sub
  621. Sub Aim_Im_Click_WarnButton()
  622. Dim sendbuttonicon1&
  623. Dim aimimessage&
  624. Dim oscariconbtn&
  625. aimimessage& = FindWindow("aim_imessage", vbNullString)
  626. oscariconbtn& = FindWindowEx(aimimessage&, 0&, "_oscar_iconbtn", vbNullString)
  627. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  628. sendbuttonicon1& = SendMessage(oscariconbtn&, WM_LBUTTONDOWN, 0, 0&)
  629. sendbuttonicon1& = SendMessage(oscariconbtn&, WM_LBUTTONUP, 0, 0&)
  630. End Sub
  631. Sub Aim_Im_Click_BlockButton()
  632. Dim sendbuttonicon1&
  633. Dim aimimessage&
  634. Dim oscariconbtn&
  635. aimimessage& = FindWindow("aim_imessage", vbNullString)
  636. oscariconbtn& = FindWindowEx(aimimessage&, 0&, "_oscar_iconbtn", vbNullString)
  637. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  638. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  639. sendbuttonicon1& = SendMessage(oscariconbtn&, WM_LBUTTONDOWN, 0, 0&)
  640. sendbuttonicon1& = SendMessage(oscariconbtn&, WM_LBUTTONUP, 0, 0&)
  641. End Sub
  642. Sub Aim_Im_Click_AddBuddyButton()
  643. Dim sendbuttonicon1&
  644. Dim aimimessage&
  645. Dim oscariconbtn&
  646. aimimessage& = FindWindow("aim_imessage", vbNullString)
  647. oscariconbtn& = FindWindowEx(aimimessage&, 0&, "_oscar_iconbtn", vbNullString)
  648. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  649. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  650. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  651. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  652. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  653. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  654. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  655. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  656. sendbuttonicon1& = SendMessage(oscariconbtn&, WM_LBUTTONDOWN, 0, 0&)
  657. sendbuttonicon1& = SendMessage(oscariconbtn&, WM_LBUTTONUP, 0, 0&)
  658. End Sub
  659. Sub Aim_Im_SendFile()
  660. 'This sends a file to the person in the open Im.
  661. Dim aimimessage&
  662. aimimessage& = FindWindow("aim_imessage", vbNullString)
  663. Call RunMenuByString(aimimessage&, "Send &File")
  664. End Sub
  665. Sub Aim_Im_Get_File()
  666. 'This gets a file to the person in the open Im.
  667. Dim aimimessage&
  668. aimimessage& = FindWindow("aim_imessage", vbNullString)
  669. Call RunMenuByString(aimimessage&, "&Get File")
  670. End Sub
  671. Sub Aim_Im_Save()
  672. 'This saves the text in an Im.
  673. Dim aimimessage&
  674. aimimessage& = FindWindow("aim_imessage", vbNullString)
  675. Call RunMenuByString(aimimessage&, "&Save")
  676. End Sub
  677. Sub Aim_Im_Print()
  678. 'This prints the text in the Im.
  679. Dim aimimessage&
  680. aimimessage& = FindWindow("aim_imessage", vbNullString)
  681. Call RunMenuByString(aimimessage&, "&Print")
  682. End Sub
  683. Sub Aim_Im_Hide_WarnButton()
  684. Dim hideim&
  685. Dim aimimessage&
  686. Dim oscariconbtn&
  687. aimimessage& = FindWindow("aim_imessage", vbNullString)
  688. oscariconbtn& = FindWindowEx(aimimessage&, 0&, "_oscar_iconbtn", vbNullString)
  689. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  690. hideim& = ShowWindow(oscariconbtn&, SW_HIDE)
  691. End Sub
  692. Sub Aim_Im_Hide_BlockButton()
  693. Dim hideim&
  694. Dim aimimessage&
  695. Dim oscariconbtn&
  696. aimimessage& = FindWindow("aim_imessage", vbNullString)
  697. oscariconbtn& = FindWindowEx(aimimessage&, 0&, "_oscar_iconbtn", vbNullString)
  698. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  699. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  700. hideim& = ShowWindow(oscariconbtn&, SW_HIDE)
  701. End Sub
  702. Sub Aim_Im_Hide_AddBuddyButton()
  703. Dim hideim&
  704. Dim aimimessage&
  705. Dim oscariconbtn&
  706. aimimessage& = FindWindow("aim_imessage", vbNullString)
  707. oscariconbtn& = FindWindowEx(aimimessage&, 0&, "_oscar_iconbtn", vbNullString)
  708. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  709. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  710. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  711. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  712. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  713. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  714. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  715. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  716. hideim& = ShowWindow(oscariconbtn&, SW_HIDE)
  717. End Sub
  718. Sub Aim_Im_Hide_TalkButton()
  719. Dim hideim&
  720. Dim aimimessage&
  721. Dim oscariconbtn&
  722. aimimessage& = FindWindow("aim_imessage", vbNullString)
  723. oscariconbtn& = FindWindowEx(aimimessage&, 0&, "_oscar_iconbtn", vbNullString)
  724. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  725. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  726. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  727. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  728. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  729. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  730. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  731. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  732. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  733. hideim& = ShowWindow(oscariconbtn&, SW_HIDE)
  734. End Sub
  735. Sub Aim_Im_Hide_InfoButton()
  736. Dim hideim&
  737. Dim aimimessage&
  738. Dim oscariconbtn&
  739. aimimessage& = FindWindow("aim_imessage", vbNullString)
  740. oscariconbtn& = FindWindowEx(aimimessage&, 0&, "_oscar_iconbtn", vbNullString)
  741. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  742. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  743. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  744. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  745. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  746. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  747. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  748. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  749. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  750. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  751. hideim& = ShowWindow(oscariconbtn&, SW_HIDE)
  752. End Sub
  753. Sub Aim_Im_Hide_FontButtons()
  754. Dim hideim&
  755. Dim aimimessage&
  756. Dim wndateclass&
  757. Dim cbclass&
  758. aimimessage& = FindWindow("aim_imessage", vbNullString)
  759. wndateclass& = FindWindowEx(aimimessage&, 0&, "wndate32class", vbNullString)
  760. wndateclass& = FindWindowEx(aimimessage&, wndateclass&, "wndate32class", vbNullString)
  761. cbclass& = FindWindowEx(wndateclass&, 0&, "cbclass", vbNullString)
  762. hideim& = ShowWindow(cbclass&, SW_HIDE)
  763. End Sub
  764. Sub Aim_Im_Hide_ImMessage()
  765. 'This doesn't really hide it. It makes it clear.
  766. 'Minimize the Im then Maximize it for it to work.
  767. Dim hideim&
  768. Dim aimimessage&
  769. Dim wndateclass&
  770. Dim ateclass&
  771. aimimessage& = FindWindow("aim_imessage", vbNullString)
  772. wndateclass& = FindWindowEx(aimimessage&, 0&, "wndate32class", vbNullString)
  773. ateclass& = FindWindowEx(wndateclass&, 0&, "ate32class", vbNullString)
  774. hideim& = ShowWindow(ateclass&, SW_HIDE)
  775. End Sub
  776. Sub Aim_Im_Hide_BuddyIcon()
  777. 'This doesn't really hide it. It makes it clear.
  778. 'Minimize the Im then Maximize it for it to work.
  779. Dim hideim&
  780. Dim aimimessage&
  781. Dim wndateclass&
  782. Dim ateclass&
  783. aimimessage& = FindWindow("aim_imessage", vbNullString)
  784. wndateclass& = FindWindowEx(aimimessage&, 0&, "wndate32class", vbNullString)
  785. wndateclass& = FindWindowEx(aimimessage&, wndateclass&, "wndate32class", vbNullString)
  786. wndateclass& = FindWindowEx(aimimessage&, wndateclass&, "wndate32class", vbNullString)
  787. ateclass& = FindWindowEx(wndateclass&, 0&, "ate32class", vbNullString)
  788. hideim& = ShowWindow(ateclass&, SW_HIDE)
  789. End Sub
  790. Function Aim_Im_Get_Sn() As String
  791. 'This get the name of the person your talking to.
  792. Dim aimimessage&
  793. Dim aimgetcaption$
  794. Dim aimchangetext$
  795. aimimessage& = FindWindow("aim_imessage", vbNullString)
  796. aimgetcaption$ = Get_Caption(aimimessage&)
  797. aimchangetext$ = ReplaceString(aimgetcaption$, " - Instant Message", "")
  798. Aim_Im_Get_Sn = aimchangetext$
  799. End Function
  800. Function ReplaceString(MyString As String, ToFind As String, ReplaceWith As String) As String
  801. 'This was taken for dos32.bas
  802. Dim Spot As Long, NewSpot As Long, LeftString As String
  803. Dim RightString As String, NewString As String
  804. Spot& = InStr(LCase(MyString$), LCase(ToFind))
  805. NewSpot& = Spot&
  806. Do
  807. If NewSpot& >e& CAbStrnbtn& = Fing As String
  808. S Newcariconbtn&$
  809. Dim e& = Spot&
  810. Do
  811. If Nb"n&, oscariconbtn&, "_osbtnOeing  e&((indWonbtn32.bbrWindow("aim_imessage"ass&
  812. Dim ateclass&
  813. AM_MDICASCADE = &H227
  814. Global Const WM_MDIICONARRANGE = &H228
  815. Global Const WM_MDIGETACTIVE = &H229
  816. Global Const WM_MDISETMENU = &H230
  817. Global Const WM_CUT = &H300
  818. Global Const WM_COPY = &H301
  819. Global Const WM_PASTE = &H302
  820. Global Const SND_SYNC = &H0
  821. GloDISETtE =,erson String
  822. Spot& = InStr(LCase(MyString$), LCase(ToFind))
  823. NewSpot& = Spot&
  824. Do
  825. If NewSpot& >e& CAbStrnbtn& = Fing As String
  826. S Newcariconbtn&$
  827. Dim e& = Spot&
  828. Do
  829. If Nb"n&, oscariconbtn&, "_osbtnOeing  e&onbtn", vbNullStn Spot&
  830. E =,erson StringP = FindWindowEx(aimimessage&, 0&, "wndate32class", vbNullString)
  831. ateclass& = FindWindowEx(wndateclass&, 0&, "ate32class", vbNullString)
  832. hideim& = ShowWindow(ateclass&, SW_HIDE)
  833. End Sub
  834. Sub Aim_Im_Hide_BuddyIcon()
  835. 'This doesn't really hide it. It makes iBuddyIcon()
  836. 'This doesn't really hide mI1(aimgDssage&
  837. aimimessage& = FindWindow(a=
  838. Dim e& = Spot&
  839. Do
  840. Ilass", vbNullString)
  841. Call SendMessageByHIDE)
  842. Endge& =,eclap
  843. Endge& =,eclaec2on <geByHIDE)
  844. ap
  845. E2 it.e& =,eclaY
  846. Call SendMessageByHIDendMessagueclaecByHIDEk
  847. deivbNullStn SpcipEs do
  848. Gr0sageByHIDE)
  849. Endgindow(a=
  850. Dim e& = Spotj
  851. deDim e& =2on <geByHIDe Spotj
  852. deDim e& 
  853. ai doesn't r SendMessageBprIcoB
  854. aiear = Spotj
  855. deDim e& (dMesoateclass&, 0&, "ate32class", vbNullO$loe"EAkto Sp& = FindWindowEx(wnariconbtn&, "_oscar_iconbtn", vbNullString)
  856. oscariconbtn& = FAindWindoCindMEL&I& = FAEg)
  857. oscariconbtm e& = tRdscarlass", vbNullCA& =indoCindMEL&I& =ng", vS <geB, , SDim ateclass&S2LullString)
  858. oN1_conbtn&, "pIeclass&S2Lai doesn't CnBuddyTlStrinMELbrWindow("aim_imessage"3lStringpsWM_LBUTTONDOWN, 0, 0&)
  859. sendbuttsn't ClStrinMEconbtn", vbNulPconbtn", v llString)
  860. oN1_c= &H300CindMEL&I& =ng", vS <geB, , SDim", v llStnbtn"sbeclaec2on <geByHIDE)
  861. ap
  862. E2 it.indWindot.cwEx_eivbNulltring)
  863. oscariconbtn& =&ing)
  864. oscariconbtn& = FindWindowEx(aimimessage&, oscariconbtn&, "_oscar_iconbtn", vbNullString)
  865. hideim& = ShowWindow(oscariconbtn&, SW_HIDE)
  866. End Sub
  867. Sub Aim_Im_Hide_InfoButton()
  868. Dim hideim&
  869. Dim aimimessage&
  870. Dim oscariconbtn&
  871. aimimessage& = FindWindow(teclass&, SW_HIDE)
  872. End Sub
  873. Function Aim_o_essage&
  874. Dim oscarluon()_esr()
  875. 'This clsr()lStrin Sub
  876. Sub Aim_Im_Hide_InfoButton()
  877. Dim hideim&
  878. Dim aimimessage&
  879. Dim oscariconbtn&
  880. aimimessage& = FindWindow(teclass&, SW_HIDE)
  881. End Sub
  882. FzVa(gdC,GIa2at, v llStnrSa_iconbtnt,u_1cariconbtn& uInteger, FindSub
  883. FzV<m hib AimN
  884. hidEa,GIonbtn()
  885. Dim hisSpotj
  886. deDim e& 
  887. ai do dEa,GIonbtn()
  888. Dim hisSpotj
  889. deDim 't CnBuddyTlSt", vbNullString)
  890. imgDssagw(oscariconbtn&, SW vbN w("aim_iindow(The&, Saimimesscariconbtn&, SW vbN KlsE Fi&, Saiotj
  891. G%DE)adMessageByHIDE)
  892. Endge& =,eclap
  893. Endge& =,eclaec2on <geByHIDE)
  894. ap
  895. E2 it.e& =,eclaY
  896. Call SendMessageByHIDendMessagueclaecByHIDEk
  897. deivbNullStn SpcipEs do
  898. Gr0sageByHIDE)
  899. Endgindow(a=
  900. ttlo, WM_LBUTTONUP,End&e& =,eclap
  901. Endge& =,eclaec2on fctring)
  902. Call SendMessageByString(editx2&, WM_SETTEXT, 0&, ThePerson$)
  903. aimimessage& = FindWindow("aim_imessage", vbNullString)
  904. wndateclass& = FindWindowyNndateclass& = FindWindowyNndateclass& xaim_T5 fAo$llString)
  905. g ndoteclass& = FindWindowyNndateclassgeByString(editx&, WM_SETTEXT, 0&, "*Seao$l tn", vbeclass&, SW_HIDE)
  906. End Sub
  907. Function Aim_Im_Get_Sn() As String
  908. 'This get the name of the person your talking to.
  909. Dim aimimessage&
  910. Dim aimgetcaption$
  911. Dim aimchangetext$
  912. aimimessage& = FindWindow("aim_imessage", vbNow("aim() As Strinbecl, WM_SET ext(ateclass&)
  913. If InStr(aimimessage2rseC&, 0&, "wndate32class"5re9$
  914. Dim ,(atecla2dSub
  915. Function AGb Aim_Im_Hidclass& = Fi_Hidclal-& = Fi_Hi$teclass&)
  916. If InStr(aIOlass&XOOlas LCase(ToFind))
  917. Fm_Hidclnction AGb Aim_Im_Hidclass& = Fi_Hidclal-&cbtn& =yMenu(TheMe
  918. Dim ,  n",  =yMenu(TBUTTPoMe
  919. inbecl,  n",  =yMlrS n"ial-&cbtn&wfenction Aim_I
  920. 'This get the naml,  n",  =yMpion Aim_I
  921. 'This get the naml,  n",  =yMpion AimbNclasa.Iul,  n",  =t
  922. Dim aimimessage&
  923. Dim aimgetcaption$
  924. Dim aimchangetext$
  925. aimimessage& = FindWindow("aim_imessage", vbNow("aim() As Strinbecl, WM_SET ext(ateclass&)
  926. If InStr(aimimessage2rseC&, 0&, "wndate32class"5re9$
  927. Dim ,(atecla2dSub
  928. Function AGb Aim_IxNy
  929. E2 iss& ng)
  930. oimessaget(atecl
  931. Dis
  932. Dim air2 iss& ng)
  933. oimessaget(atecl
  934. Dis
  935.  t(atecl
  936. Dis
  937. Dim2 isYFDis
  938.  t(atrLLimee
  939. Dis
  940. MXOOlas r
  941. Dis
  942. MXOOlas r
  943. Dis
  944. MXOOlas r
  945. Dis
  946. MXOOlas r
  947. Dis
  948. MXOOlas r
  949. MXOxt i
  950. EndE2 iss& ng)
  951. ois
  952. s( ecle() As Strinaimchangetexa", vbeclass&, SW_HIDE)
  953. End Sub
  954. FunctionCcle( s
  955. MXOOlas r
  956. Dis
  957. MXOOlas r
  958. MXOxt i
  959. EndE2 iss& ng)
  960. ois
  961. s( ecle() As Strinaimchangetexa", vbeclass&, SW_HIDE)
  962. End Sub
  963. FunctionCcle( s
  964. MXOOlas r
  965. Dis
  966. MXOOlas r
  967. MXOxt i
  968. EndE2 iss& ng)
  969. ois
  970. s( ecle() As Strinaimchangetexa", vbeclass&, SW_HIDE)
  971. End Sub
  972. Fu&OOlawEx(wndateclass&, 0&,cle( s
  973. MXOOctionCcle( s
  974. MXOOlas r
  975. Dis
  976. MXOOlas r
  977. Me &DisATle( s
  978. MXOOl)
  979. End Sub
  980. FunctionC
  981. Dim sendas Uas r
  982. ois
  983. s( eH1000&
  984. Public Const MF_POPUP = &H10&
  985. Public Const MF_STRING = &H0&
  986. Public Const MF_UNCHECKED = &H0&
  987. Public Const MF_CHECKED = &H8&
  988. Public Const MF_GRAYED = &H1&
  989. Public Const MF_BYPOSITION = &H400&
  990. Public Const MF_BYCOMMAND = &H0&
  991. Public Const MF_SEPAH8&
  992. PublN(l<aption$
  993. Dim aiftecl
  994. Dis
  995. Dim2 isYFDis
  996.  t(atrLLimee
  997. Dis
  998. MXOOlas r
  999. D
  1000. Dis
  1001. Dim2 isYFDis
  1002.  t(OAs Strinbecl, WM_Public Coronst MF_BH400enm) AGb Aime", v
  1003. DirtrLLimPublN(l<EirOlas rs&,Oe
  1004. Di)
  1005. ois
  1006. sp
  1007. ois
  1008. sp
  1009. E
  1010. End Sub
  1011. FunctionCcle( sua(_)IBMF_soscariconbtn&, "_oscaserson$)("aim() As Strinbecl, WM_SET ext(ateclass&)
  1012. Aa a.MbtnFnSEET exAE"aimt
  1013. oscariconbT<t(atrLLimee
  1014. Dis
  1015. MXOOlas rc Corooimessaget(atAIn1eI
  1016. If isIhimeU& ng)
  1017. ois
  1018. s( ecle()  E_T5s Strinaimchangetexa"NIDE)
  1019. "aim() As Strinbecl, WM_SET ext(ateclois
  1020. s( ecle()  E_ WM_SETass&, SW_HIDE)
  1021. End Sub
  1022. FunctionCcle( s
  1023. MXOOlas r
  1024. Dis
  1025. MXOOlas r
  1026. MXOxt i
  1027. EndEMXOOlas r
  1028. Dis
  1029. MXOOlas r
  1030. p_HIDE)
  1031. End Subs
  1032. MXOOlas r
  1033. Dis
  1034. MX W_Hs5re9$
  1035. Dim ,(atecla2dSub
  1036. Function AGb Aim_IxNy
  1037. E2 iss& ng)
  1038. oimessaget(atecl
  1039. Dis
  1040. Dim air2 iss& ng)
  1041. oimessaget(atecl
  1042. Dis
  1043.  t(atecl
  1044. Dis
  1045. Dim2 isYFDis
  1046.  t(atrLLimee
  1047. Dis
  1048. MXOOlas r
  1049. Dis
  1050. MXOOlas r
  1051. Dis
  1052. MXOOlas r
  1053. Dis
  1054. MXOOlas r
  1055. Dis
  1056. MXOOlas r
  1057. MXOxt i
  1058. EndE2 iss$
  1059. Difias r
  1060. MXOxt i
  1061. EndE2 iss$
  1062. Difias rI r
  1063. Dis
  1064. MXOOrI r
  1065. Dis
  1066. MX(l
  1067. Dis
  1068. Dim air2 issowEx(aimimessagie nae&
  1069. Dim wndatecl(&OArateaDim iss& fNUBecl(&OArateaDim is(&OArrntonst Eng- fNUBecl(&OArateaDim is(&OArrntonnpsp
  1070. E
  1071. Endt MF_CHEr2 is_0getA i
  1072. Endmeb_", vbNullString)
  1073. oscariconbtn& = FindWindowEullString)
  1074. oscDIm tTrimSpas r
  1075. De$ = naeDim is(Spas r
  1076. g)
  1077. oscDIm ti
  1078. Ee(WaDim is&dateclasst WM_MDIIanRING _is(Spas r really hide mI1(aimgDssage&
  1079. aimimessage& = FindWindow(a=
  1080. Dim e& = Spot&
  1081. Do
  1082. Ilass", vbNullString)
  1083. Call SendMessageByHIDE)
  1084. Endge& =,eclap
  1085. Endge& =,eclaec2on <geByHIDE)
  1086. ap
  1087. E2 it.e& =,eclaY
  1088. Call SendMessageByHIDendMessagueclaecByHIDEk
  1089. deivbNullStn Spci2dSub
  1090. FunctivbNullStn Spci2dSub
  1091. FunctivbNullStn S82ING Wg)
  1092. ois
  1093. s( ecle() As Strinaimchangetexa", vbeclass&, SW_HIDE)
  1094. End Sub
  1095. FunctionCcle( s
  1096. MXOOlas r
  1097. Dis
  1098. MXOOlas r
  1099. MXOxt i
  1100. EndE2 iss& ng)
  1101. ois
  1102. s( ecle() rING nesIEiconbtn", vble() As Strinaimchangetexa", vbeclass&I)B_imessage"3lStringptrinbecl,eB_imessage"3lStringptrinbeciconbtn", vble() As Sti isiingptrinbeciconbtn", XOxt i
  1103. EndEb
  1104. oscariconbtn& Anrmur
  1105. De$ = nIoUTTONngptrIKtrinaimass", vbNullString)
  1106. Call Sendinfonbtn& Abecbec(CrEndEb
  1107. oscariconbtn&iconR(e
  1108. oscarscariconbtnAaimchangetea2dSub
  1109. FuncnAaE
  1110. ois
  1111. sp
  1112. ois
  1113. sp
  1114. E
  1115. End Sub
  1116. FunctionCcle( sua(_)IBMF_soscariconbtn&, "_oscaserson$)("aim() As Strinbecl, WM_SET ext(ateclass&)
  1117. Aa a.MbtnFnSEET exAE"aimt
  1118. oscariconbT<t(atrLLimee
  1119. Dis
  1120. MXOOlas rc Corooimessaget(atAIn1eI
  1121. If isIhimeU& ng)
  1122. ois
  1123. s( ecle()  E_T5s StrFrnFnSEEee)pup atE,ctionCcle( suIimee
  1124. MF_BH400enm)deiNConst MF_POPU As Strinbecl, WM_SB1T ext(ateclasBck&murnCcle( suIimee
  1125.  extnn5Vlp,Aext(ateceMXOOlas r
  1126. _CHEr2 is_0getA i
  1127. Endmeb_", vbNullString)
  1128. oscariconbtn& = FindWindowEullString)
  1129. oscDIm tTrimSpas r
  1130. De$ = naeDim is(SpaTrimSpas r
  1131. De$ = naeDimendMessageByHIDE)
  1132. Endge& =,eclap
  1133. End+%t
  1134. osE_TndMessageByHIDE)
  1135. Endge& =,eclap
  1136. End+%t
  1137. osE_TndMessageByHIDE)
  1138. Endge& =,eclap
  1139. End+%t
  1140. osE_TndMessageByHIDE)
  1141. Endge& =,eclap
  1142. End+%t
  1143. osE_TndMessa=,eclapsSt2D2
  1144. EnrinSyHIAlString)dMesCap
  1145. End+%t
  1146. osE_TndMessageByHIDE)
  1147. Endge& =,eclap
  1148. End+%t
  1149. osE_TndMessageByHIDE)
  1150. Endge& =,eclap
  1151. End+%t
  1152. osE_TndMessa=,eclapsSt2D2
  1153. EnrinSyHIAlString)dMesCap
  1154. End+%t
  1155. osE_TndMessageByHIDE)
  1156. Endge& =,eclap
  1157. End+%t
  1158. osE_TndMe r
  1159.  t.e& =,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=,=, r=,=,=,=,=,=,=,=,ow_Hide(TheWindow)
  1160. Call ShowWindow(TheWindow, SW_HIDE)
  1161. End Sub
  1162. Sub Window_Minimize(TheWindow)
  1163. Call ShowWindow(TheWindow, SW_MINIMIZE)
  1164. End Sub
  1165. Sub Window_Maximize(TheWindow)
  1166. Call ShowWindow(TheWindow, SW_MAXIMIZE)
  1167. End Sub
  1168. Sub Window_Show(TheWindow)
  1169.  -=,=,=,=,=,=,=,=.eeeWiuindow)
  1170. FunctionEa_Window)
  1171. Call ShowWindow(TheWindaYB(w_Minimize(TheWindow)indo = caricsaWindoRPpotj=,=,=re9$
  1172. ndow, SWrb_",tj=,=,=re9$
  1173. ndow, SWrb_",tj=,=,=re9$
  1174. ndow, SWrb_",tj=,=,=re9$
  1175. ndow, SWrb_",tj=,=,=re9$
  1176. ndow, SWrb_",tj=,=,=re9$
  1177. ndow, SWrb_",tj=,=,=re9$
  1178. ndow, SWrb_",tirK)
  1179. "aiPOn& Rb=,=re9$
  1180. ndow, SWrb_",tj=,=lndow("tring)
  1181. osli,tj=d& =rTTsw
  1182. FunctionEa_Window)
  1183. Call ShowWindow(TheWindaYB(w_Minimize(TheWindoX=lndow("tring)
  1184. osli,tj=d& =rTTsw
  1185. FunctionEa_Window)
  1186. Call ShowWindow(TheWindaYB(w_Minimize(TheWindoX=lndow("tring)
  1187. osli,tj=d& =rTTsw
  1188. FunctionEa_Window)
  1189. Call ShowWindow(TheWindaYB(w_Minimize(TheWindoX=lndow("tring)
  1190. osli,tj=d& =rTTsw
  1191. FunctionEa_Window)
  1192. Ca9$
  1193. nRWindow(TheWindaYB(w_M2)ng)
  1194. oscaricoeWinDi Tsw
  1195. FunctionEa_Window)
  1196. CaAEx(wndatndo
  1197. oscaricPTheWtricPTheWtricPTheWtricPTheWtricPTheWtricPThheWinYB(=,=,=,=,=ricPThheWinYsiI, SmimoLicPTe( sua(_)IBMF_soscariconbtn&, "_oscaserson$)("aim() As Strinbecl, WM_SET ext(atIdN) As Strinbecl, WM_SET int(ab$)("aim() As Strinbecl, WM_SET ext(atIdN) As Strinbecl, WM_SET int(ab$)("aim() As Strinbecl, Wcarico"aimrclass&, SW_HIDE)H0&
  1198. Public Const MF_IDE)H0&
  1199. Public Const MF_IDE)H0&
  1200. Publi ee
  1201. _asEConSC"_oscaserson$)("a(MctionEa_I
  1202. If isIonstubli ee
  1203. _asEConSC"_oscaserson$)("a(MctionEa_I
  1204. If isIonstubli ee
  1205. _asEConSC"_oscaserson$)("a(MctionEa_I
  1206. If isIonstubli ee
  1207. _asEConSC"_oscaserson$)("a(MctionEa_I
  1208. If isIonstubli ee
  1209. _asEConSC"_oscaserson$)("a(MctionEa_I
  1210. If isIonstubli ee
  1211. _asEConSC"_oscaserson$)("aE)H0&
  1212. PublionSrson$)(aT=IImimessage&, osEConSC"_osc=IImimessage&, oTheWindaYB(w_MinimIersr4e
  1213. _asEHli,t
  1214. IflunctionCcle( sua(_)IBMF_soscariconbtn&, "_oscaserson$)("aim() As Strinbecl, WM_SET ext(ateclass&)
  1215. Aa a.MbtnFnSEET exAE"aimt
  1216. oscariconbT<t(atrLLimee
  1217. Dis
  1218. MXOOlas rc Corooimessaget(atAIn1eI
  1219. If isIhimeU& ng)
  1220. ois
  1221. s( ecle()  E_T5s StrFrnFnSEEee)pup atE,ctionCcleFnSEEee)pup atE,ctionCcleFntrinbecl, WM_SETeWtricPTheWtrU& ng)
  1222. ois
  1223. s( ecle()  E_T5s StrFrnFnSEEee)pup atE,ctionCcleFnSEEee)pup atE,ctionCcleFntrinbecl, WM_SETeWtricPTheWtrU& ng)
  1224. ois
  1225. s( ecle()  E_T5s StrFrnFnSEEee)pup atE,ctionCcleFnSEEee)pup atE,ctionCcleFntrinbecl, WM_SETeWtricPTheWtrU& ng)
  1226. ois
  1227. s( ecle()  E_T(k-)
  1228. ois
  1229. s( IricPTheWtrU& ng)
  1230. ois
  1231. s( ecle()  ErrntonsAa a.MbtnFnSEET exAE"aimt
  1232. ssagnonCcleFnSEEee)punSEET exAE"aimt
  1233. ssagnonCcleFnSEEee)punSEET exAE"aimt
  1234. ssagnonCcleFnSEEeeFssae, WM_SETeWtricPTheWtrU& ng)
  1235. ois
  1236. s( ecle()  E_T(k-)
  1237. ois
  1238. s( IricPTheWtrU& ng)
  1239. ois
  1240. s( ecle()  ErrntonsAa a.MbtnFnSEET exAE"aimt
  1241. ssagnonCcleFnSEEee)punSEET exAE"aimt
  1242. ssagnonCcleFnSEEee)punSEET exAE"aimt
  1243. ssagnonCcleFnSEEeeFssae, WM_SETeWtricPTheWtrU& ng)
  1244. ois
  1245. oT exAE,=re9$
  1246. ndowl19Cis_SET ext(ateclasRNtP
  1247. ndowl19Cis_SEDIm_P  ErrntonsAa a.Mbtnoscar_iconbtn", vbNull&trUPhr atE,ia0T_sAa a.casPTh,po  Errnts
  1248. sReWtrU& ng)
  1249. ois
  1250. oT exAE,=re9$
  1251. ndowl19Cis_SET ext(ateclasRNtP
  1252. ndowl19Cis_SEDIm_P  ErrntonsAa a.Mbtnoscar_iconbtn", vbNull&trUPhr atE,ia0T_sAa a.casPTh,po  Errnts
  1253. sReWtrU& ng)
  1254. ois
  1255. oT exAE,=re9$
  1256. ndowl19Cis_SET ext(ateclasRNtP
  1257. ndowl19Cis_SEDIm_P  ErrntonsAa a.Me, SW_MricPT19Cis_SET ext(ateclasRNtP
  1258. ndowl19Cis_SEDIm_P  ErrntonsAa a.Me, SW_MricPT19Cis_SET ext(ateclasRNtP
  1259. ndowl19Cis_SEDIm_P  ErrntonsAa a.Me, SW_Mri,owEx(aimimessage&, oscariconbtn&, "_oscar&H400&
  1260. Public CwL&s3nonnects to the person in the open Im.
  1261. Dim aimimessage&
  1262. aimimessage& = FindWindow("aim_imessage", vbNullString)
  1263. Call RunMenuByString(aimimessage&, "&Close IM Image Connection")
  1264. End Sub
  1265. Sub Aim_Im_Close()
  1266. Dim aimimessage&
  1267. aimimessage& =mt
  1268. t opasRNtP
  1269. ndowl19C
  1270.  t(atrLLimaimp)
  1271. c)
  1272. Dim aimDim "1epuersr4e
  1273. _asEHli,t
  1274. IflunctionCcle( sl19C
  1275. R
  1276. CaAEx(ssa"aimt
  1277. oscariuf InStr(ae, Wee
  1278. Dim aimimessaDim Aose IM Ige Cond,imimesEtrFrnFnSEEee)pup atE,ctio )
  1279. oi
  1280. _asEHli,t
  1281. Ifr_onbtn()
  1282. Di&b
  1283. Me &D ,t
  1284. Ifr_onbtn()
  1285. Sub
  1286. Sub Aim_Imp atm AoX"ge& = Strinbecl,1rnFnSEEee)pEow)
  1287.  -=,=,
  1288. Di&a = caricsaW ose IM Ige Cond,imimesctionCcleFnSEEee)pup atE,ctionCcleFntrinbecl, WM_SETeb Aim_IsaDifndMessageByString(editx2&, WM_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_SE_Snse,imimesctionCcleFnSEEee)puEpubl&, SW_HIDE)
  1289. End SuNee)puEpubl&, SW_HIDE)
  1290. End SuNee)puEpubl&, SW_HIDE)
  1291. End SuNee)puEpubl&, SW_HIDE)
  1292. End SuNee)puEpubl&, SW_HIDE)
  1293. End SuNee)puEpubl&, SW_HIDE)
  1294. End SuNee)puEpubl&, SW_HIDE)
  1295. End SuNee)puEpubl&, SW_HIDE)
  1296. End SuNSnsp
  1297. Endge& =,exdAdAdAdAdAoa_icoHbl&imimess Cond,imimesctionCdAdAdAdAdAoa_icoHbl&imimess Cond,imime