VFP 愛用者社區

215001 · 註冊時間: 2003-06-11 文章: 393 第 1 樓

以前都用 IE 來開啟網頁,並自動登入處理
現在很多人都改用Google Chrome 了

若改用 Google Chrome 時,要怎麼改寫下面的程式碼?

nelsonchuang · 發表於: 星期二十一月 10, 2015 2:06 pm 文章主題:

就我知道，不可行，因為我以前搜尋過這樣的資料。
網路上有人說：「沒辦法，因為他不是微軟的產品。」又或者說，Google沒有提供方式。
至於現在可不可以，我就不清楚。
你可以再搜尋看看。。。（應該還是不行。）

Watermelon · 註冊時間: 2005-01-22 文章: 204 第 3 樓

oIE = CREATEOBJECT("InternetExplorer.Application")
With oIE
.Visible = .T.
.Navigate('http://vfp.sunyear.com.tw')
ENDWITH

請問有人發現改成Google的方法了嗎?

CPS0204 · 註冊時間: 2014-08-24 文章: 482 第 4 樓

跟客戶說,透過vfpx 呼叫的就綁定ie 不能改,且是舊版的ie
舊ie有個好處

上政府的網頁都通........

Patrick Wu · 發表於: 星期三九月 14, 2022 5:29 pm 文章主題:

215001 · 註冊時間: 2003-06-11 文章: 393 第 6 樓

開啟網頁後,才是重點

要如何自動登入,如何自動查詢資料

syntech · 發表於: 星期四九月 15, 2022 10:46 am 文章主題:

Patrick Wu · 發表於: 星期四九月 15, 2022 1:33 pm 文章主題:

215001 · 註冊時間: 2003-06-11 文章: 393 第 9 樓

不錯喔,還有這招可以用

驗證沒差,應該只能動手了,反正也只做一次而已

Watermelon · 註冊時間: 2005-01-22 文章: 204 第 10 樓

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 · 發表於: 星期五九月 16, 2022 9:31 pm 文章主題:

iswith · 註冊時間: 2022-11-04 文章: 93 第 12 樓

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