• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 349
  • Last Modified:

i AM TRYING TO FILL THIS WEBSITE TEXT BOX WITH WEB CONTROL I HAVE TRYED MANY TASK AND NONE OF THEM WORK CAN ANY ONE HELP ME

i AM TRYING TO FILL THIS WEBSITE TEXT BOX WITH WEB CONTROL I HAVE TRYED MANY TASK AND NONE OF THEM WORK CAN ANY ONE HELP ME THIS VB 6
<LABEL><font class='protrace_text'>PRO TRACE</FONT></LABEL><br>      <INPUT TYPE='text' SIZE=8 NAME='wpronumb' >

Open in new window

WEBSITE-TEXT-BOX.bmp
0
1030071002
Asked:
1030071002
  • 6
  • 5
1 Solution
 
GMGeniusCommented:
Not sure I understand
Maybe you can list what you have tried?
0
 
1030071002Author Commented:
i am tring to fill that text box with data for example "354654"
using control functions like these
example i have tryed these i did change the parends
WebBrowser.Document.forms.item(0).elements("field1").value = "myvalue"
For Each htmle In Browser.document.GetElementsByTagName("Input")
Select Case htmle.Name
Case "date"
'enter some data into the input field
htmle.InnerText = "160707"
Case "callsign"
htmle.InnerText = "QW12"
End Select
poststring = poststring & htmle.Name & "=" & htmle.InnerText & "&"
Next
webBrowser1.Document.GetElementById("FirstName").SetAttribute("value", "John")
 
 

 
0
 
1030071002Author Commented:
Okay I found out I cant get by id so i am trying to get by
getElementsByTagName
please help
 
<CENTER>
<TABLE WIDTH="70%">
<TR>
  <TD ALIGN='RIGHT'><B> Probill  #1:</B></TD>
  <TD><INPUT TYPE='text' NAME='wpro1' VALUE = '' SIZE=10></TD>
  <TD ALIGN='RIGHT'><B> Probill  #2:</B></TD>
  <TD><INPUT TYPE='text' NAME='wpro2' VALUE = '' SIZE=10></TD>
  <TD ALIGN='RIGHT'><B> Probill #3:</B></TD>
  <TD><INPUT TYPE='text' NAME='wpro3' VALUE = '' SIZE=10></TD>
</TR>
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
1030071002Author Commented:
Tagname ----> tbody

http://64.80.57.250/cgi-bin/cgiip.exe/Wservice=wsbroker1/logo-frame.r?language=&seskey=kimIbpiulRfgbdba"

<input type="text" name="wpro1" size="8">


<input type="text" name="wpronumb" size="8">

0
 
GMGeniusCommented:
What development application are you using?
VB.NET or VB6?
0
 
1030071002Author Commented:
any one does not matter
 
0
 
GMGeniusCommented:
I have test application (sorry cant post it here) that allows me to inspect all open web browser windows and read the forms and elements
I know what your trying to do so here are some pointers
I have added the "Microsoft HTML Object Library" to the project "MSHTML.TLB"
You can work fast with the elements if you break it down to so variables but you dont have to
eg:
    Dim oDocument   As HTMLDocument
    Dim oForm       As HTMLFormElement
    Dim oFormInput  As HTMLInputElement
    Dim oFormSelect As HTMLSelectElement
    Dim oFormArea   As HTMLTextAreaElement
    Dim oFormButton As HTMLInputButtonElement
Then you can break down each element of the document to the variables to inspect them alot easier
eg:
Set oDocument = WebBrowser.Document
Set oForm = oDocument.Forms.Item(0)   ' assign to the first form in the document
 debug.print oForm.item("userid").value
or alter a value in the form
oForm.item("userid").value = "12345"
0
 
GMGeniusCommented:
If oForm.Item("userid").nodeName = "INPUT" Then
Set oFormInput = oForm.Item("userid")
oFormInput.id
oFormInput.type
oFormInput.value
0
 
GMGeniusCommented:
I posted my source on a public site so you can download and play with it from there
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=60699&lngWId=1
 I built this some time ago but it should work fine
0
 
1030071002Author Commented:
lhjbgvkhjb
0
 
1030071002Author Commented:
.
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 6
  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now