PDA

View Full Version : Test



Treat
03-21-2013, 12:47 PM
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub ProcessDisconnects()
Dim i As Long
Dim IE As InternetExplorer
Dim URL As String
Dim Websource As String
Dim ieDoc As Object
Dim TNTest As String

URL = "URL HERE"
Set IE = New InternetExplorer

With IE
.Visible = True
.navigate URL
While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend
.document.Links(6).Click
While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend
End With

Set ieDoc = IE.document
TNTest = "5555551212"

While IE.Busy
DoEvents 'wait until IE is done loading page.
Wend
Sleep 200

With ieDoc.forms(0)
.Search.Value = TNTest
.submit
End With


End Sub


Test HTML


<DIV id="doc3" class="yui-t1">
<DIV id="hd">
<!-- 974px Header -->
<DIV id="_API_header">
<DIV style="PADDING-BOTTOM: 5px; PADDING-LEFT: 5px; PADDING-RIGHT: 5px; PADDING-TOP: 5px" id="header">
</DIV>
</DIV>
<DIV id="_API_topborder">
<DIV id="topborder" name="topborder">
<P class="font14" align="right">
<B>Manage Reservations</B>&nbsp;&nbsp;&nbsp;
</P>
</DIV>
</DIV>
<DIV style="WIDTH: 1px; HEIGHT: 10px" id="_API_borderspacer">
</DIV>
<DIV id="bd">
<DIV id="yui-main">
<DIV class="yui-b">
<DIV class="yui-g">
<!-- 794px Workspace -->
<DIV id="_API_topmenu">
<DIV id="topmenu" name="topmenu">
&nbsp;
</DIV>
</DIV>
<DIV id="_API_main">
<DIV id="main" name="main">
<FORM id="f1" name="f1" jQuery1363884093994="293">
Telephone Number or Subscriber Account: <INPUT id="SEARCH" class="required" name="SEARCH" validate="required:true" value="" /> <INPUT type="submit" jQuery1363884093994="294" value="Continue" />
</FORM>
</DIV>
</DIV>
</DIV>
</DIV>
</DIV>