12
返回列表 上一主題 發帖

[發問] 網頁登入-按鈕問題!

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-12-3 07:57 | 只看該作者

[發問] 網頁登入-按鈕問題!

請各位大大幫我解決....
以下是我要登入的原始碼
以測試帳號密碼都輸入OK
問題一、 哪個是確定的按鈕  並且給我按下按鈕的語法
目前是設定   myWeb.Document.all("name='c_psd").Click
卻停在登入畫面 沒有按下確定的畫面 ((帳號密碼已輸入完畢))
  1. <!-- IGNORE -->

  3. <form action="" method="POST" name="">
  4. <p>&nbsp;</P>
  5. <table align=center id="default">
  6.     <tr>
  7.       <th colspan=2 class="center">請輸入登入資訊</th>
  8.     </tr>
  9.     <tr>
  10.       <td class="right">帳號：</td>
  11.       <td>
  12.       <input name="f_account" type="text" size="15" maxlength="10" value="" id="f_account">
  13.       </td>
  14.     </tr>
  15.     <tr>
  16.       <td class="right">密碼：</td>
  17.       <td>
  18.       <input name="f_psd" type="password" size="15" maxlength="10" value="" id="f_psd">
  19.       </td>
  20.     </tr>
  21.     <tr>
  22.       <td >&nbsp;</td>
  23.       <td>
  24.         <input type="submit" class="buttonsubmit" value=確定>
  25.           <input type="submit" class="buttonsubmit" value="修改密碼" onclick="c_psd()">
  26.       </td>
  27.     </tr>
  28.   </table>
  29.   <input type="hidden" name="f_step" id="f_step" value="from_default" />
  30.   <input type="hidden" name="f_c_psd" id="f_c_psd" value="false" />
  31. </form>
複製代碼
收藏 分享
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

bugsfamily

帖子
17 
主題
3 
精華
0 
積分
33 
點名
0  
作業系統
XP SP3 
軟體版本
Office 2007 
閱讀權限
10 
性別
男 
註冊時間
2011-4-30 
最後登錄
2012-12-21 
14#
發表於 2012-12-21 01:36 | 只看該作者
https://docs.google.com/document/pub?id=169oRI5TV0HWm0PySIzIIl9ngqS5oKVRxcdI6MqKdoBQ

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
13#
發表於 2012-12-5 14:59 | 只看該作者
回復 12# die78325
啊!網頁的設計.我涉獵不多,你的問題無法再進一步地替你解惑.

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
12#
發表於 2012-12-5 14:18 | 只看該作者
回復 11# GBKEE

問題1.如果不顯示網站就沒辦法成功對嗎? 因為這方法我有想過 但 我想說會不會有別種方法可以達成不開網頁的部分
              暫時先這樣來解決! 感謝大大  
問題2.如果我要登入進去後 再換網址可以嗎? 因為進去之後要再按另一個按鈕 但按鈕按進去是不同網址 那我就想說是否可以直接轉址 就免去找按扭了
因為他的按鈕不適input
以下是原始碼
       <body>
        <div id="container">
            <div id="header"> </div>
            <div id="navcontainer">
                <ul>
                    <li><a href="corpdata.jsp">逼逼</a></li>
                    <li><a href="carsdata.jsp">逼逼逼</a></li>
                    <li><a href="refueldata.jsp">逼逼逼逼</a></li>
                    <li><a href="logout.jsp"> &nbsp;登 &nbsp;&nbsp;&nbsp;&nbsp; 出&nbsp;</a></li>
                </ul>
