|
ｿｽ@ｿｽｿｽAppActivateｿｽﾅ開ｿｽｿｽｿｽｿｽｿｽOｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ位置ｿｽｿｽ謫ｾ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽﾍゑｿｽｿｽ 2009/06/20(ｿｽy) 12:22:58
AppActivateｿｽｿｽFirefoxｿｽｿｽJｿｽｿｽｿｽﾄゑｿｽｿｽﾌ位置ｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽJｿｽｿｽｿｽｿｽｿｽﾍ出ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽｿｽWｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽﾊの位置ｿｽﾌ取得ｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽIｿｽVｿｽｿｽｿｽE 2009/06/20(ｿｽy) 22:12:29
AppActivateｿｽﾉ起ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽ¥ｿｽﾍ厄ｿｽｿｽｿｽｿｽﾌで、Shellｿｽﾅ起ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽﾆ鯉ｿｽｿｽｿｽｿｽOｿｽﾉ、VB6? VB.NET?
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾎ・ｿｽEｿｽEVB6ｿｽﾈゑｿｽEｿｽEｿｽE
http://support.microsoft.com/kb/242308/ja
ｿｽｿｽｿｽ@VB.NETｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ単ｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽｿｽｿｽｿｽｿｽQｿｽlｿｽﾉ、ｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽﾌウｿｽBｿｽｿｽｿｽhｿｽEｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽ
ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽﾅ、GetWindowRect APIｿｽｿｽﾄべば、ｿｽｿｽｿｽﾌ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌ位置ｿｽｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
GetWindowRectｿｽﾌ使ｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽE
http://homepage1.nifty.com/MADIA/vb/API/GetWindowRect.htm
ｿｽﾅ、ｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽﾊ置ｿｽｿｽｿｽ迚ｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽｿｽｿｽWｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽH
ｿｽvｿｽｿｽFireFoxｿｽ制御しｿｽｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽH
ｿｽ}ｿｽEｿｽXｿｽﾌエｿｽ‾ｿｽｿｽｿｽｿｽｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽvｿｽｿｽｿｽﾊゑｿｽﾈ撰ｿｽｿｽｿｽﾉはなゑｿｽﾈゑｿｽ
ｿｽｿｽｿｽﾆ。SendKeyｿｽｿｽgｿｽｿｽｿｽﾄ機ｿｽ¥ｿｽ制御すｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽ謔｢ｿｽｿｽｿｽﾆ・ｿｽEｿｽE
ｿｽﾜゑｿｽｿｽﾅ終ｿｽIｿｽﾉ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽ@ｿｽﾍ茨ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ鼾ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈ擾ｿｽBｿｽQｿｽlｿｽﾜゑｿｽ
ｿｽｿｽﾍゑｿｽｿｽ 2009/06/21(ｿｽｿｽ) 10:39:33
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽshellｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽ轤､ｿｽﾜゑｿｽｿｽNｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾂ具ｿｽｿｽｿｽvb6ｿｽﾅゑｿｽｿｽB
ｿｽｿｽAppActivateｿｽﾉ起ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽ¥ｿｽﾍ厄ｿｽｿｽｿｽ
ｿｽmｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ^^;ｿｽｿｽｿｽﾌ奇ｿｽｿｽ痰｢ｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾏ更ｿｽOｿｽﾌコｿｽ[ｿｽhｿｽﾍ以会ｿｽｿｽﾌ様ｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
Dim rc As Long
Dim PII As PROCESS_INFORMATION
Dim SII As STARTUPINFO
Dim FName As String
'-----------------------------------------------------
'FireFoxｿｽｿｽNｿｽｿｽｿｽｿｽｿｽｿｽ
'-----------------------------------------------------
FName = "C:¥Program Files¥Mozilla Firefox¥firefox.exe"
SII.cb = Len(SII)
rc = CreateProcessLong(FName, 0, 0, 0, 1, NORMAL_PRIORITY_CLASS, 0, 0, SII, PII)
'ｿｽIｿｽｿｽｿｽﾜで待機
rc = WaitForSingleObject(PII.hProcess, INFINITE)
rc = CloseHandle(PII.hProcess)
'-----------------------------------------------------
'ｿｽwｿｽ閧ｵｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
'(ｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾌタｿｽCｿｽgｿｽｿｽｿｽoｿｽ[ｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ^ｿｽCｿｽgｿｽｿｽｿｽｿｽwｿｽｿｽ)
'-----------------------------------------------------
AppActivate "Yahoo! JAPAN - Mozilla Firefox"
sleep (1000) 'ｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉなゑｿｽﾜで待ゑｿｽ
ｿｽyｿｽ[ｿｽWｿｽｿｽJｿｽｿｽｿｽｿｽｿｽｿｽｿｽSetCursorPosｿｽｿｽKeybd_Eventｿｽﾅの托ｿｽｿｽｿｽｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾆ変な難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈのゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽﾍゑｿｽｿｽ 2009/06/21(ｿｽｿｽ) 13:03:03
ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
Dim rc as Long
On Error Goto Err_Syori
rc = shell("c:¥program files¥mozzila firefox¥firefox.exe",1)
AppActivate rc,true
msgbox "ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽﾖ進ｿｽﾞ擾ｿｽｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB"
Err_Syori:
if Err.Number = 5 then
'*******************************************************
ｿｽ@ｿｽ@' Yahooｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜで待ゑｿｽｿｽﾄ趣ｿｽｿｽﾌ托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
' ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ
'*******************************************************
End iF
