|
|
发表于 2005-2-27 23:41:29
|
显示全部楼层
原来是 perl-oicq 啊。
很早以前,我还在用 QQ 的时候,写过一个简单的用于 perl-oicq 的登录脚本。这里再贴一下吧:
- #! /bin/bash
- #cqq for perl-oicq login.
- #This script is written by Dzegn XioCiugn <dxc@dzegn.org>
- #You can redistribute and/or modify this script under the terms of the
- #GNU General Public License version 2 or later.
- ENTERNUM="Please enter your QQ number:"
- ENTERPASSWD="Please enter password(the password will not be displayed on the screen):"
- ASKLOGINMODE="Login invisibly[y/N]:"
- ERRORNUM="The QQ number is not valid. Please try again:"
- ERRORPASSWD="Password can't be empty. Please try again:"
- OICQNUM=$1
- if [ -n "$OICQNUM" ] ; then
- sleep 0
- else
- echo -n $ENTERNUM
- read OICQNUM
- fi
- while [[ ${#OICQNUM}<5 ]]
- do
- echo -n $ERRORNUM
- read OICQNUM
- done
- stty -echo
- echo -n $ENTERPASSWD
- read OICQPW
- echo
- while [[ ${#OICQPW}<1 ]]
- do
- echo -n $ERRORPASSWD
- read OICQPW
- echo
- done
- stty echo
- echo -n $ASKLOGINMODE
- read OICQLOGINMODE
- export OICQ_PW=$OICQPW
- if [ $OICQLOGINMODE = "y" ];then
- oicq -i $OICQNUM
- else
- oicq $OICQNUM
- fi
- exit 0
复制代码
运行该脚本,再根据题示输入 QQ 号码、密码、登录模式
或者运行该脚本时直接+QQ 号码,再根据题示输入密码和登录模式 |
|