[Help]Well could i get some help for a loader like the **** loader

[qddW$#%^jtyjtyj]

well today i just want to know how to make the application connect to my forum and when they login it checks on the forum if they are registred and if it is the right password and if the information about the account was the right one. Then it shows another form and hides the login form(you dont need to help me with the last sentence cause it is easy )

Hope you can help me
if i get help you are gonna get biiiigg credit!

[Blubb1337]

Webbrowser1.navigate("forum url")

webbrowser1.document.getelementbyid("idoflogin").i nnertext = textbox1.text
same with pw...

webbrowser1.document.getelementbyid("submit").invo kemember("submit")

might be click tho...

if webbrowser1.documenttex*****ntains("Successfully logged in") then
me.hide
form2.show

figure the rest out on your own.

[qddW$#%^jtyjtyj]

Webbrowser1.navigate("forum url")

webbrowser1.document.getelementbyid("idoflogin").i nnertext = textbox1.text
same with pw...

webbrowser1.document.getelementbyid("submit").invo kemember("submit")

might be click tho...

if webbrowser1.documenttex*****ntains("Successfully logged in") then
me.hide
form2.show

figure the rest out on your own.

thx

//toshort

[Invidus]

Crap good job blubb!!
I haven't done much of Web Browsers myself, i can learn from this

[NextGen1]

Yeah, Good concept Sounds familiar

[qddW$#%^jtyjtyj]

Webbrowser1.navigate("forum url")

webbrowser1.document.getelementbyid("idoflogin").i nnertext = textbox1.text
same with pw...

webbrowser1.document.getelementbyid("submit").invo kemember("submit")

might be click tho...

if webbrowser1.documenttex*****ntains("Successfully logged in") then
me.hide
form2.show

figure the rest out on your own.

eeh blubb.. I dont got a forum like mpgh. So its like when i get to my forum i need to click login then type in username and password.. But my site has no Success fully logged in

but another problem is that when i type in username and password it gives an error

[GameTrainerMaker]

ok here you go, credits to Blubb1337 for helping me a while ago

[php]
how bout this. credits to blubb a while ago for helping me

[PHP]
Try

While Not WebBrowser1.ReadyState = WebBrowserReadyState.Complete

Application.DoEvents()
End While



WebBrowser1.Document.GetElementById("ID OF LOGIN").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("ID OF PASSWORD").SetAttribute("value", TextBox2.Text)


WebBrowser1.Document.GetElementById("ID OF LOGIN BUTTON").Focus()

Application.DoEvents()
SendKeys.Send("{TAB}")
SendKeys.Send("{ENTER}")
Catch ax As Exception
End Try
[/php]

[Blubb1337]

Pm me with a link to your forum.

@above, sendkeys -> login button is hidden, so don't flame @ below =P

Login-ID = username
PW-ID = password
Loginbutton-ID = login

on document_completed event

if document.tex*****ntains("Your last visit was on") then
me.hide
form2.show
elseif document.tex*****ntains("You specified an incorrect") then
msgbox("False information")
end if

You may figure out the rest on your own. If you don't know further, feel free to post, I'll help you out.

[qddW$#%^jtyjtyj]

if document.tex*****ntains("Your last visit was on") then
me.hide
form2.show
elseif document.tex*****ntains("You specified an incorrect") then
msgbox("False information")
end if

ok i tryed this but it gives errors at if document.text

and it gives an error at elseif document.text

[Blubb1337]

Post your code?

It is Webbrowser1.Document........

[qddW$#%^jtyjtyj]

Post your code?

It is Webbrowser1.Document........

it says

Error 2 'text' is not a member of 'System.Windows.Forms.HtmlDocument'. C:\Users\Techial2\documents\visual studio 2010\Projects\Split Fire Loader\Split Fire Loader\Form1.vb 56 16 Split Fire Loader

[Blubb1337]

post your whole code.

please, start to read my posts actually.

[NextGen1]

OK, what blubb is trying to say is it should be webbrowser1.document. not just document.

and also there is no Document.Text it should be Document.InnerText, Document.HtmlText or in this case Documenttext with the period, so not document.text

Use intellesence

[qddW$#%^jtyjtyj]

OK, what blubb is trying to say is it should be webbrowser1.document. not just document.

and also there is no Document.Text it should be Document.InnerText, Document.HtmlText or in this case Documenttext with the period, so not document.text

Use intellesence

aaaah ok

i just need to laugh of myself/

well i was a bit busy that day. So i could figure it out now, but you helped me.. Thanks

[qddW$#%^jtyjtyj]

post your whole code.

please, start to read my posts actually.

ok i can post my whole code..

Imports System.Net
Public Class Form1
    Dim file1 As String
    Dim file2 As String
    Dim file3 As String
    Dim file4 As String
    Dim file5 As String
    Dim file6 As String

    Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim web1 As New WebClient
        Dim update As String
        update = "https://splitfireupdates.110mb.com/loader.txt"
        If update.Contains(Application.ProductVersion) Then
            WebBrowser1.Navigate("https://splitfireupdates.110mb.com/loader.zip")
            MsgBox("Only click this when download is done!")
            MsgBox("are you sure you downloaded it? i know i dont click this without being done downloading it")
            End
        Else
            WebBrowser1.Navigate("https://splitfireteam.******.com/")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try

            While Not WebBrowser1.ReadyState = WebBrowserReadyState.Complete

                Application.DoEvents()
            End While



            WebBrowser1.Document.GetElementById("username").SetAttribute("value", TextBox1.Text)
            WebBrowser1.Document.GetElementById("password").SetAttribute("value", TextBox2.Text)


            WebBrowser1.Document.GetElementById("login").Focus()

            Application.DoEvents()
            SendKeys.Send("{TAB}")
            SendKeys.Send("{ENTER}")
        Catch ax As Exception
        End Try
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
            Dim web As New WebClient
        Dim Files As String
        If WebBrowser1.Document.innertex*****ntains("Your last visit was on") Then
            Me.Hide()
        ElseIf WebBrowser1.Document.tex*****ntains("You specified an incorrect") Then
            MsgBox("False information")
        End If

            Files = web.DownloadString("https://splitfireupdates.110mb.com/files.txt")
            If Files = "1" Then
                file1 = web.DownloadString("https://splitfireupdates.110mb.com/file1.txt")
                ListView1.Items.Add(file1)
            Else
                If Files = "2" Then
                    file1 = web.DownloadString("https://splitfireupdates.110mb.com/file1.txt")
                    file2 = web.DownloadString("https://splitfireupdates.110mb.com/file2.txt")
                    ListView1.Items.Add(file1)
                    ListView1.Items.Add(file2)
                Else
                    If Files = "3" Then
                        file1 = web.DownloadString("https://splitfireupdates.110mb.com/file1.txt")
                        file2 = web.DownloadString("https://splitfireupdates.110mb.com/file2.txt")
                        file3 = web.DownloadString("https://splitfireupdates.110mb.com/file3.txt")
                        ListView1.Items.Add(file1)
                        ListView1.Items.Add(file2)
                        ListView1.Items.Add(file3)
                    Else
                        If Files = "4" Then
                            file1 = web.DownloadString("https://splitfireupdates.110mb.com/file1.txt")
                            file2 = web.DownloadString("https://splitfireupdates.110mb.com/file2.txt")
                            file3 = web.DownloadString("https://splitfireupdates.110mb.com/file3.txt")
                            file4 = web.DownloadString("https://splitfireupdates.110mb.com/file4.txt")
                            ListView1.Items.Add(file1)
                            ListView1.Items.Add(file2)
                            ListView1.Items.Add(file3)
                            ListView1.Items.Add(file4)
                        Else
                            If Files = "5" Then
                                file1 = web.DownloadString("https://splitfireupdates.110mb.com/file1.txt")
                                file2 = web.DownloadString("https://splitfireupdates.110mb.com/file2.txt")
                                file3 = web.DownloadString("https://splitfireupdates.110mb.com/file3.txt")
                                file4 = web.DownloadString("https://splitfireupdates.110mb.com/file4.txt")
                                file5 = web.DownloadString("https://splitfireupdates.110mb.com/file5.txt")
                                ListView1.Items.Add(file1)
                                ListView1.Items.Add(file2)
                                ListView1.Items.Add(file3)
                                ListView1.Items.Add(file4)
                                ListView1.Items.Add(file5)
                            Else
                                If Files = "6" Then
                                    file1 = web.DownloadString("https://splitfireupdates.110mb.com/file1.txt")
                                    file2 = web.DownloadString("https://splitfireupdates.110mb.com/file2.txt")
                                    file3 = web.DownloadString("https://splitfireupdates.110mb.com/file3.txt")
                                    file4 = web.DownloadString("https://splitfireupdates.110mb.com/file4.txt")
                                    file5 = web.DownloadString("https://splitfireupdates.110mb.com/file5.txt")
                                    file6 = web.DownloadString("https://splitfireupdates.110mb.com/file6.txt")
                                    ListView1.Items.Add(file1)
                                    ListView1.Items.Add(file2)
                                    ListView1.Items.Add(file3)
                                    ListView1.Items.Add(file4)
                                    ListView1.Items.Add(file5)
                                    ListView1.Items.Add(file6)
                                End If
                            End If
                        End If
                    End If
                End If
        End If
    End Sub
End Class

hope you can help me...