MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

[ALL]Botao Para Site e Orkut

+7
Freitas
snool
guuh
edinho2pac
Cris~
Lendário
Lucas Roberto
11 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais

Ir para baixo

[ALL]Botao Para Site e Orkut Empty [ALL]Botao Para Site e Orkut

Mensagem por Lucas Roberto Dom 27 Jun 2010, 18:06

Olha nao tenho Muito que Falaentao vamos ao Trabalho

Antes de tudo va em frmMirage Crie um Commandbutton Para o site e um para Orkut.

No Commandbutton do Site de 2 Clique e adiciona :

Código:

    Call GoToWebsite("http://seu site aki.com/")

Agora No Commandbutton do Orkut de 2 Clique e adiciona :

Código:
Call GoToWebsiteOrkut("http://www.link do seu orkut aki/")

Agora Crie um Module e renomeia seu nome para modWeb 2 dois clique e Adiciona:

Código:
Option Explicit

Private Declare Function ShellExecute 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

Public Function GoToWebsite(ByVal WebSite As String) As Boolean
    Dim res As Long
 
    If InStr(1, WebSite, "http", vbTextCompare) <> 1 Then
        WebSite = "http://dbzuponline.webnode.com.br/" & WebSite
    End If
 
    res = ShellExecute(0&, "open", WebSite, vbNullString, vbNullString, _
        vbNormalFocus)
    GoToWebsite = (res > 32)
End Function

Public Function GoToWebsiteOrkut(ByVal WebSite As String) As Boolean
    Dim res As Long
 
    If InStr(1, WebSite, "http", vbTextCompare) <> 1 Then
        WebSite = "http://www.orkut.com.br/Community.aspx?cmm=64406629" & WebSite
    End If
 
    res = ShellExecute(0&, "open", WebSite, vbNullString, vbNullString, _
        vbNormalFocus)
    GoToWebsiteOrkut = (res > 32)
End Function


E isso pessoal Credito : Desconhecido
Idea
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por Lendário Dom 27 Jun 2010, 18:11

Acho que não foi você que fez esse tuto Surprised
Ja vi ele postado aqui mais mesmo assim
Obrigado pela colaboração.
Lendário
Lendário
Administrador Lendário
Administrador Lendário

Mensagens : 1958

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por Lucas Roberto Dom 27 Jun 2010, 18:16

Lendario isso eu Peguei num server que esta parado aki e resolvi ajudar^^ como nao sabia que tinha elabora o tuturial resolvi por meu nome ^^
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por Cris~ Seg 28 Jun 2010, 06:33

Se vc nuaum Sabe Axo Melhor Colocar Creditos: Desconhecido ^^
Cris~
Cris~
Membro Veterano
Membro Veterano

Mensagens : 1574

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por edinho2pac Seg 20 Set 2010, 14:12

Muito bom
edinho2pac
edinho2pac
Novato
Novato

Mensagens : 24

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por guuh Seg 20 Set 2010, 20:54

Novamente, pare de reviver topicos antigos, levei muitas broncas por causa disso e nao quero q vc leve
guuh
guuh
Membro Veterano
Membro Veterano

Mensagens : 1187

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por snool Ter 21 Set 2010, 16:30

Da error Compile e selecione de azul o codigo :
Código:
Call GoToWebsite
Oque eu faço ?
snool
snool
Membro Sênior
Membro Sênior

Mensagens : 351

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por Freitas Seg 04 Out 2010, 09:36

snool são erros em suas sources Wink
-==-==~EDIT~==-==-
nao são erros nao sources o lost errou Wink
Freitas
Freitas
Membro Vitalicio
Membro Vitalicio

Mensagens : 676

http://dragonball.6te.net

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por Lucas Roberto Seg 04 Out 2010, 13:15

Se eu etendi serto voce falow que eu errei
?

So pra informar esse tuturial 100% sem erros testado e aprovado
Muita gente testou e deu serto
se voce echa que eu errei me fale Onde esta o erro
Duvido que esta errado ou que voce encontre erros
Qualquer um que tem uma noção de vb sabe que esta correto
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por guuh Seg 04 Out 2010, 14:42

aki deu Very Happy
guuh
guuh
Membro Veterano
Membro Veterano

Mensagens : 1187

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por tomaerola Ter 19 Out 2010, 20:33

como eu crio um module? .--.
tomaerola
tomaerola
Novato
Novato

Mensagens : 19

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por Cris~ Qua 20 Out 2010, 10:47

Vai Nas Ferramentas La Em Cima Do VB, Procura Por Project e CLica La Vai Ter ADD Module^^
Cris~
Cris~
Membro Veterano
Membro Veterano

Mensagens : 1574

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por Dukinha Dom 24 Out 2010, 13:43

Muito legal +1 cred
Dukinha
Dukinha
Novato
Novato

Mensagens : 35

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por Ayan13 Dom 08 Jul 2012, 23:58

Mano MUito Legal + 1 Cred ai
Ayan13
Ayan13
Membro
Membro

Mensagens : 115

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por Frozen Seg 09 Jul 2012, 06:19

Topico Trancado Menbro Punido!~ Barra de Tarefas em banned peço que algum administrador bani ele .
Frozen
Frozen
Membro Veterano
Membro Veterano

Mensagens : 1339

Ir para o topo Ir para baixo

[ALL]Botao Para Site e Orkut Empty Re: [ALL]Botao Para Site e Orkut

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais

 
Permissões neste sub-fórum
Não podes responder a tópicos