Webbrowser Control (how To Retrieve Links)
I am using the webbrowser control in VB. I was wondering if there is any "trick" for visualising, or somehow retrieving all the links from the actual web page? And by links I don't mean the content, but only the url itself, of course.
I thought about making a loop, sending the TAB key with the sendkeys function and look at the statustext variable.
Any better solutions?
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Extracting Links Within A Webbrowser Control
I have a webbrowser control that navigates to a page on an online game (http://www.outwar.com/rankings.php?t...=400&submit=go) and i want to be able to extract all the player names and links on that. I think i could probably use the inet control to get the source code and parse it, but that would take me damn well near the rest of my life to do, so im wondering if i can get the links and names off using the webbrowser control and add them to a listbox.
Stop Dragging Links From Webbrowser Control
Hi all,
i'm creating a securelink browser application using
WebBrowser cotrol in VB6.
Our requirment is that no one can't do drag and drop
a hyperlink out side the application ,as one can do
with other browsers.
so how can i do this ,plz help me.
Thanks
Amazing Problem. I Cant Get Links From Webbrowser Control When My Program Is Compiled
Hello,
I am trying to retrieve all the links from a web page. I am using webbrowser control for that. I create references of the Microsoft HTML Object library. I used 3 methods. And all of them works fine when i run the program within visual basic code window. But as soon as i create .exe it does not work and show me the error 'Object variable of with block variable not set' (error : 91)
Here is my code.
Method 1:
Code:
Dim doc as New HTMLDOCUMENT
Dim a_link As HTMLAnchorElement
wbrsource.navigate("www.bdlearner.qsh.es")
'Give time to webbrowser for loading document
do while wbrsource.readystate<>readystate_complete
doevents
loop
'Document loading completed. Extract links
Set doc = wbrSource.Document
Set a_link = doc.links
For Each a_link In doc.links
List1.AddItem a_link.href
Next a_link
Method 2:
Code:
dim collinks as variant
wbrsource.navigate("www.bdlearner.qsh.es")
'Give time to webbrowser for loading document
do while wbrsource.readystate<>readystate_complete
doevents
loop
'Document loading completed. Extract links
Set collinks = wbrSource.Document.All.tags("A")
For qq = 0 To collinks.Length - 1
List1.AddItem collinks(qq).href
Next qq
Method 3:
Code:
wbrsource.navigate("www.bdlearner.qsh.es")
'Give time to webbrowser for loading document
do while wbrsource.readystate<>readystate_complete
doevents
loop
'Document loading completed. Extract links
For qq = 0 To wbrSource.Document.links.Length - 1
List1.AddItem wbrSource.Document.links(qq).href
Next qq
I tried all 3 methods. But none works when the code is compiled into .exe.
What can i do now? I need a solution. I am using Microsoft Internet Explorer (Version: 6.0.2900.2180.xpsp_sp2_rtm.040803-2158)
Please help me.
Kindest regards...
Shaoun
Retrieve InnerHTML From Webbrowser Control
Hi guys!
I just compiled a DLL-file with a few HTML-resources in it and pushed it into a webbrowser. The problem is i got a <DIV> in there that i need to populate with one or a few copys of the text already in there but with some template fields replaced.
Code:
Me.WebBrowser1.Navigate "res://" & App.Path & "
esource.dll/search.html"
So far so good, but when i later try to run this i get an error:
Code:
MsgBox Me.WebBrowser1.Document.All.searchresults.innerHTML
the DIV in the HTML-code looks like this:
Code:
<div name="searchresults">
The error in question is: "The object does not support this property or method", which i think is funny because i use basically the same code from JavaScript within my pages...
Anybody got a solution to this quite weird problem?
Retrieve Data From HTML Using Webbrowser Control...
Hey guys!
Anyone knows how to retrieve the values of a text box, or some "label", checkBox, radiobutton, etc from an html page that is being used on a webbrowser control, and them pass this values to some variables in VB?
Example, lets say that in some row (or textbox) of a html file theres is a string "Hello World". I want to get this string and pass to a variable of the VB...
Any Ideas?
Links > Webbrowser?
You know how when you drag over a link in IE and it tells you the webpage on the status bar. Well I was wondering how I could get a label to do that?
WebBrowser Links Opening
Instead of clicking on a link in the browser and it opening the page, can you click on a link that will send the link name to a specific text box? Does someone have an example they can show me?
Thanks for help
[Not Resolved] Webbrowser Links?
Hi guys.... I searched the forum but I didn't find the answer... So I post this question: How can I extract all the links in a webbrowser when the HTML page has frames?
I tried to look at Webbrowser.Document.Links.Length but it returns zero, and I can't find a way to access the same property in the frames!!!
Thanks,
Xmas.
Collecting And Listing All Links In Webbrowser
How could I list all links that are on the page into List1?
List1.AddItem WebBrowser1.Document.links ' This grabs the first link
Text1.Text = WebBrowser1.Document.links ' This lists ALL links, even the logout one which is undesired...
How can I gather several specific links?
Finding All Links Absolute Position X,Y Relatively To The Screen In VB6 WebBrowser
Finding all links absolute position X,Y relatively to the screen in VB6 WebBrowser
There is a Visual Basic 6 application with WebBrowser in it.
This application is about statistical information on what html tags were loaded, where they are being located - it's position X,Y
For example I want to find Document.getelementsbytagname("a") link and anchor position on the screen, how do I do it?
There is example in JS, that I could inject into webpage by scriptcontrol but could I do in in VB6 itself?
function getElementPosition(elemId)
{
var elem = document.getElementById(elemId);
var w = elem.offsetWidth;
var h = elem.offsetHeight;
var l = 0;
var t = 0;
while (elem)
{
l += elem.offsetLeft;
t += elem.offsetTop;
elem = elem.offsetParent;
}
return {"left":l, "top":t, "width": w, "height":h};
}
Trying by vb6 in webbrowser
Dim WithEvents doc As HTMLDocument
Dim elem As IHTMLElement
Set doc = ie.document
For x = 0 To doc.getElementsByTagName("a").length - 1
Set elem = doc.getElementsByTagName("a")(x)
I want convert this nonsense
'"-PParent=" & elem.offsetParent.offsetParent.tagName & "=" & elem.offsetParent.offsetParent.id & _
'"-3Parent=" & elem.offsetParent.offsetParent.offsetParent.tagName & _
'"-4Parent=" & elem.offsetParent.offsetParent.offsetParent.offsetParent.tagName & _
'"-4Parent=" & elem.offsetParent.offsetParent.offsetParent.offsetParent.id
To while loop, but I can't figure it out how
While (TypeOf elem Is IHTMLElement)
parentall = "-Parent Tag=" & elem.offsetParent.tagName & _
elem.id & ",l=" & elem.offsetLeft & ";t=" & elem.offsetTop & _
Set elem = elem.offsetParent
Wend
Next x
Finding All Links Absolute Position X,Y Relatively To The Screen In VB6 WebBrowser
Finding all links absolute position X,Y relatively to the screen in VB6 WebBrowser
There is a Visual Basic 6 application with WebBrowser in it.
This application is about statistical information on what html tags were loaded, where they are being located - it's position X,Y
For example I want to find Document.getelementsbytagname("a") link and anchor position on the screen, how do I do it?
There is example in JS, that I could inject into webpage by scriptcontrol but could I do in in VB6 itself?
function getElementPosition(elemId)
{
var elem = document.getElementById(elemId);
var w = elem.offsetWidth;
var h = elem.offsetHeight;
var l = 0;
var t = 0;
while (elem)
{
l += elem.offsetLeft;
t += elem.offsetTop;
elem = elem.offsetParent;
}
return {"left":l, "top":t, "width": w, "height":h};
}
Trying by vb6 in webbrowser
Dim WithEvents doc As HTMLDocument
Dim elem As IHTMLElement
Set doc = ie.document
For x = 0 To doc.getElementsByTagName("a").length - 1
Set elem = doc.getElementsByTagName("a")(x)
I want convert this nonsense
'"-PParent=" & elem.offsetParent.offsetParent.tagName & "=" & elem.offsetParent.offsetParent.id & _
'"-3Parent=" & elem.offsetParent.offsetParent.offsetParent.tagName & _
'"-4Parent=" & elem.offsetParent.offsetParent.offsetParent.offsetParent.tagName & _
'"-4Parent=" & elem.offsetParent.offsetParent.offsetParent.offsetParent.id
To while loop, but I can't figure it out how
While (TypeOf elem Is IHTMLElement)
parentall = "-Parent Tag=" & elem.offsetParent.tagName & _
elem.id & ",l=" & elem.offsetLeft & ";t=" & elem.offsetTop & _
Set elem = elem.offsetParent
Wend
Next x
How Can You Get A List Of Images On A Webpage, With Their Links In A Webbrowser Ctrl?
In a webbrowser control, you can get a list of all links by the code
VB Code:
For x = 0 to WB.Document.links.length - 1msgbox WB.Document.Links(x).srcNext
and you can get a list of images with
VB Code:
For x = 0 to WB.Document.images.length - 1msgbox WB.Document.images(x).srcNext
but how can you get a list of images and the links they link to (if any?)
Finding All Links Absolute Position X,Y Relatively To The Screen In VB6 WebBrowser
Finding all links absolute position X,Y relatively to the screen in VB6 WebBrowser
There is a Visual Basic 6 application with WebBrowser in it.
This application is about statistical information on what html tags were loaded, where they are being located - it's position X,Y
For example I want to find Document.getelementsbytagname("a") link and anchor position on the screen, how do I do it?
There is example in JS, that I could inject into webpage by scriptcontrol but could I do in in VB6 itself?
function getElementPosition(elemId)
{
var elem = document.getElementById(elemId);
var w = elem.offsetWidth;
var h = elem.offsetHeight;
var l = 0;
var t = 0;
while (elem)
{
l += elem.offsetLeft;
t += elem.offsetTop;
elem = elem.offsetParent;
}
return {"left":l, "top":t, "width": w, "height":h};
}
Trying by vb6 in webbrowser
Dim WithEvents doc As HTMLDocument
Dim elem As IHTMLElement
Set doc = ie.document
For x = 0 To doc.getElementsByTagName("a").length - 1
Set elem = doc.getElementsByTagName("a")(x)
I want convert this nonsense
'"-PParent=" & elem.offsetParent.offsetParent.tagName & "=" & elem.offsetParent.offsetParent.id & _
'"-3Parent=" & elem.offsetParent.offsetParent.offsetParent.tagName & _
'"-4Parent=" & elem.offsetParent.offsetParent.offsetParent.offsetParent.tagName & _
'"-4Parent=" & elem.offsetParent.offsetParent.offsetParent.offsetParent.id
To while loop, but I can't figure it out how
While (TypeOf elem Is IHTMLElement)
parentall = "-Parent Tag=" & elem.offsetParent.tagName & _
elem.id & ",l=" & elem.offsetLeft & ";t=" & elem.offsetTop & _
Set elem = elem.offsetParent
Wend
Next x
Retrieve HDC Of Image In Webbrowser Component
Is it possible to retrieve the hDC of an image in a webpage? I want to add a graph to a customly created page (i halt the beforenavigate event, and send my own HTML to it).
Is this possible?
Cheers,
Christopher
Retrieve PostData Using Webbrowser/Inet
Hi,
Is there any way to retrieve the PostData that a website will send when you submit a form from that site? How do you do this and can it be done using both the Inet and the Webbrowser? thanks.
Links In Listview Control
Hi,
Is it possible to display as Subitem in a listview control as Link (text with blue underline). Right now i just have a full row select set to True (a blue band highlights the selected row)and users double click on a row to take them to a URL(IE opens up a page associated with the URL).
Any leads/hints/solutions to this?
Thanks in advance
Surya
Control Panel Links
I sat down and made my font installer which installed fonts to C:WINDOWSFONTS then i restarted my computer and realized that they needed to be installed in the fonts folder in control panel. So then i though ok, theres an api to get special folder so i used that api... but the api returns C:WINDOWSFONTS. can anybody tell me where i need to install the fonts?
Links And ReachTextBox Control
Hello people,
I'm using a ReachTextBox control to display RTF Word document in my program. Links to internet sites work fine when I edit the Word document, but when the document is being displayed in the ReachTextBox the links seem to be dead.
Is there a way to make links work properly in ReachTextBox control?
Thanks.
Catching &"links&" Click From Webbrowser In VB App
Hi All, I have been searching around, but haven't been able to find any help on my particular problem.
I am working on an application that is to be easily modifyable. It uses basic VB6 .dll's, and HTML.
Heres is the basics. It is a basic "yes" and "no" or fillin the blanks type app, where the Tech asks a series of questions based on the HTML form, checks the appropriate response, which then fills out a text box with the formated text. I am using HTML to create the forms to that each tech can, in effect design, or modify the form and the output to suit their needs.
For instance, tech gets a call for connecting to the internet. There are a dozen "obvious" questions that come to mind, it the LAN/Phone cable pluged in, is the Modem on, what version of OS are you using; etc. The rep can ask the questions, then click on the response, in the HTML form which then inturn adds the formatted text to a textbox that the rep can then copy and paste into the Companies ticketing system.
The part I am stuck on, is modifying the HTML Form. I want to have a part of the application that can create the forms as well as read them. So there is a finite list of tags that are used, but when the form is loaded is there a way to add a link say "cboOSType" that the rep can click on which triggers the correct form to open and allow the rep to modify the underlying code (tag name, length of textbox, output code; which is placed in a hidden value in the form).
Any suggestions?
Label Control - Hover Links!!!
I have several labels on my VB form each representing an email address (link). I want the email
text to be underlined when I mouse over it and normal when mouse off it (just like a web page).
Is this possible in VB??? If so, how do I do it???
Many thanks
How To Make The Webbrowser Control (and Just The Webbrowser In My Form) Offline?
wb.Offline = True
wb.Navigate "www.excite.com"
wont work.. itll still load excite (or any other site, doesnt matter if its cache or not)
anyone know how to prevent this?
also, how can you stop that errorbox saying 'cant load page because browser is offline' with the 2 options saying 'connect' or 'stay offline'? i dont want it popping up dozens of times when i try to visit a site in the webbrowser
Parsing Html Links And Download Links Separately
Can somebody help me out with Higher Level string extraction
I hope to extract the table content from a webpage source.. As all of you know that the source is very messy ....
I would like to extract information from a table that has
7 columns
say for example :
No | name | description | Links | from | mailto | Download link |
is what i intent to extract and convert the data to
No_name_description_links_from_mailto_donwloadlink
(ignore all the HTML tags or unwanted HTML code)
Capture Links' Clicks In DHTMLEdit Control
Hello,
can anyone help me, and give me a small example on how to capture links url , when someone click on a link from a DHTMLEdit control?
I want to capture links url and the load the source into the DHTMLedit control.
I don't want to open IE when clicking, I just want to see the link's url!
Thanks in advance!
Update Links Then Break All Links
I have a spreadsheet that has links to an outside spreadsheet. When I open it, I want it to update the links. After it is done updating, I want it to break all links. thanks in advance for any help
How To Retrieve Container Of Control ?
Hello to All Forum Members ;
Currently I'm working on an ActiveX component and in that , I need to find out the Container of the other controls placed on the form (on which our ActiveX will be droped).
I checked MSDN and ensured that Container is a property which can be read. But I'm not getting how to retrieve the value of this property.
I tried with ...
Dim Ctrl as Control
For Each Ctrl In Form1.Controls
If Ctrl.Container = Frame1 Then
Ctrl.Enabled = False
End If
Next
This is not working and giving me error as "Wrong number of Arguments or invalid Property Assignment" ...
Actually when I saw the MSDN example code ... there they have written as ...
Set Button1.Container = Frame1
Hence I equated obj.Container with Frame1 directly (the name of control directly) in If Condition ... Is it ok or the mistake is there itself ?
Where is the mistake ? How to retrieve this Container Property ? Please help me in this ...
Waiting for your valuable reply ...
How To Retrieve The ActiveX Control URL?
Hi all,
I am coding an ActiveX control with VB6 and I would like to know the way to retrieve in my code the URL of the Html page hosting my activeX without using the PARAM tags.
For example, if I launch my activeX with http://myserver/TestActiveX.html, I would like to retrieve such URL in my code.
Is it possible?
Thanks
How To Retrieve Container Of A Control ?
Hello to All Forum Members ;
Currently I'm working on an ActiveX component and in that , I need to find out the Container of the other controls placed on the form (on which our ActiveX will be droped).
I checked MSDN and ensured that Container is a property which can be read. But I'm not getting how to retrieve the value of this property.
I tried with ...
Dim Ctrl as Control
For Each Ctrl In Form1.Controls
If Ctrl.Container = Frame1 Then
Ctrl.Enabled = False
End If
Next
This is not working and giving me error as "Wrong number of Arguments or invalid Property Assignment" ...
Actually when I saw the MSDN example code ... there they have written as ...
Set Button1.Container = Frame1
Hence I equated obj.Container with Frame1 directly (the name of control directly) in If Condition ... Is it ok or the mistake is there itself ?
Where is the mistake ? How to retrieve this Container Property ? Please help me in this ...
Waiting for your valuable reply ...
Edited by - vb_programmer on 1/3/2004 11:31:15 AM
Flexible OLE Control: Retrieve .doc And/or .jpg
My VB6 GUI talks to an Access2000 database. In the database, there is an OLE field which contains either a Word document, or a WordPerfect document, or a JPG.
I would like the GUI to launch the appropriate application and open the document when the user clicks a command button.
Currently, we are using fieldname.DoVerb (2) but I'd like to know whether there is a better way. This command is very slow and it confuses the user, since another dialog box appears and they have to click the filename again to launch it.
Is there a better way to retrieve the file and launch the appropriate app? Is a third-party control required, and if so, can you make any suggestions?
Thank you!
Retrieve Info (winsock Control)
Hello, i trying to return info from an other computer like date and time, im using a client/server app for this. But can someone tell me whats wrong with the code because it doesnt work but no error's either.
This is the client side
Code:
Private Sub Command1_Click()
Winsock1.SendData "PCI"
End Sub
Private Sub Form_Load()
Winsock1.Connect "127.0.0.1", 1234
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData
If strData = info Then
MsgBox info
End If
End Sub
Server side
Code:
Private Sub Form_Load()
Winsock1.LocalPort = 1234
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData
If strData = "PCI" Then
Call PC_INFO
End If
End Sub
Private Sub PC_INFO()
Dim Info As String
Info = Date & Time
Winsock1.SendData Info
End Sub
How To Retrieve Window Messages To A Control.
I have some COTS software that is displaying Longitude/Latitiude in two text boxes. As the user moves the mouse around the Long/Lat numbers change.
I want to be able to intercept the windows messages containing the numbers so when the user mouse clicks I can trap the numbers and do something with them.
Any suggestions on how to do this. I have some material on subclassing and windows hooking but it's all so much greek. Before I start into this too far I thought I'd try my luck on this site.
Thanks.
How To Retrieve Values From Active X Control
I have created a very simple Active X Control for use in ASP pages using VB 6 just to do some playing around. It consists of nothing more than a ListView control. Now, if I were to actually use this in a production environment how would I be able to grab the values out of the Control for insertion into a Database?? Thanks.
How To Retrieve Data With Mscomm Control?
Option Explicit
Dim dummy As String
Private Sub Command1_Click()
MSComm1.Output = "ati" + vbCr
Do
dummy = DoEvents()
If MSComm1.InBufferCount Then
Text1.Text = Text1.Text + MSComm1.Input
End If
Loop
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
dear all,
i am doing a project, and after reading quite a lot forums about
mscomm, and a lot of coding too, i still can't get a hold on how we actually receive message from the device. note that i am using a nokia 6610 mobile phone as the modem, therefore i use the at commands i downloaded from forum nokia (at command set for nokia gsm products, version 1.0).
what i'm trying to do is, retrieve the text "nokia" from the device,
generated from the at command "ati" (similar to at+gmi) which supposed to request manufacturer identification. it works just fine with the
hyperterminal. i've traced this code, and apparently when it is executing "mscomm1.input", a "run time error '8020' : error reading comm device" occurs. it happens all the time =(
any idea about what am i suppose to do?
Retrieve Text From An HTML Control Box
I have been trying to retrieve text from an html display control using the sendmessage API. Passing the gettextlength message returns the length based on the amount of visible characters, and when the gettext message is passed, it trys to retrieve the entire html code, but doesn't get it all because the length is based just on what the user can see. If anyone could enlighten me, I would be eternally grateful.
Here's a copy of the function that I am using if it will help:
Public Function GetTheText(TheWindowName As String, TheControlName As String) As String
On Error GoTo err
Dim WindowHandle As Long
Dim ControlHandle As Long
Dim TheText As String
Dim TheTextLen As Long
Dim ret As Long
GetTheText = "An Error Has Occured"
WindowHandle = FindWindow(vbNullString, TheWindowName)
If WindowHandle = 0 Then Exit Function
ControlHandle = FindWindowEx(WindowHandle, 0, vbNullString, TheControlName)
If ControlHandle = 0 Then Exit Function
TheTextLen = SendMessage(ControlHandle, WM_GETTEXTLENGTH, ByVal CLng(0), ByVal CLng(0)) + 1
TheText = Space(TheTextLen)
ret = SendMessage(ControlHandle, WM_GETTEXT, ByVal TheTextLen, ByVal TheText)
TheText = Left(TheText, ret)
GetTheText = TheText: Exit Function
err:
End Function
Need A Bit More Help Trying To Retrieve Item Text From A Syslistview32 Control...
I found this page and got it to work.
However, the SysListView32 control I'm getting item text from has 2 columns instead of 1.
The code linked to above retrieves the item text from the first column for me, but I am not sure how to get the item texts from the second column.
If someone could show how I'd modify the code to do this, or something I'd greatly appreciate it!
Thanks in advance!
Using Activex Control To Retrieve The URL Of A Page In A Frame.
Hi guys!
Id like a page with a frame displaying a page outside my domain. Is there any way to retrieve the actual URL (not just the src = ) of the page in that frame / iframe ?
Ive done some research and not been able to find a solution in javascript so im stepping up and hoping that its possible in activex.
all help is really appreciated
many thinks guys .
Need A Bit More Help Trying To Retrieve Item Text From A Syslistview32 Control...
I found this page and got it to work. However, the SysListView32 control I'm getting item text from has 2 columns instead of 1.
The code linked to above retrieves the item text from the first column for me, but I am not sure how to get the item texts from the second column.
If someone could show how I'd modify the code to do this, or something I'd greatly appreciate it!
Thanks in advance!
Retrieve Form/control Properties/attributes Via Its Hwnd?
I can't seem to find anything on this being possible or not.
Basically what I want to do is this. I need to get a form/control's helpcontextid but I only know the hwnd handle. Is there any way to do that via the api or some other method?
More Info: I'm implementing a custom help system based on locally stored html files. I've been able to trap and handle WM_HELP messages so that when F1 is pressed it displays/does whatever i want rather than do the default help actions(display the help file, etc.) What I'm having trouble with is incorporating some sort of context sensitive ability. So that if the user presses F1 while the main mdiform is active, the html file corresponding to that form is displayed. likewise for any other form/control I want to have a html page displayed as help.
Like I said, I have all the info that is sent to the window procedure when F1 is pressed. hwnd, mouse position, help context type, context id. but the context type and id don't correspond to any type/id within my project from what i can see.
I Want To Invisibly Control Webbrowser Control Iwebbrowser2 In Form
My idea is to control IE instance by software
I want to solve my problems in two ways
First one is by controlling IE by mouse_event with cursorpos but not with sendmesage or postmessage API.
I want to invisibly control IE instance and click on it where I want to by sending mouse_event, but without user notice, is there any chance?
Is it possible to control IE for example in background while PC is idle and screensaver works?
Or perhaps when PC is idle detect it and show JPEG screenshot and work with mouse_event on background, so to call behind the scene?
Or perhaps in parallel user mode FAST USER SWITCH terminal service?
I don’t want to click by parsing html code body.outerhtml, tagname ("A").click
Any suggestions or any ideas with technical details?
IE Controller source code here http://fresh-news.info/update/iecontrol.rar
I Want To Invisibly Control Webbrowser Control Iwebbrowser2 In Form
I want to invisibly control webbrowser control iwebbrowser2 in form
How to send a click to webbrowser control iwebbrowser2 control it clicks ok on simple html but if there is iframe or frame then it does not click on it
Any suggestions?
I don’t want to click by parsing html code body.outerhtml, tagname ("A").click
Private Sub Command2_Click()
Dim lHandle As Long
lHandle = GetHandle(ie)
MsgBox lHandle
SendClick lHandle, Val(Text2.Text), Val(Text3.Text)
End Sub
Public Sub SendClick(lnghWND As Long, X As Long, Y As Long)
Dim lngResult As Long
Dim lnglParam As Long
lnglParam = (Y * &H10000) + X
lngResult = SendMessage(lnghWND, WM_LBUTTONDOWN, 0&, ByVal lnglParam)
lngResult = SendMessage(lnghWND, WM_LBUTTONUP, 0&, ByVal lnglParam)
txtlog.Text = lnghWND & " " & X & " " & Y & vbCrLf & txtlog.Text
End Sub
|
TRACKER
