VB Advance Loggin [help^^]

hey ich habe eine problem ich m�chte ein loggin in vb machen
bevor einer sagt �hh ist das einfach ;) das ist ja nicht mein problem

mit 1 benutzer und 1 pass schaff ich das auch nun will ich es aber auf mehre erweitern nur mein code l�sst ei leerzeichen uach gelten?

hat einer ne idee?

Quote:

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim u1() As String = {"6YPXFR7M", "5TTKH7LB", "FDEPVLSE", "3B0KPF�P", "�0CA2BNR", "beta"}
Dim p1() As String = {"QBCG", "RTWS", "SDNR", "QACR", "BMRF", "beta"}

u1(1) = TextBox1.Text
p1(1) = TextBox2.Text
TextBox1.Text = u1(1)
TextBox2.Text = p1(1)

If TextBox1.Text = u1(1).ToString And TextBox2.Text = p1(1).ToString Then

MsgBox("Willkommen....!")
GroupBox1.Visible = True
GroupBox2.Visible = True
Else

MsgBox("Password oder Benutzername falsch eingegeben !")

End If
End Sub

und noch ne frage ^^

wie mache ich simulierte mausklicks zu bestimmten x und y achsen? habs frueher mal geschafft jetzt net mehr :/

MouseKlick's:

Das einfach �ber das erste Private Sub packen..
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkeys As Long) As Integer
und das darunter
Private Declare Sub mouse_event Lib "user32" ( _
ByVal dwFlags As Long, _
ByVal dx As Long, _
ByVal dy As Long, _
ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_MOVE = &H1
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

F�r die Mausposition um zu wissen wo die maus gerade ist das benutzen
MousePosition.Y und MousePosition.X

F�rs bewegen dann das hier am besten nehmen

Windows.Forms.Cursor.Position = New Point(X, Y)

f�rs klicken dann darunter :

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

das ist es :D

und f�rs Login:

Code:

Public Class Form1
    Dim u1, u2, u3, u4, u5 As String
    Dim p1, p2, p3, p4, p5 As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        u1 = "User1"
        u2 = "User2"
        u3 = "User3"
        u4 = "User4"
        u5 = "User5"

        p1 = "Pw1"
        p2 = "Pw2"
        p3 = "Pw3"
        p4 = "Pw4"
        p5 = "Pw5"


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = u1 Then

            If TextBox2.Text = p1 Then
                MsgBox("win")
            End If

        ElseIf TextBox1.Text = u2 Then

            If TextBox2.Text = p2 Then
                MsgBox("win2")
            End If

        ElseIf TextBox1.Text = u3 Then

            If TextBox2.Text = p3 Then
                MsgBox("win3")
            End If

        ElseIf TextBox1.Text = u4 Then

            If TextBox2.Text = p4 Then
                MsgBox("win4")
            End If

        ElseIf TextBox1.Text = u5 Then

            If TextBox2.Text = p5 Then
                MsgBox("win5")
            End If

        End If



    End Sub
End Class

EDIT:

NOchmal ein beispiel f�rs mausklicken:

Code:

Public Class Form1



    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkeys As Long) As Integer

    Private Declare Sub mouse_event Lib "user32" ( _
    ByVal dwFlags As Long, _
    ByVal dx As Long, _
    ByVal dy As Long, _
    ByVal cButtons As Long, _
    ByVal dwExtraInfo As Long)

    Private Const MOUSEEVENTF_ABSOLUTE = &H8000
    Private Const MOUSEEVENTF_LEFTDOWN = &H2
    Private Const MOUSEEVENTF_LEFTUP = &H4
    Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
    Private Const MOUSEEVENTF_MIDDLEUP = &H40
    Private Const MOUSEEVENTF_MOVE = &H1
    Private Const MOUSEEVENTF_RIGHTDOWN = &H8
    Private Const MOUSEEVENTF_RIGHTUP = &H10


    Dim mousex As String
    Dim mousey As String

    Dim klickx As String
    Dim klicky As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Button1.Text = "KoordinatenFestlegen"
        Button2.Text = "Maus auf die Gespeicherte Koordinate klicken lassen"
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      

        mousex = MousePosition.Y 'MousePosition.Y oder X gibt and wo die maus gerade ist ..
        mousey = MousePosition.X

        Label1.Text = "Derzeitige MausPosition:  X " + mousex + ", Y " + mousey
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        klickx = TextBox1.Text 'Textbox1 ist nun die X koordinate
        klicky = TextBox2.Text 'textbox2 ist nun die Y koordinate
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Windows.Forms.Cursor.Position = New Point(klicky, klickx)

        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    End Sub
End Class