~~Surfistinha~~

Fala galera, aqui está o primeiro HackPack lançado depois da ATT de 20/08/2009.

Eu postaria 1 hora e meia antes, mas tive que esperar certa pessoa (né 4jax?) pra postar pois num sei porque ele queria que a Radical ficasse ON (frescura na minha opinião), enfim...

OBS: Fortalecimento Fast/Colar Hack e o Missão Completa não são valores fixos (muita gente acha que é, mas não é), então não coloquei no HackPack.

Estou tentando achar um jeito de coloca-los no Pack, então aguardem.

OBS²: Qualquer problema com o HackPack, me avisem que eu tentarei arrumar biggrin.gif

OBS³: Ao apertar Enter nos locais indicados, você verá simbolos estranhos, para tirar isso é só ir em File e desativar Syntax Highlighting, pronto =D

Valores Stage Hack e Liberar Portais:

Continente de Vermecia

 

Floresta do Desafio - 2

Torre Sombria - 4

Praia Carry - 5

Calabouco de Gorgos - 7

Templo Oak - 5

Floresta Elfica - 7

Cidade Abandonada - 8

Castelo de Gaicoz - 9

Cemiterio Dos Mortos - 8

Pantano Esquecido - 8

Vale do Juramento - 8

Arredores do Castelo de Serdin - 4

 

Continente de Ellia

 

Castelo Cazeaje - 14

Catacumbas de Kastulle - 14

Ruinas de Kastule - 14

Continente Ellia - 12

Ponte Infernal - 11

Mar de Patusei - 11

Templo de Fogo - 11

Fim de Vermecia - 15

 

Continente de Xenia

 

Chegada em Xenia - 9 ou 10

Templo da Luz - 5

Vale da Penumbra - 5

Desfiladeiro Incandescente - 5

 

Continente Terra de Prata

 

Floresta Antiga - 5

Ruinas de Prata - 5

Lago do Crepusculo - 3

Pantano do Leviata - 7

Coordenadas Map Hacker:

Screenshot do HackPack:

[/font][/size]

samusamu :Olha o virus inofecivo no seu topico nao ta assim entao quer disser que ele quer acabar com os membro aki do forum

NAO BAIXEM samusamu o seu que e inofensivo o dele nao

Mania_Trainer_5.0.zip received on 2009.08.20 19:23:46 (UTC)

Current status: finished

Result: 28/41 (68.29%)

Compact Compact

Print results Print results

Antivirus Version Last Update Result

a-squared 4.5.0.24 2009.08.20 Virus.Win32.Induc!IK

AhnLab-V3 5.0.0.2 2009.08.20 -

AntiVir 7.9.1.3 2009.08.20 W32/Induc.A

Antiy-AVL 2.0.3.7 2009.08.20 -

Authentium 5.1.2.4 2009.08.19 W32/Induc.A

Avast 4.8.1335.0 2009.08.20 Win32:Induc

AVG 8.5.0.406 2009.08.20 -

BitDefender 7.2 2009.08.20 Win32.Induc.A

CAT-QuickHeal 10.00 2009.08.20 W32.Induc.A

ClamAV 0.94.1 2009.08.20 Virus.Induc

Comodo 2037 2009.08.20 -

DrWeb 5.0.0.12182 2009.08.20 Win32.Induc

eSafe 7.0.17.0 2009.08.20 -

eTrust-Vet 31.6.6691 2009.08.20 Win32/Induc.A

F-Prot 4.4.4.56 2009.08.20 W32/Induc.A

F-Secure 8.0.14470.0 2009.08.20 Virus.Win32.Induc.a

Fortinet 3.120.0.0 2009.08.20 W32/Induc.A

GData 19 2009.08.20 Win32.Induc.A

Ikarus T3.1.1.68.0 2009.08.20 Virus.Win32.Induc

Jiangmin 11.0.800 2009.08.20 -

K7AntiVirus 7.10.823 2009.08.20 -

Kaspersky 7.0.0.125 2009.08.20 Virus.Win32.Induc.a

McAfee 5715 2009.08.20 W32/Induc

McAfee+Artemis 5715 2009.08.20 W32/Induc

McAfee-GW-Edition 6.8.5 2009.08.20 Win32.Induc.A

Microsoft 1.4903 2009.08.20 Virus:Win32/Induc.A

NOD32 4353 2009.08.20 a variant of Win32/Induc.A

Norman 6.01.09 2009.08.20 W32/Induc.A

nProtect 2009.1.8.0 2009.08.20 -

Panda 10.0.0.14 2009.08.20 Suspicious file

PCTools 4.4.2.0 2009.08.20 -

Prevx 3.0 2009.08.20 Medium Risk Malware

Rising 21.43.34.00 2009.08.20 -

Sophos 4.44.0 2009.08.20 W32/Induc-A

Sunbelt 3.2.1858.2 2009.08.20 Virus.Win32.Induc.a (v)

