Executar Ação E Fechar Janela...

[Lucas Phillip]

Ola,

eu estou fazendo um chat, e coloquei um botao em um form la pra fechar o programa... só que antes de fechar o programa, vai mandar uma msg pro servidor falando que o usuario esta saindo... só que estou com 1 problema....

se eu coloco a linha de fechar a janela antes de enviar a msg, envia a msg mas o programa continua aberto... e se eu coloco a linha para fechar o programa depois da msg, fecha o programa mas não manda a msg... aff :P

ai está o codigo

Private Sub Command4_Click()
    On Error Resume Next
        responce = MsgBox("Você tem certeza que deseja sair?", vbQuestion + vbYesNo, "Sair")
        If responce = vbYes Then
            Winsock.SendData "offlinesnd;" + USER
            Unload Me
        Else
            Cancel = True
        End If
End Sub

socorro! hehe :D

[Graymalkin]

Você já experimentou fechar o Winsock com o método Close logo após enviar os dados e antes de fechar a janela?

Abraços,

Graymalkin

[Lucas Phillip]

se você fala em colocar

Winsock.SendData "offlinesnd;" + USER

winsock.close

Unload Me

já tentei e deu na mesma :(

[Lucas Phillip]

eu resolvi o problema assim... quando manda a msg que esta fazendo logoff, manda pro servidor que manda pra todo mundo, inclusive quem está fazendo logoff... ai quando o cara recebe a msg de logoff e o nome de quem está saindo é igual o dele a janela fecha :D

acho que está beleza assim...

vlw