|
ｿｽｿｽVBｿｽｿｽｿｽSｿｽﾒ掲ｿｽｿｽｿｽｿｽ(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
|
ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾌ抵ｿｽｿｽgｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽｿｽｿｽxｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは？
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽｿｽｿｽｿｽｿｽｿｽ 2003/03/26(ｿｽｿｽ) 00:53:16
ｿｽFｿｽlｿｽnｿｽﾟまゑｿｽｿｽﾄ。
ｿｽﾆゑｿｽｿｽｿｽcｿｽ[ｿｽｿｽｿｽﾅ固有ｿｽﾌコｿｽ}ｿｽｿｽｿｽhｿｽｿｽeｿｽLｿｽXｿｽgｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽうｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽﾌ擾ｿｽが難ｿｽｿｽｿｽ`ｿｽｿｽｿｽﾌようｿｽﾈので、ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽoｿｽRｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆにゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ痰ｦｿｽﾎ「ｿｽｿｽｿｽsｿｽvｿｽﾌコｿｽ}ｿｽｿｽｿｽhｿｽｿｽRｿｽsｿｽ[ｿｽｿｽｿｽﾄバｿｽCｿｽiｿｽｿｽｿｽGｿｽfｿｽBｿｽ^ｿｽﾅ覗ｿｽｿｽｿｽｿｽ
ｿｽu05000000D84C000000ｿｽv(ｿｽ`ｿｽｿｽｿｽｿｽFormat566ｿｽiｿｽｿｽjｿｽﾅ、FormatHandleｿｽｿｽ0x0236)
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ黷ｪｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽﾉ含まゑｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽﾉ「ｿｽｿｽｿｽsｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ暦ｿｽｿｽﾆゑｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽけｿｽﾅゑｿｽｿｽB
1.ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽh(IDateObject)ｿｽｿｽｿｽｿｽoｿｽCｿｽgｿｽzｿｽｿｽｿｽｿｽｿｽoｿｽｿｽ
2.ｿｽｿｽｿｽｿｽﾌ配ｿｽｿｽｿｽﾎ会ｿｽｿｽｿｽｿｽｿｽｿｽeｿｽLｿｽXｿｽgｿｽRｿｽ[ｿｽhｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
3.ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽeｿｽLｿｽXｿｽgｿｽfｿｽ[ｿｽ^ｿｽﾆゑｿｽｿｽﾄクｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾉ戻ゑｿｽ
ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽﾌ仕ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ1.ｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
2.ｿｽﾉ関ゑｿｽｿｽﾄゑｿｽReplaceｿｽﾖ撰ｿｽｿｽﾉ抵ｿｽｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽeｿｽLｿｽXｿｽgｿｽｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽoｿｽCｿｽgｿｽzｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉ置ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽJｿｽｿｽｿｽﾂ具ｿｽｿｽｿｽVisualBasic.netｿｽﾅゑｿｽｿｽBｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
Y2 2003/03/26(ｿｽｿｽ) 23:31:27
ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽｿｽｿｽﾌ読み搾ｿｽｿｽﾝと擾ｿｽｿｽｿｽｿｽｿｽｿｽﾝは、Clipboard.GetDataObjectｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽIDataObjectｿｽｿｽGetDataObjectｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽSetDataObjectｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽﾍ、ｿｽfｿｽ[ｿｽ^ｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈのゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽﾋ。
ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽ`ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽｿｽｿｽ痰､ｿｽﾌで、ｿｽｿｽｿｽｿｽ調べゑｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽfｿｽ[ｿｽ^ｿｽ`ｿｽｿｽｿｽｿｽIDataObject.GetFormatsｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅ抵ｿｽｿｽﾗるこｿｽﾆゑｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽfｿｽ[ｿｽ^ｿｽ`ｿｽｿｽｿｽｿｽｿｽeｿｽLｿｽXｿｽgｿｽﾅゑｿｽｿｽｿｽﾎ、
=Clipboard.GetDataObject(GetType(String))
ｿｽｿｽStringｿｽ^ｿｽﾅテｿｽLｿｽXｿｽgｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽlｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾈみに、Stringｿｽ^ｿｽｿｽｿｽｿｽoｿｽCｿｽgｿｽzｿｽｿｽﾉ変奇ｿｽｿｽｿｽｿｽ驍ｽｿｽﾟのクｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>ｿｽ痰ｦｿｽﾎ「ｿｽｿｽｿｽsｿｽvｿｽﾌコｿｽ}ｿｽｿｽｿｽhｿｽｿｽRｿｽsｿｽ[ｿｽｿｽｿｽﾄバｿｽCｿｽiｿｽｿｽｿｽGｿｽfｿｽBｿｽ^ｿｽﾅ覗ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾝ難ｿｽeｿｽﾅは、ｿｽｿｽｿｽｿｽｿｽﾒゑｿｽｿｽが会ｿｽｿｽｿｽRｿｽsｿｽ[ｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾌで、ｿｽIｿｽmｿｽﾈ難ｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽB(‾ｿｽD‾)ｿｽu
ｿｽｿｽｿｽｿｽｿｽｿｽ 2003/03/27(ｿｽｿｽ) 16:02:34
ｿｽfｿｽ[ｿｽ^ｿｽ`ｿｽｿｽｿｽﾉ関係ｿｽﾈゑｿｽｿｽoｿｽCｿｽgｿｽzｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾉはフｿｽ@ｿｽCｿｽｿｽｿｽﾆゑｿｽｿｽﾄ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽoｿｽCｿｽiｿｽｿｽｿｽGｿｽfｿｽBｿｽ^ｿｽｿｽｿｽﾅデｿｽ[ｿｽ^ｿｽｿｽ謫ｾｿｽｿｽｿｽﾄ、ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾜでの擾ｿｽｿｽｿｽｿｽﾌ途ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽ操搾ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ形ｿｽﾉでゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽB
ｿｽeｿｽLｿｽXｿｽgｿｽﾏ奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌは「ｿｽqｿｽoｿｽfｿｽcｿｽNｿｽ[ｿｽｿｽ2000ｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽ¥ｿｽtｿｽgｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽRｿｽ}ｿｽｿｽｿｽhｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾌソｿｽtｿｽgｿｽﾅはイｿｽxｿｽｿｽｿｽgｿｽﾌ暦ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾄ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽVBｿｽﾆは違い
ｿｽｿｽｿｽﾌままコｿｽsｿｽ[ｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽﾏ奇ｿｽｿｽcｿｽ[ｿｽｿｽｿｽｿｽｿｽうｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾉソｿｽtｿｽgｿｽﾌ体鯉ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
http://www.enterbrain.co.jp/digifami/products/rpg2000/taiken.html
ｿｽfｿｽ[ｿｽ^ｿｽ`ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾈ会ｿｽｿｽﾌコｿｽ[ｿｽhｿｽ利用ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽFormat566ｿｽﾆ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾆはゑｿｽｿｽｿｽｿｽwｿｽｿｽｿｽvｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽﾓ厄ｿｽｿｽﾍ暦ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
DimmyDataObjectAsIDataObject=Clipboard.GetDataObject()
DimmyFormatsArrayAs[String]()=myDataObject.GetFormats(False)
DimtheResultAsString="Theoriginalformatassociatedwiththedatais:"&vbCr
DimiAsInteger
Fori=0TomyFormatsArray.Length-1
theResult+=myFormatsArray(i)+vbCr
Nexti
myFormatsArray=myDataObject.GetFormats(True)
theResult+=vbCr+"Thedataformat(s)andconversionformat(s)associatedwith"&_
"thedataare:"&vbCr
Fori=0TomyFormatsArray.Length-1
theResult+=myFormatsArray(i)+vbCr
Nexti
MessageBox.Show(theResult)
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ 2003/03/27(ｿｽｿｽ) 16:40:35
ｿｽ@IDateObjectｿｽﾍ知ｿｽｿｽﾜゑｿｽｿｽけど、
ｿｽｿｽｿｽLｿｽﾌサｿｽCｿｽgｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
http://tokyo.cool.ne.jp/masapico/
"ｿｽﾖ撰ｿｽｿｽｿｽWin32ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽW"ｿｽﾌ抵ｿｽｿｽｿｽ
"GetClipboardData"ｿｽﾆゑｿｽｿｽｿｽAPIｿｽｿｽｿｽﾐ介さｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾌ指ｿｽｿｽtｿｽHｿｽ[ｿｽ}ｿｽbｿｽgｿｽﾌデｿｽ[ｿｽ^ｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽ@ｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽかｿｽｿｽﾎ、GlobalLockｿｽﾅバｿｽCｿｽiｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾈので、
ｿｽｿｽｿｽｿｽﾈゑｿｽﾎ托ｿｽｿｽvｿｽﾅゑｿｽｿｽ蛯､ｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾅ茨ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌはテｿｽLｿｽXｿｽgｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、GetClipboardDataｿｽﾌ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ、ｿｽﾇゑｿｽｿｽｿｽｿｽ謔､ｿｽｿｽﾅゑｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽB
(ｿｽｿｽｿｽｿｽｿｽAVBｿｽﾅどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ茨ｿｽｿｽｿｽｿｽｿｽｿｽﾍわかｿｽｿｽﾜゑｿｽｿｽｿｽ)
ｿｽ@ｿｽtｿｽHｿｽ[ｿｽ}ｿｽbｿｽgｿｽﾌ趣ｿｽｿｽﾊには、CLCLｿｽﾆゑｿｽｿｽｿｽｿｽ¥ｿｽtｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾌで、
ｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
http://www.nakka.com/
(ｿｽsｿｽｿｽｿｽﾈデｿｽ[ｿｽ^ｿｽ`ｿｽｿｽｿｽﾌ場合ｿｽAｿｽ`ｿｽｿｽｿｽﾌ厄ｿｽｿｽOｿｽｿｽｿｽｿｽjｿｽｿｽｿｽ[ｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌゑｿｽ)
ｿｽｿｽｿｽｿｽｿｽｿｽ 2003/03/28(ｿｽｿｽ) 01:04:33
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽeｿｽﾘにゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽcｿｽOｿｽﾈゑｿｽｿｽｿｽuCLCLｿｽvｿｽｿｽｿｽｿｽﾍ形ｿｽｿｽｿｽﾌ取得ｿｽﾍでゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽqｿｽｿｽｿｽgｿｽﾉゑｿｽｿｽﾄ形ｿｽｿｽｿｽ¥ｿｽｿｽｿｽ@ｿｽ¥ｿｽﾌゑｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽrｿｽｿｽｿｽ[ｿｽAｿｽｿｽTｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾊとゑｿｽｿｽﾄは「ClipboardCatcherｿｽvｿｽﾆ「ClipboardAnalyzerｿｽvｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾊゑｿｽｿｽﾄ「0x0236ｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽが難ｿｽｿｽｿｽ黷ｽｿｽﾉ暦ｿｽｿｽﾜゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽﾍゑｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽﾆ鯉ｿｽｿｽ驍ｵｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽuCLCLｿｽvｿｽﾅは形ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽoｿｽCｿｽiｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBVBｿｽﾅゑｿｽGetDataObjectｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅ形ｿｽｿｽｿｽｿｽwｿｽ閧ｵｿｽﾄ抵ｿｽｿｽoｿｽｿｽｿｽｿｽ
ｿｽﾈ外ｿｽﾉバｿｽCｿｽgｿｽzｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍなゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽJｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽRｿｽ[ｿｽhｿｽｿｽCｿｽｿｽｿｽｿｽﾌようｿｽﾅゑｿｽｿｽﾌで使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
Y2 2003/03/28(ｿｽｿｽ) 09:35:53
>=Clipboard.GetDataObject(GetType(String))
ｿｽｿｽ
>=Clipboard.GetDataObject.GetData(GetType(String))
ｿｽﾔ違えｿｽﾜゑｿｽｿｽｿｽｿｽB;‾_‾)
ｿｽｿｽｿｽｿｽｿｽﾒゑｿｽｿｽが難ｿｽｿｽeｿｽｿｽｿｽ黷ｽｿｽRｿｽ[ｿｽhｿｽﾍ、ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾌ抵ｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾌデｿｽ[ｿｽ^ｿｽ`ｿｽｿｽｿｽ調べゑｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾌ心ｿｽﾈデｿｽ[ｿｽ^ｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽ.GetDataｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
VB.NETｿｽﾅクｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽｿｽｿｽlｿｽｿｽｿｽﾂ能ｿｽﾈ形ｿｽｿｽｿｽ齬暦ｿｽ調べゑｿｽﾉは、GetFormatsｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽgｿｽｿｽｿｽﾎ抵ｿｽｿｽﾗゑｿｽｿｽﾜゑｿｽｿｽB
DimF()AsString=Clipboard.GetDataObject.GetFormats
ListBox1.Items.Clear()
DimiAsInteger=0
DoWhilei
i+=1
Loop
F()ｿｽﾉは、ｿｽﾊ擾ｿｽA"Text"ｿｽA"UnicodeText"ｿｽA"OEMText"ｿｽA"System.String"ｿｽA"Locale"ｿｽﾈどゑｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌｿｽｿｽXｿｽgｿｽﾉ載ゑｿｽｿｽﾄなゑｿｽｿｽ`ｿｽｿｽｿｽﾅ獲ｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆはでゑｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽiｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾉデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで）
ｿｽ痰ｦｿｽﾎ、ｿｽｿｽｿｽXｿｽgｿｽｿｽ"UnicodeText"ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽmｿｽFｿｽﾅゑｿｽｿｽｿｽﾎ、
=Clipboard.GetDataObject.GetData("UnicodeText")
ｿｽﾅゑｿｽｿｽﾌ形ｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽｿｽlｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾒゑｿｽｿｽが茨ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾍｿｽｿｽﾌようｿｽﾉゑｿｽｿｽｿｽﾆ、ｿｽﾇのようｿｽﾈデｿｽ[ｿｽ^ｿｽ`ｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
"Format566"ｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
--------------------------------------
ｿｽoｿｽCｿｽgｿｽzｿｽｿｽﾆゑｿｽｿｽﾄ読み搾ｿｽｿｽﾞには、
DimrStreamAsSystem.IO.MemoryStream=Clipboard.GetDataObject.GetData("text")
IfrStreamIsNothingOrElserStream.Length=0ThenExitSub
DimB()AsByte=rStream.ToArray
ReDimPreserveB(B.Length-2)
ｿｽｿｽOKｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽB()ｿｽﾉ配ｿｽｿｽﾆゑｿｽｿｽﾄ格ｿｽ[ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
-----------------------------
ｿｽoｿｽCｿｽgｿｽzｿｽｿｽﾌ抵ｿｽｿｽgｿｽｿｽmｿｽFｿｽｿｽｿｽｿｽﾉは、
=BitConverter.ToString(B)
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ闡ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽ痰ｦｿｽﾎ、ｿｽoｿｽCｿｽgｿｽfｿｽ[ｿｽ^ｿｽu05000000D84C000000ｿｽvｿｽｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾎ、
ｿｽｿｽｿｽｿｽｿｽｿｽ"05-00-00-00-D8-4C-00-00-00"ｿｽｿｽｿｽﾔゑｿｽﾜゑｿｽｿｽB
Hex(B(ｿｽCｿｽｿｽｿｽfｿｽbｿｽNｿｽX))
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽﾇ、BitConverterｿｽｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽﾈ単ｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
---------------------------------
ｿｽoｿｽCｿｽgｿｽzｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾞには、
=System.Text.Encoding.Default.GetString(B)
ｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽﾉ変奇ｿｽｿｽﾅゑｿｽｿｽｿｽﾌで、
Clipboard.SetDataObject(System.Text.Encoding.Default.GetString(B),True)
ｿｽﾅでゑｿｽｿｽﾜゑｿｽｿｽBTrueｿｽﾍアｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽだゑｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾈみに、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽｿｽｿｽoｿｽCｿｽgｿｽzｿｽｿｽﾅ趣ｿｽ闕橸ｿｽﾞゑｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ趣ｿｽ闕橸ｿｽだほゑｿｽｿｽｿｽｿｽﾈ単ｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽoｿｽCｿｽgｿｽzｿｽｿｽﾌ擾ｿｽﾔゑｿｽｿｽﾆ、Replaceｿｽﾖ撰ｿｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽrｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌで・ｿｽEｿｽEｿｽAｿｽﾜゑｿｽｿｽABitConverterｿｽﾈどで包ｿｽｿｽｿｽｿｽｿｽﾉ変奇ｿｽｿｽｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽﾇ。
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ難しｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽがｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇ記ｿｽｿｽｿｽﾜゑｿｽｿｽﾌで。(ｿｽLｿｽDｿｽM)/
Y2 2003/03/28ｿｽｿｽ) 09:47:42
>ｿｽｿｽｿｽﾊゑｿｽｿｽﾄ「0x0236ｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽが難ｿｽｿｽｿｽ黷ｽｿｽﾉ暦ｿｽｿｽﾜゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽeｿｽLｿｽXｿｽgｿｽﾌデｿｽ[ｿｽ^ｿｽ`ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽyｿｽ[ｿｽWｿｽｿｽIDｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。
ｿｽRｿｽ[ｿｽhｿｽyｿｽ[ｿｽWｿｽﾍ、ｿｽｿｽｿｽﾌテｿｽLｿｽXｿｽgｿｽｿｽASCIIｿｽﾈのゑｿｽｿｽAUnicodeｿｽﾈのゑｿｽｿｽAUTF-8ｿｽﾈのゑｿｽｿｽAANSIｿｽﾈのゑｿｽｿｽAｿｽﾈどゑｿｽ¥ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ 2003/03/28(ｿｽｿｽ) 16:48:26
>VBｿｽﾅゑｿｽGetDataObjectｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅ形ｿｽｿｽｿｽｿｽwｿｽ閧ｵｿｽﾄ抵ｿｽｿｽoｿｽｿｽｿｽｿｽ
ｿｽﾈ外ｿｽﾉバｿｽCｿｽgｿｽzｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍなゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAPIｿｽﾅ…ｿｽB
ｿｽ@VBｿｽﾉゑｿｽｿｽｿｽｿｽ轤ｸｿｽAWindowsｿｽｿｽAｿｽｿｽｿｽﾌ会ｿｽｿｽﾅ難ｿｽｿｽｿｽｿｽ¥ｿｽtｿｽgｿｽｿｽAPIｿｽｿｽｿｽｿｽxｿｽｿｽgｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
VBｿｽﾌ各ｿｽﾖ撰ｿｽｿｽﾍ、ｿｽﾙとゑｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽﾈ暦ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾉ過ゑｿｽｿｽﾜゑｿｽｿｽｿｽB
(ｿｽｿｽｿｽﾆゑｿｽｿｽﾎフｿｽHｿｽ[ｿｽｿｽｿｽﾍ、ｿｽ{ｿｽｿｽCreateWindowAPIｿｽｿｽgｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ作成ｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽA
VBｿｽﾅは、ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ作成ｿｽﾆ破ｿｽｿｽｿｽｿｽSｿｽｿｽVBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ)
ｿｽ@ｿｽｿｽｿｽGetDataObjectｿｽｿｽAｿｽｿｽｿｽｿｽAPIｿｽﾌ呼び出ｿｽｿｽｿｽｿｽﾈ暦ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｾｿｽｿｽｿｽﾅはなゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽﾈ暦ｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽpｿｽﾌ暦ｿｽｿｽｿｽｿｽ謔､ｿｽﾉでゑｿｽｿｽﾄはゑｿｽｿｽｿｽｿｽﾌの、
ｿｽwRPGｿｽcｿｽNｿｽ[ｿｽｿｽｿｽﾌコｿｽsｿｽ[ｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽfｿｽ[ｿｽ^ｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽxｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾉは対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉは、"ｿｽｿｽｿｽｿｽｿｽﾅ１ｿｽｿｽｿｽｿｽAPIｿｽｿｽgｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽ"ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAVBｿｽｿｽAPIｿｽﾌ呼び出ｿｽｿｽｿｽｿｽｿｽ{ｿｽIｿｽﾉは想ｿｽ閧ｵｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾈので、
APIｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾅ抵ｿｽｿｽﾉ、VBｿｽﾌ関撰ｿｽｿｽｿｽgｿｽｿｽｿｽ謔､ｿｽﾈゑｿｽｿｽﾆは、ｿｽｿｽｿｽﾜりしｿｽﾈゑｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾆ、0x0236(VBｿｽﾅゑｿｽｿｽｿｽすｿｽｿｽ&h0236)ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽが難ｿｽｿｽｿｽ黷ｽｿｽﾌなゑｿｽA
ｿｽｿｽｿｽｿｽｿｽAGetClipboardDataAPIｿｽﾌ茨ｿｽｿｽｿｽｿｽﾉ指ｿｽ閧ｵｿｽﾄみゑｿｽｿｽｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽH
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽAｿｽｿｽｿｽﾊ、ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽB
(ｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇ、VBｿｽﾅポｿｽCｿｽｿｽｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽAｿｽたｿｽｿｽｿｽﾍよくｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽA
ｿｽﾅゑｿｽｿｽｿｽﾆは思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽ鼾ｿｽﾍ、ｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽDLLｿｽｿｽｿｽｿｽｿｽﾄ具ｿｽｿｽnｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽDelphiｿｽｿｽCｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ)
