TwitterVB

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Scream.

    TwitterVB

    Hey Comm,
    Ich wollte mit der Twitter dll, herausfinden ob ein Nickname + Passwort richtig ist, wen ja Msgbox..
    ich hatte es so probiert:

    VB.NET-Quellcode

    1. 'dll: http://twittervb.codeplex.com/
    2. Imports ComponentFactory
    3. Imports System.Net
    4. Imports TwitterVB2
    6. Public Class Form1
    7. Inherits ComponentFactory.Krypton.Toolkit.KryptonForm
    8. Dim twit As New TwitterAPI
    9. Private Sub KryptonButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton1.Click
    10. Try
    11. twit.AuthenticateAs(KryptonTextBox1.Text, KryptonTextBox2.Text)
    12. KryptonButton1.Enabled = False
    13. Catch ex As Exception
    14. MsgBox("falsche eingabe")
    15. KryptonButton1.Enabled = True
    16. End Try
    17. End Sub
    18. End Class


    Vll. weiß jemand weiter..

    LG Scream

    meinste das ?
    Ich entschuldige mich erstmals für den Doppler, der muss jetzt aber sein sonst geht mein Thema mit dem Edit verloren..

    Also ich habe nun alles Registriert etc.
    aber wen ich nun mein Prog teste:

    VB.NET-Quellcode

    1. Imports ComponentFactory
    2. Imports System.Net
    3. Imports TwitterVB2
    5. Public Class Form1
    6. Inherits ComponentFactory.Krypton.Toolkit.KryptonForm
    7. Dim tw As New TwitterAPI
    9. Private Sub KryptonButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton1.Click
    10. Dim Url As String = tw.GetAuthorizationLink("Zensiert", "Zensiert")
    11. WebBrowser1.Url = New Uri(Url)
    12. End Sub
    13. Dim geladen As Boolean = False
    14. Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    15. If geladen = False Then
    16. KryptonTextBox1.Enabled = True
    17. KryptonTextBox2.Enabled = True
    18. WebBrowser1.Document.GetElementById("username_or_email").InnerText = KryptonTextBox1.Text
    19. WebBrowser1.Document.GetElementById("session[password]").InnerText = KryptonTextBox2.Text
    20. WebBrowser1.Document.GetElementById("allow").InvokeMember("click")
    21. geladen = True
    22. Else
    23. Dim quelltext As String = WebBrowser1.DocumentText
    24. Dim PinRegex As New System.Text.RegularExpressions.Regex("<div id=""oauth_pin""> (?<Pin>(.*)) </div>")
    25. Dim Pin As String = PinRegex.Match(quelltext).Groups("Pin").ToString()
    26. Dim IsValid As Boolean = tw.ValidatePIN(Pin)
    27. If IsValid Then
    28. MsgBox("valid")
    29. Else
    30. MsgBox("nix valid")
    31. End If
    32. End If
    33. End If
    34. End Sub
    35. End Class


    Dan kommt da "nix valid" ...
    also muss da iwo ein Fehler sein..
    oder kann ich als Ersteller nicht darauf zugreifen?

Facebook
Telefonspende