註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 網頁登入-按鈕問題!
1
2
返回列表
下一主題
上一主題
發帖
[發問]
網頁登入-按鈕問題!
GBKEE
發短消息
加為好友
GBKEE
當前離線
UID
16
帖子
5923
主題
13
精華
1
積分
5986
金錢
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
在線時間
4811 小時
註冊時間
2010-5-1
最後登錄
2022-1-23
超級版主
帖子
5923
主題
13
精華
1
積分
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
註冊時間
2010-5-1
最後登錄
2022-1-23
11
#
跳轉到
»
發表於 2012-12-5 13:56
|
只看該作者
回復
10#
die78325
每一網頁的設計都不一樣
Option Explicit
Sub 用戶登錄()
' Dim IE As New InternetExplorer, i As Integer, vDoc As Object
'宣告 Dim ie As New InternetExplorer
'須在工具-> 設定引用項目加入 新增引用 Microsoft Internet Controls
Dim i As Integer, vDoc As Object
With CreateObject("InternetExplorer.Application") '不需新增引用 Microsoft Internet Controls
'With IE
.Visible = True 'IE顯示開關
Application.StatusBar = "正在登入系統,請稍後......"
.Navigate "http://car.plusgroup.com.tw:8080/corpdata_new/"
Do While .Busy Or .readyState <> 4: DoEvents: Loop
Set vDoc = .document.getelementsbytagname("INPUT")
For i = 0 To vDoc.Length - 1
If vDoc(i).Name = "rcptid" Then
vDoc(i).Value = "88888888" '統編輸入
Application.SendKeys ("~") '按下Enter 移到密碼框
ElseIf vDoc(i).Name = "password" Then
vDoc(i).Value = "66666666" '密碼輸入
Application.SendKeys ("~")
'統編,密碼 都有輸入,按下Enter後,此網頁自動檢查統編,密碼是否正確
'不用按[登 入]鍵
End If
Next
Do While .Busy Or .readyState <> 4: DoEvents: Loop
End With
Application.StatusBar = False
End Sub
複製代碼
TOP
die78325
發短消息
加為好友
die78325
(新鮮貨幽杉)
當前離線
UID
11329
帖子
94
主題
10
精華
0
積分
114
金錢
114
點名
0
作業系統
win 7
軟體版本
office 2010
閱讀權限
20
性別
男
來自
桃園
在線時間
91 小時
註冊時間
2012-10-17
最後登錄
2014-1-3
暱稱:
新鮮貨幽杉
中學生
帖子
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"> 登 出 </a></li>
</ul>
或者大大可以提供我這樣怎麼去按jsp的語法...
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com
TOP
GBKEE
發短消息
加為好友
GBKEE
當前離線
UID
16
帖子
5923
主題
13
精華
1
積分
5986
金錢
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
在線時間
4811 小時
註冊時間
2010-5-1
最後登錄
2022-1-23
超級版主
帖子
5923
主題
13
精華
1
積分
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
註冊時間
2010-5-1
最後登錄
2022-1-23
13
#
發表於 2012-12-5 14:59
|
只看該作者
回復
12#
die78325
啊!網頁的設計.我涉獵不多,你的問題無法再進一步地替你解惑.
TOP
bugsfamily
發短消息
加為好友
bugsfamily
當前離線
UID
4584
帖子
17
主題
3
精華
0
積分
33
金錢
33
點名
0
作業系統
XP SP3
軟體版本
Office 2007
閱讀權限
10
性別
男
在線時間
15 小時
註冊時間
2011-4-30
最後登錄
2012-12-21
小學生
帖子
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
靜思自在 :
修行要繫緣修心,藉事練心,隨處養心。
1
2
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