|
ｿｽｿｽVBｿｽｿｽｿｽSｿｽﾒ掲ｿｽｿｽｿｽｿｽ(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
|
Shellｿｽﾖ撰ｿｽｿｽﾅ起ｿｽｿｽｿｽｿｽｿｽｿｽExplorerｿｽﾌ終ｿｽｿｽｿｽｿｽFｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽﾜとゑｿｽ 2007/12/08(ｿｽy) 11:23:47
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB
Shellｿｽﾖ撰ｿｽｿｽﾅ起ｿｽｿｽｿｽｿｽｿｽｿｽExplorerｿｽﾌ終ｿｽｿｽｿｽｿｽFｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAdwProcessID=Shell("C:¥WINDOWS¥NOTEPAD.EXE",1)ｿｽｿｽshellｿｽﾌ抵ｿｽｿｽｿｽ("Explorer.exe/root,¥¥ｿｽTｿｽ[ｿｽoｿｽ[ｿｽｿｽ¥ｿｽｿｽｿｽLｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽ",1)ｿｽﾆゑｿｽｿｽｿｽﾆ終ｿｽｿｽｿｽｿｽFｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
PublicDeclareFunctionGetExitCodeProcessLib"kernel32"_
(ByValhProcessAsLong,lpExitCodeAsLong)AsLong
PublicDeclareFunctionOpenProcessLib"kernel32"_
(ByValdwDesiredAccessAsLong,ByValbInheritHandleAsLong,_
ByValdwProcessIDAsLong)AsLong
PublicConstPROCESS_QUERY_INFORMATION=&h400
SubTaskEnd()
DimdwProcessIDAsLong
DimhProcessAsLong
DimlpdwExitCodeAsLong
DimretAsLong
dwProcessID=Shell("C:¥WINDOWS¥NOTEPAD.EXE",1)
hProcess=OpenProcess(PROCESS_QUERY_INFORMATION,True,dwProcessID)
Do
ret=GetExitCodeProcess(hProcess,lpdwExitCode)
DoEvents
LoopWhilelpdwExitCode
MsgBox"ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ終ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB"
EndSub
ｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽ} 2007/12/08(ｿｽy) 15:56:40
ｿｽｿｽｿｽｿｽﾈ難しｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽA
ret=CreateObject("WScript.Shell").Run("ｿｽ`ｿｽ`ｿｽ`",1,True)
ｿｽｿｽｿｽﾈ単ｿｽﾈのに。ｿｽBｿｽB
ｿｽﾜとゑｿｽ 2007/12/08(ｿｽy) 19:11:26
ｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽ}ｿｽlｿｽAｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ret=CreateObject("WScript.Shell").Run("ｿｽ`ｿｽ`ｿｽ`",1,True)ｿｽﾌ使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾌで、ｿｽ`ｿｽ`ｿｽ`ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ"Explorer.exe/root,¥¥ｿｽTｿｽ[ｿｽoｿｽ[ｿｽｿｽ¥ｿｽｿｽｿｽLｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽ"ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽEｿｽBｿｽｿｽｿｽXｿｽ`ｿｽFｿｽbｿｽNｿｽﾌソｿｽtｿｽgｿｽｿｽｿｽｿｽuｿｽxｿｽｿｽｿｽAｿｽ^ｿｽしｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽﾌ奇ｿｽｿｽｿｽｿｽAｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽﾍシｿｽXｿｽeｿｽｿｽｿｽﾉ変更ｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽﾇのようｿｽﾉ対擾ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽHｿｽvｿｽﾆでまゑｿｽｿｽBｿｽｿｽｿｽﾗて具ｿｽｿｽﾂゑｿｽIｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽﾔは変ゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽﾌで補足ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽﾅゑｿｽNOTEPADｿｽｿｽｿｽｿｽｿｽｿｽｿｽ繧ｪｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽuMsgBox"ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ終ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB"ｿｽvｿｽﾌ厄ｿｽｿｽﾟゑｿｽNOTEPADｿｽｿｽﾂゑｿｽｿｽｿｽﾜで難ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBshellｿｽﾌ抵ｿｽｿｽｿｽ("Explorer.exe/root,c:",1)ｿｽﾆゑｿｽｿｽｿｽExplorerｿｽﾌ対象ゑｿｽｿｽｿｽgｿｽﾌパｿｽ¥ｿｽRｿｽｿｽｿｽﾌ「ｿｽｿｽｿｽFｿｽvｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽﾆ、Explorerｿｽﾌ暦ｿｽｿｽﾅ「ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ終ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽvｿｽﾆでてゑｿｽｿｽﾄ、Explorerｿｽﾉ終ｿｽｿｽｿｽｿｽﾒゑｿｽｿｽｿｽｿｽﾉ趣ｿｽｿｽﾌスｿｽeｿｽbｿｽvｿｽﾉ進ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽBshellｿｽﾌ抵ｿｽｿｽｿｽ("Explorer.exe/root,¥¥ｿｽTｿｽ[ｿｽoｿｽ[ｿｽｿｽ¥ｿｽｿｽｿｽLｿｽtｿｽHｿｽｿｽｿｽ_ｿｽｿｽ",1)ｿｽﾆゑｿｽｿｽｿｽExplorerｿｽﾌ対象ゑｿｽTｿｽ[ｿｽoｿｽ[ｿｽﾌ具ｿｽｿｽLｿｽtｿｽHｿｽｿｽｿｽ_ｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽﾆ、Explorerｿｽﾍゑｿｽｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ暦ｿｽｿｽﾉは会ｿｽｿｽｿｽﾅてゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽAExplorerｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽuMsgBox"ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ終ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB"ｿｽvｿｽﾌ厄ｿｽｿｽﾟはでてゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽ} 2007/12/08(ｿｽy) 20:19:51
ｿｽﾈ単ｿｽﾈのは、
explorer.exe/separate,/root,ｿｽ`
ｿｽﾅゑｿｽｿｽﾋ。
ｿｽしｿｽｿｽｿｽﾌは、ShellWindowsｿｽﾅ捕托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200712/07120001.txt
ｿｽﾜとゑｿｽ 2007/12/08(ｿｽy) 21:18:49
ｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽ}ｿｽlｿｽAｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ret=CreateObject("WScript.Shell").Run("C:¥WINDOWS¥Explorer.exe/separate,/root,"&ｿｽｿｽｿｽLｿｽtｿｽHｿｽｿｽｿｽ_&"",1,True)ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽしｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽEｿｽBｿｽｿｽｿｽXｿｽ`ｿｽFｿｽbｿｽNｿｽﾌソｿｽtｿｽgｿｽｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽﾅゑｿｽﾌゑｿｽhｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽuShellWindowsｿｽﾅ捕托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽ} 2007/12/09(ｿｽｿｽ) 00:40:13
ｿｽｿｽｿｽﾌソｿｽtｿｽgｿｽｿｽWScript.ShellｿｽｿｽRunｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽﾄゑｿｽ謔､ｿｽﾈので、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽずｿｽAShellｿｽｿｽAPIｿｽｿｽgｿｽｿｽｿｽﾎ警ｿｽｿｽｿｽﾍ出ｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
ｿｽﾜとゑｿｽ 2007/12/09(ｿｽｿｽ) 16:12:39
ｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽ}ｿｽlｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