或者大大可以提供我這樣怎麼去按jsp的語法...
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11#
發表於 2012-12-5 13:56 | 只看該作者
回復 10# die78325
每一網頁的設計都不一樣
  1. Option Explicit
  2. Sub 用戶登錄()
  3. '  Dim IE As New InternetExplorer, i As Integer, vDoc As Object
  4.     '宣告 Dim ie As New InternetExplorer
  5.     '須在工具-> 設定引用項目加入 新增引用 Microsoft Internet Controls
  6.     Dim i As Integer, vDoc As Object
  7.     With CreateObject("InternetExplorer.Application") '不需新增引用 Microsoft Internet Controls
  8.     'With IE
  9.         .Visible = True  'IE顯示開關
  10.         Application.StatusBar = "正在登入系統，請稍後......"
  11.         .Navigate "http://car.plusgroup.com.tw:8080/corpdata_new/"
  12.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  13.         Set vDoc = .document.getelementsbytagname("INPUT")
  14.         For i = 0 To vDoc.Length - 1
  15.             If vDoc(i).Name = "rcptid" Then
  16.                 vDoc(i).Value = "88888888"      '統編輸入
  17.                 Application.SendKeys ("~")      '按下Enter 移到密碼框
  18.             ElseIf vDoc(i).Name = "password" Then
  19.                 vDoc(i).Value = "66666666"      '密碼輸入
  20.                 Application.SendKeys ("~")
  21.                 '統編,密碼 都有輸入,按下Enter後,此網頁自動檢查統編,密碼是否正確
  22.                 '不用按[登 入]鍵
  23.             End If
  24.         Next
  25.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  26.     End With
  27.     Application.StatusBar = False
  28. End Sub
複製代碼

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
10#
發表於 2012-12-5 13:00 | 只看該作者
回復 8# GBKEE


    灰色按鈕登入問題.rar (14.76 KB)

新問題 這網頁 他一定要偵測到鍵盤打字才有辦法開燈號  如何解決...  一樣測到帳號密碼錯誤即可!! 感謝大大!
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

sos29593691

帖子
2 
主題
0 
精華
0 
積分
11 
點名
0  
作業系統
WindowsXP 
軟體版本
Office2007 
閱讀權限
10 
性別
女 
註冊時間
2012-12-4 
最後登錄
2012-12-17 
9#
發表於 2012-12-4 14:14 | 只看該作者
感謝大大們分享

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2012-12-4 07:40 | 只看該作者
回復 7# die78325
攸關這網頁安全,我也無法看到網頁替你修正
可參考這網頁的寫法
  1. Sub 國際貨查詢()
  2.     Dim i As Integer, s As Integer, k As Integer, n, kn, j, xi
  3.     Dim Element, 統編 As String, ie As Object, sh As Worksheet
  4.         統編 = 16834268
  5.     Set ie = CreateObject("InternetExplorer.Application")
  6.     With ie
  7.         .Visible = True
  8.         .Navigate "http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp"
  9.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  10.         With .Document
  11.             Set Element = .getElementsByName("sel")  '查詢類別
  12.             '0: 繳納單號
  13.             '1: 報單號碼
  14.             '2: 公司統編(身分證字號):  "id"[公司統編] ,"sel01" [選項] , "portcode"[港別]
  15.             Element(2).Click  '2: 公司統編(身分證字號)
  16.             Set Element = .getElementsByName("id") '[選項]
  17.             Element(0).Value = 統編
  18.             .getElementsByName("sel01")(0).Value = 2
  19.             '[選項]:<select name="sel01">
  20.              'value='1'>欠費清單 ' value='2' 所有繳納單
  21.             .getElementsByName("portcode")(0).Value = "TWKEL"
  22.             '[港別]: <select name="portcode">
  23.              'value='-'>所有港
  24.              'value='TWKEL' ->基隆港
  25.              'value='TWKHH' ->高雄港
  26.              'value='TWTXG' ->台中港
  27.              'value='TWHUN' ->花蓮港
  28.              'value='TWTPE' ->台北港
  29.              'value='TWSUO' ->蘇澳港
  30.              'value='TWANP' ->安平港
  31.              'value='TWBDA' ->布袋港
  32.             For i = 0 To .getelementsbytagname("INPUT").Length - 1              '尋找[開始查詢]按鍵
  33.                 If .getelementsbytagname("INPUT")(i).Value = "開始查詢" Then
  34.                     .getelementsbytagname("INPUT")(i).Click                     '按下 [開始查詢] 按鍵
  35.                     Exit For
  36.                 End If
  37.             Next
  38.             Do While ie.Busy Or ie.ReadyState <> 4: DoEvents: Loop
  39.             Set sh = ActiveSheet                                                '指定工作表: 寫入資料
  40.             ActiveSheet.UsedRange.Offset(1).Clear
  41.             For i = 1 To .getelementsbytagname("table")(0).Rows.Length - 1      '寫入資料
  42.                 k = k + 1
  43.                 For j = 0 To 13
  44.                     sh.Cells(k, j + 1) = .getelementsbytagname("table")(0).Rows(i).Cells(j).innertext
  45.                     If i = .getelementsbytagname("table")(0).Rows.Length - 1 Then Exit For   '最後一列顯示資料數
  46.                 Next
  47.             Next
  48.             sh.Columns.AutoFit
  49.         End With
  50.                .Quit
  51.     End With
  52.     Set ie = Nothing        
  53. End Sub
