VFP 愛用者社區

[biixoguu]

經過了爬文，參照了下面，前輩們的做法
http://vfp.sunyear.com.tw/viewtopic.php?t=5572&postdays=0&postorder=asc&highlight=%BA%F4%A7%7D+%B5n%A4J&start=0

以下是我連結IE的寫法
Public ieMonitor
ieMonitor = Createobject("InternetExplorer.Application")
ieMonitor.Navigate("http://www.drug-health.com.tw/members/index.php?mode=sign_in")
ieMonitor.Visible = .T.
ieMonitor.document.getElementById("is_uu").value="xxxxx"
ieMonitor.document.getElementById("is_pp").value="xxxxx"
ieMonitor.document.getElementById("imageField").click()


網頁原始檔 ( 指複製重要部分)
</span></div></div>

<div id="is_content">
<div id="content_note" >
<table width="100%" border="0" cellpadding="1" cellspacing="1">
<tr>
<td height="25"><span style="padding-top:6px"><img src="../images/default/icon_05.gif" alt="" /></span></td>
<td width="1149" height="25">您必需先登入您的會員帳號與密碼，才可以進入本區。</td>
</tr>
<tr>
<td width="14" valign="top" style="padding-top:6px"><img src="../images/default/icon_05.gif"></td>
<td height="25">若於尚未註冊為本站會員，請先 [ <a href="./?mode=sign_up">加入成為本站會員</a> ] </td>
</tr>
<tr>
<td valign="top" style="padding-top:6px"><img src="../images/default/icon_05.gif"/></td>
<td height="25">若您遺忘您的帳號、密碼資訊，可至 [ <a href="./?mode=forgot_password">取回密碼</a> ] 功能中取得您原本設定的密碼資料。</td>
</tr>
<tr>
<td valign="top" style="padding-top:6px"><img src="../images/default/icon_05.gif"/></td>
<td height="25">您必需輸入驗證碼後才可以登入，驗證碼已顯示於該欄位上。</td>
</tr>
<tr>
<td height="5"></td>
<td height="5" colspan="2"></td>
</tr>
</table>
<table width="272" border="0" cellpadding="2" cellspacing="0">
<form action="./" method="post" onsubmit="return login_form_check(this)">
<tr>
<td height="23" align="center" background="../images/default/member_title_bg.gif"><font color="#FFFFFF">會員登入
<input name="mode" type="hidden" id="mode" value="log_in" />
</font></td>
</tr>
<tr>
<td align="center"><table width="267" border="0" cellpadding="2" cellspacing="1">
<tr>
<td width="96" align="right">帳　號：</td>
<td width="103" align="left"><input name="is_uu" type="text" id="is_uu" size="12" tabindex="1" /></td>
<td width="52" rowspan="2"><input name="imageField" type="image" src="../images/default/btn_login.gif" border="0" tabindex="4" class="image_button" style="width:49px; height:51px" /></td>
</tr>
<tr>
<td align="right">密　碼：</td>
<td align="left"><input name="is_pp" type="password" id="is_pp" size="12" tabindex="2" /></td>
</tr>
</table></td>
</tr>
</form>
</table>
</div>
</div>

</div>

</div>


想請教各位前輩的是...我缺少了甚麼步驟嗎
用了參照的程式碼
一直出現錯誤
安全性頁面的 ActiveX控制與外掛程式也啟用了

------更新-------

後來自己修正後，已經可以正確LOGIN 登入帳號密碼
但因為網頁如果有登入密碼，就會自動跳轉頁面
跳入另外一個頁面，似乎這程式碼就會抓不到而產生錯誤
各位前輩，不知有何好方法

[elleryq]

有勾選保存 cookie 之類的嗎?

[Patrick Wu]

後學的作法 :
進入後 如已登入 就不動作
如未登入 就按先進的方式

STORE "" TO M->I_E_STR
M->I_E_STR = oIE.Document.Body.InnerHtml

DO CASE
CASE AT( "帳號：" , M->I_E_STR ) != 0 .AND. AT( "密碼：" , M->I_E_STR ) != 0

. . . . .