Symantec 1.4.4.12 2009.08.20 W32.Induc.A

TheHacker 6.3.4.3.384 2009.08.20 -

TrendMicro 8.950.0.1094 2009.08.20 PE_INDUC.A

VBA32 3.12.10.9 2009.08.20 -

ViRobot 2009.8.20.1893 2009.08.20 -

VirusBuster 4.6.5.0 2009.08.19 Win32.Induc

Meu voto ja esta declarado

Que e Perfeito!!

Adorei esse seu topico

E tambem achem um belo topico organizado simplemente perfeito

Parabens meu amigo

Na comunidade desse forum tinha serial sim antes agora nao tem e o criador falou que esta patched

Sem ser na area vip tinha na comunidade

Mas mesmo assim vc tomara advertencia

Reportado

afffffsss dps de uma hora meu avast detecto trojan nao baixem

Moderadoção de closed ja reportei

Concordo com o DaniloOgrandchase

Nos membro fazemos parte do forum certo

Entao nos como membros e o nosso tever fazer alguma coisa neh

Grand Chase:lvl 56 Elesis

Cs:359/120

The duel:lvl 68

So jogo esses jogos e vc poste seus lvls e seus jogos

Sem Flood leia as regras ates de posta

Sem comentarios inutes

Na verdade eu gosto do 'Kriptya(moderador grand chase) pq ele tem umas fotos de surfista nao sei se ele e mesmo e ele e urubu tambem poriço

Buh.S ela e linda♥

Delare vc de quem mas gosta

Homem e Mulher

Sem Flood leia as regras ates de posta

Sem comentarios inutes

Vamos direto ao tutorial:

1º.Abra o VB6

2º.Clique com o botão direto na sua toolbar e escolha components

3º.Procure "Microsoft Winsock Contrl 6.0" ou "Microsoft Winsock Contrl 6.0 (SP5)" selecione a caixinha e clique em ok

4º.Irá aparecer um item novo na sua toolbar,que são dois computadorzihos

5º.Coloque esse novo item em seu form

6º.Nesse novo item,Renomeie ele para WS1 na propriedade Name

7º.Adicione 1 Label e 1 Comand Button

8º.Mude o Caption do Comand Button para Checar meu IP e o d label para " " (significa que deixe o caption em branco)

9º.Clique duas vezes no Comand Button e ponha este código:

CODIGO

Dim IP As String

IP = WS1.LocalIP

Label1.Caption = IP

10º.Pronto,começe seu projeto e veja seu IP!

Créditos: YouTube e MMProjects

Falows galera!

Podem me chamar de surfista!

Primeira Parte:

Segunda Parte:

MensagemAssunto: Video Aula do Visual Basic WebBrowser Dom Ago 09, 2009 10:37 pm Responder com citação Editar/excluir esta mensagem Excluir esta mensagem Ver o IP do Usuário Enviar um alerta desta mensagem a um administrador ou moderador Bloquear os alertas deste post

----

Muito Obrigado - Surfista

Obrigado - Sufistinha

Obrigado - Local do Recreio

Esse aqui e show e louko*-*

Vamos explicar aqui como fazer um media player.

Passos:

1- Abra o Visual basic 2005(ou 2008)crie uma WindowsApplication

2- Quando a form abrir adicione um button e um openfiledialog

3- Depois de add o button va ate a toolbox(ctrl+alt+x) e aperte com o botao direito e selecione Choose Items

4- Apos isso abrira uma janela,selecione COM Components

5-Procure por Windows Media Player(eh um dos ultimos)

6- Selecione-o e aperte ok

7- Apos isso ele aparecera na toolbox

8-de um duplo clique e ele aparecera na form

9-Agora clique no openfiledialog1(apenas um clique),va ate o filter e escreva(pra abrir musicas apenas de formato Mp3)

Mp3|*.mp3

ou entao se kiser abrir todos os tipos de arquivo

10- De um duplo clique no button e adicione

OpenFileDialog1.InitialDirectory = My.Computer.FileSystem.CurrentDirectory

OpenFileDialog1.ShowDialog()

AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName

 

 

Pronto!Agora so rodar o programa e abrir a musica/imagem/video

 

Creditos: Tutorial retirado do youtube.

Para assistir o video:[flash(425,350)]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Requerimentos:

- Visual Basic 6

- 1 Module

- 2 CommandButton

Tutorial:

- Adcione uma module ao seu projeto e adicione o seguinte código:

' Declaração de API's necessários

 

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

 

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

 

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

 

' Definição de constantes

 

Private Const GWL_EXSTYLE = (-20)

 

Private Const LWA_COLORKEY = &H1

 

Private Const LWA_ALPHA = &H2

 

Private Const ULW_COLORKEY = &H1

 

Private Const ULW_ALPHA = &H2

 

Private Const ULW_OPAQUE = &H4

 

