The Last Letter Game - Page 60

**Moogy** · 06-22-2004, 09:49 PM

testicle

Chrissi · 06-22-2004, 11:02 PM

You suck at this game, Moogy.

**lightdarkness** · 07-1-2004, 11:04 PM

starting from soup

poop

newkidusa · 07-22-2004, 01:11 PM

puberty

deposition · 07-22-2004, 06:19 PM

Public Shared Function GetAttributes( _
ByVal filename As String) As MusicFileInfo
Dim mfi As New MusicFileInfo()

Dim editor As IWMMetadataEditor
Dim headerInfo As IWMHeaderInfo3
Dim uHR As UInt32
Dim hr As Int32
uHR = WMFSDKFunctions.WMCreateEditor(editor)
hr = Convert.ToInt32(uHR)
If hr = 0 Then
uHR = editor.Open(filename)
hr = Convert.ToInt32(uHR)
If hr = 0 Then
headerInfo = DirectCast(editor, IWMHeaderInfo3)
Dim value As Byte()
Dim pType As WMT_ATTR_DATATYPE
value = GetAttributeByName(headerInfo, _
"bitrate", pType)
If pType = WMT_ATTR_DATATYPE.WMT_TYPE_DWORD Then
mfi.Bitrate = Convert.ToInt64( _
BitConverter.ToUInt32(value, 0))
End If
value = GetAttributeByName(headerInfo, _
"WM/AlbumTitle", pType)
If pType = WMT_ATTR_DATATYPE.WMT_TYPE_STRING Then
'ConvertToString is a function to convert
'from byte array to String, taking
'unicode encoding into account
mfi.AlbumTitle = ConvertToString(value)
End If
value = GetAttributeByName(headerInfo, _
"WM/Genre", pType)
If pType = WMT_ATTR_DATATYPE.WMT_TYPE_STRING Then
mfi.Genre = ConvertToString(value)
End If
value = GetAttributeByName(headerInfo, _
"Author", pType)
If pType = WMT_ATTR_DATATYPE.WMT_TYPE_STRING Then
mfi.Authors = ConvertToString(value)
End If
value = GetAttributeByName(headerInfo, _
"WM/Track", pType)
If pType = WMT_ATTR_DATATYPE.WMT_TYPE_STRING Then
mfi.Track = CInt(ConvertToString(value))
End If
value = GetAttributeByName(headerInfo, _
"Title", pType)
If pType = WMT_ATTR_DATATYPE.WMT_TYPE_STRING Then
mfi.Title = ConvertToString(value)
End If
value = GetAttributeByName(headerInfo, _
"WM/Year", pType)
If pType = WMT_ATTR_DATATYPE.WMT_TYPE_STRING Then
mfi.Year = CInt(ConvertToString(value))
End If
value = GetAttributeByName(headerInfo, _
"WM/Composer", pType)
If pType = WMT_ATTR_DATATYPE.WMT_TYPE_STRING Then
mfi.Composers = ConvertToString(value)
End If
value = GetAttributeByName(headerInfo, _
"Duration", pType)
If pType = WMT_ATTR_DATATYPE.WMT_TYPE_QWORD Then
mfi.Duration = Convert.ToDecimal( _
BitConverter.ToUInt64(value, 0))
End If
value = GetAttributeByName(headerInfo, _
"WM/MCDI", pType)
If pType = WMT_ATTR_DATATYPE.WMT_TYPE_BINARY Then
mfi.TOC = BitConverter.ToString(value, 0)
End If
End If
End If
Return mfi
End Function

Private Shared Function GetAttributeByName( _
ByVal headerInfo As IWMHeaderInfo3, _
ByVal name As String, _
ByRef pType As WMT_ATTR_DATATYPE) As Byte()
Dim streamNum As UInt16 = Convert.ToUInt16(0)
Dim uHR As UInt32
Dim valueLength As UInt16
Dim arrLength As Int32
Dim hr As Int32
uHR = headerInfo.GetAttributeByName( _
streamNum, name, pType, Nothing, valueLength)

hr = Convert.ToInt32(uHR)
If hr = 0 Then
arrLength = Convert.ToInt32(valueLength)
Dim value(arrLength) As Byte
uHR = headerInfo.GetAttributeByName( _
streamNum, name, pType, value, valueLength)
hr = Convert.ToInt32(uHR)
If hr = 0 Then
Return value
End If
End If
End Function

newkidusa · 07-23-2004, 01:59 AM

nevermind

**lightdarkness** · 08-2-2004, 01:44 AM

dumbfounded

noviceanimeartist · 08-2-2004, 02:58 PM

Do'h!

**lightdarkness** · 08-2-2004, 11:40 PM

hold on a second....

Pooping_Panda · 08-8-2004, 11:00 PM

donkey turd

flypie743 · 08-8-2004, 11:02 PM

fusi0n · 08-8-2004, 11:03 PM

sup guys lo

CypherToorima · 08-8-2004, 11:04 PM

oh wai...

fusi0n · 08-8-2004, 11:05 PM

o i c

CypherToorima · 08-8-2004, 11:06 PM

fusi0n · 08-8-2004, 11:06 PM

dud dont b frontin

Pooping_Panda · 08-8-2004, 11:12 PM

CypherToorima · 08-8-2004, 11:12 PM

flypie743 · 08-8-2004, 11:17 PM

CypherToorima · 08-8-2004, 11:22 PM

06-22-2004, 09:49 PM	#1181
Moogy 嗚呼 Join Date: Aug 2003 Age: 36 Posts: 10,303	testicle __________________ Plz visit my blog ^^^ vintage signature from like 2006 preserved

06-22-2004, 11:02 PM	#1182
Chrissi FFR Player Join Date: Mar 2004 Location: The Game Age: 39 Posts: 3,019	You suck at this game, Moogy. __________________ C is for Charisma, it's why people think I'm great! I make my friends all laugh and smile and never want to hate!

07-1-2004, 11:04 PM	#1183
lightdarkness Summer!! Join Date: Jul 2003 Location: New York Age: 37 Posts: 11,308	starting from soup poop __________________

07-22-2004, 06:19 PM	#1185
deposition FFR Player Join Date: Feb 2004 Location: Indianapolis, IN Posts: 1,115	Public Shared Function GetAttributes( _ ByVal filename As String) As MusicFileInfo Dim mfi As New MusicFileInfo() Dim editor As IWMMetadataEditor Dim headerInfo As IWMHeaderInfo3 Dim uHR As UInt32 Dim hr As Int32 uHR = WMFSDKFunctions.WMCreateEditor(editor) hr = Convert.ToInt32(uHR) If hr = 0 Then uHR = editor.Open(filename) hr = Convert.ToInt32(uHR) If hr = 0 Then headerInfo = DirectCast(editor, IWMHeaderInfo3) Dim value As Byte() Dim pType As WMT_ATTR_DATATYPE value = GetAttributeByName(headerInfo, _ "bitrate", pType) If pType = WMT_ATTR_DATATYPE.WMT_TYPE_DWORD Then mfi.Bitrate = Convert.ToInt64( _ BitConverter.ToUInt32(value, 0)) End If value = GetAttributeByName(headerInfo, _ "WM/AlbumTitle", pType) If pType = WMT_ATTR_DATATYPE.WMT_TYPE_STRING Then 'ConvertToString is a function to convert 'from byte array to String, taking 'unicode encoding into account mfi.AlbumTitle = ConvertToString(value) End If value = GetAttributeByName(headerInfo, _ "WM/Genre", pType) If pType = WMT_ATTR_DATATYPE.WMT_TYPE_STRING Then mfi.Genre = ConvertToString(value) End If value = GetAttributeByName(headerInfo, _ "Author", pType) If pType = WMT_ATTR_DATATYPE.WMT_TYPE_STRING Then mfi.Authors = ConvertToString(value) End If value = GetAttributeByName(headerInfo, _ "WM/Track", pType) If pType = WMT_ATTR_DATATYPE.WMT_TYPE_STRING Then mfi.Track = CInt(ConvertToString(value)) End If value = GetAttributeByName(headerInfo, _ "Title", pType) If pType = WMT_ATTR_DATATYPE.WMT_TYPE_STRING Then mfi.Title = ConvertToString(value) End If value = GetAttributeByName(headerInfo, _ "WM/Year", pType) If pType = WMT_ATTR_DATATYPE.WMT_TYPE_STRING Then mfi.Year = CInt(ConvertToString(value)) End If value = GetAttributeByName(headerInfo, _ "WM/Composer", pType) If pType = WMT_ATTR_DATATYPE.WMT_TYPE_STRING Then mfi.Composers = ConvertToString(value) End If value = GetAttributeByName(headerInfo, _ "Duration", pType) If pType = WMT_ATTR_DATATYPE.WMT_TYPE_QWORD Then mfi.Duration = Convert.ToDecimal( _ BitConverter.ToUInt64(value, 0)) End If value = GetAttributeByName(headerInfo, _ "WM/MCDI", pType) If pType = WMT_ATTR_DATATYPE.WMT_TYPE_BINARY Then mfi.TOC = BitConverter.ToString(value, 0) End If End If End If Return mfi End Function Private Shared Function GetAttributeByName( _ ByVal headerInfo As IWMHeaderInfo3, _ ByVal name As String, _ ByRef pType As WMT_ATTR_DATATYPE) As Byte() Dim streamNum As UInt16 = Convert.ToUInt16(0) Dim uHR As UInt32 Dim valueLength As UInt16 Dim arrLength As Int32 Dim hr As Int32 uHR = headerInfo.GetAttributeByName( _ streamNum, name, pType, Nothing, valueLength) hr = Convert.ToInt32(uHR) If hr = 0 Then arrLength = Convert.ToInt32(valueLength) Dim value(arrLength) As Byte uHR = headerInfo.GetAttributeByName( _ streamNum, name, pType, value, valueLength) hr = Convert.ToInt32(uHR) If hr = 0 Then Return value End If End If End Function __________________

