-
Sep 15th, 2008, 05:25 PM
#1
Thread Starter
New Member
VB6 InternetExplorer Object (Resolved)
Hers the problem .
From VB6 (not .Net) I find an active IE window that is on the required site that I am interested in by reading the current URL line for each tab.
I then read the html from that screen to confirm that it is on the correct screen if not send to the address box to move to the required html page.
On that page are lots of tables each having a name within the page html code.
All that works fine for routing and reading.
What I need to do is place my required data in those named text boxes and then post or submit the page but I cant find the required syntax for the InternetExplored object to do this can anyone help please.
Last edited by ArferMo; Sep 25th, 2008 at 04:56 PM.
-
Sep 16th, 2008, 05:15 AM
#2
Thread Starter
New Member
Re: VB6 InternetExplorer Object HELP Please
Does anyone know how to send text to specific table cells from VB6 to an active InternetExplorer window and then submit the page.
-
Sep 19th, 2008, 10:28 AM
#3
Thread Starter
New Member
Re: VB6 InternetExplorer Object HELP Please
Got a bit further, now managed to send some data to the tables and submit them but I have come to another table that is causing me some trouble....
Here is the code from the table segment where I have problems:-
<form ACTION="my_form.cfm" METHOD="POST" onsubmit="return Form2_Validator(this)" name="Form2">
<p align="center">
<center>
<table border="0" width="70%" bgcolor="BFE6FD" cellspacing="0" cellpadding="3">
<tr>
<td width="46%" align="right"><b><font size="2" face="Tahoma">Duration:</font></b></td>
<td width="54%"><b><font face="Tahoma" size="2"><select size="1" name="Hours">
<option value="00" selected>00</option>
<option value="01">01</option>
<option value="02">02</option>
<option value="03">03</option>
<option value="04">04</option>
<option>05</option>
<option>06</option>
<option>07</option>
<option>08</option>
<option>09</option>
<option>10</option>
<option>11</option>
<option>12</option>
<option>13</option>
<option>14</option>
<option>15</option>
</select> </font> </b>
</td>
</tr>
<tr>
<td width="46%" align="right"><b><font size="2" face="Tahoma">Cost type:</font></b></td>
<td width="54%"><select size="1" name="Type">
<option selected value="Please Select">Please Select</option>
<option>BTC</option>
<option>TRAV</option>
<option>CPO</option>
<option>EM</option>
</select></td>
</tr>
Here is my code:-
Set objIE = New InternetExplorer
objIE.Visible = True
objIE.document.All("Hours").Value = "03"
objIE.document.All("Type").Value.Select = "CPO"
This line works fine objIE.document.All("Hours").Value = "03" and 03 is visible in the correct area on the browser window.
But the next line objIE.document.All("Type").Value = "CPO" causes the cell to from the default load value of Please Select to blank.
Could someone please tell me the correct syntax to set this cell to CPO.
-
Sep 19th, 2008, 01:30 PM
#4
Member
Re: VB6 InternetExplorer Object HELP Please
i think this will work.
Code:
objIE.document.All("Type").Value = "CPO"
-
Sep 19th, 2008, 02:10 PM
#5
Thread Starter
New Member
Re: VB6 InternetExplorer Object HELP Please
Thanks for the suggestion. I have givven it a try and it still sets that cell to blank.
Anyone got any other suggestions PLEASE
-
Sep 19th, 2008, 03:08 PM
#6
Member
Re: VB6 InternetExplorer Object HELP Please
whats the website and is the box a dropdown menue ??
Code:
WebBrowser1.Document.All("Type"").Value = "CPO"
-
Sep 19th, 2008, 03:14 PM
#7
Thread Starter
New Member
Re: VB6 InternetExplorer Object HELP Please
It's an intranet site I'm afraid.
Yes it is a drop down box but then so is the cell that I set on the line before and that works fine.
There are several other cells on the web page that I set successfully all except this one. But then if you look at the html code that cell is written in a slightly different way, but I can't change that.
-
Sep 19th, 2008, 05:33 PM
#8
Member
Re: VB6 InternetExplorer Object HELP Please
attach the html and i will have a look at it.
Originally Posted by ArferMo
It's an intranet site I'm afraid.
Yes it is a drop down box but then so is the cell that I set on the line before and that works fine.
There are several other cells on the web page that I set successfully all except this one. But then if you look at the html code that cell is written in a slightly different way, but I can't change that.
-
Sep 22nd, 2008, 11:14 AM
#9
Thread Starter
New Member
Re: VB6 InternetExplorer Object HELP Please
OK I have loaded the form to a publicly accessible area, remember this is not my form so I can't change the working one, I have to use it as is once I can figure out how to get "CPO" into the required Work Type: cell with your help.
Here is my code so far:-
Private Sub Command1_Click()
Set objIE = New InternetExplorer
objIE.Visible = True
objIE.Navigate2 "http://arthurbard.com/MyTestArea/OT_New.htm"
DoEvents
Do While objIE.Busy
DoEvents
Loop
While objIE.readyState <> 4
DoEvents
Wend
DoEvents
objIE.document.All("Hours").Value = "03"
objIE.document.All("Type").Value = "CPO"
objIE.document.All("Job_no").Value = "Testing"
objIE.document.All("Remarks").Value = "This is a test record please ignore."
MsgBox "Now why is the work type cell blank and not showing CPO."
End Sub
-
Sep 22nd, 2008, 01:10 PM
#10
Member
Re: VB6 InternetExplorer Object HELP Please
please attach the html page.
-
Sep 22nd, 2008, 01:15 PM
#11
Thread Starter
New Member
Re: VB6 InternetExplorer Object HELP Please
You could get it from the on line pager in the code above.
Code:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
<body>
<br>
<form ACTION="pin_res.cfm" METHOD="POST" onsubmit="return Form2_Validator(this)" name="Form2">
<p align="center">
<center>
<table border="0" width="70%" bgcolor="BFE6FD" cellspacing="0" cellpadding="3">
<tr>
<td width="46%" align="right"><b><font face="Tahoma" size="2">First Name:</font></b></td>
<td width="54%"><b><font face="Tahoma" size="2">Richard</font></b></td>
</tr>
<tr>
<td width="46%" align="right"><b><font face="Tahoma" size="2">Surname:</font></b></td>
<td width="54%"><b><font face="Tahoma" size="2">Woodbine</font></b></td>
</tr>
<tr>
<td width="46%" align="right"><b><font face="Tahoma" size="2">Shop:</font></b></td>
<td width="54%"><b><font face="Tahoma" size="2">ASDA</font></b></td>
</tr>
<tr>
<td width="46%" align="right"><b><font face="Tahoma" size="2">Grade:</font></b></td>
<td width="54%"><b><font face="Tahoma" size="2">Checkout Op</font></b></td>
</tr>
<tr>
<td width="46%" align="right"><b><font size="2" face="Tahoma">Entered by:</font></b></td>
<td width="54%"><b><font face="Tahoma" size="2">287881480</font></b></td>
</tr>
<tr>
<td width="46%" align="right"><b><font size="2" face="Tahoma">Work Duration:</font></b></td>
<td width="54%"><b><font face="Tahoma" size="2"><select size="1" name="Hours">
<option value="00" selected>00</option>
<option value="01">01</option>
<option value="02">02</option>
<option value="03">03</option>
<option value="04">04</option>
<option>05</option>
<option>06</option>
<option>07</option>
<option>08</option>
<option>09</option>
<option>10</option>
<option>11</option>
<option>12</option>
<option>13</option>
<option>14</option>
<option>15</option>
</select> </font> </b>
<font face="Tahoma" size="2"><b>Hrs </b> <select size="1" name="Minutes">
<option selected>00</option>
<option>15</option>
<option>30</option>
<option>45</option>
</select> <b> Mins </b>
<input type="text" name="Estimate" size="2" maxlength="1" value="Y">
<b>Estimate(Y/N)</b></font></td>
</tr>
<tr>
<td width="46%" align="right"><b><font size="2" face="Tahoma">Work Type:</font></b></td>
<td width="54%"><select size="1" name="Type">
<option selected value="Please Select">Please Select</option>
<option>STD</option>
<option>TRAV</option>
<option>CPO</option>
<option>EM</option>
</select></td>
</tr>
<tr>
<td width="46%" align="right"><b><font size="2" face="Tahoma">Work Date:</font></b></td>
<td width="46%" >
<select name=day>
<option selected value=22 > 22 </option>
<option >01</option><option >02</option><option >03</option>
<option >04</option><option >05</option><option >06</option>
<option >07</option><option >08</option><option >09</option>
<option >10</option><option >11</option><option >12</option>
<option >13</option><option >14</option><option >15</option>
<option >16</option><option >17</option><option >18</option>
<option >19</option><option >20</option><option >21</option>
<option >22</option><option >23</option><option >24</option>
<option >25</option><option >26</option><option >27</option>
<option >28</option><option >29</option><option >30</option>
<option >31</option>
</select>
<select name=month >
<option selected value=09 > September </option>
<option value="01">January</option>
<option value="02">February</option>
<option value="03">March</option>
<option value="04">April</option>
<option value="05">May</option>
<option value="06">June</option>
<option value="07">July</option>
<option value="08">August</option>
<option value="09">September</option>
<option value="10">October</option>
<option value="11">November</option>
<option value="12">December</option>
</select>
<select name="year">
<option selected value=2008> 2008 </option>
<option >2007</option>
<option >2009</option>
</select>
</td>
</tr>
<tr>
<td width="46%" align="right"><b><font size="2" face="Tahoma">Job Ref. </font></b></td>
<td width="54%"><b><font face="Tahoma" size="2">
<input type="text" name="Job_no" size="10" maxlength="10"></font></b></td>
</tr>
<tr>
<td width="46%" align="right"><b><font face="Tahoma" size="2">Remarks:</font></b></td>
<td width="54%"><textarea rows="4" name="Remarks" wrap="virtual" cols="30"></textarea></td>
</tr>
</table>
<br>
<input TYPE="SUBMIT" VALUE="Update work log for Richard Woodbine ASDA">
<input type="hidden" name="forename" value="Richard">
<input type="hidden" name="surname" value="Woodbine">
<input type="hidden" name="shop" value="ASDA">
<input type="hidden" name="grade" value="Checkout Op">
<input type="hidden" name="employe" value="287881480">
</form>
<br><br>
</center>
</td>
</tr>
<tr>
<td align="right" valign="bottom" width="100%"></td>
</tr>
</table>
</body>
</html>
Last edited by si_the_geek; Sep 23rd, 2008 at 06:24 AM.
Reason: added code tags
-
Sep 23rd, 2008, 04:18 AM
#12
Thread Starter
New Member
Re: VB6 InternetExplorer Object HELP Please. Are you all beat ?
This is a most perplexing problem. Is no one able to offer a coding solution?
-
Sep 24th, 2008, 09:50 AM
#13
Thread Starter
New Member
Re: VB6 InternetExplorer Object HELP Please. Are you all beat ?
I know that the problem is caused by an html coding problem on the page but I am unable to get that corrected.
But if you can manually click on the drop down arrow in the "Work Type" box to drop the menu down then click on the "CPO" option.... then why can't you do it withing the VB6 code.
FAULTY LINE
<option>CPO</option>
CORRECTED LINE
<option value ="CPO">CPO</option>
But how to do it in VB6 on the page with the html error.
-
Sep 24th, 2008, 10:55 AM
#14
Member
Re: VB6 InternetExplorer Object HELP Please. Are you all beat ?
due to the coding glitch, i think it would be hard to do, i am not sure of a way to do it.
if if i was you, i would make it so 99% is auto e.g up to this point then after this point its manual.
-
Sep 24th, 2008, 11:54 AM
#15
Thread Starter
New Member
Re: VB6 InternetExplorer Object HELP Please. Are you all beat ?
Is it possible to set the value by some sort of index or option value to set it to CPO
Problem with VB is that as you type the line:-
objIE.document.All("Type").Value = "CPO"
After you get to objIE.document you get no syntax help so I am rather in the dark after that.
<tr>
<td width="46%" align="right"><b><font size="2" face="Tahoma">Work Type:</font></b></td>
<td width="54%"><select size="1" name="Type">
<option selected value="Please Select">Please Select</option>
<option>STD</option>
<option>TRAV</option>
<option>CPO</option>
<option>EM</option>
</select></td>
</tr>
-
Sep 24th, 2008, 12:04 PM
#16
Member
Re: VB6 InternetExplorer Object HELP Please. Are you all beat ?
dont think this will work but you could try:
CPO (4)
Code:
objIE.document.All("Type").index = "4"
Last edited by Delboy23; Sep 24th, 2008 at 12:13 PM.
-
Sep 24th, 2008, 03:22 PM
#17
Thread Starter
New Member
Re: VB6 InternetExplorer Object HELP Please. Are you all beat ?
You are correct it doesn't work.
Error 438
Object does not support this property or method.
-
Sep 24th, 2008, 04:30 PM
#18
Member
Re: VB6 InternetExplorer Object HELP Please. Are you all beat ?
as i expected but worth a try i suppose.
you could try something like option 4, but again i am not sure this will work. like i said before i would suggest having most auto but a little manual.
Originally Posted by ArferMo
You are correct it doesn't work.
Error 438
Object does not support this property or method.
-
Sep 25th, 2008, 05:28 AM
#19
Re: VB6 InternetExplorer Object HELP Please. Are you all beat ?
this works
Code:
Const CPO = 3
objie.document.All("Type").selectedindex = CPO
i do my best to test code works before i post it, but sometimes am unable to do so for some reason, and usually say so if this is the case.
Note code snippets posted are just that and do not include error handling that is required in real world applications, but avoid On Error Resume Next
dim all variables as required as often i have done so elsewhere in my code but only posted the relevant part
come back and mark your original post as resolved if your problem is fixed
pete
-
Sep 25th, 2008, 04:55 PM
#20
Thread Starter
New Member
Re: VB6 InternetExplorer Object HELP Please. Are you all beat ?
That's great westconn1 THANK YOU. I have been struggling for a week and a half to crack this problem.
Is there any documentation for commands for this object for things like selectedindex I did not know that that was an acceptable command.
-
Sep 26th, 2008, 08:41 AM
#21
Re: VB6 InternetExplorer Object (Resolved)
i had never used an explorer object, so i had search, around for a while, in the element properties, to find what property could be set for that element, i have no idea if there is any documentation, i guess there is somewhere
i do my best to test code works before i post it, but sometimes am unable to do so for some reason, and usually say so if this is the case.
Note code snippets posted are just that and do not include error handling that is required in real world applications, but avoid On Error Resume Next
dim all variables as required as often i have done so elsewhere in my code but only posted the relevant part
come back and mark your original post as resolved if your problem is fixed
pete
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|