出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[1263] アドビ一族の陰謀
投稿者：北岳さん 2001/12/14 13:52:38
>Acrobat Readerのクラス名などは、乙を使ってタイトルバー位置で調べると
>（略）
>などとなりますが、Class Nameの後の方の数字が毎回変わってしまうため、どう書けば・・・
　
待てよ、Class Nameが毎回変わるとは、異常ですね。
ひょっとしたら、乱数を宛てがっているのでは？
「普通の」アプリ、例えばEXCELではどうでしょうか。
　
==========標準モジュール===============
（前掲に同じ）
　
==========form1（Command1とtimer1のみ配置）===============
Option Explicit
Dim path1 As String, path2 As String, xls As String
Dim buf As String, flag As Integer, ret
Dim lpClassName As String, lpCaption As String
Dim Handle1 As Long

'-------------------------------------
Private Sub Command1_Click()
Timer1.Interval = 5000
path1 = "c:\docume~1\administrator\デスクトップ\"
path2 = "test.xls"
xls = "d:\msoffice\office\excel.exe"
buf = xls & " " & path1 & path2
ret = Shell(buf, vbNormalFocus)
lpClassName = "XLMAIN" '「乙」で調査
lpCaption = "Microsoft Excel"
flag = 0
Do Until flag = 1
DoEvents
Loop
Handle1 = FindWindow(lpClassName$, lpCaption$)
buf = SendMessage(Handle1, &H112, &HF060&, 0&)
MsgBox ("終了")
End
End Sub
　
'-------------------------------------
Sub timer1_timer()
flag = 1
End Sub

=============================================
　
VBのshell関数でEXCELのxlsファイルが開き、WindowsのAPIで無事閉じました。
　
ということは、Acrobat Readerではハンドル名の取得はできない仕掛けになっている？
Adobe社は、無料のソフトには大した機能は持たせたがらない？
どうも、最初からできないことに取り組んでいたような気がしてきました。
ACROBAT READER の終了方法(ハンドル)？ 　 北岳さん [2001/12/13 19:11:51] [1259]
　 Re:ACROBAT READER の終了方法(ハンドル)？ 　 Tomitomiさん [2001/12/13 20:36:02] [1260]
　 ACROBAT READER のOCX？ 　 Tomitomiさん [2001/12/14 11:04:22] [1261]
　 　 Re:ACROBAT READER のOCX？ 　 北岳さん [2001/12/14 12:14:35] [1262]
　 アドビ一族の陰謀 　 北岳さん [2001/12/14 13:52:38] [1263]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