|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
biixoguu
註冊時間: 2011-12-05 文章: 6
第 1 樓
|
發表於: 星期一 四月 08, 2013 1:02 pm 文章主題: 程式按鈕連結IE 後 自動登入密碼 |
|
|
經過了爬文,參照了下面,前輩們的做法
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
註冊時間: 2007-06-21 文章: 768
第 2 樓
|
發表於: 星期三 四月 10, 2013 10:11 am 文章主題: |
|
|
有勾選保存 cookie 之類的嗎? |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 3 樓
|
發表於: 星期四 四月 18, 2013 12:13 pm 文章主題: |
|
|
後學的作法 :
進入後 如已登入 就不動作
如未登入 就按先進的方式
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
. . . . . |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|