上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
215001
註冊時間: 2003-06-11 文章: 389
第 1 樓
|
發表於: 星期二 十一月 10, 2015 9:59 am 文章主題: 可以寫程式去開啟 Google Chrome ,並開啟某個網頁,自動化嗎? |
|
|
以前都用 IE 來開啟網頁,並自動登入處理
現在很多人都改用Google Chrome 了
若改用 Google Chrome 時,要怎麼改寫下面的程式碼?
代碼: |
oIE = CREATEOBJECT("InternetExplorer.Application")
With oIE
.Visible = .T.
.Navigate('http://vfp.sunyear.com.tw')
.
.
ENDWITH
| [/code]
先謝了 |
|
回頂端 |
|
|
nelsonchuang
註冊時間: 2003-09-04 文章: 563 來自: 臺灣
第 2 樓
|
發表於: 星期二 十一月 10, 2015 2:06 pm 文章主題: |
|
|
就我知道,不可行,因為我以前搜尋過這樣的資料。
網路上有人說:「沒辦法,因為他不是微軟的產品。」又或者說,Google沒有提供方式。
至於現在可不可以,我就不清楚。
你可以再搜尋看看。。。(應該還是不行。) _________________ 大家好,請多指教 |
|
回頂端 |
|
|
Watermelon
註冊時間: 2005-01-22 文章: 197
第 3 樓
|
發表於: 星期三 九月 14, 2022 2:30 pm 文章主題: |
|
|
oIE = CREATEOBJECT("InternetExplorer.Application")
With oIE
.Visible = .T.
.Navigate('http://vfp.sunyear.com.tw')
ENDWITH
請問有人發現改成Google的方法了嗎? |
|
回頂端 |
|
|
CPS0204
註冊時間: 2014-08-24 文章: 441
第 4 樓
|
發表於: 星期三 九月 14, 2022 4:44 pm 文章主題: |
|
|
跟客戶說,透過vfpx 呼叫 的就綁定ie 不能改,且是舊版的ie
舊ie有個好處
上政府的網頁都通........ |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 5 樓
|
發表於: 星期三 九月 14, 2022 5:29 pm 文章主題: |
|
|
Watermelon 寫到: | oIE = CREATEOBJECT("InternetExplorer.Application")
With oIE
.Visible = .T.
.Navigate('http://vfp.sunyear.com.tw')
ENDWITH
請問有人發現改成Google的方法了嗎? |
後學 的方法 請先進參考
OS 預設瀏覽器為 Google Chrome
oIE = CREATEOBJECT("hyperlink")
oIE.NavigateTo("https://ebank.tbb.com.tw/nb3/login") |
|
回頂端 |
|
|
215001
註冊時間: 2003-06-11 文章: 389
第 6 樓
|
發表於: 星期四 九月 15, 2022 9:05 am 文章主題: |
|
|
開啟網頁後,才是重點
要如何自動登入,如何自動查詢資料 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 7 樓
|
發表於: 星期四 九月 15, 2022 10:46 am 文章主題: |
|
|
你得到那個點了
_________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 8 樓
|
發表於: 星期四 九月 15, 2022 1:33 pm 文章主題: |
|
|
215001 寫到: | 開啟網頁後,才是重點
要如何自動登入,如何自動查詢資料 |
後學不才 只能做到 自動登錄 (要驗證碼時 後學也沒轍)
可借此討論一下
= NUMLOCK(.T.) &&& 數字
LOCAL M->REP_TIMES , oIE , oWS
_SCREEN.WindowState = 1
oWS = Createobject("Wscript.Shell")
oIE = CREATEOBJECT("hyperlink") &&& 超連結 &&& 2022 JUN 19 CHANGE
oIE.NavigateTo("https://www.ctbcbank.com/twrbc/twrbc-general/ot001/010") &&& 警告訊息
INKEY(02)
oIE.NavigateTo("https://www.ctbcbank.com/twrbc/twrbc-general/ot001/010") &&& 登入
INKEY(05)
oWS.SendKeys("{TAB}")
oWS.SendKeys("A122535862")
INKEY(01)
oWS.SendKeys("{TAB}")
oWS.SendKeys("WERTSDFG")
INKEY(01)
oWS.SendKeys("{TAB}")
oWS.SendKeys("KJFGDTD")
INKEY(01)
oWS.SendKeys("{TAB}")
oWS.SendKeys("{ENTER}") |
|
回頂端 |
|
|
215001
註冊時間: 2003-06-11 文章: 389
第 9 樓
|
發表於: 星期四 九月 15, 2022 4:13 pm 文章主題: |
|
|
不錯喔,還有這招可以用
驗證沒差,應該只能動手了,反正也只做一次而已 |
|
回頂端 |
|
|
Watermelon
註冊時間: 2005-01-22 文章: 197
第 10 樓
|
發表於: 星期五 九月 16, 2022 6:15 pm 文章主題: |
|
|
Patrick Wu 說:
OS 預設瀏覽器為 Google Chrome
oIE = CREATEOBJECT("hyperlink")
oIE.NavigateTo("https://ebank.tbb.com.tw/nb3/login")
我的問題是user不會改預設瀏覽器為 Google Chrome
舊IL有的網站已不合用了! 還需連過去改!
想說若能在VFP直接開啟Google Chrome就好不必再連過去幫他們修改那就太理想了! |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 11 樓
|
發表於: 星期五 九月 16, 2022 9:31 pm 文章主題: |
|
|
Watermelon 寫到: | 想說若能在VFP直接開啟Google Chrome就好不必再連過去幫他們修改那就太理想了! |
報告 Watermelon 先進
後學不才 目前尚未有解決之道
SORRY |
|
回頂端 |
|
|
iswith
註冊時間: 2022-11-04 文章: 44
第 12 樓
|
發表於: 星期六 十一月 05, 2022 6:55 pm 文章主題: |
|
|
WD = Createobject("SeleniumBasic.IWebDriver")
Service = Createobject("SeleniumBasic.ChromeDriverService")
Options = Createobject("SeleniumBasic.ChromeOptions" )
With Service
driverPath ="E:\SeleniumBasic"
.CreateDefaultService( driverPath )
.HideCommandPromptWindow = .F.
Endwith
With Options
.BinaryLocation = "C:\Users\Administrator\AppData\Local\Google\Chrome\Application\chrome.exe"
*.AddExcludedArgument "enable-automation"
*.AddArgument "--start-maximized"
*'.DebuggerAddress = "127.0.0.1:9999" '不要与其他几个混用
Endwith
WD.New_ChromeDriver( Service , Options )
WD.URL = "https://www.baidu.com"
form = WD.FindElementById("form")
keyword = form.FindElementById("kw")
keyword.clear
keyword.SendKeys( "VFP" )
button = form.FindElementById("su")
button.Click
?WD.Title
*!* ?WD.URL
*!* ?WD.PageSource |
|
回頂端 |
|
|
|