[EEB]Fazer News antes do MainMenu :D

por ~Pain Dom 01 maio 2011, 11:25

Olá, estava observando aqui no VB,e pensei em criar um News antes do MainMenu,breve colocarei o tutorial do site ;D
-
Parte do site adicionada [EEB]Fazer News antes do MainMenu :D 80839

[EEB]Fazer News antes do MainMenu :D 80839

Bom,dê um Ctrl+F e digite frmSendGetData.Visible = True dê enter. Substitua a sub toda por:

Código:: Sub Main() Dim I As Long Dim Ending As String ScreenMode = 0 Call InitDirectSM frmNews.Visible = True End Sub

Antes de tudo dê Ctrl + T,e selecione Microsoft Internet Controls.

Agora crie uma nova form,e mude seu nome para frmNews. Clique 2x nela e na load dela coloque

Código:: WebBrowser1.Navigate "http://www.seusite.com.br"

Selecione o icone do Internet Explorer e crie um Iframe(nome do componente) no frmNews. Acabada a parte do site.

Crie um botão (ou label,se voçê quiser usar uma imagem.),e nele,coloque o seguinte codigo:

Código:: frmNews.Visible = False frmSendGetData.Visible = True Call SetStatus("Checando pastas...") DoEvents ' Check if the maps directory is there, if its not make it If LCase(Dir(App.Path & "\mapas", vbDirectory)) <> "mapas" Then Call MkDir(App.Path & "\Mapas") End If If UCase(Dir(App.Path & "\GFX", vbDirectory)) <> "GFX" Then Call MkDir(App.Path & "\GFX") End If If UCase(Dir(App.Path & "\GUI", vbDirectory)) <> "GUI" Then Call MkDir(App.Path & "\GUI") End If If LCase(Dir(App.Path & "\músicas", vbDirectory)) <> "músicas" Then Call MkDir(App.Path & "\Músicas") End If If UCase(Dir(App.Path & "\SFX", vbDirectory)) <> "SFX" Then Call MkDir(App.Path & "\SFX") End If If LCase(Dir(App.Path & "\flashs", vbDirectory)) <> "flashs" Then Call MkDir(App.Path & "\Flashs") End If Dim FileName As String FileName = App.Path & "\config.ini" If FileExist("config.ini") Then frmMirage.chkbubblebar.Value = Val(GetVar(FileName, "CONFIG", "SpeechBubbles")) frmMirage.chkEmoSound.Value = Val(GetVar(FileName, "CONFIG", "EmoticonSound")) frmMirage.chknpcname.Value = Val(GetVar(FileName, "CONFIG", "NPCName")) frmMirage.chkplayername.Value = Val(GetVar(FileName, "CONFIG", "PlayerName")) frmMirage.chkplayerdamage.Value = Val(GetVar(FileName, "CONFIG", "NPCDamage")) frmMirage.chknpcdamage.Value = Val(GetVar(FileName, "CONFIG", "PlayerDamage")) frmMirage.chkmusic.Value = Val(GetVar(FileName, "CONFIG", "Music")) frmMirage.chkSound.Value = Val(GetVar(FileName, "CONFIG", "Sound")) frmMirage.chkAutoScroll.Value = Val(GetVar(FileName, "CONFIG", "AutoScroll")) If Val(GetVar(FileName, "CONFIG", "MapGrid")) = 0 Then frmMapEditor.chkGrid.Value = 0 Else frmMapEditor.chkGrid.Value = 1 End If Else Call PutVar(App.Path & "\config.ini", "IPCONFIG", "IP", "127.0.0.1") Call PutVar(App.Path & "\config.ini", "IPCONFIG", "Porta", 4000) Call PutVar(App.Path & "\config.ini", "CONFIG", "Conta", "") Call PutVar(App.Path & "\config.ini", "CONFIG", "Senha", "") Call PutVar(App.Path & "\config.ini", "CONFIG", "WebSite", "http://www.mmodev.com.br") Call PutVar(App.Path & "\config.ini", "CONFIG", "SpeechBubbles", 1) Call PutVar(App.Path & "\config.ini", "CONFIG", "EmoticonSound", 1) Call PutVar(App.Path & "\config.ini", "CONFIG", "NPCName", 1) Call PutVar(App.Path & "\config.ini", "CONFIG", "NPCDamage", 1) Call PutVar(App.Path & "\config.ini", "CONFIG", "PlayerName", 1) Call PutVar(App.Path & "\config.ini", "CONFIG", "PlayerDamage", 1) Call PutVar(App.Path & "\config.ini", "CONFIG", "MapGrid", 1) Call PutVar(App.Path & "\config.ini", "CONFIG", "Music", 1) Call PutVar(App.Path & "\config.ini", "CONFIG", "Sound", 1) Call PutVar(App.Path & "\config.ini", "CONFIG", "AutoScroll", 1) End If If FileExist("GUI\Cores.txt") = False Then Call PutVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "R", 152) Call PutVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "G", 146) Call PutVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "B", 120) Call PutVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "R", 152) Call PutVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "G", 146) Call PutVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "B", 120) Call PutVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "R", 152) Call PutVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "G", 146) Call PutVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "B", 120) Call PutVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "R", 152) Call PutVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "G", 146) Call PutVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "B", 120) Call PutVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "R", 152) Call PutVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "G", 146) Call PutVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "B", 120) Call PutVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "R", 152) Call PutVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "G", 146) Call PutVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "B", 120) End If Dim R1 As Long, G1 As Long, B1 As Long R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "R")) G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "G")) B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "B")) frmMirage.txtChat.BackColor = RGB(R1, G1, B1) R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "R")) G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "G")) B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "B")) frmMirage.txtMyTextBox.BackColor = RGB(R1, G1, B1) R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "R")) G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "G")) B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "B")) frmMirage.Picture9.BackColor = RGB(R1, G1, B1) frmMirage.Picture8.BackColor = RGB(R1, G1, B1) frmMirage.picInv3.BackColor = RGB(R1, G1, B1) frmMirage.itmDesc.BackColor = RGB(R1, G1, B1) frmMirage.picWhosOnline.BackColor = RGB(R1, G1, B1) frmMirage.picGuildAdmin.BackColor = RGB(R1, G1, B1) frmMirage.picGuild.BackColor = RGB(R1, G1, B1) frmMirage.picEquip.BackColor = RGB(R1, G1, B1) frmMirage.picPlayerSpells.BackColor = RGB(R1, G1, B1) frmMirage.picOptions.BackColor = RGB(R1, G1, B1) frmMirage.chkbubblebar.BackColor = RGB(R1, G1, B1) frmMirage.chkEmoSound.BackColor = RGB(R1, G1, B1) frmMirage.chknpcname.BackColor = RGB(R1, G1, B1) frmMirage.chkplayername.BackColor = RGB(R1, G1, B1) frmMirage.chkplayerdamage.BackColor = RGB(R1, G1, B1) frmMirage.chknpcdamage.BackColor = RGB(R1, G1, B1) frmMirage.chkmusic.BackColor = RGB(R1, G1, B1) frmMirage.chkSound.BackColor = RGB(R1, G1, B1) frmMirage.chkAutoScroll.BackColor = RGB(R1, G1, B1) R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "R")) G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "G")) B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "B")) frmMirage.lstSpells.BackColor = RGB(R1, G1, B1) R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "R")) G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "G")) B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "B")) frmMirage.lstOnline.BackColor = RGB(R1, G1, B1) R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "FRIENDLIST", "R")) G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "FRIENDLIST", "G")) B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "FRIENDLIST", "B")) frmMirage.lstFriend.BackColor = RGB(R1, G1, B1) R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "R")) G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "G")) B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "B")) frmNewChar.optMale.BackColor = RGB(R1, G1, B1) frmNewChar.optFemale.BackColor = RGB(R1, G1, B1) Call SetStatus("Checando status...") DoEvents ' Não estamos em jogo! InGame = False GettingMap = True InEditor = False InSpeechEditor = False InItemsEditor = False InNpcEditor = False InShopEditor = False InEmoticonEditor = False InArrowEditor = False InSpawnEditor = False frmMirage.picItems.Picture = LoadPicture(App.Path & "\GFX\Itens.bmp") frmSpriteChange.Picsprites.Picture = LoadPicture(App.Path & "\GFX\Sprites.bmp") Call SetStatus("Inicializando Configurações de TCP...") DoEvents Call TcpInit frmMainMenu.Visible = True frmSendGetData.Visible = False

