sub CheckLogin
my ($obj, $key, $idx) = @_;