VB Advance Loggin [help^^]

[HackTec]

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?

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 :/

[Algaten™]

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

und fürs Login:

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:

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

[HackTec]

OMG DANKE xD

hast was gut ^^

[Blizard1]

Ich habe auch vor ein Login mit VB zu machen, aber ich will das ganze über eine mysql datenbank im Internet laufenlassen.

Geht das?
Und wenn Ja, wie?

[Algaten™]

Originally Posted by Blizard1

Ich habe auch vor ein Login mit VB zu machen, aber ich will das ganze über eine mysql datenbank im Internet laufenlassen.

Geht das?
Und wenn Ja, wie?

Ja das geht ..
Weiss leider nciht wie des geht abe rhier ist ein Tut