|
ｿｽｿｽVBｿｽｿｽｿｽSｿｽﾒ掲ｿｽｿｽｿｽｿｽ(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
|
VB.NET-IEｿｽ窿ｿｽｿｽｿｽｿｽｿｽﾈどのテｿｽLｿｽXｿｽgｿｽGｿｽｿｽｿｽAｿｽﾉテｿｽLｿｽXｿｽgｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽｿｽﾉゑｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ABEILLE 2003/11/28(ｿｽｿｽ) 09:14:22
ｿｽｿｽｿｽﾑゑｿｽｿｽﾑ趣ｿｽｿｽｿｽﾅゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽﾉ趣ｿｽｿｽｿｽｿｽ謔､ｿｽﾈ難ｿｽeｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA.NETｿｽﾌ難ｿｽeｿｽﾍなゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
.NETｿｽﾅアｿｽNｿｽeｿｽBｿｽuｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽﾌテｿｽLｿｽXｿｽgｿｽGｿｽｿｽｿｽAｿｽｿｽVBｿｽｿｽｿｽｿｽeｿｽLｿｽXｿｽgｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
IEｿｽ窿ｿｽｿｽｿｽｿｽｿｽﾈど茨ｿｽﾊのテｿｽLｿｽXｿｽgｿｽGｿｽｿｽｿｽAｿｽﾈのでゑｿｽｿｽｿｽｿｽAｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌテｿｽLｿｽXｿｽgｿｽGｿｽｿｽｿｽAｿｽﾉテｿｽLｿｽXｿｽgｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
APIｿｽｿｽgｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽ轤ｵｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA.NETｿｽﾅゑｿｽAPIｿｽﾌ宣言ｿｽﾌ仕ｿｽｿｽｿｽﾈどゑｿｽｿｽかｿｽｿｽﾈゑｿｽｿｽﾌで使ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ答ゑｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾊりすｿｽｿｽｿｽｿｽ 2003/11/29(ｿｽy) 13:39:53
.NETｿｽﾅゑｿｽWｿｽｿｽｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽｿｽ謔､ｿｽﾉＡｿｽoｿｽhｿｽｿｽｿｽｿｽｿｽpｿｽﾅゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽﾋゑｿｽ 2003/11/29(ｿｽy) 16:04:38
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾞのゑｿｽ
Shell("notepad.exe", vbNormalFocus)ｿｽ@'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽ
AppActivate("ｿｽｿｽｿｽｿｽ - ｿｽｿｽｿｽｿｽｿｽｿｽ")ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@'ｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽ当てゑｿｽ
SendKeys.Send("aaaaaaa")ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾌはゑｿｽｿｽｿｽｿｽ
'APIｿｽ骭ｾ
Private Declare Function FindWindowEx Lib "user32" Alias _
"FindWindowExA" (ByVal hWnd1 As Integer, ByVal _
hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
'ｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽTextBoxｿｽﾉ表ｿｽｿｽ
TextBox1.Text = CStr(FindWindowEx(0, 0, vbNullString, "ｿｽｿｽｿｽｿｽ - ｿｽｿｽｿｽｿｽｿｽｿｽ"))
ABIELLE 2003/12/04(ｿｽｿｽ) 12:31:58
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽI
ｿｽｿｽｿｽﾌ追会ｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽﾙゑｿｽｿｽﾌ難ｿｽｿｽｿｽｿｽ謔､ｿｽﾈ記ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽJｿｽｿｽｿｽﾄゑｿｽｿｽｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽﾌテｿｽLｿｽXｿｽgｿｽGｿｽｿｽｿｽAｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽｿｽﾉは、ｿｽｿｽｿｽﾌウｿｽCｿｽｿｽｿｽhｿｽEｿｽｿｽCtrl+Vｿｽ送ゑｿｽﾎゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽﾋゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾋゑｿｽ 2003/12/04(ｿｽｿｽ) 14:07:40
ｿｽｿｽｿｽｿｽﾍコｿｽsｿｽyｿｽｿｽ"ｿｽｿｽ"ｿｽﾅゑｿｽｿｽB
SendKeys.Send("^V")
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ
ｿｽ^ｿｽ[ｿｽQｿｽbｿｽgｿｽﾌテｿｽLｿｽXｿｽgｿｽGｿｽｿｽｿｽAｿｽﾉ抵ｿｽｿｽｿｽtｿｽｿｽｿｽﾈゑｿｽｿｽﾌでは。
VBｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽIEｿｽﾈゑｿｽ
ｿｽNｿｽｿｽｿｽｿｽｿｽ骼
Dim id As Integer
id = Shell("C:¥Program Files¥Internet Explorer¥IEXPLORE.EXE", vbNormalFocus)
ｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽ
AppActivate(id)
SendKeys.Send("^V") 'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽけｿｽﾅゑｿｽｿｽｿｽｿｽｿｽRIEｿｽ窿ｿｽｿｽｿｽｿｽｿｽｿｽｿｽJｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ鼾ｿｽﾈど、ｿｽLｿｽｿｽｿｽｿｽｿｽbｿｽgｿｽﾌゑｿｽｿｽｿｽｿｽｿｽIEｿｽｿｽTｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ
ｿｽﾈゑｿｽﾈゑｿｽｿｽﾌで、ｿｽﾊ倒ｿｽｿｽｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽB
