Im writing a ignor program for AIM in C and VB. I need help on how to log the AIM chat window and to use a scanf() i presum to look for content or repeat spam and then pass that SN onto the VB script. here is some code and exsample pics.
Ok now that U undersand how it works from the menu tree. I will say it again. how to log the chat window to a text file for spam and offencive material then take that sn and send it to the vb script where it says SN here should be the usr SN to ignor here is the code.
This is using the Master2.bas AIM modular but i need it to retrive the SN from the C program or the C program to send the VB script the SN. I can log stuff but dont know how to grab only the AIM window and dont know how to scan it with filter ASCII defined by me and the user in a text database. and how to look for repeat in a timout() intervale
If text1.Text = "" Or text1.Text = " " Or text1.Text = " " Or text1.Text = " " Then
MsgBox "Enter a screen name to ignore!!", 16, "Dick"
If list1.List(i) = text1.Text Then Exit Sub
i = 1 + i
Loop Until list1.List(i) = ""
text1.Text = ""
In the Timer put this code...
Dim e%, j%, AOL%, k%, a, x
For a = 0 To list1.ListCount
AOL% = FindWindow("AOL Frame25", 0&)
e% = FindChildByTitle(AOL%, ">Instant Message From:")
If e% <> 0 Then
heh = GetWinText(e%)
bah = Mid(heh, InStr(heh, ":") + 2)
If LCase$(bah) = LCase$(list1.List(a)) Then
k% = SendMessageByNum(e%, WM_CLOSE, 0, 0&)
x = SendMessageByString(e%, WM_SETTEXT, 0, " " & heh)
In (general) put this code...
Function GetWinText (hWnd As Integer) As String
lentos = SendMessage(hWnd, WM_GETTEXTLENGTH, 0&, 0&)
Buffer$ = Space$(lentos)
x = SendMessageByString(hWnd, WM_GETTEXT, lentos + 1, Buffer$)
GetWinText = Buffer$