DUVIDA COM O PROJECT.EXE
Ola pessoal estou aprendendo a mexer com o winsock e fiz um chatzinho bem simples, gostaria de saber se tem como eu gerar o .exe do Chatservidor e executar em uma maquina que não tenha o VB instalado, o codigo do servidor está ai. vlw galera
Private Sub cmdEnviar_Click()
If sckServidor.State = sckConnected Then
sckServidor.SendData txtEnviar.Text
Else
MsgBox "Socket não conectado!"
End If
End Sub
Private Sub Form_Load()
If sckServidor.State <> sckClosed Then sckServidor.Close
sckServidor.Bind 1984
sckServidor.Listen
lbStatusSvr.AddItem "Escutando porta " & sckServidor.LocalPort
End Sub
Private Sub sckServidor_ConnectionRequest(ByVal requestID As Long)
sckServidor.Accept requestID
lbStatusSvr.AddItem "Aceitou uma conexão com " & sckServidor.RemoteHostIP & " (" & sckServidor.RemotePort & ")"
End Sub
Private Sub sckServidor_DataArrival(ByVal bytesTotal As Long)
Dim dados As String
sckServidor.GetData dados
lbStatusSvr.AddItem "Recebido: " & dados
End Sub
Private Sub cmdEnviar_Click()
If sckServidor.State = sckConnected Then
sckServidor.SendData txtEnviar.Text
Else
MsgBox "Socket não conectado!"
End If
End Sub
Private Sub Form_Load()
If sckServidor.State <> sckClosed Then sckServidor.Close
sckServidor.Bind 1984
sckServidor.Listen
lbStatusSvr.AddItem "Escutando porta " & sckServidor.LocalPort
End Sub
Private Sub sckServidor_ConnectionRequest(ByVal requestID As Long)
sckServidor.Accept requestID
lbStatusSvr.AddItem "Aceitou uma conexão com " & sckServidor.RemoteHostIP & " (" & sckServidor.RemotePort & ")"
End Sub
Private Sub sckServidor_DataArrival(ByVal bytesTotal As Long)
Dim dados As String
sckServidor.GetData dados
lbStatusSvr.AddItem "Recebido: " & dados
End Sub
Ow, vá em FILE > MAKE <Projeto>.exe e registra
O componente WINSOCK vem somente com o VB (acho), se vc n colocar a ocx desse controle no arquivo de instalação não dá certo
Mas se n tem componente desse tipo no rojeto, vc pode compilar e rodar em outro pc sem VB tranquilamente
O componente WINSOCK vem somente com o VB (acho), se vc n colocar a ocx desse controle no arquivo de instalação não dá certo
Mas se n tem componente desse tipo no rojeto, vc pode compilar e rodar em outro pc sem VB tranquilamente
Quando vc fala pra mim registrar é pra mim registrar a ocx do winsock?
Se for isso como faço pra registrar porque eu não consegui.
vlw
Se for isso como faço pra registrar porque eu não consegui.
vlw
Não.. é pra registrar o EXE indo em FILE > MAKE PROJECT.EXE
Daà tem q colocar o winsock no arquivo de instalação, pois acho q o WINSOCK só vem com VB6
Daà tem q colocar o winsock no arquivo de instalação, pois acho q o WINSOCK só vem com VB6
Para registrar use
REGSVR32 MSWINSCK.OCX
Para distribuir o aplicativo, é necessário as OCXes e DLLs que sua aplicação necessita, senão, não roda nem por reza braba....
REGSVR32 MSWINSCK.OCX
Para distribuir o aplicativo, é necessário as OCXes e DLLs que sua aplicação necessita, senão, não roda nem por reza braba....
Eu entendi pessoal mais assim, vo explicar na pratica. Eu fiz meu projeto que usa a ocx do winsock ta pronto so que eu gostaria de criar o form.exe que executasse em outras maquinas que não tem o vb instalado, so que eu enviasse para as pessoas apenas o form.exe e eles conseguissem executar sem ter que instalar meu aplicativos, porque não quero fazer o deployment. tem alguma forma sei la de colocar a OCX dentro do form.
Faz o seguinte cara,
Tenta começar testando então, manda o aplicativo numa máquina "virgem" sem vb nem nada, e tentar rodar pra ver...
Eu ACHO que o Win já tem a MSWINSCK.OCX, então é só mandar o executável mesmo.
Tenta começar testando então, manda o aplicativo numa máquina "virgem" sem vb nem nada, e tentar rodar pra ver...
Eu ACHO que o Win já tem a MSWINSCK.OCX, então é só mandar o executável mesmo.
Tópico encerrado , respostas não são mais permitidas