Epvpers Nachrichten Hinweiser

[Vloxxity]

Ist schonmal jmd auf die idee gekommen so einen kleinen "Nachrichtenhinweiser" für epvpers zu programmieren?

ich mein so ein kleines proggi wo mann sich einloggt was sich dann in die Taskleiste minimiert und dann wenn mann nachrichten bekommt oder jmd in deinen Thread was postet so eine kleines Fenster drauf hinweist wie bei den meisten messengern (icq,msn,skype).

bitte nur posten wenn ihr wisst dass es einen so ähnliches proggie gibt !
oder wenn ihr intresse dran hättet es für die ganze community zu proggen!

[elementskate]

Also ich nenne meinen kleinen Nachrichtenhinweiser Microsoft Outlook.
Da logg ich mich ein und kann es danach minimieren und wenn mir wer eine Nachricht schreibt oder auf meinen Thread antwortet bekomme ich eine Email und ein kleines Fenster weißt mich darauf hin.

Also es gibt definitiv schon so ein Programm!

[Vloxxity]

hmm aber outlook ist net wirklich klein das schluckt doch dann voll die ressourcen oder??
und ich bekomm nur emails für private nachrichten nicht wenn jmd auf einen thread antwortet!

[elementskate]

Du musst den Thread auch abonnieren

Es kommt nicht immer auf die Größe an^^. Im Moment besetzt Outlook bei mir gerade 19 MB RAM.

Aber du kannst ja jedes Email Programm deiner Wahl nehmen, ich hab halt Outlook.

[JacK le chilla]

wäre möglich wenn man ständig per regex abfragt aber hm viel arbeit viell hat ja jemand langeweile

[Vloxxity]

Originally Posted by elementskate

Du musst den Thread auch abonnieren

Es kommt nicht immer auf die Größe an^^. Im Moment besetzt Outlook bei mir gerade 19 MB RAM.

Aber du kannst ja jedes Email Programm deiner Wahl nehmen, ich hab halt Outlook.

okay das mitm abboniern versuch ich mal xD
hmm bei mir braucht outlock wenn es in die taskleiste minimiert ist ca bisschen über 50 mb ram
weiss wer ob thunderbird da weniger braucht??

Originally Posted by JacK le chilla

wäre möglich wenn man ständig per regex abfragt aber hm viel arbeit viell hat ja jemand langeweile

mal guckn vill findet sich ja jmd mit langeweile xD

[Che]

hrm hab lw mal morgen ne gecrackte version vom vbulletin board v 3.8.2 (= unsere aktuelle forenversion) runterladen und mir die pn funktion ansehn und guck mir mal an, was man als client so anzeigen kann...

auf deutsch: morgen mal das board zerlegen und gucken, was ich draus machen kann

[Reeek]

wie kompliziert ihr das macht

setze mich gerade mit VB.net dran, dürfte in ca 20min fertig sein.

[Vloxxity]

Originally Posted by 〤Che〤

hrm hab lw mal morgen ne gecrackte version vom vbulletin board v 3.8.2 (= unsere aktuelle forenversion) runterladen und mir die pn funktion ansehn und guck mir mal an, was man als client so anzeigen kann...

auf deutsch: morgen mal das board zerlegen und gucken, was ich draus machen kann

findsch juut ^^

Originally Posted by Reeek

wie kompliziert ihr das macht

setze mich gerade mit VB.net dran, dürfte in ca 20min fertig sein.

jaja erst großkotzig angeben und dann nix bringen xD

[Reeek]

bin gerade dran, hab' mir nur was zu essen gemacht + gegessen ...

[Vloxxity]

kk brauchst aber ansch doch länger xD
das release ist schon 2 stunden fällig ^^

[Reeek]

sry, hatte paar Probleme mit dem Sound habe mir bestimmt 2 Stunden allein daran die Zähne ausgebissen... dafür ist es jetzt umso schöner
leider muss ich eure Login-Daten abfragen, was verständlich sein sollte, da das Programm sich mit eurem Acc einloggt und die Nachrichten checkt. Ihr könnt mir wirklich vertrauen, ich habe kein Interesse an euren doofen Accs dennoch ist VT angehängt.

Virustotal sagt:


das sagt aber leider garnix, weil ihr absichtlich die Daten zu einem Server sendet... wenn ihr eine Firewall habt, werdet ihr aber sehen, dass die Datei NUR auf die IP 91.205.41.227 und evtl ähnliche Zweitserver connected - die IP von elitepvpers.com

[Vloxxity]

Könntest du vill den Sourcecode posten??

[Reeek]

...wenn ich mich weigere? Was geht denn mit dir? Denkst du, du bist toll, weil du dir eine Trial runterladen kannst? >.< Hier sollte man echt nichts releasen, bei so einer undankbaren und unfreundlichen Com... Wollte ich Geld dafür? Nein. Wollte ich Thanks? Nein. Ich habe das ganze bisschen "unsauber" gecoded, weil es nur ein kleines Projekt ist und habe nur deswegen den Source nicht gleich mit hoch geladen. Macht eure Firewall an, checkt die Verbindungen und ihr seht, dass es clean ist >.<

