PHP Forum - Coding Board
Juli 19, 2018, 05:05:21 *
Willkommen Gast. Bitte einloggen oder registrieren.

Einloggen mit Benutzername, Passwort und Sitzungslänge
News:
 
   Übersicht   Hilfe Suche Einloggen Registrieren  
Seiten: [1]
  Drucken  
Autor Thema: [.NET]Hilfe beim Account Checker  (Gelesen 194 mal)
0 Mitglieder und 1 Gast betrachten dieses Thema.
Fenerium65
Full Member
***
Beiträge: 115



Profil anzeigen E-Mail
« am: Februar 20, 2009, 07:34:44 »

hi,

also bin grad dabei nen Accountchecker zu machen... ich bin auch eig. fertig aber beimlogout gobts probleme. Unswar kenn ich nicht den namen  des Linklabels auf der Seite-.-

Der Source sieht so aus( Von Firebug rausgefunden):

Logout
   
   
        
Und in meinem Source sieht das so aus:

webbrowser1.document.all("HIER-SOLLTE-DER-NAME-DES-LINKLABES-STEHEN").invokemember("Logout")

Naja und ich muss nur noch den Logout button drücken halt Lächelnd aber gena das ist halt mein Problem..... Ich hoffe ihr könnt mir helfen Lächelnd

MfG Fenerium65
Gespeichert
Fenerium65
Full Member
***
Beiträge: 115



Profil anzeigen E-Mail
« Antworten #1 am: Februar 20, 2009, 11:39:13 »

ehmm...leute:S Hilfe?:S
Gespeichert
Ph0xEn
Jr. Member
**
Beiträge: 62


Profil anzeigen E-Mail
« Antworten #2 am: Februar 20, 2009, 11:41:40 »

Wie wäre es wenn du einfach das aufrufst was in dem href="" steht?
Gespeichert
Fenerium65
Full Member
***
Beiträge: 115



Profil anzeigen E-Mail
« Antworten #3 am: Februar 20, 2009, 11:45:15 »

versucht geht nicht =(
Gespeichert
Ph0xEn
Jr. Member
**
Beiträge: 62


Profil anzeigen E-Mail
« Antworten #4 am: Februar 20, 2009, 11:48:29 »

Das muss aber gehen, weil wenn man auf den button klickt ist da auch nichts anderes....
schnapp dir einfach den link mit nem regulären ausdruck und rufe ihn auf...
Gespeichert
Fenerium65
Full Member
***
Beiträge: 115



Profil anzeigen E-Mail
« Antworten #5 am: Februar 21, 2009, 12:44:33 »

sry geht nicht da kommt immer ein Fehler halt und diese zeile wird markiert...

            WB.Document.All("http://homepageName.de/user/logout").InvokeMember("Logout")
Gespeichert
Ph0xEn
Jr. Member
**
Beiträge: 62


Profil anzeigen E-Mail
« Antworten #6 am: Februar 21, 2009, 12:47:32 »

Ja wenn der Fehler beim compilieren kommt dann hat das wohl was mit deinem getippten zu tun und nicht mit der Seite...mach dir mal gedanken drüber...

Gute nacht
Gespeichert
tr4st
Newbie
*
Beiträge: 9


659584 tr4st@hotmail.com
Profil anzeigen WWW E-Mail
« Antworten #7 am: Februar 21, 2009, 03:35:07 »

CODE]Private Sub insidepro()

                    Dim row As String = ""

                    WebBrowser1.Navigate("http://hash.insidepro.com")

                    Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
                        Application.DoEvents()
                    Loop

                    WebsiteCompleted = 1

                    For i As Integer = 0 To lvDump.Items.Count
                        If lvDump.Items(i).Selected Then
                            row = lvDump.Items(i).SubItems(1).Text
                            WebBrowser1.Document.GetElementById(&quot;h1&quot;).InnerText = row
                            WebBrowser1.Document.Forms(0).InvokeMember(&quot;submit&quot;)
                            Exit For
                        End If
                    Next

                    Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
                        Application.DoEvents()
                    Loop

                    WebsiteCompleted = 2

End Sub[/CODE]

[CODE]Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        If CrackAll = 1 Then
            If WebsiteCompleted = 2 Then
                Dim html As String = WebBrowser1.Document.Body.InnerHtml
                Dim arrHTML() As String = html.Split(":")
                arrHTML = arrHTML(7).Split(">")
                arrHTML = arrHTML(1).Split("<")
                If arrHTML(0) <> String.Empty Then
                    lvDump.Items(CrackAllPosition).SubItems(1).Text = lvDump.Items(CrackAllPosition).SubItems(1).Text & " : " & arrHTML(0)
                End If
                WebsiteCompleted = 0
            Else
                lvDump.Items(CrackAllPosition).SubItems(1).Text = lvDump.Items(CrackAllPosition).SubItems(1).Text & " : "
                WebsiteCompleted = 0
            End If
            Thread.Sleep(1000)
        Else
            If WebsiteCompleted = 2 Then
                Dim html As String = WebBrowser1.Document.Body.InnerHtml
                Dim arrHTML() As String = html.Split(":")
                arrHTML = arrHTML(7).Split(">")
                arrHTML = arrHTML(1).Split("<")
                If arrHTML(0) <> String.Empty Then
                    For i As Integer = 0 To lvDump.Items.Count
                        If lvDump.Items(i).Selected Then
                            lvDump.Items(i).SubItems(1).Text = lvDump.Items(i).SubItems(1).Text & " : " & arrHTML(0)
                            Exit For
                        End If
                    Next
                    WebsiteCompleted = 0
                Else
                    For i As Integer = 0 To lvDump.Items.Count
                        If lvDump.Items(i).Selected Then
                            lvDump.Items(i).SubItems(1).Text = lvDump.Items(i).SubItems(1).Text & " : "
                            Exit For
                        End If
                    Next
                    WebsiteCompleted = 0
                End If
            End If
        End If
        lvDump.Columns(1).Width = -1

End Sub
[/CODE]

Ich bin mir nicht sicher ob dir das in irgend einer Weise geholfen hat, aber dann war es wenigstens ein Versuch ;
Code:
Private Sub insidepro()

                    Dim row As String = &quot;&quot;

                    WebBrowser1.Navigate(&quot;http://hash.insidepro.com&quot;)

                    Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
                        Application.DoEvents()
                    Loop

                    WebsiteCompleted = 1

                    For i As Integer = 0 To lvDump.Items.Count
                        If lvDump.Items(i).Selected Then
                            row = lvDump.Items(i).SubItems(1).Text
                            WebBrowser1.Document.GetElementById(&quot;h1&quot;).InnerText = row
                            WebBrowser1.Document.Forms(0).InvokeMember(&quot;submit&quot;)
                            Exit For
                        End If
                    Next

                    Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
                        Application.DoEvents()
                    Loop

                    WebsiteCompleted = 2

End Sub


Code:
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        If CrackAll = 1 Then
            If WebsiteCompleted = 2 Then
                Dim html As String = WebBrowser1.Document.Body.InnerHtml
                Dim arrHTML() As String = html.Split(":")
                arrHTML = arrHTML(7).Split(">")
                arrHTML = arrHTML(1).Split("<")
                If arrHTML(0) <> String.Empty Then
                    lvDump.Items(CrackAllPosition).SubItems(1).Text = lvDump.Items(CrackAllPosition).SubItems(1).Text & " : " & arrHTML(0)
                End If
                WebsiteCompleted = 0
            Else
                lvDump.Items(CrackAllPosition).SubItems(1).Text = lvDump.Items(CrackAllPosition).SubItems(1).Text & " : "
                WebsiteCompleted = 0
            End If
            Thread.Sleep(1000)
        Else
            If WebsiteCompleted = 2 Then
                Dim html As String = WebBrowser1.Document.Body.InnerHtml
                Dim arrHTML() As String = html.Split(":")
                arrHTML = arrHTML(7).Split(">")
                arrHTML = arrHTML(1).Split("<")
                If arrHTML(0) <> String.Empty Then
                    For i As Integer = 0 To lvDump.Items.Count
                        If lvDump.Items(i).Selected Then
                            lvDump.Items(i).SubItems(1).Text = lvDump.Items(i).SubItems(1).Text & " : " & arrHTML(0)
                            Exit For
                        End If
                    Next
                    WebsiteCompleted = 0
                Else
                    For i As Integer = 0 To lvDump.Items.Count
                        If lvDump.Items(i).Selected Then
                            lvDump.Items(i).SubItems(1).Text = lvDump.Items(i).SubItems(1).Text & " : "
                            Exit For
                        End If
                    Next
                    WebsiteCompleted = 0
                End If
            End If
        End If
        lvDump.Columns(1).Width = -1

End Sub


Ich bin mir nicht sicher ob dir das in irgend einer Weise geholfen hat, aber dann war es wenigstens ein Versuch Zwinkernd
« Letzte Änderung: Februar 21, 2009, 03:44:13 von tr4st » Gespeichert


Seiten: [1]
  Drucken  
 
Gehe zu:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines | New Look by Nolt Prüfe XHTML 1.0 Prüfe CSS