NoNameMT
16.03.2010, 18:45
Hey Leute,
ich habe mal nen kleines Problem bei VB.NET. Ich bin grade dabei nen kleines Tool für SchuelerVZ zu schreiben aus langeweile halt :D
Also folgende Situation:
Ich habe ein Modul SocialNetwork.vb in der habe ich eine Class Client angelegt.
In dieser Klasse sind die ganzen Subs und Funktionen, z.B. fürs Freunde adden etc. pp.
In meiner Form habe ich dann
Dim svz As New SocialNetworks.Client
deklariert.
Nun rufe ich halt die ganzen Funktionen per Punktnotation auf.
Also z.B. für den Nachrichtenversand:
Private Sub cmdSendMsg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSendMsg.Click
svz.sendeNachricht(txtEmpfaenger.Text, txtBetreff.Text, txtNachricht.Text)
End Sub
svz.Login steht halt in dem Modul SocialNetworks und sieht folgender Maßen aus:
Public Sub sendeNachricht(ByVal empfaengerID As String, ByVal Betreff As String, ByVal Nachricht As String)
If eingeloggt = True Then
'Formkey + IV holen
Dim Formkey As String = getNachrichtenFormkey()
Dim IV As String = getNachrichtenIV()
'Zu sendene Daten
Dim postData As String = "state=&messageId=&recipientIds%5B%5D=" & empfaengerID & "&searchfield=&subject=" & Betreff & "&message=" & Nachricht & "&recipientIdForHistory=" & empfaengerID & "&formkey=" & Formkey & "&iv=" & IV
Dim antwort As String = request(postData, "/Messages/WriteMessage", True)
'Antwort auswerten
If antwort.Contains("Fehler!") Then
'Falsche E-Mail-Adresse oder falsches Passwort!
Throw New Exception("Fehler beim Senden der Nachricht")
End If
Else
Throw New Exception("Nicht eingeloggt")
End If
End Sub
Soo das ganze Funktioniert einwandfrei. Jetzt wollte ich die Sub kopieren und so umschreiben, dass ich jemanden Gruscheln kann.
Das habe ich auch getan:
Public Sub gruschelUser(ByVal profilID As String)
If eingeloggt = True Then
'Formkey + IV wie immer holen
Dim sFormkey As String = getGruschelFormkey(profilID)
Dim sIV As String = getGruschelIV(profilID)
Dim sSubmit As String = getSubmit(profilID)
Dim postData As String = "submit=" & sSubmit & "&referrer=%2FProfile%2F" & profilID & "&id=" & profilID & "&formkey=" & sFormkey & "&iv=" & sIV
Dim antwort As String = request(postData, "/Gruscheln/DialogGruscheln/" & profilID, True)
Else
Throw New Exception("Nicht eingeloggt")
End If
End Sub
Nun sollte ich die Sub ja genau so aufrufen können, wie die sendeNachricht Sub. Das geht aber nicht. Ich kann mit der Punktnotation die Sub gruschelUser nicht aufrufen :(
Könnt ihr mir evtl dabei helfen bzw. sagen, woran das liegen könnte?
Vielen Dank schonmal
Gruß
NoNameMT
ich habe mal nen kleines Problem bei VB.NET. Ich bin grade dabei nen kleines Tool für SchuelerVZ zu schreiben aus langeweile halt :D
Also folgende Situation:
Ich habe ein Modul SocialNetwork.vb in der habe ich eine Class Client angelegt.
In dieser Klasse sind die ganzen Subs und Funktionen, z.B. fürs Freunde adden etc. pp.
In meiner Form habe ich dann
Dim svz As New SocialNetworks.Client
deklariert.
Nun rufe ich halt die ganzen Funktionen per Punktnotation auf.
Also z.B. für den Nachrichtenversand:
Private Sub cmdSendMsg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSendMsg.Click
svz.sendeNachricht(txtEmpfaenger.Text, txtBetreff.Text, txtNachricht.Text)
End Sub
svz.Login steht halt in dem Modul SocialNetworks und sieht folgender Maßen aus:
Public Sub sendeNachricht(ByVal empfaengerID As String, ByVal Betreff As String, ByVal Nachricht As String)
If eingeloggt = True Then
'Formkey + IV holen
Dim Formkey As String = getNachrichtenFormkey()
Dim IV As String = getNachrichtenIV()
'Zu sendene Daten
Dim postData As String = "state=&messageId=&recipientIds%5B%5D=" & empfaengerID & "&searchfield=&subject=" & Betreff & "&message=" & Nachricht & "&recipientIdForHistory=" & empfaengerID & "&formkey=" & Formkey & "&iv=" & IV
Dim antwort As String = request(postData, "/Messages/WriteMessage", True)
'Antwort auswerten
If antwort.Contains("Fehler!") Then
'Falsche E-Mail-Adresse oder falsches Passwort!
Throw New Exception("Fehler beim Senden der Nachricht")
End If
Else
Throw New Exception("Nicht eingeloggt")
End If
End Sub
Soo das ganze Funktioniert einwandfrei. Jetzt wollte ich die Sub kopieren und so umschreiben, dass ich jemanden Gruscheln kann.
Das habe ich auch getan:
Public Sub gruschelUser(ByVal profilID As String)
If eingeloggt = True Then
'Formkey + IV wie immer holen
Dim sFormkey As String = getGruschelFormkey(profilID)
Dim sIV As String = getGruschelIV(profilID)
Dim sSubmit As String = getSubmit(profilID)
Dim postData As String = "submit=" & sSubmit & "&referrer=%2FProfile%2F" & profilID & "&id=" & profilID & "&formkey=" & sFormkey & "&iv=" & sIV
Dim antwort As String = request(postData, "/Gruscheln/DialogGruscheln/" & profilID, True)
Else
Throw New Exception("Nicht eingeloggt")
End If
End Sub
Nun sollte ich die Sub ja genau so aufrufen können, wie die sendeNachricht Sub. Das geht aber nicht. Ich kann mit der Punktnotation die Sub gruschelUser nicht aufrufen :(
Könnt ihr mir evtl dabei helfen bzw. sagen, woran das liegen könnte?
Vielen Dank schonmal
Gruß
NoNameMT