如何強行退出被限制的QQ羣

QQ有羣，是個好事。雖然網上爆出了QQ監視電腦文件的傳聞，有些網友也檢測到不明的通信包，甚至還遇到莫名的截屏，但是QQ的羣功能實在可愛，三 五成羣一聚，也是快事。也許MSN也有正式羣以後，我也會改用MSN，畢竟安全第一，安全第二，第三還是安全。一想到有個眼睛偷偷地盯着你，心裏就起毛。我曾加入一個羣，或許有人傳了點不好的圖，説了幾句不好的牢騷話，然後羣就死掉了。裏面説話沒人聽見，上羣空間察看説羣受到限制無法瀏覽，要退出又説服務器超時。這麼一個死羣頭留在列表裏面，煩人，不爽，不環保。

　　寒啊...這世上有一輩子不看色圖，一輩子説話謹小慎微，一輩子沒隨地大小便的人嗎？佛祖和耶穌説，世人都有罪，金庸老先生雖然給出了一個聖人-洪 七公（真正的無產者啊），但是想來現在要找這麼一個聖人過來，估計比處女還罕見。秦儈説過，欲加其罪，何患無詞，“莫須有”便是有，想辦你岳飛就辦你，就 算沒有通金自大，也有經濟問題吧，沒有經濟問題也有打過人吧，不信你連隨地大小便都沒有過，既然總有辮子能抓到，大家就懶得搞文字遊戲了。秦儈真是一個實 在人。

　　言規正傳，大家去找幾個PERL模塊，Crypt::OICQ，Net::OICQ。當然他們還會用到Digest::MD5，Term:: ANSIColor，Term::ReadKey這些玩意，CPAN或者Google吧，下載以後就perl ，然後make或者nmake。如果實在沒有PERL基礎就自學，學不會就放棄。

　　Crypt::OICQ和Net::OICQ是純perl的，不編譯也行，裏面找找有個qq文件，還有個win32qq文件，我喜歡在unix下的 命令行操作，直接運行perl qq，這個東東在win32環境下不能接受命令的，只能用win32qq，因為後者還要WIn32::GUI模塊支持，我就沒理了。qq在win32下執 行也可以，要修改一下Net::OICQ::文件，把loop()裏面的讀取從HANDLE循環 中取出來，不要放在非堵塞操作循環裏面，單獨處理，具體怎麼做就不多説了，要思考，學習。

　　設置環境變量，OICQ_PW=你的口令，然後用“perl qq 你的賬號”來運行，QQ的組可以用這樣的命令讀取出信息來。下面假設羣號是12345678，其它號碼都是純屬虛構，請勿對號入座。

　　/gs 12345678Jul 16 15:54:11 Net::OICQ::ServerEvent do_group 0x0085 Error: 無法查到該羣 Reply: 02 SubCmd: 06

　　當然查不到，羣被限制了。不急，把號碼換換，加加減減個小數字，比如12345679，12345677，12345676等等，總不會被全限制了吧。

　　/gs 12345677Jul 16 15:59:41 Net::OICQ::ServerEvent do_group 0x005a SubCmd: 06 GrpName: xxxx Reply: 00 GrpOwner: xxxxx GrpDesc: GrpIntId: 483345677 GrpExtId: 12345677

　　找到了，其實qq的羣就是一個個人號碼，往GrpIntId發送什麼命令，就等於對GrpExtId做什麼操作，羣號和內部號之間有一個分段影射的 關係，某段連續的羣號會影射到某段內部號去，12345677影射到483345677，那麼12345678（我們要處理的羣號）很可能就是 483345678。

　　那麼我們如果強行刪除483345678這個聯繫人呢，會發生什麼事？當然，這在qq界面可沒法刪，因為沒有這個聯繫人，但是在行命令中就可以強行發送這個請求了。

　　/del 483345678Jul 16 16:00:13 Net::OICQ::ServerEvent del_contact 0x005c

　　保險點，也發個退羣命令，雖然未必有用，但是能讓人安心，:-)

　　/eval $oicq->send2svr('do_group', pack('CN',0x09,483345678).'');

　　登錄羣空間，刷新一下，哈，死羣頭消失了。打開QQ，咦，怎麼還在，緩存，一定是緩存，清除賬號，包括本地文件選項，再登陸，OK了，咱們把那死羣的腸子拉了出來，在它脖子上狠狠一絞，世界清淨了。

　　後話得提一下，其實你也不能叫完全退出了那個羣，服務器上肯定有殘留數據的，只是羣空間上沒有顯示，QQ裏面也不出現，夠了。