08-2-2004, 01:44 AM	#1187
lightdarkness Summer!! Join Date: Jul 2003 Location: New York Age: 37 Posts: 11,308	dumbfounded __________________

07-22-2004, 01:11 PM	#1184
newkidusa FFR Player Join Date: Apr 2003 Posts: 30	puberty

07-23-2004, 01:59 AM	#1186
newkidusa FFR Player Join Date: Apr 2003 Posts: 30	nevermind

08-2-2004, 02:58 PM	#1188
noviceanimeartist FFR Player Join Date: Jan 2004 Age: 37 Posts: 270	Do'h! __________________ Please point out any spelling or grammatical errors I may have missed in my post, thanks.

08-2-2004, 11:40 PM	#1189
lightdarkness Summer!! Join Date: Jul 2003 Location: New York Age: 37 Posts: 11,308	hold on a second.... __________________

08-8-2004, 11:00 PM	#1190
Pooping_Panda FFR Player Join Date: Jun 2003 Location: illinizzle Posts: 1,773	donkey turd

08-8-2004, 11:02 PM	#1191
flypie743 FFR Player Join Date: Jun 2004 Location: fairyland Posts: 3,210	dog __________________ IF YOU ARE THE BOMB YOU WILL CLICK THIS and if you dont, you suck.

08-8-2004, 11:03 PM	#1192
fusi0n FFR Player Join Date: Nov 2003 Location: Indianapolis, IN Age: 38 Posts: 2,158	sup guys lo __________________

08-8-2004, 11:04 PM	#1193
CypherToorima Boss of all bosses Join Date: Jul 2003 Location: Phone Home! Age: 37 Posts: 2,452	oh wai... __________________ I'm a figantic gaggot

08-8-2004, 11:05 PM	#1194
fusi0n FFR Player Join Date: Nov 2003 Location: Indianapolis, IN Age: 38 Posts: 2,158	o i c __________________

08-8-2004, 11:06 PM	#1195
CypherToorima Boss of all bosses Join Date: Jul 2003 Location: Phone Home! Age: 37 Posts: 2,452	CYC __________________ I'm a figantic gaggot

08-8-2004, 11:06 PM	#1196
fusi0n FFR Player Join Date: Nov 2003 Location: Indianapolis, IN Age: 38 Posts: 2,158	dud dont b frontin __________________

08-8-2004, 11:12 PM	#1197
Pooping_Panda FFR Player Join Date: Jun 2003 Location: illinizzle Posts: 1,773	no

08-8-2004, 11:12 PM	#1198
CypherToorima Boss of all bosses Join Date: Jul 2003 Location: Phone Home! Age: 37 Posts: 2,452	on __________________ I'm a figantic gaggot

08-8-2004, 11:17 PM	#1199
flypie743 FFR Player Join Date: Jun 2004 Location: fairyland Posts: 3,210	no __________________ IF YOU ARE THE BOMB YOU WILL CLICK THIS and if you dont, you suck.

08-8-2004, 11:22 PM	#1200
CypherToorima Boss of all bosses Join Date: Jul 2003 Location: Phone Home! Age: 37 Posts: 2,452	on __________________ I'm a figantic gaggot

Currently Active Users Viewing This Thread: 3 (0 members and 3 guests)