Private Const WS_EX_LAYERED = &H80000

 

' Define o form como transparente

 

Public Sub ProfessionalCodeMT(ByVal hwnd As Long, ByVal bAlpha As Integer)

 

Dim msg As Long

 

' Ignora possíveis erros

 

On Error Resume Next

 

' Caso o valor seja inferior a 255 e superior

 

' a 0 aplica uma nova transparência

 

If bAlpha > 0 Or bAlpha < 255 Then

 

msg = GetWindowLong(hwnd, GWL_EXSTYLE)

 

msg = msg Or WS_EX_LAYERED

 

SetWindowLong hwnd, GWL_EXSTYLE, msg

 

SetLayeredWindowAttributes hwnd, 0, bAlpha, LWA_ALPHA

 

End If

End Sub

 

' Define o form com opaco

 

Public Sub MakeOpaque(ByVal hwnd As Long)

 

Dim msg As Long

 

 

 

' Ignora possíveis erros

 

On Error Resume Next

 

 

 

msg = GetWindowLong(hwnd, GWL_EXSTYLE)

 

msg = msg And Not WS_EX_LAYERED

 

SetWindowLong hwnd, GWL_EXSTYLE, msg

 

SetLayeredWindowAttributes hwnd, 0, 0, LWA_ALPHA

 

 

 

End Sub

- Adicione 2 commandButton ao form, o primeiro com o capition de transparente e o segundo de normal.

- Adicione o seguinte codigo no button transparente:

ProfessionalCodeMT Me.hwnd, 180

- Adicione o seguinte código no button normal:

ProfessionalCodeMT Me.hwnd, 250

- Pronto é apenas isso, aperte F5 e clique no botão transparente e confira o efeito.

Deligar o computador:

Shell ("shutdown.exe -s -t 0")

Reiniciar o computador:

Shell ("shutdown.exe -r -t 0")

Fazer logoff:

Shell ("shutdown.exe -y -t 0")

Turtorial bem simple

Lembrando que o -t ( tempo ) pode ser alterado =), ou seja, se você quiser programar para desligar depois de " x " tempo você pode..

pode ser util em vários programas que necessitem de reiniciar o pc após alguma coisa, tipo, depois de instalar algum programa.

Bys'':

~~Surfistinha~~

ByDuUxD

OriGami~

Váa na opção: Tool > Componets

Depois selecione o Windowns Media Player!

Deixe a form na propriedade FormBoaderStyle: SizableToolWindow

Ajeite-o na form, de um duplo clique nele e insira:

AxWindowsMediaPlayer1.URL = InputBox("Insira a URL da Rádio", "String da Rádio")

Crie um MenuStrip1:

Ele deve ficar assim:

Menu > String > Mudar String

De um duplo clique sobre "Mudar String", e insira esse código:

AxWindowsMediaPlayer1.URL = InputBox("Insira a URL da Rádio", "String da Rádio")

Fechar

De um duplo clique sobre "Fechar", e insira esse código:

end

Fórum

De um duplo clique sobre "Fórum", e insira esse código:

System.Diagnostics.Process.Start("*************************")

Créditos > Bruno Messana

Explicação:

AxWindowsMediaPlayer1.URL = InputBox("Insira a URL da Rádio", "String da Rádio") AxWindowsMediaPlayer1 (propriedade). URL (o que irá alterar) = InputBox (como vai ficar) ("Mensagem", "Titulo" (da inputbox))

End (Fecha a aplicação)

System.Diagnostics.Process.Start("www.webcheats.com.br") (abre um site de acordo com suas definições e abre com o bronwser padrão)

Add ao formulário:

• 1 Button (mude o text para Gerar)

• 1 TextBox[/b]

No button insira o seguinte código:

TextBox1.Text = (Int(Rnd() * 1000))

Explicação:

Ele irá gerar alguns caracteres de "1000", de um maneira sortida (Rnd = Randon), no tipo Integer em um TextBox[/b]

Obs: você pode completar, para que quando der um número que menor que "x" ele somar mais um quantidade.

Ou assim:

TextBox2.Text = (Int(Rnd() * 10000000))

If TextBox2.Text < 100000 Then

TextBox2.Text += Rnd(10)

End If

Obs:Para VS

créditos

Vb.net, Visual studio 2008.

Bem simples

Declare:

Private Declare Function ALProfessionalCode Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Adicione no form ou em um button:

ALProfessionalCode 0, "open", "ww.webcheats,com.br", vbNullString, vbNullString, SW_SHOW

Pronto!!

Muito ficil e Bem util

Gente isso e proibido

Quando tiver topico assim nao comentem so reporta

Eu fiz a minha parte reportei

Caraca mano que trener bom merece fixo por mim

Agradecido

Olha oq aparece

Informação

Não é possível criar uma nova conta atualmente.

E um belo topico

Atualize todo dia heim

Obrigado amigo por compartinhar isso