API and Internet Explorer

[snooze]

Hi anyone!

I've to read out text off the internetexplorer.
its text only (webchat)..

but ANY getmessage functions an methods wont work.

could anyone help me??

(sorry, for my bad english, but i'm german)

greetz,
snooze

[snooze]

Yes, if you'll say so ;-)

i want to have the html-source of a frame, which will be actually shown in IE. But i can't request these pages with winsock or inet control, because its cookie-based and i dont want to implement a webbrowser control.

thanx,
marc

[snooze]

here my actual module code:

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
Declare Function sendmessagebynum& Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
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
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetClassName& Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long)
Public Const GW_CHILD = 5
Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDLAST = 1
Public Const GW_HWNDNEXT = 2
Public Const GW_HWNDPREV = 3
Public Const GW_MAX = 5
Public Const GW_OWNER = 4
Public Const WM_CHAR = &H102
Public Const WM_SETTEXT = &HC
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_CLOSE = &H10
Public Const WM_COMMAND = &H111
Public Const WM_CLEAR = &H303
Public Const WM_DESTROY = &H2
Public Const WM_GETTEXT = &HD
Public Const WM_GETTEXTLENGTH = &HE
Public Const WM_LBUTTONDBLCLK = &H203
Public Const BM_GETCHECK = &HF0
Public Const BM_GETSTATE = &HF2
Public Const BM_SETCHECK = &HF1
Public Const BM_SETSTATE = &HF3

Function GetCaption(hWnd)
Dim hwndlength%
Dim hWndTitle$
Dim a%
hwndlength% = GetWindowTextLength(hWnd)
 hWndTitle$ = String$(hwndlength%, 0)
a% = GetWindowText(hWnd, hWndTitle$, (hwndlength% + 1))

GetCaption = hWndTitle$
End Function

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

GetClass = Buffer$
End Function

Function FindChildByClass(parentw, childhand)
Dim firs%
Dim firss%
Dim room%
firs% = GetWindow(parentw, 5)

If UCase(Mid(GetClass(firs%), 1, Len(childhand))) Like UCase(childhand) Then GoTo bone
firs% = GetWindow(parentw, GW_CHILD)
If UCase(Mid(GetClass(firs%), 1, Len(childhand))) Like UCase(childhand) Then GoTo bone
While firs%
firss% = GetWindow(parentw, 5)
If UCase(Mid(GetClass(firss%), 1, Len(childhand))) Like UCase(childhand) Then GoTo bone
    firs% = GetWindow(firs%, 2)
If UCase(Mid(GetClass(firs%), 1, Len(childhand))) Like UCase(childhand) Then GoTo bone
    Wend
FindChildByClass = 0

bone:
room% = firs%
FindChildByClass = room%

End Function
Function FindChildByTitle(parentw, childhand)
firs% = GetWindow(parentw, 5)
If UCase(GetCaption(firs%)) Like UCase(childhand) Then GoTo bone
firs% = GetWindow(parentw, GW_CHILD)

While firs%
firss% = GetWindow(parentw, 5)
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
'soll das Chatfenster im iNetExpl. finden
'getestet: findet das Child mit Text..
Function FindChatWin()
      MainWin = FindWindow("CabinetWClass", "DIE CHRISTLICHE COMMUNITY FÜR JUGENDLICHE - Microsoft Internet Explorer")
    If MainWin = 0 Then MainWin = FindWindow("CabinetWClass", vbNullString)
'       child1 = FindChildByTitle (Win_Buff5, "")
     child1 = FindChildByClass(MainWin, "Shell DocObject View")
        child2 = FindChildByTitle(child1, "")
       If child2 = 0 Then child2 = FindChildByClass(child1, "Internet Explorer_Server")
         child3 = FindChildByClass(child2, "Shell Embedding")
        If child3 = 0 Then child3 = FindChildByTitle(child2, "")
         child3 = GetWindow(child2, GW_CHILD)
            For sddx = 1 To 1
         child3 = GetWindow(child2, GW_HWNDNEXT)
            Next sddx
          child4 = FindChildByTitle(child3, "")
         If child4 = 0 Then child4 = FindChildByClass(child3, "Shell DocObject View")
           'child5 = FindChildByTitle(child4, "")
          If child5 = 0 Then child5 = FindChildByClass(child4, "Internet Explorer_Server")
         'MsgBox child5
        FindChatWin = child5
