9/22/2023 0 Comments Vb6 winsock example![]() ![]() If chat.ListCount = 25 Then ' if the chat box gets full thenĪ = InputBox("Enter a note", "Note") ' inputbox will popup for add itemĬhat.AddItem a ' add item (a) which is the input box Sock.SendData a ' sending a (above) as data SendDataĬhat.AddItem " " & outtext.Text ' The chat window will add the item nick.text and the text message (outtext.text) Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer ' keystate (vbKeyReturn) simiulates the enter key, for pressing enter to send messageĪ = " " & outtext.Text ' defining what a is, nick.text and outtext(text message) Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long ' sound ![]() Public old As String ' old as string (old is last msg) ' Special thanks to Steven Dorman, Rob Carr and my GF! This tutorial is how to make a CHAT APPLICATION - CLIENT + SERVER ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |