closemod.bas

一个综合的黑客程序

If UCase(GetCaption(firss%)) Like UCase(childhand) & "*" Then GoTo bone
firs% = GetWindow(firs%, 2)
If UCase(GetCaption(firs%)) Like UCase(childhand) & "*" Then GoTo bone
Wend
FindChildByTitle = 0

bone:
room% = firs%
FindChildByTitle = room%
End Function

Function GetCaption(hwnd)
hwndLength% = GetWindowTextLength(hwnd)
hwndTitle$ = String$(hwndLength%, 0)
A% = GetWindowText(hwnd, hwndTitle$, (hwndLength% + 1))

GetCaption = hwndTitle$
End Function

Function GetClass(child)
buffer$ = String$(250, 0)
getclas% = GetClassName(child, buffer$, 250)

GetClass = buffer$
End Function

Function AOLGetChat()

child = FindChildByClass(childs%, "_AOL_View")

GetTrim = SendMessageByNum(child, 14, 0&, 0&)
TrimSpace$ = Space$(GetTrim)
GetString = SendMessageByString(child, 13, GetTrim + 1, TrimSpace$)

theview$ = TrimSpace$
AOLGetChat = theview$
End Function


Public Function stayontop(the As Form)
Flag% = SWP_NOMOVE Or SWP_NOSIZE
lSetPos = SetWindowPos(the.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Function

Public Function PlayWav(FileName)
Flagss% = SND_ASNC Or SND_SYNC
Play2 = sndPlaySound(FileName, Flagss%)
End Function

Public Function SetText(Text)
lSetText = SendMessageByString(Wind&, WM_SETTEXT, 0, Text)
End Function

Public Function Click(Window%)
lClick& = SendMessage(Window%, WM_LBUTTONDOWN, 0, 0&)
lClick& = SendMessage(Window%, WM_LBUTTONUP, 0, 0&)
End Function

Public Function ChatSend(Text)
AOL% = FindWindow("AOL Frame25", vbNullString)
MDI% = FindChildByClass(AOL%, "MDIClient")
firs% = GetWindow(MDI%, 5)
listers% = FindChildByClass(firs%, "RICHCNTL")
listere% = FindChildByClass(firs%, "_AOL_Listbox")
listerb% = FindChildByClass(firs%, "_AOL_Combobox")
If listers% And listere% And listerb% Then GoTo bone

firs% = GetWindow(MDI%, GW_CHILD)
While firs%
firs% = GetWindow(firs%, 2)
listers% = FindChildByClass(firs%, "RICHCNTL")
listere% = FindChildByClass(firs%, "_AOL_Listbox")
listerb% = FindChildByClass(firs%, "_AOL_Combobox")
If listers% And listere% And listerb% Then GoTo bone
AOL% = FindWindow("AOL Frame25", vbNullString)
MDI% = FindChildByClass(AOL%, "MDIClient")
firs% = GetWindow(MDI%, 5)
listers% = FindChildByClass(firs%, "RICHCNTL")
listere% = FindChildByClass(firs%, "_AOL_Listbox")
listerb% = FindChildByClass(firs%, "_AOL_Combobox")
Listerc% = FindChildByClass(firs%, "_AOL_Glyph")
Listerd% = FindChildByClass(firs%, "_AOL_Static")
If listers% And listere% And listerb% Then GoTo bone Else Exit Function
Wend

Fuck% = listers% And listere% And listerb%
bone:
One1% = GetWindow(listers%, 2)
Two2% = GetWindow(One1%, 2)
Three3% = GetWindow(Two2%, 2)
Four4% = GetWindow(Three3%, 2)
Five5% = GetWindow(Four4%, 2)
six6% = GetWindow(Five5%, 2)
Seve7% = GetWindow(six6%, 2)
Eight8% = GetWindow(Seve7%, 2)

lSnd% = SendMessageByString(six6%, WM_SETTEXT, 0, Text)
'Click (Seve7%)
lEnter% = SendMessageByNum(six6%, WM_CHAR, 13, 0&)
End Function

Sub pause(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub

Function AOLGetUser()
On Error Resume Next
AOL% = FindWindow("AOL Frame25", "America  Online")
MDI% = FindChildByClass(AOL%, "MDIClient")
Welcome% = FindChildByTitle(MDI%, "Welcome, ")
WelcomeLength% = GetWindowTextLength(Welcome%)
WelcomeTitle$ = String$(200, 0)
A% = GetWindowText(Welcome%, WelcomeTitle$, (WelcomeLength% + 1))
User = Mid$(WelcomeTitle$, 10, (InStr(WelcomeTitle$, "!") - 10))
AOLGetUser = User
End Function

Public Sub AOLIcons()
AOL% = FindWindow("AOL Frame25", vbNullString)
TL1% = FindChildByClass(AOL%, "AOL Toolbar")
TL2% = FindChildByClass(TL1%, "_AOL_Toolbar")
ICO1% = FindChildByClass(TL2%, "_AOL_Icon")
ICO2% = GetWindow(ICO1%, 2)
ICO3% = GetWindow(ICO2%, 2)
ICO4% = GetWindow(ICO3%, 2)
ICO5% = GetWindow(ICO4%, 2)
ICO6% = GetWindow(ICO5%, 2)
ICO7% = GetWindow(ICO6%, 2)
ICO8% = GetWindow(ICO7%, 2)
ICO9% = GetWindow(ICO8%, 2)
ICO10% = GetWindow(ICO9%, 2)
ICO11% = GetWindow(ICO10%, 2)
ICO12% = GetWindow(ICO11%, 2)
ICO13% = GetWindow(ICO12%, 2)
ICO14% = GetWindow(ICO13%, 2)
ICO15% = GetWindow(ICO14%, 2)
ICO16% = GetWindow(ICO15%, 2)
ICO17% = GetWindow(ICO16%, 2)
ICO18% = GetWindow(ICO17%, 2)
ICO19% = GetWindow(ICO18%, 2)
ICO20% = GetWindow(ICO19%, 2)
ICO21% = GetWindow(ICO20%, 2)
ICO22% = GetWindow(ICO21%, 2)
ICO23% = GetWindow(ICO22%, 2)
ICO24% = GetWindow(ICO23%, 2)
ICO25% = GetWindow(ICO24%, 2)
ICO26% = GetWindow(ICO25%, 2)
ICO27% = GetWindow(ICO26%, 2)
End Sub

Public Function IMAnswer(Text)
AOL% = FindWindow("AOL Frame25", vbNullString)
MDI% = FindChildByClass(AOL%, "MDIClient")
IM1% = FindChildByTitle(MDI%, ">Instant Message From: ")
IM2% = FindChildByClass(IM1%, "RICHCNTL")
IM3% = GetWindow(IM2%, 2)
IM4% = GetWindow(IM3%, 2)
IM5% = GetWindow(IM4%, 2)
IM6% = GetWindow(IM5%, 2)
IM7% = GetWindow(IM6%, 2)
IM8% = GetWindow(IM7%, 2)
IM9% = GetWindow(IM8%, 2)
IM10% = GetWindow(IM9%, 2)
IM11% = GetWindow(IM10%, 2)
IM12% = GetWindow(IM11%, 2)
IM13% = GetWindow(IM12%, 2)
IM14% = GetWindow(IM13%, 2)
IM15% = GetWindow(IM14%, 2)
IM16% = GetWindow(IM15%, 2)
IM17% = GetWindow(IM16%, 2)
SNDTX% = SendMessageByString(IM15%, WM_SETTEXT, 0, Text)
Click (IM16%)
CLOSE1% = SendMessage(IM1%, WM_CLOSE, 0, 0&)
End Function

Sub runmenu(menu1 As Integer, menu2 As Integer)
Dim AOLWorks As Long
Static Working As Integer

AOLMenus% = GetMenu(FindWindow("AOL Frame25", vbNullString))
AOLSubMenu% = GetSubMenu(AOLMenus%, menu1)
AOLItemID = GetMenuItemID(AOLSubMenu%, menu2)
AOLWorks = CLng(0) * &H10000 Or Working
ClickAOLMenu = SendMessageByNum(FindWindow("AOL Frame25", vbNullString), 273, AOLItemID, 0&)

End Sub

Public Sub RunMenuByString(Application, StringSearch)

ToSearch% = GetMenu(Application)
MenuCount% = GetMenuItemCount(ToSearch%)

For FindString = 0 To MenuCount% - 1
ToSearchSub% = GetSubMenu(ToSearch%, FindString)
MenuItemCount% = GetMenuItemCount(ToSearchSub%)

For GetString = 0 To MenuItemCount% - 1
SubCount% = GetMenuItemID(ToSearchSub%, GetString)
MenuString$ = String$(100, " ")
GetStringMenu% = GetMenuString(ToSearchSub%, SubCount%, MenuString$, 100, 1)

If InStr(UCase(MenuString$), UCase(StringSearch)) Then
MenuItem% = SubCount%
GoTo MatchString
End If

Next GetString

Next FindString
MatchString:
RunTheMenu% = SendMessage(Application, WM_COMMAND, MenuItem%, 0)
End Sub

Function ChatSend2(Text)
AOL = FindWindow("AOL Frame25", vbNullString)
If AOL = 0 Then Exit Function
f = FindChildByClass(AOL, "MDIClient")
b = FindChildByClass(f, "AOL Child")

start:
c = FindChildByClass(b, "RICHCNTL")
If c = 0 Then GoTo nextwnd
d = FindChildByClass(b, "_AOL_Combobox")
If d = 0 Then GoTo nextwnd
e = FindChildByClass(b, "_AOL_Listbox")
If e = 0 Then GoTo nextwnd
findchatroom = b
Exit Function

nextwnd:
b = GetWindow(b, 2)
If b = GetWindow(b, GW_HWNDLAST) Then Exit Function
FNL% = FindChildByClass(b, "RICHCNTL")
If FNL% <> 0 Then MsgBox "Found It!"
One1% = GetWindow(FNL%, 2)
Two2% = GetWindow(One1%, 2)
Three3% = GetWindow(Two2%, 2)
Four4% = GetWindow(Three3%, 2)
Five5% = GetWindow(Four4%, 2)
six6% = GetWindow(Five5%, 2)
Seve7% = GetWindow(six6%, 2)
Eight8% = GetWindow(Seve7%, 2)

lSnd% = SendMessageByString(six6%, WM_SETTEXT, 0, Text)
'Click (Seve7%)
lEnter% = SendMessageByNum(six6%, WM_CHAR, 13, 0&)
GoTo start
End Function

Public Function Click2(hwnd)
lEnter% = SendMessageByNum(hwnd, WM_CHAR, 13, 0&)
End Function