Show Bid Request
IE2
Bid Request Id: 35872
|
|
|
Posted by: |
KURTL34@MD (16 ratings)
(Software buyer rating 10)
|
Non-action Ratio: |
Very Good - 0.00%
|
Buyer Security Verifications: |
Good
|
Approved on: |
Nov 17, 2002 4:54:18 PM EDT
|
Bidding Closes: |
Dec 1, 2002 5:00:28 PM EDT
|
Viewed (by coders): |
182 times
|
Deadline: |
12/2/2002
TIME EXPIRED
|
|
|
|
Description:
VB6 INTERFACE WITH IEEXPLORER
AT-SIGN REPLACED BY & BECAUSE AT-SIGN NOT ALLOWED IN DESC IN THIS MESSAGE ONLY, NOT IN THE ATTACHMENT.
ATTACHED IS A WEB PAGE.
THE FOLLOWING CODE PASTES A VALUE INTO THE WEBPAGE.
THEN 'TRIES' TO PUSH THE SEARCH BUTTON.
THE PROBLEM IS THAT THE SEARCH OPERATION IS NOT ACTIVATED WITH THIS CODE.
*****I CANNOT SEND KEYSTROKES!!!!!
*****I CANNOT MODIFY THE HTML!!!! OR ANYTHING IN THE ATTACHED FILE.
*****I'M LOOKING FOR A CHANGE IN VB.
I NEED TO ACCESS THE SEARCH WIDGET DIRECTLY.
CAN YOU TELL ME WHY THIS DOES NOT ACTIVATE THE SEARCH OPERATION?
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Private Sub DoTestx()
Dim sField As String Dim sValue As String
w.Navigate "C:\ATT.HTM" sField = "/ILSXML/INPUT/BQ001/PARTS/PART[&ID='1']/PARTNUMBER|pno1" sValue = "2-0001" SetValue w.Document, sField, sValue sField = "/ILSXML/INPUT/BQ001/PARTS/PART[&ID='2']/PARTNUMBER|pno1" sField = "/ILSXML/INPUT/BQ001/ACTIONS/ACTION[&CODE='Search']|Search" sValue = "YYY" SetValue w.Document, sField, "^PUSH^^" End Sub
Private Sub SetValue(ByVal iDoc As HTMLDocument, sField As String, sValue As String) Dim lI As Long Dim bDone As Boolean F_sList = "" bDone = funcSetValue2(iDoc, sField, sValue) If Not bDone Then For lI = 0 To iDoc.frames.length - 1 bDone = funcSetValue2(iDoc.frames(lI).Document, sField, sValue) If bDone Then Exit Sub End If Next lI End If End Sub Private Function funcSetValue2(ByVal iDoc As HTMLDocument, sField As String, sValue As String) Dim lI As Long Dim htmlDDX As HTMLDDElement Dim htmlButton As HTMLButtonElement Dim sName As String
On Error Resume Next funcSetValue2 = True For lI = 0 To iDoc.All.length - 1 Err = 0 sName = "" If sValue = "^PUSH^^" Then Set htmlButton = iDoc.All(lI) If Err = 0 Then sName = htmlButton.getAttribute("NAME") If UCase(sName) = UCase(sField) Then htmlButton.Click Exit Function End If End If Else Set htmlDDX = iDoc.All(lI) If Err = 0 Then sName = htmlDDX.getAttribute("NAME") If UCase(sName) = UCase(sField) Then htmlDDX.innerText = sValue Exit Function End If End If End If Next lI funcSetValue2 = False End Function
Deliverables: EXPLANATION, VB-SNIPPETS, ANYTHING TO TELL ME HOW TO ACTIVATE THE SEARCH OPERATION.
Platform:
WINDOWS VB6
Must be 100% finished and received by buyer on:
Dec 2, 2002 EDT
Deadline legal notes: All times are expressed in the time zone of the site EDT (UT - 5). If the buyer omitted a time, then the deadline is 11:59:59 PM EDT on the indicated date.
Additional Files:
This bid request includes IMPORTANT additional attached files. Please download and read fully before bidding.
Remember that contacting the other party outside of the site (by email, phone, etc.) on all business projects < $500 (before the buyer's money is escrowed) is a violation of both the software buyer and seller agreements.
We monitor all site activity for such violations and can instantly expel transgressers on the spot, so we thank you in advance for your cooperation.
If you notice a violation please help out the site and report it. Thanks for your help.
|
|
Bidding/Comments:
|
All monetary amounts on the site are in United States dollars.
Rent a Coder is a closed auction, so coders can only see their own bids and comments. Buyers can view every posting made on their bid requests. |
See all rejected bids (and all comments)
Name |
Bid Amount |
Date |
Coder Rating |
|
|
|
N/A
|
Nov 18, 2002 5:10:37 AM EDT
|
8.58
(Superb)
|
|
|
HI
this is a tricky problem. I think the reason this isn't working is that the search button is not a 'real' button. if yout click this button then a javascript is ecxecuted and this jscript executes the jsSubmitForm Script. In my opinnion you have to call the js jslDoSearch() and that should execute the form. But i find this problem interesting and will investigate it - perhaps i find a solution. regards georg
|
|
|
|
|
|