複製代碼
***********
或可參考這做法
***********

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
7#
發表於 2012-12-3 18:35 | 只看該作者
回復 6# GBKEE

      <input type="submit" class="buttonsubmit" value=確定>
      <input type="submit" class="buttonsubmit" value="修改密碼" onclick="c_psd()">
    大大 你怎麼知道要用value??
If vDoc(i).Name = "f_psd" Then vDoc(i).Value = "8888"  '用戶密碼 請修改
If vDoc(i).Value = "確定" Then vDoc(i).Click           '用戶Click


所以沒有 NAME就找其他的值嗎？？　　

我又卡到了= =" 進到下一頁面  要找到欄位
輸入日期 20121201 到 20121202   ((網頁需求yyyymmdd))
但 他原始碼又沒有name
<!-- IGNORE -->
<input value="回查詢首頁" onclick="location.href='index.php'" type="button">
<form id="form1" name="form1" method="post" action="" onsubmit="return checkform()">
  <table id="default2" align="center">
    <tr>
      <th class="center">請輸入查詢條件</th>
    </tr>
    <tr class="need">
      <td>
        時間格式:<input type="radio" name="date_format" id="date_format_td03" value="td03" ><label for="date_format_td03">交易日期</label>
                 <input type="radio" name="date_format" id="date_format_td16" value="td16" ><label for="date_format_td16">交班日期</label>
        (<font color="blue">月-日/班島</font>)
      </td>
    </tr>
    <tr class="need">
      <td class=""><span id="red">*[必填]</span>時間：
          <input name="f_dates" type="text" id="f_dates" size="10" maxlength="8" value="" />
          ~
          <input name="f_datee" type="text" id="f_datee" size="10" maxlength="8" value="" />
         （20090814∼20090814）
    <input type="submit" name="button" id="button" value="送出" class="buttonsubmit" class="center"/>
        有需要下載CSV檔案請打勾!<input type="checkbox" name="f_csv" >

比較會用到的舊以上這幾個
我只要輸入三樣
兩個日期欄位與送出  他有提供下載csv   如果可以  請幫我讓她點擊打勾
並送出
因為我直接在複製一次sub想說來改下一頁的資訊 還是不太行 =="
感謝大大協助....
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2012-12-3 16:14 | 只看該作者
本帖最後由 GBKEE 於 2012-12-3 16:16 編輯

回復 5# die78325
每一網頁會有差異的.可從檢視原始檔案中看出端倪.
  1. Option Explicit
  2. Sub 用戶登錄()
  3. '  Dim IE As New InternetExplorer, i As Integer, vDoc As Object
  4.     '宣告 Dim ie As New InternetExplorer
  5.     '須在工具-> 設定引用項目加入 新增引用 Microsoft Internet Controls
  6.     Dim i As Integer, vDoc As Object
  7.     With CreateObject("InternetExplorer.Application") '不需新增引用 Microsoft Internet Controls
  8.     'With IE
  9.         .Visible = True
  10.         .Navigate "http://www.slc.com.tw/custom/gas/custom/index.php"
  11.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  12.         Set vDoc = .Document.getElementsByTagName("INPUT")
  13.         For i = 0 To vDoc.Length - 1
  14.             If vDoc(i).Name = "f_account" Then vDoc(i).Value = "8888"    '用戶名稱 請修改
  15.             If vDoc(i).Name = "f_psd" Then vDoc(i).Value = "8888"  '用戶密碼 請修改
  16.             If vDoc(i).Value = "確定" Then vDoc(i).Click           '用戶Click
  17.         Next
  18.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  19.     End With
  20. End Sub
複製代碼

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
12
返回列表 上一主題