O botão que voçê acabou de criar é o botão para entrar ! Agora crie outro botão ( Sair ),e nele coloque o codigo:

Código:: Call GameDestroy

Pronto ! No final deve ficar assim:
[EEB]Fazer News antes do MainMenu :D Imagemlvx

Creditos:
~Pain (Matheus T.)

por nicholas Dom 01 maio 2011, 11:43

nÃO ENTEDI MUITO BEM

por ~Pain Dom 01 maio 2011, 12:15

Cara, em vez de ir direto pra tela onde tem, Logar,sair e etc, ele vai para outra form, com News entende ? So que a parte do site ainda não foi posta ;D

por Lucas Roberto Dom 01 maio 2011, 12:25

sem Utilidades

voce so fez um form e pois codigos simples

como vai editar mesagens ?

não tem --'
e pra fazer site de Browser e facil --'

por ~Pain Ter 03 maio 2011, 19:19

Amigo, voçê ate pode saber criar um simples Iframe,e este codigo é pra ajudar pessoas novas ;*
Mas mesmo assim obrigado por comentar '-'
E se percebe que não é PARA EDITAR NEWS,e sim para colocar um site antes tipo o Viciados DBZ.

por hardsfree Qua 04 maio 2011, 11:45

gostei vo por no meu projeto +1 de cred [EEB]Fazer News antes do MainMenu :D 487483

