VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

可以寫程式去開啟 Google Chrome ,並開啟某個網頁,自動化嗎?

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
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")
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
215001



註冊時間: 2003-06-11
文章: 389


第 6 樓

發表發表於: 星期四 九月 15, 2022 9:05 am    文章主題: 引言回覆

開啟網頁後,才是重點

要如何自動登入,如何自動查詢資料
回頂端
檢視會員個人資料 發送私人訊息
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 7 樓

發表發表於: 星期四 九月 15, 2022 10:46 am    文章主題: 引言回覆

215001 寫到:
開啟網頁後,才是重點


你得到那個點了

Crying or Very sad

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
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}")
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
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
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
iswith



註冊時間: 2022-11-04
文章: 35


第 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
回頂端
檢視會員個人資料 發送私人訊息
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作