logo DevMedia  
Home Entenda o site Revistas Canais Cursos Palestras Suporte Fórum +Serviços Assine Compre Créditos

Edição do Mês
  Fórum DevMedia
Fórum de Discussão
Conheça também o NOVO fórum da DevMedia, no endereço: www.devmedia.com.br/forum
O novo fórum possui diversas vantagens! Saiba mais em
www.devmedia.com.br/articles/viewcomp.asp?comp=14726
Estamos sempre trabalhando na melhora do site como um todo! Bons códigos!
Equipe DevMedia

 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos  RegistrarRegistrar   
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 
Edição do Mês

Itens no listbox + Socket
 
Novo Tópico   Responder Mensagem    Fórum DevMedia - Índice do Fórum -> .net - Geral
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
julierme
Novato


Registrado em: Quarta-Feira, 12 de Setembro de 2007
Mensagens: 7

MensagemEnviada: Qua Abr 22, 2009 8:13 am    Assunto: Itens no listbox + Socket Responder com Citação

Pessoal tenho um form que utilizo para abrir o IE nas estações de um laboratorio com 22 maquinas, o form possui um textbox, um combobox, um listbox e 3 botões (gravar o url do site, abrir o site e fechar o form).
No listbox esta a relação de IPs das 22 maquinas, para abrir a paginas nas estações faço o da seguinte forma: seleciono no combobox a pagina q quero abrir, depois no listbox em qual maquina quero abrir e clico no botão abrir, pronto o IE é aberto na estação com a url escolhida na combobox.
A questão é que dessa forma tenho que clicar IP por IP para abrir o IE, gostaria que ao selecionar os IPs eles fosse aberto em todas as estações que estão selecionadas no listbox, sei q para isso preciso percorrer o listbox para saber quais IPs estão selecionados, mas não estou conseguindo fazer abrir todos, só abre a maquina do primeiro IP selecionado.

Código do Botão Abrir


C?o:
Private Sub btabrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btabrir.Click
        'Try
        Dim clientSocket As New TcpClient
        Dim serverStream As NetworkStream
        Dim i As Integer

        'Percorre por todos itens do listbox
        If ListBox1.SelectedIndex <> -1 Then
            Dim item As Object
            Dim strMsg As String = ""
            Dim conectserver As String
            For Each item In ListBox1.SelectedItems
                Dim s3 As String = ListBox1.GetItemText(item)
                strMsg += s3 + vbCrLf
            Next
            TextBox2.Text = strMsg + vbCrLf & vbNewLine

            conectserver += strMsg & vbNewLine
            clientSocket.Connect(strMsg, 8888)
            serverStream = clientSocket.GetStream()

            MsgBox("Conectado a maquina:  " + conectserver, MsgBoxStyle.Information)
            Dim outStream As Byte() = Encoding.ASCII.GetBytes(cbourl.SelectedValue)
            serverStream.Write(outStream, 0, outStream.Length)
            serverStream.Flush()
            clientSocket.Close()
            serverStream.Close()


        Else
            MsgBox("Maquina desligada ou fora da rede", MsgBoxStyle.Information)
        End If

        'Catch ex As Exception
        'MsgBox(ex.Message)
        'End Try
    End Sub



Vejam uma imagem do form



_________________
Julierme Felix - Aprendiz
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
julierme
Novato


Registrado em: Quarta-Feira, 12 de Setembro de 2007
Mensagens: 7

MensagemEnviada: Qui Abr 23, 2009 3:23 pm    Assunto: Responder com Citação

Consegui resolver, dividir o codigo em duas partes, uma ficou dentro do botão de abrir e outra coloquei numa sub.

C?o:
Dim conectserver As String
   Private Sub btabrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btabrir.Click
      Try
         Dim i As Integer
         'Percorre por todos itens do listbox
         If ListBox1.SelectedIndex <> -1 Then
            Dim item As Object
            Dim strMsg As String = ""
            For Each item In ListBox1.SelectedItems
               Dim s3 As String = ListBox1.GetItemText(item)
               conectserver = s3
               conectip(conectserver)
            Next
         Else
            MsgBox("Maquina desligada ou fora da rede", MsgBoxStyle.Information)
         End If

      Catch ex As Exception
         MsgBox(ex.Message)
      End Try
   End Sub
   Private Sub conectip(ByVal conectserver)
      Try
         Dim clientSocket As New TcpClient
         Dim serverStream As NetworkStream

         clientSocket.Connect(conectserver, 8888)
         serverStream = clientSocket.GetStream()

         Dim outStream As Byte() = Encoding.ASCII.GetBytes(cbourl.SelectedValue)

         MsgBox("Conectado a maquina:  " + conectserver, MsgBoxStyle.Information)
         serverStream.Write(outStream, 0, outStream.Length)

         serverStream.Flush()
         serverStream.Close()
         clientSocket.Close()

      Catch ex As Exception
         MsgBox(ex.Message)
      End Try
   End Sub

_________________
Julierme Felix - Aprendiz
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    Fórum DevMedia - Índice do Fórum -> .net - Geral Todos os horários são GMT - 3 Hours
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Permitido.
Responder Tópicos: Permitido.
Editar Mensagens: Proibído.
Excluir Mensagens: Proibído.
Votar em Enquetes: Proibído.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB