Ir para conteúdo
Fórum Script Brasil

Lucas Phillip

Veteranos
  • Total de itens

    644
  • Registro em

  • Última visita

Tudo que Lucas Phillip postou

  1. ae... bom, o textbox ta funcionando perfeitamente.. vlw agora qt ao winsock, lendo la o artigo eu fiz o seguinte script: Private Sub Form_Load() ip: sIp = InputBox("IP a ser conectado:", "Cliente") If sIp = "" Then GoTo ip iPorta = "8084" Winsock.Connect sIp, iPorta Do While Winsock.State <> sckConnected DoEvents: DoEvents: DoEvents: DoEvents If Winsock.State = sckError Then MsgBox "Não existe nenhum servidor neste ip!", 64, "Ops!" GoTo ip Exit Do End If Loop End Sub só q da uns pau mt esquisito... por exemplo, a mensagem de erro so aparece quando tem alguma letra no ip.. fora isso não volta erro nenhum... q q ta errado? vlw
  2. ae.. eu dei uma olhada nesse site q você me passo, e ele me deu umas idéias, mas eu não consegui resolver o problema... dexa eu explica exatamente: quando uma pessoa A vai conectar na pessoa B, aparece um inputbox onde a pessoa A escreve o ip da pessoa B, para se conectar a ela... o q eu quero, é que quando a pessoa A tente se conectar a pessoa B, mas a pessoa B ainda não esteja pronta para receber a conexão, ou a pessoa A digite o ip errado, a pessoa A receba um aviso falando q a conexão falhou... e quanto ao meu segundo problema, eu não achei nada parecido com o q eu preciso.. eu quero q quando o text ultrapassa o tamanho do textbox, eu quero q o scrollbar fique sempre na ultima msg enviada, no entando ele está sempre no começo do texto, ai para ver a ultima msg enviada, você tem q fica dando scrolldown falou
  3. eu estou fazendo uma espécie de chat, mas apenas para 2 pessoas... bom, pro winsock aqui funcionar, uma pessoa tem q estar apta a receber uma conexão. essa pessoa vira o "servidor", e uma outra conecta no ip dessa pessoa... o q eu quero é que quando uma pessoa esta esperando uma conexão, e ninguém conectou ainda, ela receba um aviso de q ninguém se conectou a ela ainda... deu pra entender agora? (é dificil explicar porque eu sei exatamente do q estou falando, então tudo pra mim parece simples) vlw ah lembrei, aproveitando esse tópico, como eu faço pro textbox q mostra o chat ficar sempre mostrando a ultima mensagem enviada, ou seja, fica dando scroll down toda vez q uma msg for enviada.. falou
  4. ae, como eu faço um script pra vefiricar se alguém entrou no servidor usando winsock... algo pra quando alguém enviar uma informação usando winsock e não tiver ninguém pra receber, ele receber um aviso avisando q ninguém recebeu.. vlw
  5. esquece esse tópico.. já bolei um jeito de fazer isso..
  6. bom.. o título do tópico não sei se é o melhor pro q eu quero, mas não pensei em algo melhor bom, o q eu quero fazer é o seguinte: tem 2 usuarios conectados atraves do winsock.. ai quando um clica num botão aparece um numero aleatorio de 1 a 20 pra ele.. ai quando os 2 apertam o botão, o programa confere qual é o maior e fala pro usuario q ganhou q ele ganhou e pro q perdeu q ele perdeu... mas o script q eu fiz não ta funcionando não ... na verdade eu não tinha a mínima ideia de como fazer isso, então eu sai tentando e acabo saindo isso ai: botão para gerar o numero e enviar: Private Sub Command1_Click() Dim a As Integer Randomize D1 = Int(Rnd() * 20) + 1 Text1.Text = Text1.Text + vbCrLf + USER + " - Tirou " & D1 & " de iniciativa" PRONTO = True Command1.Visible = False For u = 1 To iUsers If Winsock(u).State = 7 Then Winsock(u).SendData D1 Winsock(u).SendData USER + " - Tirou " & D1 & " de iniciativa" End If Next u End Sub botão pra receber: Private Sub Winsock_DataArrival(ByVal bytesTotal As Long) Dim STR As String Winsock.GetData STR, vbString, bytesTotal If (STR > 0) Then If (PRONTO = False) Then D2 = STR Command1.Enabled = True PRONTO = True End If Else Text1.Text = Text1.Text + vbCrLf & STR End If If (STR = "perdeu") Then RL = True Text1.Text = Text1.Text + vbCrLf + USER + " - Rodada Livre" comum.Enabled = True End If If (D2 > D1) Then Text1.Text = Text1.Text + vbCrLf + USER + " - Rodada Livre" For u = 1 To iUsers If Winsock.State = 7 Then Winsock.SendData USER + " - Rodada Livre" End If Next u RL = True End If If (D2 < D1) Then For u = 1 To iUsers If Winsock.State = 7 Then Winsock.SendData "perdeu" End If Next u RL = False End If End Sub são 2 forms, um abre o ip, e o outro conecta... esse codigo acima é de quem abre o ip pra outra pessoa conectar, mas o codigo de quem conecta é quase igual e não faz mt diferença eu posta aqui não... bom, se alguém entender meu problema, me de uma luz plz vlw
  7. aew... eu to com problema em fazer o vb criar um numero aleatorio de 1 a 20.. ai eu pesquisei aqui no forum e achei essa função: Dim a As Integer a = Round(20 * Rnd(1), 0) While a = 0 a = Round(20 * Rnd(1), 0) Wend so q estava vindo sempre os mesmos numeros, em vez de vir aleatorio, então eu pesquisei denovo e descobri q a função rnd não gera realmente um numero aleatorio e q para gerar, eu devia usar a função randomize antes... mas não veio com exemplo de como eu faço isso.. ai tentei usa antes, mas nem deu mt certo.. então alguém ai pode me ajudar a criar um função pra sortear um numero de 1 a 20? vlw
  8. ae.. acabo q eu fiz um sistema de substituição de valores q funcionou ate bem... não é uma criptografada, mas quebra o galho.. eu to perdendo tempo de mais com isso e to com uma porrada de outros problemas pra resolver vlw ai
  9. cara.. eu to mt fudido... não consigo um esquema q criptografe em vb e q seja possível fazer em php... há alguma outra maneira melhor de autenticar um usuário? porque se não tiver, so fico com 2 opções: ou eu quebro a cabeça ate conseguir, ou largo pra la e deixo a senha sem cryptografar mesmo ...
  10. isso vai ajudar bastante .. mas não tem uma biblioteca onde eu possa consultar esse tipo de coisa quando precisar não? pra não ficar floodando o forum
  11. bom, eu achei esse código aqui no fórum pra encriptar Function Criptografia(ByVal StrTexto As String) As String Dim i Dim nCar Dim cCar ChavePar = 256 ChaveImpar = 255 If ChavePar < 1 Or ChavePar > 255 Then ChavePar = 25 If ChaveImpar < 1 Or ChaveImpar > 255 Then ChaveImpar = 33 cCar = "" For i = 1 To Len(StrTexto) If i / 2 = Int(i / 2) Then nCar = Asc(Mid(StrTexto, i, 1)) Xor ChavePar Else nCar = Asc(Mid(StrTexto, i, 1)) Xor ChaveImpar End If cCar = cCar + Chr(nCar) Next Criptografia = cCar End Function para fazer a chamada: 'Cript. Cript = Criptografia("SuaSenha") MsgBox Cript 'Des. DCrip = Criptografia(Cript) MsgBox DCrip so q eu preciso saber exatamente o q as funções "Asc" "Mid" etc fazem porque eu preciso repetir esse código em php... alguém ai pode me dar uma luz? ou me fala onde eu posso achar isso? vlw
  12. aew, alguém pode me falar quais são as maneiras possíveis que o vb possui para criptografar? porque eu tenho uma senha gravada no bd, so q ela foi cryptografada pelo php... ai eu preciso saber se tem alguma função parecida no vb, pra conferir se a senha esta certa na hora q o usuario tentar fazer o login... não sei se esse é o melhor jeito de autenticar um usuário usando mysql e vb... se alguém tiver uma maneira melhor por favor me fale vlw
  13. aew... esse código q você me passou seria pra voltar o numero de campos q tem dentro da tabela no mysql... eu queria a informação que estava armazenada na tabela... bom de qualquer forma, isso me ajudou a solucionar o problema... acabou ficando assim: rs.Open "SELECT * FROM usuarios WHERE email = '" & Text1.Text & "'", DBCon, adOpenKeyset, adLockReadOnly, adCmdText USER = rs.Fields(0).Value brigadao
  14. ae.. funcionou ... mas ficou outra dúvida... como eu faço pra colocar os valores do select em variáveis? algo como o $var = mysql_fetch_array($query) do php, pra q eu possa trabalhar com elas... vlw
  15. aew... eu dei uma olhada no forum e tentei utilizar umas soluções q vi por ai... mas ou elas não são exatamente o q eu quero, ou então não to entendendo elas direito.. de qualquer forma, resolvi postar um novo tópico então.. bom.. eu consigo conectar ao bd sem problemas (pelo menos acho q sim), mas não tenho a minima noção de como fazer um select pra conferir se o valor escrito em um campo text existe no banco de dados.. alguém ae pode me ajudar a fazer isso? vlw
  16. é... eu passei anti-virus, acho uma pacanda de coisa, mas nada que atrapalharia o cd de funcionar .... vo formata essa merda aqui mesmo então... vlw ai galera
  17. eu comecei a passar um anti-virus.. mas ia demorar mt e eu fiquei com preguiça de termina mas eu entrei em modo ms-dos e funcionou normalmente... só no windows xp mesmo q ta dando isso... se for virus, ele ta afetando só o windows?
  18. mexi nos jumpers sim... mas ta certim (pelo menos eu acho) ... ta um master e o outro slave... e todos os icones aparecem no windows...
  19. aew... galera to desesperado já e espero q alguém aqui possa me ajudar.... meus dois drives de cd (CD-RW e DVD-RAM) pararam de ler... eu coloco um cd dentro de um drive e não acha nada, e no outro drive, quando eu tento clicar da função inválida... aproveitando, o driver de disket tb da função inválida quando eu clico nele.... o mais estranho, e q pra gravar um cd, os dois drives estão funcionando... só pra ler q nenhum funciona alguém sabe o que ta acontecendo pra tentar me ajudar? vlw
  20. aew.. agora ta funcionando perfeitamente!! brigadao
  21. eu tentei, mas nem deu mt certo não... não era bem isso o que eu queria (ou era e eu não soube usar direito )... é +- isso que eu quero: tem 4 campos text que estao "readOnly"... ai eu coloquei imagens para poder alterar o valor do compo... so que como são 4 campos, eu não queriar criar 4 funçoes, 1 pra cada.. eu queria criar 1 só pras 4.. ai eu queria que o valor "campo" fosse definido no input.. function altera(campo, qt){ (...) <a onclick='altera(forca1, -10)' href='javascript:void(0)'> .. agora com isso mesmo que você falou da pra fazer o q eu quero? ou tem q ser de outro jeito, porque eu testei e não deu falou
  22. Olá, bom, não sei explicar direito o q eu quero, então vou fazer com exemplos tem essas duas funções function altera_força1(qt){ document.form1.forca1.value = parseInt(document.form1.forca1.value) + qt if (document.form1.forca1.value<0) document.form1.forca1.value = 0 } function altera_força2(qt){ document.form1.forca2.value = parseInt(document.form1.forca2.value) + qt if (document.form1.forca2.value<0) document.form1.forca2.value = 0 } so que eu queria trocar ela por 1 so... então eu fiz function altera_força(campo, qt){ document.form1.campo.value = parseInt(document.form1.campo.value) + qt if (document.form1.campo.value<0) document.form1.campo.value = 0 } so que da erro, porque procura "campo" no formulario... como eu arrumo isso? (se alguém entendeu o que eu quero hehe ) vlw !
  23. Olá, eu estou querendo somar os valores dos campo, mas não sei como.. então tentei simplesmente colocar um "+" document.form1.forca1.value + document.form1.forca2.value so que, supondo que os valores sejam 10 e 8 respectivamente, o resultado parece estar sendo 108 e não 18.. como é a maneira certa de fazer isso? vlw
×
×
  • Criar Novo...