Ir para conteúdo
Fórum Script Brasil

tuliod

Membros
  • Total de itens

    140
  • Registro em

  • Última visita

Posts postados por tuliod

  1. Olá gente, tudo certo com vocês? Bom, procurei pela internet e realmente não achei. Vocês saberiam me dizer como faço para minimizar um programa meu na barra de inicialização rápida (aquela que aparece as horas no canto inferior direito da tela), assim como fazemos com o MSN e o BitComet por exemplo. Brigado pela atenção! Túlio.

  2. Ola cara!!

    tudo bem??

    não mandei o email porque resolvi fazer uns testes antes e funciono..

    mas funciono de um jeito que eu não esperava..

    aqui é uma rede.. ultilizando um rootiador..

    e assim não posso ser o servidor se estou numa rede?

    abraços

  3. Olá pessoal! :D

    Tudo bem??

    preciso de uma ajudinha de vocês..

    o winsock pelo que sei..

    é possivel fazer comunicações de computadores remotos como eu e voce apenas pelo IP, não?

    sabendo seu IP, podemos fazer uma conexao via winsock e criarmos um bate-papo, por exemplo. Tá certo?

    Pois bem.. utilizei vaarios metodos e codigos inclusive do site:

    http://www.desenvolvedores.net/modules.php...icle&sid=27

    SERVIDOR:

    If sckServidor.State <> sckClosed Then sckServidor.Close
    sckServidor.Bind 1984
    sckServidor.Listen
    lbStatusSvr.AddItem "Escutando porta " & sckServidor.LocalPort 
    
    CLIENTE:
    If sckCliente.State <> sckClosed Then sckCliente.Close
    sckCliente.Connect ##IP DO SERVIDOR##, 1984
    Do While sckCliente.State <> sckConnected
      DoEvents: DoEvents: DoEvents: DoEvents
      If sckCliente.State = sckError Then
        lbStatusClt.AddItem "Erro!"
        Exit Do
      End If
      lbStatusClt.AddItem "Conectando..."
    Loop
    If sckCliente.State = sckConnected Then
      lbStatusClt.AddItem "Conectado!"
    End If
    

    e já tentei colocar varios tipos de IPs..inclusive o que aparece na funcão "Winsock1.IpLocal" do sevidor

    alguém que já conseguiu fazer o que consegue fazer pode me ajudar??

    por favor..

    OBRIGADO!!

    Tulio

  4. Aham..

    mas tipo..

    tem alguma forma de especificar cada janela..

    por exemplo..

    quero muda um texto de uma janela que eu abri assim..

    só que o nome dessas novas janelas são iguais..

    como posso identifica-las??

    Nova_janela(1).txtinf = "casa"

    Nova_janela(2).txtinf = "carro"

    Nova_janela(3).txtinf = "mulher"

    Obrigadooo!!

    abraços!!

  5. Valeeu!! É isso mesmo..

    E outra pergunta..

    Tenho um textbox = "casa"

    Como posso faço para que essa nova janela ter seu Name igual ao textbox ("casa")??

    E depois.. Se eu mudar o conteudo do textbox para "carro" por exemplo... ele crie janela igual com o Name igual textbox ("carro")??

    Tendo então uma janela com o nome "casa" e outra igual com o nome "carro"..

    Obrigado!!

    Túlio

  6. Olá pessoal!! :D

    Tudo bem??

    Acho que a minha dúvida é simples para vocês..hehe.. :P

    Como posso fazer para poder abrir duas vezes a mesma janela??

    por exemplo..

    Private Sub Command1_Click()
    Nova_Janela.Show
    End Sub
    
    Private Sub Command2_Click()
    Nova_Janela.Show
    End Sub
    

    Quando eu aperto os dois botões.. o sistema não abre a segunda "Janela_Nova"..

    Tem como fazer para que o programa abra essas duas janelas?? Como?

    Abraço!!

    Tulio

  7. Olá Pessoal!! :D

    Tudo bem??

    Preciso de uma ajuda..

    Tem como fazer para que quando o usuário quando clicar no "X" para fechar a janela, antes que a janela fechar, o programa executa uma açao, como por exemplo abrir uma url ou fazer um cadastro em um banco de dados??

    Obrigadooo!!

    Agradeço desde já..

  8. Bom diaaa!!

    oláá pessoal!! :D

    tudo beem??

    to precisando de uma forçinha aí..

    tem como deletar os espaços existentes em um texto até começar o texto..

    EXEMPLO::

    tenho um texto..

    "            A Casa Caiu e o Gato Fugiu!!"
    
    dae fica...
    "A Casa Caiu e o Gato Fugiu!!"
    

    entenderam??

    tem como voces me ajudar??

    Agradeço desde já!!

    abraçooo!!

  9. Olá pessoal!! :D

    Tudo bem aí?

    preciso de uma ajuda de vocês.. por favor..

    o problema é o seguinte:

    utilizo este código para localizar uma palavra em um .txt:

    n = FreeFile()   'Abre o arquivo txt
    Open "texto.txt" For Input As #n
    Do Until EOF(1)
    Input #n, linha   'Le as linhas
    coisa = Split(linha, ";")   'Separa os itens das linhas pelo sinal ";"
    List1.AddItem (coisa(0))   'Adciona o primeiro item de todas as linhas em um list
    If coisa(0) = txtprimeiroitem.Text Then   ' Se o primeiro item do txt é igual ao campo então....
    MsgBox "O primeiro item do txt é igual ao campo"   ' Abre uma msgbox
    End If
    Loop
    Close #n
    
    Supondo que no arquivo texto.txt as informações estejam assim:
    99teste;ovelha
    fe1e188;coelho
    casa124nova;jacare
    098formiga;lagartixa
    
    ... o list é preenchido da seguinte forma:
    99
    fe
    casa
    098
    

    Ou seja... o programa le só o primeiro tipo de caracteres que aparece (letra ou numero)..

    tem alguma solução para que ele leia os dois tipo de caracteres?

    Agradeço desde já!

    Obrigado pela atenção!!

    Túlioo!!

  10. Olá pessoal!!

    tudo bem com vocês??

    A minha dúvida acho que é fácil para vocês, mas para mim, é complicada..hehehe

    é o seguinte..

    Como faço para deletar uma linha de um arquivo ".txt" informando a linha que quero deletar?

    Quem poder me ajudar.. por favor.. me ajude!!

    Obrigado desde já!!

    Túlio

×
×
  • Criar Novo...