End Function




'Findet die URL Leiste vom INet Expl.
Function FindURL()
      Win_Buff5 = FindWindow("CabinetWClass", "DIE CHRISTLICHE COMMUNITY FÜR JUGENDLICHE - Microsoft Internet Explorer")   ' First Attempt To Find Main Window
    If Win_Buff5 = 0 Then MsgBox "Du bist noch nich im Chat - geh erstma rein!", vbCritical, "TW Chatter": Exit Function 'Win_Buff5 = FindWindow("CabinetWClass", vbNullString)
       Win_Buff4 = FindChildByTitle(Win_Buff5, "")
      If Win_Buff4 = 0 Then Win_Buff4 = FindChildByClass(Win_Buff5, "Worker")
        Win_Buff3 = FindChildByTitle(Win_Buff4, "")
       If Win_Buff3 = 0 Then Win_Buff3 = FindChildByClass(Win_Buff4, "ReBarWindow32")
'         Win_Buff2 = FindChildByTitle (Win_Buff3, "")
       Win_Buff2 = FindChildByClass(Win_Buff3, "ComboBoxEx32")
          Win_Buff1 = FindChildByTitle(Win_Buff2, "")
         If Win_Buff1 = 0 Then Win_Buff1 = FindChildByClass(Win_Buff2, "ComboBox")
'           Win_Buff0 = FindChildByTitle (Win_Buff1, "http://www.teensweb.de:10000/CGI?service=chat&nick=snooze&sessionid=8305767597253551157&nh=0&dummy=969721793673")
         win_buff0 = FindChildByClass(Win_Buff1, "Edit")
        FindURL = win_buff0
End Function

Function GetURL()
Dim child As Long
child = FindURL
GetTrim = sendmessagebynum(child, WM_GETTEXTLENGTH, 0&, 0&)
TrimSpace$ = Space$(GetTrim)
GetString = SendMessageByString(child, WM_GETTEXT, GetTrim + 1, TrimSpace$)

GetURL = TrimSpace$
End Function

Function GetChat()
Dim child As Long
child = FindChatWin
GetTrim = sendmessagebynum(child, WM_GETTEXTLENGTH, 0&, 0&)
TrimSpace$ = Space$(GetTrim)
GetString = SendMessageByString(child, WM_GETTEXT, GetTrim + 1, TrimSpace$)
GetChat = TrimSpace$
End Function


Function getchat2()
Dim child As Long
child = FindChatWin
getrim = GetWindowTextLength(child)
TrimSpace$ = Space$(GetTrim)
Call GetWindowText(child, TrimSpace$, 0)
GetChat = TrimSpace$

End Function

------------------------------------------------------
But neither getchat2 nor getchat works.
Any suggestions to read out the frame, or to view the source of the frame, i want ?

cya,
snooze alias marc

p.s.: comments are in german, 'cause i'm german ;-)

[Edited by snooze on 09-25-2000 at 03:31 AM]

[shtirliz]

If you can get a URL then I suppose you can use an ActiveX control (HTML Raw) that will get HTML and headers for you. Here is the URL:
http://download.cnet.com/downloads/0....lst.td_908198

or if you implement inet control in your app, use

inet1.Document.DocumentElement.innerHTML

after Document_Complete Event.

Gut Gluck

[MPrestonf12]

ill try and work something out for you. Do you want the HTML code of the page also?

[snooze]

i need the source of a specified frame (java generated)

i want to read out a web-chat

thanx,
marc

[Skeen]

Hi,

I don't know if this will help but,
Stick a textbox, a command button and th Internet control on a form. Then in the command button sub type:

Text1.Text = Inet1.OpenURL("http://www.somewbesite.com")

And the html source code for the web page yo entered will be displayed in the text box (so you'll probably need to put scroll bars o the text box.
If you use an input box for the URL rather than hard coding one in - probably a goo idea

Hope this helps

Skeen

[snooze]

I done this, but it wont work, if you want to recieve CGI Data and if the site creates/reads a cookie. Does anyone know, how to work with these ?

thanx.

does anyone know the cassiopeia Chat system

cya
marc