Usenext Accounts Prüfen

    • VB.NET

      Usenext Accounts Prüfen

      Viele kennen Vielleicht Usenext... Ein einfacher weg um zu Prüfen, wie viel Volumen noch auf dem Account, und vorallem ob er noch geht, ist dieser:

      Was wir brauchen sind 2 Textboxen und ein Button

      VB.NET-Quellcode

      1. ' Code by DJ Re-DarK
      2. ' Original from Coders-Heaven
      3. ' Auf Usenext/Usenet angepasst
      4. ' Src version 1.1
      5. Imports System.Net.Sockets
      6. Imports System.IO
      8. Public Class Form1
      9. Dim stream As NetworkStream
      10. Dim streamwrite As StreamWriter
      11. Dim streamread As StreamReader
      12. Dim NewsServer As String = "news.usenext.de" 'Der Newsserver
      13. Dim Port As Integer = 119 'Der Port
      14. Function UsenextCheck(ByVal user As String, ByVal pass As String, Optional ByVal returnLimit As Boolean = False)
      16. Try
      17. Dim Client As New TcpClient
      18. Client.Connect(NewsServer, Port) 'Verbinden
      20. stream = Client.GetStream
      21. streamwrite = New StreamWriter(stream)
      22. streamread = New StreamReader(stream)
      23. Catch ex As Exception
      24. Return 0
      25. Exit Function
      26. End Try
      27. streamread.ReadLine()
      28. client_send("AUTHINFO USER " & user) 'Einloggen, mit Usernamen
      29. streamread.ReadLine() 'Warten bis server Antwortet
      30. client_send("AUTHINFO PASS " & pass) 'Passwort senden
      31. Dim buffer As String = streamread.ReadLine() 'Speichern was er antwortet
      33. If Not buffer.StartsWith("281") Then
      34. Return 0 'Account Ungültig ;)
      35. Exit Function
      36. End If
      38. If Not returnLimit = True Then
      39. Return 1 'Traffic alle :P
      40. Else
      41. Dim str() As String = buffer.Split(":")
      42. Return "1 Traffic Left: " & CInt(CDbl(str(1).Remove(0, 1)) / 1048576) & " MB" 'Yea... Noch sooo viel speicher? :D
      43. End If
      45. End Function
      46. Sub client_send(ByVal text As String)
      47. streamwrite.WriteLine(text)
      48. streamwrite.Flush()
      49. End Sub
      51. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      52. MsgBox(UsenextCheck(txtUser.Text, txtPass.Text, True))
      54. End Sub
      55. End Class


      MfG

    Facebook
    Telefonspende