Dennoch hier der Quelltext

 Spoiler

Imports System.IO, System.Net, System.Text
Public Class Form1
    Dim timer As Integer = 99
    Dim username As String = ""
    Dim passwort As String = ""
    Private Containa = New CookieContainer
    Dim nachrichten As String = "0"
    Dim req As String
    Dim alt As Integer

    Public Function Request(ByVal sSite As String, Optional ByVal sPost As String = "", Optional ByVal prox As String = "")
        Dim req As HttpWebRequest = HttpWebRequest.Create(sSite)
        req.CookieContainer = Containa
        Dim Response As Net.HttpWebResponse
        If prox <> "" Then
            Dim MyProxy As New Net.WebProxy
            MyProxy.Address = New Uri("http://" & prox)
            req.Proxy = MyProxy
        End If
        If sPost <> "" Then
            req.Method = "POST"
        Else
            req.Method = "GET"

        End If

        req.ContentType = "application/x-www-form-urlencoded"

        If sPost <> "" Then
            Dim byteArray() As Byte = Encoding.UTF8.GetBytes(sPost)
            req.ContentLength = byteArray.Length
            Dim DataStream As Stream = req.GetRequestStream()
            DataStream.Write(byteArray, 0, byteArray.Length)
            DataStream.Close()
        End If
        Response = req.GetResponse
        Dim reader As IO.StreamReader = New IO.StreamReader(Response.GetResponseStream)
        Try
            Return reader.ReadToEnd
        Catch ex As Exception
            Return "Keine Verbindung möglich"
        End Try
    End Function

    Public Function StringBetween(ByVal sString As String, ByVal sFirst As String, ByVal sLast As String)
        Dim aString() As String
        For i As Integer = 1 To UBound(Split(sString, sFirst))
            ReDim Preserve aString(i)
            aString(i) = Split(sString, sFirst)(i)
            aString(i) = Split(aString(i), sLast)(0)
        Next
        Return aString
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        username = tbBenutzername.Text
        passwort = tbPasswort.Text
        Dim req As String = Request("http://www.elitepvpers.com/forum/login.php?do=login", "vb_login_username=" + username + "&vb_login_password=" + passwort + "&cookieuser=1&s=&securitytoken=guest&do=login&vb_login_md5password=&vb_login_md5password_utf=")
        If InStr(req, "You have entered an invalid username or password.") Then
            MsgBox("Falsche Daten")
        ElseIf InStr(req, "Please wait 15 minutes before trying again") Then
            MsgBox("Du hast zu oft falsche Daten eingegeben und bist nun für 15 Minuten gesperrt.")
        ElseIf InStr(req, "Thank you for logging in") Then
            MsgBox("Eingeloggt")
            Label1.Visible = False
            Label2.Visible = False
            tbBenutzername.Visible = False
            tbPasswort.Visible = False
            Button1.Visible = False
            lbNachrichten.Visible = True
            lbNachrichten2.Visible = True
            Timer1.Start()
        ElseIf InStr(req, "Keine Verbindung möglich") Then
            MsgBox("Keine Verbindung möglich")
        Else
            MsgBox("Unbekannter Fehler, versuche es später nocheinmal")
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        alt = Int(nachrichten)
        timer += 1
        If timer = 100 Then
            req = Request("http://www.elitepvpers.com/forum/sendmessage.php")
            If InStr(req, "Your Notifications:</a>") Then
                nachrichten = StringBetween(req, "Your Notifications:</a> <strong>", "</strong>")(1)
            Else
                nachrichten = "0"
            End If
            lbNachrichten.Text = nachrichten
            If Not Int(nachrichten) = 1 Then
                lbNachrichten2.Text = "neue Nachrichten"
            Else
                lbNachrichten2.Text = "neue Nachricht"
            End If
            If alt < Int(nachrichten) Then
                My.Computer.Audio.Play(My.Resources.Windows_XP_Benachrichtigung, AudioPlayMode.Background)
            End If
            timer = 0
        End If
    End Sub
End Class

Wer mir nicht glaubt, compiled es selbst...

[Reeek]

5. Ist deine Einloggfunktion fehlerhaft! Sobald man Sonderzeichen im Namen hat gehts nichmehr

das stimmt, da das ganze per POST übertragen wird, müssten die Sonderzeichen maskiert werden... habe aber gerade nicht wirklich Lust, wegen 1337-Kindern, die Sonderzeichen im Namen haben, die ganzen Sonderzeichen zu suchen und zu guggen, in was die geändert werden. Wollte mit dem Programm eigentlich viel mehr zeigen, dass es total unnötig ist, das Forum zu zerlegen oder ähnliches...