|
ｿｽｿｽVBｿｽｿｽｿｽSｿｽﾒ掲ｿｽｿｽｿｽｿｽ(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
|
ｿｽuｿｽｿｽｿｽEｿｽUｿｽ[ｿｽﾌセｿｽLｿｽｿｽｿｽｿｽｿｽeｿｽBｿｽｿｽｿｽxｿｽｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽｿｽgｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽﾉは？
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
shad 2004/07/16(ｿｽｿｽ) 01:18:35
WebsiteｿｽｿｽﾌスｿｽNｿｽｿｽｿｽvｿｽgｿｽｿｽｿｽｿｽuｿｽｿｽｿｽEｿｽUｿｽ[ｿｽﾌセｿｽLｿｽｿｽｿｽｿｽｿｽeｿｽBｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽ痰ｵｿｽｿｽｿｽﾍイｿｽｿｽｿｽ^ｿｽ[ｿｽlｿｽbｿｽgｿｽﾈのにイｿｽｿｽｿｽgｿｽｿｽｿｽlｿｽbｿｽgｿｽﾆ鯉ｿｽFｿｽｿｽｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽH
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2004/07/16(ｿｽｿｽ) 09:15:43
ｿｽｿｽｿｽ黷ｪｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽZｿｽLｿｽｿｽｿｽｿｽｿｽeｿｽBｿｽzｿｽ[ｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽ謔､ｿｽﾈ…ｿｽB(^^;
ｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽxｿｽ[ｿｽXｿｽﾅはなゑｿｽｿｽAｿｽ^ｿｽpｿｽｿｽｿｽxｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾎ、IEｿｽﾌオｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽﾅ、
ｿｽｿｽｿｽｿｽｿｽURLｿｽｿｽwｿｽMｿｽｿｽｿｽﾏみサｿｽCｿｽgｿｽxｿｽﾆゑｿｽｿｽﾄ登ｿｽ^ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎ、
ｿｽuｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽlｿｽbｿｽgｿｽ]ｿｽ[ｿｽｿｽｿｽvｿｽﾆは異なゑｿｽZｿｽLｿｽｿｽｿｽｿｽｿｽeｿｽBｿｽｿｽｿｽｿｽ闢厄ｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽﾅ会ｿｽｿｽﾅゑｿｽｿｽ驍ｩｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽxｿｽ[ｿｽXｿｽﾅ奇ｿｽｿｽ闢厄ｿｽﾄゑｿｽﾈゑｿｽAｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅ。
OptionExplicit
PrivateConstCLSIDSTR_InternetSecurityManager_
="{7B8A2D94-0AC9-11D1-896C-00C04FB6BFC4}"
PrivateConstCLSIDSTR_InternetZoneManager_
="{7B8A2D95-0AC9-11D1-896C-00C04FB6BFC4}"
PrivateConstIIDSTR_IInternetSecurityManager_
="{79eac9ee-baf9-11ce-8c82-00aa004ba90b}"
PrivateConstIIDSTR_IInternetZoneManager_
="{79EAC9EF-BAF9-11CE-8C82-00AA004BA90B}"
PrivateSubCommand1_Click()
DimclsidAsUUID
DimiidAsUUID
DimISMAsIInternetSecurityManager
DimZMAsIInternetZoneManager
DimLAsLong
DimZAAsZONEATTRIBUTES
CLSIDFromStringStrPtr(CLSIDSTR_InternetSecurityManager),clsid
CLSIDFromStringStrPtr(IIDSTR_IInternetSecurityManager),iid
L=CoCreateInstance(clsid,Nothing,CLSCTX_INPROC_SERVER,iid,ISM)
IfL<>0Then
Err.RaiseL
ExitSub
EndIf
CLSIDFromStringStrPtr(CLSIDSTR_InternetZoneManager),clsid
CLSIDFromStringStrPtr(IIDSTR_IInternetZoneManager),iid
L=CoCreateInstance(clsid,Nothing,CLSCTX_INPROC_SERVER,iid,ZM)
IfL<>0Then
Err.RaiseL
SetISM=Nothing
ExitSub
EndIf
ZM.GetZoneAttributesURLZONE_TRUSTED,ZA
ZA.dwFlags=ZA.dwFlagsAnd(NotZAFLAGS_REQUIRE_VERIFICATION)
ZA.dwTemplateCurrentLevel=URLTEMPLATE_CUSTOM
ZM.SetZoneAttributesURLZONE_TRUSTED,ZA
DimsPatternAsString
DimlpAsLong
sPattern=Text1.Text'https://ｿｽ`ｿｽ`ｿｽ`
lp=StrPtr(sPattern)
ISM.SetZoneMappingURLZONE_TRUSTED,ByVallp,SZM_CREATE
SetISM=Nothing
SetZM=Nothing
EndSub
Pandora 2004/07/18(ｿｽｿｽ) 02:48:45
ｿｽｿｽｿｽｿｽｿｽBｿｽﾈんかよくｿｽｿｽｿｽｿｽｿｽｿｽことゑｿｽｿｽEｿｽEｿｽEｿｽE
.vbsｿｽ@ｿｽﾅ保托ｿｽｿｽｿｽｿｽﾄみゑｿｽﾆｿｽｿｽCｿｽｿｽｿｽPｿｽRｿｽｿｽｿｽｿｽｿｽPｿｽTｿｽ@ｿｽGｿｽｿｽｿｽ[ｿｽEｿｽEｿｽE
ｿｽｿｽｿｽAURLｿｽﾍ指ｿｽ閧ｵｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾇ・ｿｽEｿｽE
ｿｽﾞーｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ;;
ｿｽｿｽｿｽｿｽｿｽｿｽVBｿｽﾍゑｿｽｿｽﾜりいｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ;;
ｿｽｿｽｿｽｿｽﾋ然ｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆになゑｿｽｿｽｿｽｿｽﾌで・ｿｽEｿｽE
ｿｽSｿｽRｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽ;;
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2004/07/18(ｿｽｿｽ) 18:01:09
ｿｽｿｽ{ｿｽIｿｽﾉ、ｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽxｿｽ[ｿｽXｿｽﾅは「ｿｽｿｽｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉ、ｿｽ^ｿｽpｿｽﾅ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾉゑｿｽｿｽﾄゑｿｽAVBSｿｽﾌ包ｿｽｿｽﾅはなゑｿｽｿｽAVB5/VB6ｿｽpｿｽﾌコｿｽ[ｿｽhｿｽﾅゑｿｽｿｽB
Webｿｽﾆ連ｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽActiveXｿｽｿｽｿｽｿｽｿｽ驍ｩ
(ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽAｿｽｿｽｿｽsｿｽﾌゑｿｽｿｽﾟにセｿｽLｿｽｿｽｿｽｿｽｿｽeｿｽBｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽ)ｿｽA
ｿｽﾜゑｿｽｿｽﾍ、WebｿｽAｿｽvｿｽｿｽｿｽﾅはなゑｿｽｿｽAｿｽNｿｽｿｽｿｽCｿｽAｿｽｿｽｿｽgｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽgｿｽﾞ必ｿｽvｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽﾆ。
Pandora 2004/07/20(ｿｽｿｽ) 15:44:06
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ・ｿｽEｿｽEActiveXｿｽﾅ托ｿｽｿｽ闕橸ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽAｿｽｿｽｿｽﾌ趣ｿｽｿｽ_ｿｽﾅ警ｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽｿｽﾓ厄ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ;;
ｿｽｿｽｿｽﾈみに shad=Pandoraｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽﾅ擾ｿｽｿｽﾌゑｿｽ‾ｿｽXｿｽﾅゑｿｽ;;
