[ALL][TUTO]Arrumando ScreenShot
+3
Lucas Roberto
Gu1lh3rm3
victorlarios
7 participantes
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 1
[ALL][TUTO]Arrumando ScreenShot
por victorlarios Sáb 21 Ago 2010, 05:06
Olá pessoal,esse é meu primeiro tutorial neste forum.
Bom,vocês devem saber que em algumas Engines existe um bug de screenshot,você aperta F11 tira a screenshot,depois você tira outra screenshot e ao invés de salvar ná pasta do client,ela salva em cima da outra screenshot,ou seja,você só consegue armazenar uma screenshot no client. Vamos concertar isso?!
all ready? Come on!
Abra o source do client pelo VB depois abra FrmMirage - Procure por
Mude para:
Agora procure por:
Mude tudo por:
Pronto!
Tire o tanto de screenshot que desejar!
Creditos: Eu - Biro
E a minha bixa loca - Gu1lh3rm3
Bom,vocês devem saber que em algumas Engines existe um bug de screenshot,você aperta F11 tira a screenshot,depois você tira outra screenshot e ao invés de salvar ná pasta do client,ela salva em cima da outra screenshot,ou seja,você só consegue armazenar uma screenshot no client. Vamos concertar isso?!
all ready? Come on!
Abra o source do client pelo VB depois abra FrmMirage - Procure por
- Código:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim d As Long, I As Long
Dim ii As Long
Mude para:
- Código:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim d As Long
Dim ScreenID As Long
Agora procure por:
- Código:
If KeyCode = vbKeyF11 Then
ScreenShot.Picture = CaptureForm(frmMirage)
I = 0
ii = 0
If LCase(Dir(App.Path & "\Screenshots", vbDirectory)) <> "screenshots" Then
Call MkDir(App.Path & "\Screenshots")
End If
Do
If FileExist("Screenshot" & I & ".bmp") = True Then
I = I + 1
Else
Call SavePicture(ScreenShot.Picture, App.Path & "\Screenshots" & I & ".bmp")
ii = 1
End If
DoEvents
Loop Until ii = 1
ElseIf KeyCode = vbKeyF12 Then
ScreenShot.Picture = CaptureArea(frmMirage, picScreen.Left, picScreen.Top, picScreen.Width, picScreen.Height)
I = 0
ii = 0
If LCase(Dir(App.Path & "\Screenshots", vbDirectory)) <> "screenshots" Then
Call MkDir(App.Path & "\Screenshots")
End If
Do
If FileExist("Screenshot" & I & ".bmp") = True Then
I = I + 1
Else
Call SavePicture(ScreenShot.Picture, App.Path & "\Screenshots" & I & ".bmp")
ii = 1
End If
DoEvents
Loop Until ii = 1
End If
Mude tudo por:
- Código:
If KeyCode = vbKeyF11 Then
ScreenShot.Picture = CaptureForm(frmMirage)
If LCase(Dir(App.Path & "\Screenshots", vbDirectory)) <> "screenshots" Then
Call MkDir(App.Path & "\Screenshots")
End If
Do
If FileExist("\Screenshots\Screenshot " & ScreenID & ".bmp") Then
ScreenID = ScreenID + 1
Else
Call SavePicture(ScreenShot.Picture, App.Path & "\Screenshots\Screenshot " & ScreenID & ".bmp")
Call AddText(App.Path & "\Screenshots\Screenshot " & ScreenID & ".bmp" & " - " & "Sceenshot salva!", AlertColor)
Exit Do
End If
Loop
ElseIf KeyCode = vbKeyF12 Then
ScreenShot.Picture = CaptureArea(frmMirage, picScreen.Left, picScreen.Top, picScreen.Width, picScreen.Height)
If LCase(Dir(App.Path & "\Screenshots", vbDirectory)) <> "screenshots" Then
Call MkDir(App.Path & "\Screenshots")
End If
Do
If FileExist("\Screenshots\Screenshot " & ScreenID & ".bmp") Then
ScreenID = ScreenID + 1
Else
Call SavePicture(ScreenShot.Picture, App.Path & "\Screenshots\Screenshot " & ScreenID & ".bmp")
Call AddText(App.Path & "\Screenshots\Screenshot " & ScreenID & ".bmp" & " - " & "Sceenshot salva!", AlertColor)
Exit Do
End If
Loop
End If
Pronto!
Tire o tanto de screenshot que desejar!
Creditos: Eu - Biro
E a minha bixa loca - Gu1lh3rm3
victorlarios- Novato
- Mensagens : 28
-
Re: [ALL][TUTO]Arrumando ScreenShot
por Gu1lh3rm3 Sáb 21 Ago 2010, 11:32
kkkkkkkkkkk ... lol mano e.e
vlw ... +1
vlw ... +1
Gu1lh3rm3- Membro de Honra
- Mensagens : 1232
-
victorlarios- Novato
- Mensagens : 28
-
Re: [ALL][TUTO]Arrumando ScreenShot
por Lucas Roberto Sáb 21 Ago 2010, 17:03
Parbens mais um belo tutu + de CRED
Lucas Roberto- Membro Veterano
- Mensagens : 1794
-
victorlarios- Novato
- Mensagens : 28
-
snool- Membro Sênior
- Mensagens : 351
Re: [ALL][TUTO]Arrumando ScreenShot
por Rio Absolut Dom 22 Ago 2010, 09:54
lol , Copy e Past Agora vem com Cred ods outros ??
Tuto aki
Creditos Lendario por postar , Lenon por criar
Tuto aki
Creditos Lendario por postar , Lenon por criar
Rio Absolut- Membro Vitalicio
- Mensagens : 655
Re: [ALL][TUTO]Arrumando ScreenShot
por St4rk Dom 22 Ago 2010, 10:14
Ou você coloca os créditos originais, ou eu deleto o topico.
Você tem 1dia.
Você tem 1dia.
St4rk- Membro de Honra
- Mensagens : 2251
-
Re: [ALL][TUTO]Arrumando ScreenShot
por victorlarios Dom 22 Ago 2010, 20:47
Cara eu não uso a área de ECLIPSE....pois essa area é de ELYSIUM DIAMOND e nao tem nenhum tutorial igual a esse em elysium diamond..e eu nao entro na area de eclipse por isso nao vi esse tutorial ai...por tanto...eu procurei no meu vb uma forma de faser...consigui '-'...e postei....por tanto nao vou por os creditos do lenon e nem do lendário...por que oque sei estou dentro das regras pq eu as li '-'.....
Se eu tivesse na area ECLIPSE e dado um CTRL C e CTRL V e colocado meus créditos,iria arrumar sim.
Caso esteja errado,avise,vlw
Se eu tivesse na area ECLIPSE e dado um CTRL C e CTRL V e colocado meus créditos,iria arrumar sim.
Caso esteja errado,avise,vlw
victorlarios- Novato
- Mensagens : 28
-
Re: [ALL][TUTO]Arrumando ScreenShot
por Rio Absolut Dom 22 Ago 2010, 20:53
Filho vc leu meu topico , viu o link ali ?
leia clique nos links olhe dps comente !
leia clique nos links olhe dps comente !
Rio Absolut- Membro Vitalicio
- Mensagens : 655
Re: [ALL][TUTO]Arrumando ScreenShot
por nicholas Ter 22 Mar 2011, 19:18
victorlarios escreveu:Olá pessoal,esse é meu primeiro tutorial neste forum.
Bom,vocês devem saber que em algumas Engines existe um bug de screenshot,você aperta F11 tira a screenshot,depois você tira outra screenshot e ao invés de salvar ná pasta do client,ela salva em cima da outra screenshot,ou seja,você só consegue armazenar uma screenshot no client. Vamos concertar isso?!
all ready? Come on!
Abra o source do client pelo VB depois abra FrmMirage - Procure por
- Código:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim d As Long, I As Long
Dim ii As Long
Mude para:
- Código:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim d As Long
Dim ScreenID As Long
Agora procure por:
- Código:
If KeyCode = vbKeyF11 Then
ScreenShot.Picture = CaptureForm(frmMirage)
I = 0
ii = 0
If LCase(Dir(App.Path & "\Screenshots", vbDirectory)) <> "screenshots" Then
Call MkDir(App.Path & "\Screenshots")
End If
Do
If FileExist("Screenshot" & I & ".bmp") = True Then
I = I + 1
Else
Call SavePicture(ScreenShot.Picture, App.Path & "\Screenshots" & I & ".bmp")
ii = 1
End If
DoEvents
Loop Until ii = 1
ElseIf KeyCode = vbKeyF12 Then
ScreenShot.Picture = CaptureArea(frmMirage, picScreen.Left, picScreen.Top, picScreen.Width, picScreen.Height)
I = 0
ii = 0
If LCase(Dir(App.Path & "\Screenshots", vbDirectory)) <> "screenshots" Then
Call MkDir(App.Path & "\Screenshots")
End If
Do
If FileExist("Screenshot" & I & ".bmp") = True Then
I = I + 1
Else
Call SavePicture(ScreenShot.Picture, App.Path & "\Screenshots" & I & ".bmp")
ii = 1
End If
DoEvents
Loop Until ii = 1
End If
Mude tudo por:
- Código:
If KeyCode = vbKeyF11 Then
ScreenShot.Picture = CaptureForm(frmMirage)
If LCase(Dir(App.Path & "\Screenshots", vbDirectory)) <> "screenshots" Then
Call MkDir(App.Path & "\Screenshots")
End If
Do
If FileExist("\Screenshots\Screenshot " & ScreenID & ".bmp") Then
ScreenID = ScreenID + 1
Else
Call SavePicture(ScreenShot.Picture, App.Path & "\Screenshots\Screenshot " & ScreenID & ".bmp")
Call AddText(App.Path & "\Screenshots\Screenshot " & ScreenID & ".bmp" & " - " & "Sceenshot salva!", AlertColor)
Exit Do
End If
Loop
ElseIf KeyCode = vbKeyF12 Then
ScreenShot.Picture = CaptureArea(frmMirage, picScreen.Left, picScreen.Top, picScreen.Width, picScreen.Height)
If LCase(Dir(App.Path & "\Screenshots", vbDirectory)) <> "screenshots" Then
Call MkDir(App.Path & "\Screenshots")
End If
Do
If FileExist("\Screenshots\Screenshot " & ScreenID & ".bmp") Then
ScreenID = ScreenID + 1
Else
Call SavePicture(ScreenShot.Picture, App.Path & "\Screenshots\Screenshot " & ScreenID & ".bmp")
Call AddText(App.Path & "\Screenshots\Screenshot " & ScreenID & ".bmp" & " - " & "Sceenshot salva!", AlertColor)
Exit Do
End If
Loop
End If
Pronto!
Tire o tanto de screenshot que desejar!
Creditos: Eu - Biro
E a minha bixa loca - Gu1lh3rm3
Bixa loca kkkkkkkkkkkkkkkk
Rachei o vlw pelo tuto
nicholas- Membro Veterano
- Mensagens : 1144
Re: [ALL][TUTO]Arrumando ScreenShot
por Gu1lh3rm3 Qua 30 Mar 2011, 01:38
zoa não U_U kkkkkk, MAL pelo off topic
Gu1lh3rm3- Membro de Honra
- Mensagens : 1232
-
Tópicos semelhantes» Duvida com Screenshot
» Arrumando a GetplayerLevel
» [ALL]Arrumando 1 Bug No Vip2
» [Arrumando]Desigualdade,WARRIOR/MAGE(EO)
» alguem faz um tuto?
» Arrumando a GetplayerLevel
» [ALL]Arrumando 1 Bug No Vip2
» [Arrumando]Desigualdade,WARRIOR/MAGE(EO)
» alguem faz um tuto?
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
» Ojkjeeeee
» Naruto Great Ninja Batle
» Recrutamento de um Designer para jogo de CDZ.
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Projeto Dbz
» Avaliação - Sprites Naruto
» [Sprites] DBZ (Plix)
» Super Pack - Bleach V.2
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [Pedido] Contador de resets na FrmMain
» [Recrutamento]
» Ajuda erro no Cliente e Servidor do EEB 2.6!
» Como criar tilesets para Eclipse Origins 3.0 (POKÉMON)
» Recursos Pokemons
» erro frm flash
» Pedido - Pack de star wars
» [Ajuda] Sobre como por o servidor on por ip fixo
» Illusion Dimension - O Misterio do ID: BETA TESTE ONLINE
» [NSME] Naruto Shinobi Maker Engine
» Script /base,/casa Igual DBZ Forces
» [Pedido]Colar Tsunade item sprite eclipse origin
» [Pedido] Elysium
» Naruto - Recruta
» [Avaliação] - Kirito from Sword Art Online; Red and Pikachu from Pokemon.
» [Avaliação] - Kenpachi Zaraki from Bleach; Libra Shiryu From Saint Seiya.
» Demonstração de Sprites (Á VENDA!)
» [Sistema de Reset]Para Eclipse .
» Cada Guild Nascer em Certo Mapa
» Dragon Ball z Fusion A Grande Volta
» Ajuda com Ip fixo
» Como Fazer um GUI no Eclipse Origins
» Shisui Susanoo
» Fantasy Art Online
» Ajuda !!
» como passar o usuário e senha para o MainMenu?
» Ru time ero 13 Type mismatch
» Jarvis 1.3 Download
» [Avaliação/Disponibilização]Árvore 64x64
» Mlk's Zikas Signatures
» Pedido de Sistemas
» [AjudaEEB]Gerador de EXP
» [Avaliar] Base, Humano e Goblin.
» Fabrica do Tio Cronos!
» [PixelArt] Minion - Meu malvado favorito
» [Avaliar] Goku Dragon Ball Z