Epvpers Nachrichten Hinweiser

Page 1 of 2

08/29/2011 21:51 Vloxxity#1

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!

08/29/2011 21:55 elementskate#2

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!

08/29/2011 22:09 Vloxxity#3

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!

08/29/2011 22:23 elementskate#4

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.

08/29/2011 22:42 JacK le chilla#5

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

08/29/2011 22:48 Vloxxity#6

Quote:

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??

Quote:

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

08/30/2011 00:06 Che#7

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

08/30/2011 00:33 Reeek#8

wie kompliziert ihr das macht ;)

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

08/30/2011 01:48 Vloxxity#9

Quote:

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 ^^

Quote:

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

08/30/2011 02:23 Reeek#10

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

08/30/2011 03:12 Vloxxity#11

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

08/30/2011 04:27 Reeek#12

sry, hatte paar Probleme mit dem Sound :D 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 :D dennoch ist VT angeh�ngt.

Virustotal sagt:
[Only registered and activated users can see links. Click Here To Register...]

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

08/30/2011 15:30 Vloxxity#13

K�nntest du vill den Sourcecode posten??

08/30/2011 16:50 Reeek#14

...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

Code:

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...

08/30/2011 22:29 Reeek#15

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...

Page 1 of 2