VFP 愛用者社區

queena1024 · 註冊時間: 2007-04-16 文章: 37 第 1 樓

各位先進您好...若使用
loHyperlink = CREATEOBJECT("hyperlink")
loHyperlink.navigateto(lUrl)
開啟網頁...有什麼方式不要讓它置頂嗎 ?

garfield · 發表於: 星期五三月 04, 2022 3:47 pm 文章主題:

通常都用
OBJIE = NEWOBJECT('InternetExplorer.Application')
OBJIE.VISIBLE = .T.
OBJIE.NAVIGATE('http://vfp.sunyear.com.tw')

queena1024 · 註冊時間: 2007-04-16 文章: 37 第 3 樓

您好..因為用NEWOBJECT('InternetExplorer.Application')的方式...若客戶想要以預設瀏覽器chrome會開不起來..

garfield · 發表於: 星期五三月 04, 2022 5:29 pm 文章主題:

DECLARE ShowWindow IN Win32api INTEGER,INTEGER
DECLARE SetForegroundWindow IN Win32api INTEGER

lUrl='http://vfp.sunyear.com.tw'

*loHyperlink = CREATEOBJECT("hyperlink")
*loHyperlink.navigateto(lUrl)
*WAIT windows ' 無法用內定的chrome, 還是開ie ' TIMEOUT 1

oRun=createobject("wscript.shell")
oRun.run(lUrl ,.f.)

WAIT windows '要等一下, 再切回VFP ' TIMEOUT 1
*ShowWindow(_screen.HWnd,5)
*SetForegroundWindow(_screen.HWnd)
*用SetForegroundWindow 只能用於目前沒有開啟chrome時, 它會單獨開一個window, 就可有效切回vfp, 如果目前已經有開啟chrome則無效
*改用alt+tab 切回vfp
Declare keybd_event IN Win32API SHORT bVk, SHORT bScan, INTEGER dwFlags, INTEGER deExtraInfo
VK_MENU = 0x12
VK_TAB = 0x09
KEYEVENTF_KEYUP = 0x02

VK_CONTROL = 0x11
*切到另一個程式

keybd_event(VK_MENU,0xb8,0 , 0) &&-- Alt Press
keybd_event(VK_TAB,0x8f,0 , 0) &&-- Tab Press
keybd_event(VK_TAB,0x8f, KEYEVENTF_KEYUP,0) &&-- Tab Release
keybd_event(VK_MENU,0xb8,KEYEVENTF_KEYUP,0) &&-- Alt Release

*又要延遲一下
INKEY(1)

syntech · 發表於: 星期五三月 04, 2022 7:53 pm 文章主題:

這看起來要做一下筆記.

queena1024 · 註冊時間: 2007-04-16 文章: 37 第 6 樓

您好..謝謝您的回覆...我使用了garfield 大大的做法..網頁是會跳到最上面耶..但我是想要開啟網頁不要蓋住原本應用程式的畫面....

garfield · 發表於: 星期三三月 09, 2022 10:23 am 文章主題:

原程式有調整切換windwos 方式.
再附上找到的其它怪方法, 比如說讓使用者看不到 chrome
Declare integer FindWindow in Win32API string class_name, string window_title
Declare integer SetWindowPos in user32 integer hWnd, integer hWndInsertAfter,integer x,integer y,integer cx,integer cy,integer wFlags
SWPHIDEWINDOW = 0x80
SWPSHOWWINDOW = 0x40
ClassName = "Chrome_WidgetWin_1"
mhwnd = FindWindow(ClassName, .null.)

? SetWindowPos(_screen.HWnd, 0, 0, 0, 0, 0, SWPHIDEWINDOW)
wait windows '火大了, 讓chrome 消失在我眼前10秒鐘' timeout 10
? SetWindowPos(_screen.HWnd, 0, 0, 0, 0, 0, SWPSHOWWINDOW)

ufochen · 註冊時間: 2003-09-17 文章: 165 第 8 樓

請問一下，有沒有辦法讓網頁一出現就在left = 1920,top = 0的地方，我想讓網頁顯示在
延伸螢幕上。

garfield · 發表於: 星期二三月 05, 2024 6:13 pm 文章主題:

參考試看看
HWND hWnd = FindWindow(NULL, "視窗標題")
SetWindowPos(hWnd, NULL, 0, 0, 0, 0, SWP_NOSIZE | SWP_NOZORDER)
其中，第一個參數hWnd 是視窗句柄，
第二個參數NULL 表示視窗的Z 軸順序不變，
第三個和第四個參數是視窗左上角的座標，這裡設定為(0,0)，表示移動到螢幕左上角。
最後兩個參數分別表示視窗的寬度和高度，這裡設定為 0，表示不改變視窗的大小。
SWP_NOSIZE 和 SWP_NOZORDER 是 SetWindowPos 函數的兩個標誌，分別表示不改變視窗大小和 Z 軸順序。