por ~Pain Qua 04 maio 2011, 12:05

Obrigado hardsfree Very Happy

É mais facil pra ver o site sem abrir navegador Very Happy

por SkyZero Qua 04 maio 2011, 14:39

Sem querer ofender compensa fazer 1 web broser depois add um botão com o comando shell(" nome do exe do jogo ")

por ~Pain Qua 04 maio 2011, 14:45

Nem faço por Shell,realmente não compensa tanto mas é de rapido acesso a um jogo cujo player não saiba o site.

por SkyZero Qua 04 maio 2011, 14:48

sim tem seu contras e seus pros ;

mas só dei minha opinião ;

por ~Pain Qua 04 maio 2011, 15:05

Eu sei que tu só queria ajudar nada não Very Happy

por sushi123 Seg 21 maio 2012, 17:54

não comssegui faser poderia me ajudar Pain ?

por FullBuster Seg 21 maio 2012, 17:59

sushi123 escreveu:não comssegui faser poderia me ajudar Pain ?

Manu olha a data do topico :s

por Conteúdo patrocinado

[EEB]Fazer News antes do MainMenu :D

[EEB]Fazer News antes do MainMenu :D

Re: [EEB]Fazer News antes do MainMenu :D

Re: [EEB]Fazer News antes do MainMenu :D

Re: [EEB]Fazer News antes do MainMenu :D

Re: [EEB]Fazer News antes do MainMenu :D

Re: [EEB]Fazer News antes do MainMenu :D

Re: [EEB]Fazer News antes do MainMenu :D

Re: [EEB]Fazer News antes do MainMenu :D

Re: [EEB]Fazer News antes do MainMenu :D

Re: [EEB]Fazer News antes do MainMenu :D

Re: [EEB]Fazer News antes do MainMenu :D

Re: [EEB]Fazer News antes do MainMenu :D

Re: [EEB]Fazer News antes do MainMenu :D

Re: [EEB]Fazer News antes do MainMenu :D