UWSC初心者用スレ2 (286ﾚｽ)
UWSC初心者用スレ2 http://mevius.5ch.net/test/read.cgi/tech/1637230335/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
179: デフォルトの名無しさん [sage] 2022/08/15(月) 04:20:46.46 ID:pm4LQRan >>170 試しにこれを実行してみてほしい DIM sSearchTitle = INPUT("指定するブラウザのアクティブなタブ表示を入力") DIM idWnd = getid(sSearchTitle) DIM sBrowserName = WhatBrowser(idWnd) MSGBOX("ブラウザは"+sBrowserName) FUNCTION WhatBrowser(idWnd) RESULT = "不明" DIM sFullTitle = STATUS(idWnd, ST_TITLE) //MSGBOX(sFullTitle) INPUT("ウィンドウのフルタイトル", sFullTitle ) IFB POS( " - Google Chrome", sFullTitle) THEN RESULT = "Chrome" ELSEIF POS( " - Chromium", sFullTitle) THEN RESULT = "Chromium" // ELSEIF POS( " - Microsoft Edge", sFullTitle) THEN // Microsoftの後ろはゼロ幅スペース: U+200Bに続いて通常のスペース // UTF-8 保存でなら使用できる ELSEIF POS( " - Microsoft", sFullTitle) AND POS(" Edge", sFullTitle) THEN RESULT = "Edge" ELSEIF POS( " - Vivaldi", sFullTitle) THEN RESULT = "Vivaldi" ENDIF FEND http://mevius.5ch.net/test/read.cgi/tech/1637230335/179
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 107 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.006s