Side til at lære WinSock

Ja den er godt nok på engelske, men du kan også lære gennem eksempler
http://winsockvb.com/

ellers kender jeg kun en artikel "Simpel chat mellem to computere"
http://www.udvikleren.dk/article.php?techid=4&aid=141

jeg venter lige og ser om der kommer andre før jeg uddeler points...

bare ok :-)

Har givet dig point sjh pga. at den side (winsockvb.com) var virkelig god !!

Men nu når vi er i gang har jeg et problem med et af mine vb scripts...

Private Sub Form_Load()
Dim FileName As String
  Dim FileNr As Integer
  Dim txt As String
  FileName = "C:\windows\temp\username.txt"
  FileNr = FreeFile
  Open FileName For Input As FileNr
  txt = Input(LOF(FileNr), FileNr)
If txt = "-=USD=- | BioHazard" Then
cmdChatSrv.Visible = True
  Close (FileNr)
  End If
End Sub

når jeg sletter min if txt = .....
og sætter en msgbox ind som udskriver valuen af txt kommer den rigtige tekst frem,,, men hvis jeg skriver 100% præcis den samme tekst som er i txt filen i min if, virker det ikke. Så sker der intet med min knap... Jeg vil give dig 25 point for at hjælpe mig med dette...

det kan være at du har en nylinje i din "username.txt". (det skal du ikke give nogle point for)


Private Sub Form_Load()
Dim FileName As String
Dim FileNr As Integer
Dim txt As String
Dim pos As Integer

  FileName = "C:\windows\temp\username.txt"
  FileNr = FreeFile

  Open FileName For Input As FileNr
    txt = Input(LOF(FileNr), FileNr)

    pos = InStr(1, txt, vbCrLf)
    If pos Then
      txt = Left$(txt, pos - 1)
    End If

    If txt = "-=USD=- | BioHazard" Then
      cmdChatSrv.Visible = True
    End If
  Close (FileNr)
End Sub

ha ha du kan bare gøre sådan:


Private Sub Form_Load()
Dim FileName As String
Dim FileNr As Integer
Dim txt As String

  FileName = "C:\username.txt"
  FileNr = FreeFile

  Open FileName For Input As FileNr
    txt = Input(LOF(FileNr), FileNr)
    If InStr(1, txt, "-=USD=- | BioHazard", vbTextCompare) Then
      cmdChatSrv.Visible = True
    End If
  Close (FileNr)
End Sub