QQ有群，是個(gè)好事。雖然網(wǎng)上爆出了QQ監(jiān)視電腦文件的傳聞，有些網(wǎng)友也檢測(cè)到不明的通信包，甚至還遇到莫名的截屏，但是QQ的群功能實(shí)在可愛(ài)，三 五成群一聚，也是快事。也許MSN也有正式群以后，我也會(huì)改用MSN，畢竟安全第一，安全第二，第三還是安全。一想到有個(gè)眼睛偷偷地盯著你，心里就起毛。我曾加入一個(gè)群，或許有人傳了點(diǎn)不好的圖，說(shuō)了幾句不好的牢騷話(huà)，然后群就死掉了。里面說(shuō)話(huà)沒(méi)人聽(tīng)見(jiàn)，上群空間察看說(shuō)群受到限制無(wú)法瀏覽，要退出又說(shuō)服務(wù)器超時(shí)。這么一個(gè)死群頭留在列表里面，煩人，不爽，不環(huán)保。
寒啊...這世上有一輩子不看色圖，一輩子說(shuō)話(huà)謹(jǐn)小慎微，一輩子沒(méi)隨地大小便的人嗎？佛祖和耶穌說(shuō)，世人都有罪，
金庸老先生雖然給出了一個(gè)圣人-洪 七公（真正的無(wú)產(chǎn)者�。�，但是想來(lái)現(xiàn)在要找這么一個(gè)圣人過(guò)來(lái)，估計(jì)比處女還罕見(jiàn)。秦儈說(shuō)過(guò)，欲加其罪，何患無(wú)詞，“莫須有”便是有，想辦你岳飛就辦你，就 算沒(méi)有通金自大，也有經(jīng)濟(jì)問(wèn)題吧，沒(méi)有經(jīng)濟(jì)問(wèn)題也有打過(guò)人吧，不信你連隨地大小便都沒(méi)有過(guò)，既然總有辮子能抓到，大家就懶得搞
文字游戲了。秦儈真是一個(gè)實(shí) 在人。
言規(guī)正傳，大家去找?guī)讉�(gè)PERL模塊，Crypt::OICQ，Net::OICQ。當(dāng)然他們還會(huì)用到Digest::MD5，Term:: ANSIColor，Term::ReadKey這些玩意，CPAN或者Google吧，下載以后就perl Makefile.PL，然后make或者nmake。如果實(shí)在沒(méi)有PERL基礎(chǔ)就自學(xué)，學(xué)不會(huì)就放棄。
Crypt::OICQ和Net::OICQ是純perl的，不編譯也行，里面找找有個(gè)qq文件，還有個(gè)win32qq文件，我喜歡在unix下的 命令行操作，直接運(yùn)行perl qq，這個(gè)東東在win32環(huán)境下不能接受命令的，只能用win32qq，因?yàn)楹笳哌�要WIn32::GUI模塊支持，我就沒(méi)理了。qq在win32下執(zhí) 行也可以，要修改一下Net::OICQ::TextConsole.pm文件，把loop()里面的
讀取從HANDLE循環(huán) 中取出來(lái)，不要放在非堵塞操作循環(huán)里面，單獨(dú)處理，具體怎么做就不多說(shuō)了，要思考，學(xué)習(xí)。
設(shè)置環(huán)境變量，OICQ_PW=你的口令，然后用“perl qq 你的賬號(hào)”來(lái)運(yùn)行，QQ的組可以用這樣的命令讀取出信息來(lái)。下面假設(shè)群號(hào)是12345678，其它號(hào)碼都是純屬虛構(gòu)，請(qǐng)勿對(duì)號(hào)入座。
/gs 12345678Jul 16 15:54:11 Net::OICQ::ServerEvent do_group 0x0085 Error: 無(wú)法查到該群 Reply: 02 SubCmd: 06
當(dāng)然查不到，群被限制了。不急，把號(hào)碼換換，加加減減個(gè)小數(shù)字，比如12345679，12345677，12345676等等，總不會(huì)被全限制了吧。
/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
找到了，其實(shí)qq的群就是一個(gè)個(gè)人號(hào)碼，往GrpIntId發(fā)送什么命令，就等于對(duì)GrpExtId做什么操作，群號(hào)和內(nèi)部號(hào)之間有一個(gè)分段影射的 關(guān)系，某段連續(xù)的群號(hào)會(huì)影射到某段內(nèi)部號(hào)去，12345677影射到483345677，那么12345678（我們要處理的群號(hào)）很可能就是 483345678。
那么我們?nèi)绻麖?qiáng)行刪除483345678這個(gè)聯(lián)系人呢，會(huì)發(fā)生什么事？當(dāng)然，這在qq界面可沒(méi)法刪，因?yàn)闆](méi)有這個(gè)聯(lián)系人，但是在行命令中就可以強(qiáng)行發(fā)送這個(gè)請(qǐng)求了。
/del 483345678Jul 16 16:00:13 Net::OICQ::ServerEvent del_contact 0x005c
保險(xiǎn)點(diǎn)，也發(fā)個(gè)退群命令，雖然未必有用，但是能讓人安心，:-)
/eval $oicq->send2svr('do_group', pack('CN',0x09,483345678).'');
登錄群空間，刷新一下，哈，死群頭消失了。打開(kāi)QQ，咦，怎么還在，緩存，一定是緩存，清除賬號(hào)，包括本地文件選項(xiàng)，再登陸，OK了，咱們把那死群的腸子拉了出來(lái)，在它脖子上狠狠一絞，世界清凈了。
后話(huà)得提一下，其實(shí)你也不能叫完全退出了那個(gè)群，服務(wù)器上肯定有殘留數(shù)據(jù)的，只是群空間上沒(méi)有顯示，QQ里面也不出現(xiàn)，夠了。
鄂公網(wǎng)安備 42011102000245號(hào)
