LordLuc

o VB6 da crash após eu executar o sub abaixo 509 vezes, ou seja, na 510° vez ele da crash e não avisa nada apenas fica escrito enviar /não enviar relatorios... Public Sub Play_Sound(ByVal sound As String) Dim i As Long Dim result As FMOD_ERRORS If Not bInit_Sound Then Exit Sub ' exit out early if we have the system turned off If Options.sound = 0 Then Exit Sub ' does it exist? If Not FileExist(App.path & SOUND_PATH & sound) Then Exit Sub ' find the extension Select Case Right$(sound, 4) Case ".mid", ".s3m", ".mod" ' open the stream SoundHandle = FSOUND_Stream_Open(App.path & SOUND_PATH & sound, FSOUND_LOOP_OFF, 0, 0) ' play it For i = 1 To 31 If FSOUND_IsPlaying(i) = 0 Then FSOUND_Stream_Play i, SoundHandle FSOUND_SetVolume SoundHandle, 150 SoundCount = SoundCount + 1 Exit For End If Next i Case ".wav", ".mp3", ".ogg", ".wma" ' open the stream SoundHandle = FSOUND_Stream_Open(App.path & SOUND_PATH & sound, FSOUND_LOOP_OFF, 0, 0) ' play it For i = 1 To 31 If FSOUND_IsPlaying(i) = 0 Then FSOUND_Stream_Play i, SoundHandle FSOUND_SetVolume SoundHandle, 150 SoundCount = SoundCount + 1 Exit For End If Next i Case Else Exit Sub End Select End Sub DUVIDO super que alguém possa me ajudar...

alguém responde porfavor :/

Olá, eu estou com um problema no vb.net 2010, ao criar novo projeto não tem Setup and Deployment, como faço para coloca-lo? eu uso vb express e já baixei a iso com todos, já instalei sdk e windows installer e etc, na verdade teve um treco de sdk q era só pra win7... enfim o que faço para criar este tipo de projeto? eu uso xp professional sp3.

Olá, Eu tenho desenvolvido aplicações para usar em servidores de jogos meus, e em meu launcher fiz e ocorreu tudo certo nos pcs que usei (Xp e win7) porém muitos players tem problema com erros no launcher, no caso eu usei try em todas funções para que quando ocorresse erros abrisse uma página da web com explicações de como tentar corrigir, porém geralmente no win7 64 bits ocorre um erro que atraves do try descobri que é no IO.FileStream, devido não ocorrer em todos os win7 64 bit e não ter ocorrido em xp nem em win7 32 bit acredito q seja falta de permissão na função, porém estou confuso porque acredito eu que já dei todas as permissões na função, peço ajuda de voces pois gosto muito do vb.net e não quero ter que programar uma aplicação parecida no vb6( executar em comptabilidade e como administrador não resolve, ao menos que os testes feitos as pessoas fizeram errado, eu mesmo não tive como testar). Linha do IO.FileStream: Dim writeStream As New IO.FileStream(Application.StartupPath & "\" & UpdateList(ActualUpID).Path, IO.FileMode.Create, IO.FileAccess.Write, IO.FileShare.Write) toda a função try: Try Dim writeStream As New IO.FileStream(Application.StartupPath & "\" & UpdateList(ActualUpID).Path, IO.FileMode.Create, IO.FileAccess.Write, IO.FileShare.Write) Do If Downloader2.CancellationPending Then Exit Do End If speedtimer.Start() Dim readBytes(4095) As Byte Dim bytesread As Integer = theResponse.GetResponseStream.Read(readBytes, 0, 4096) nRead += bytesread Dim percent As Short = (nRead / length) * 100 Me.Invoke(safedelegate, percent, currentspeed) If bytesread = 0 Then Exit Do writeStream.Write(readBytes, 0, bytesread) speedtimer.Stop() readings += 1 If readings >= 5 Then currentspeed = 20480 / (speedtimer.ElapsedMilliseconds / 1000) speedtimer.Reset() readings = 0 End If Loop theResponse.GetResponseStream.Close() writeStream.Close() Catch ex As Exception ErrorMsg("Erro 9 : erro ao salvar arquivo!", "9.html") End Try essa função baixa um arquivo da internet e salva-o em tempo real na pasta, se o arquivo não existir já é criado ^^. Obrigado desde já.

Eu peguei um source code de um "Downloader" no site da macoratti e fiz umas modificações para um uso , preciso que se o arquivo exista continue o download, irei usar em outro programa mas to tentando modificar esse para ver como fazer. O Downloader usa um filestream e cria o arquivo e o baixa e salva enquanto baixa se parar o down o arquivo fica pela metade, se fechar o programa o arquivo tambem fica onde estava baixando com os bytes que já tinham sido baixados, eu queria que quando tentasse baixar dnv o downloader lesse os bytes do arquivo e continuasse a baixá-lo de onde parou, com umas modificações consegui continuar a salvar o arquivo apenas adicionando os bytes a ele mas o down ultrapassa a qtd de bytes que deveria ter, tipo ele baixa o arquivo do começo mas invés de criar outro apenas aumenta, eu queria exatamente isso mas invés de o downloader ler o arquivo da net e baixa-lo totalmente, baixar da onde parou e adicionar os btyes ao arquivo já existente, abaixo um pouco das modificações, já fiz muitas e n deu kk ( criei um potão de pause do down que apenas pausa o Loop, não serve para dar "resume" após o programa ser fechado: Me.btDownload.Enabled = False Dim theResponse As HttpWebResponse Dim theRequest As HttpWebRequest Try theRequest = WebRequest.Create(Me.txtNomeArquivo.Text) theResponse = theRequest.GetResponse Catch ex As Exception MessageBox.Show("Um erro ocorreu durante o download do arquivo. Possíveis causas :" & ControlChars.CrLf & _ "1) Arquivo não existe" & ControlChars.CrLf & _ "2) Erro no sevidor remoto ", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Dim cancelDelegate As New DownloadCompletoSafe(AddressOf DownloadComplete) Me.Invoke(cancelDelegate, True) Exit Sub End Try Dim length As Long = theResponse.ContentLength Dim safedelegate As New AlterarTextosSafe(AddressOf AlterarTextos) Me.Invoke(safedelegate, length, 0, 0, 0) Dim nRead As Integer Dim speedtimer As New Stopwatch Dim currentspeed As Double = -1 Dim readings As Integer = 0 If Dir(Me.whereToSave) <> "" Then Dim writeStream2 As New IO.FileStream(Me.whereToSave, IO.FileMode.Open, IO.FileAccess.Read) nRead = writeStream2.Length writeStream2.Close() End If Dim writeStream As New IO.FileStream(Me.whereToSave, IO.FileMode.Append) Do If BackgroundWorker1.CancellationPending Then Exit Do End If If Not Button1.Text = "Resume" Then speedtimer.Start() Dim readBytes(4095) As Byte Dim bytesread As Integer = theResponse.GetResponseStream.Read(readBytes, 0, 4096) nRead += bytesread Dim percent As Short = (nRead / length) * 100 Me.Invoke(safedelegate, length, nRead, percent, currentspeed) If bytesread = 0 Then Exit Do writeStream.Write(readBytes, 0, bytesread) speedtimer.Stop() readings += 1 If readings >= 5 Then currentspeed = 20480 / (speedtimer.ElapsedMilliseconds / 1000) speedtimer.Reset() readings = 0 End If End If Loop theResponse.GetResponseStream.Close() writeStream.Close() If Me.BackgroundWorker1.CancellationPending Then IO.File.Delete(Me.whereToSave) Dim cancelDelegate As New DownloadCompletoSafe(AddressOf DownloadComplete) Me.Invoke(cancelDelegate, True) Exit Sub End If Dim completeDelegate As New DownloadCompletoSafe(AddressOf DownloadComplete) Me.Invoke(completeDelegate, False) Aguardo respostas.

tipo, queria p´rocurar parte de string /variavel, uma função q retornasse true ou false pode ser.. ex: em uma string ou variavel com o valor "Computador TEste" se eu digitar: "Comp" retornar true. uma função procurar independente de estar maiuscula ou minuscula a parte string se possivel.. thanks

queria saber como fazer uma conexao entre dois programas snedo que um "le" certo arquivo armazena-o de algum modo e envia dados a outro para um envio mais rapido e após, o outro o salva. preciso apenas do comandos para salvar/ler arquivo a conexao client-servidor já tenho

queria saber como começar carregandop um arquivo 3d algo basico, opengl ou sdl mdl dizem sobre varios dai tenho uma duvida do que é melhor para começar e o que realmente é em visual basic. ou então usando alguns efeitos do directx tmb ajudaria.

é só por o codigo no ub main ou form inicial do propjeto: exemplo: If Not Command = "keyopen" Then MsgBox ("O jogo deve ser aberto pelo Launcher!") Unload Me Exit Sub End If substituindo o keyopen pelo codigo q você quer q o programa chame. para você chamar o programa você temq usar o seguinte comando: Shell App.Path & "\app.exe keyopen" substituindo o keyopen pelo codigo q você pois no lugar do ekyopen na aplicação e o app.exe pelo nome de sua aplicação, assim só uma aplicaçao q use o seguitne comando pode abrir sua aplicação, do contrario retorna uma mensagem no meu caso puis o 1 codigo no executavel do jogo e o shell no launcher. fiz um exemplo : http://www.4shared.com/file/L0Xz1zpq/key_app.html

wbrDesiredURL.GoBack "volta" para pagina anterior, wbrDesiredURL.GoForward "vai pra frente dnv", wbrDesiredURL.GoBack é < do navegador e wbrDesiredURL.GoForward é > .

exatamente o que procurava, thanks. funcional.

eu queria fazer o seguinte, uma aplicaçao seja aberta apenas pelo launcher, é um jogo criado em vb6 e queria q fosse aberto apenas pelo launcher para q n fosse aberto diretamente fazendo com que os players tivessem q abrir o launcher e clicar no botao para poder jogar, mts jogos usam isso.. por ex invez de abrir o arquivo usando shell jogo.exe, teria q executar um comando +o- assim: shell main.exe _737829qlqrcoisasendotipoumachave mais n sei como aplicar isso no arquivo "jogo.exe" entendem?

criar ou editar monstro pra dofus? tipo se você qer apenas mostrar nas janela abaixo as linhas q deve ser colocada na sql e na lang, na lang tem q ver certin como funciona pra por as linha se você qer apenas editar seria mais apresentavel sua uma conexao com mysql pra escolher o id e o resto editar mais n tem mta utilidade algo assim,explica melhor o que você qer.