VB Code:
Private Sub Command16_Click()
If List1.ListIndex <> -1 Then
P.X = -30
P.Y = -30
ret& = ClientToScreen&(Form1.hwnd, P)
P.X = P.X + Me.ScaleWidth / 2
P.Y = P.Y + Me.ScaleHeight / 2
ret& = SetCursorPos&(P.X, P.Y)
Sleep 1000
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
Sleep 1000
P.X = -72
P.Y = -72
ret& = ClientToScreen&(Form1.hwnd, P)
P.X = P.X + Me.ScaleWidth / 2
P.Y = P.Y + Me.ScaleHeight / 2
ret& = SetCursorPos&(P.X, P.Y)
Sleep 1000
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
Sleep 1000
SendKeys (ReadINI("Autologin", "Name" & List1.ListIndex + 1, ini_path) & "{enter}" & Decrypt(" " & ReadINI("Autologin", "Pass" & List1.ListIndex + 1, ini_path)))
Sleep 1000
P.X = -30
P.Y = -40
ret& = ClientToScreen&(Form1.hwnd, P)
P.X = P.X + Me.ScaleWidth / 2
P.Y = P.Y + Me.ScaleHeight / 2
ret& = SetCursorPos&(P.X, P.Y)
Sleep 1000
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
End If
End Sub