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
MfG
Was wir brauchen sind 2 Textboxen und ein Button
VB.NET-Quellcode
- ' Code by DJ Re-DarK
- ' Original from Coders-Heaven
- ' Auf Usenext/Usenet angepasst
- ' Src version 1.1
- Imports System.Net.Sockets
- Imports System.IO
- Public Class Form1
- Dim stream As NetworkStream
- Dim streamwrite As StreamWriter
- Dim streamread As StreamReader
- Dim NewsServer As String = "news.usenext.de" 'Der Newsserver
- Dim Port As Integer = 119 'Der Port
- Function UsenextCheck(ByVal user As String, ByVal pass As String, Optional ByVal returnLimit As Boolean = False)
- Try
- Dim Client As New TcpClient
- Client.Connect(NewsServer, Port) 'Verbinden
- stream = Client.GetStream
- streamwrite = New StreamWriter(stream)
- streamread = New StreamReader(stream)
- Catch ex As Exception
- Return 0
- Exit Function
- End Try
- streamread.ReadLine()
- client_send("AUTHINFO USER " & user) 'Einloggen, mit Usernamen
- streamread.ReadLine() 'Warten bis server Antwortet
- client_send("AUTHINFO PASS " & pass) 'Passwort senden
- Dim buffer As String = streamread.ReadLine() 'Speichern was er antwortet
- If Not buffer.StartsWith("281") Then
- Return 0 'Account Ungültig ;)
- Exit Function
- End If
- If Not returnLimit = True Then
- Return 1 'Traffic alle :P
- Else
- Dim str() As String = buffer.Split(":")
- Return "1 Traffic Left: " & CInt(CDbl(str(1).Remove(0, 1)) / 1048576) & " MB" 'Yea... Noch sooo viel speicher? :D
- End If
- End Function
- Sub client_send(ByVal text As String)
- streamwrite.WriteLine(text)
- streamwrite.Flush()
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- MsgBox(UsenextCheck(txtUser.Text, txtPass.Text, True))
- End Sub
- End Class
MfG