让QQ"永远"运行
自从QQ出现了等级制度之后，现在有不少人都开始了疯狂挂级，希望在联机状态下始终运行QQ，即便被人关闭也能自动启动登录，而且还要防止因异常错误而退出。其实这些事情我们可以使用两个VBS脚本来实现这一目的。

1.QQ自动登录脚本
set fso = Wscript.createObject("Scripting.FileSystemObject")
Set f = fso.createTextFile("QQ自动登录.bat",true)
f.WriteLine "@echo off" & vbcrlf
for each ps in getobject("winmgmts:\\\.\\root\\cimv2:win32_process").instances_ \'列出系统中所有正在运行的程序
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then \'检测是否QQ或TM
QQCMD=ps.commandline \'提取QQ程序的命行
tmp=Replace(QQCMD,chr(34),space(1))
UIN1=instr(tmp,"QQUIN:")+6
if not len(UIN1)=0 then
QQUIN=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1) \'取QQ号码.
QQ=QQ+1
QQNUM=QQNUM & "QQ号码" & QQ & ":" & vbtab & QQUIN & vbcrlf
f.WriteLine "ECHO QQ号码:" & QQUIN
f.WriteLine "ECHO 命令行:" & QQCMD
f.WriteLine QQCMD & vbcrlf
end if
end if
next
if not len(QQ)=0 then
MSGBOX "已经成功提取以下QQ号码的自动登录命令行" & vbcrlf & vbcrlf & QQNUM & vbcrlf & "具体请查看当前目录下的<QQ自动登录.bat>文件",0,"QQ自动
登录命令提取脚本 BY chenall QQ:XXXXXX"
else
msgbox "提取QQ自动登录命令失败,请查看QQ或TM是否正在运行.",0,"QQ自动登录命令提取脚本 BY chenall QQ:XXXXXX"
f.close
set f = fso.getfile("QQ自动登录.bat")
f.delete
end if
将这些代码存储为"*.vbs"文件。然后将所有需要自动登录的QQ号码全部登录，再在一个QQ上点击"菜单"→"一键切换到TM"。此后运行该VBS脚本，会发现在当前目录下生成了一个"QQ自动登陆.bat"的文件，运行该文件即可自动登录所有QQ号码。
小提示：代码中的"XXXXXX"代表你的QQ号。

2.QQ防止关闭脚本
dim QQUIN
for each ps in getobject("winmgmts:\\\.\\root\\cimv2:win32_process").instances_ \'列出系统中所有正在运行的程序
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then \'检测是否QQ或TM
AppPath=ps.commandline \'提取QQ程序的命行
tmp=Replace(AppPath,chr(34),space(1))
UIN1=instr(tmp,"QQUIN:")+6
QQUIN=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1) \'取QQ号码.
end if
next
if len(QQUIN)=0 then
msgbox "系统中没有运行QQ或TM程序,请重新启动QQ或TM,登陆后再使用一键换切换一下QQ或TM程序,再运行本脚本"
else
do \'循环检测
myqqin=chkuin(QQUIN) \'检测上面提取出来的QQ号码是否有在本机打开
if not myqqin then \'如果没有运行则,重新运行QQ程序并登录
runapp(AppPath) \'
wscript.sleep 10000 \'等待10秒
else
wscript.sleep 5000 \'等待5秒
end if
loop \'返回继续检测
end if

function RunApp(AppPath)
dim obj
set obj = createobject("WScript.Shell")
obj.exec(AppPath)
end function

function chkuin(QQUIN)
for each ps in getobject("winmgmts:\\\.\\root\\cimv2:win32_process").instances_
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then
AppPatht=ps.commandline
\'by chenall qq 368178720
tmp=Replace(AppPatht,chr(34),space(1))
UIN1=instr(tmp,"QQUIN:")+6
QQUINTMP=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1)
if QQUINTMP=QQUIN then chkuin=true end if
end if
next
end function
将以上代码存储为"*.vbs"文件。而后登录QQ，一键切换到TM，再运行VBS脚本。此后，即使关闭了TM/QQ，它也会自动启动并登录至网络。经笔者在Windows XP SP2系统上测试，完全有效。
小编提示：对于用户挂QQ这个事情，小编对此并不赞同，因为除了能得到心里上的满足以外，其余任何事情都不能做到，而且还大量地浪费了国家的电能，所以在此小编提示大家，这个技巧只是叫大家明白，我们可以用VBS实现这一功能，绝对不是提倡这种挂QQ等级的做法。

在一个论坛看到的,呵呵,本人没有女朋友,符合其中的很多,^_^
1、不抽烟
2、只能喝少量的啤酒
3、不会赌博（指不会挂钱的扑克、麻将游戏）
4、没有一套奇装异服（比如超短上衣，大肥裤子，全是窟窿的牛仔裤等）
5、下班/放学直接回家，晚上在家睡觉（民间流传：按时回家是穷鬼，十点回家是酒鬼，午夜回家是色鬼，凌晨回家是赌鬼！）看来是穷鬼……
6、每月拿到手的工资低于2000元
7、不能轻易将一个男生制服（指不能打架）
8、身高不足1.80米
9、有爹有娘没车没房（注：房 指没有自己的一栋房子，和父母住一起）
10、不哈 韩、不会跳街舞、长得不像任何帅哥、不敢顶撞父母……
现在的社会，据说以上各条如果具有其中三条就绝对找不到女朋友.
    那你符合几条呢?

写的蛮有道理的..建议正在追或者打算追MM的都看看....女生应该最了解女生了..自己看吧，嘿嘿

====================================

一、应该给mm留下什么样的第一印象

1、我认为最关键的，是要让mm看到你的上进心。
男人的最大魅力在于事业有成，年轻人工作时间不长谈不上“有成”，这时候你就要让mm觉得你是个有上进心的人。
别的可以胡说八道，但这个问题不能含糊，你一定要告诉mm，你对未来充满信心，你不满 足于现状，并且你已经有了长远的计划，总之你的未来不是梦。

2、要显得有信心、有责任心 不要像个小孩子，女孩子都很懒希望能找个依靠，你要拿出自己的信心和责任心来。 有一个错的选择总比没有选择要好的多。

3、不要太正经，但也不要太随便 该正经的地方就正经，该调侃的的时候就调侃。 女孩子都喜欢有点玩世不恭的男人，所以别显得对什么都特别在意，那样太呆板。

4、显得成熟一点遇事镇定、从容不迫的男人对mm有致命的吸引力。

二、如何与mm展开进一步接触（时间：开始追的阶段）

1、这个阶段最关键的是不能着急，不要把事情弄的那么清楚，让人家一眼就能看出你在 追人家。 想一想，一般人都不会一眼就看上你，但也不会看一眼就讨厌你，都是老百姓家的孩子（除非你长得象周润发刘德华或者凯文科斯特纳），好感是需要随着了解的不断增加而实 现的，所以问题的关键是你要得的进一步发展的机会。站在女孩子的角度替人家想一想：你这么直接了当的冲过来要搞对象，女孩子肯定有心理压力。这要是接触一阵后发现不喜欢你，那不就成了耍你了么？所以如果你开始就摆出志在必得的姿势出来，基本上会被立刻闷回去。

2、要低姿态起步
首先要把关系定位成“朋友”，本来是“普通朋友”，你希望成为“好朋友”，有品位的还可以要求对方成为“红颜知己”什么的，总之千万不要说“追你”。你想想，你如果根本不提“追”，那么女孩子也就更没机会“拒绝”你――你没追她怎么拒绝你？！这样可以减轻女孩子的心理压力，使你们能顺利的交往下去。不要幻想认识三天就答应嫁给你，要充分的交往、了解，感情不是凭空产生的。

3、交往的过程中不要太急躁要有张有弛，不要整天缠着人家，谁这样你，你也会腻。我有个好朋友对我说，追女孩子的关键是八个字―― “忽冷忽热、欲擒故纵”（这是我同学多少年心血的结晶）。你整天缠着人家自然不觉得你好，你适当的冷个一两天，女孩子就会想起你在的好处了。还有就是不要拿出“非你不娶”的志气来，太掉价了不好，有时候可以耍点花招。

4、要适当的创造机会前面说了，不要使事情立刻变成“你在追别人”，而你又需要得到接近女孩子的机会,这时就要看你的创造力了。你可以搜集情报，想办法把守株待兔变成一场邂逅；也可以装做漫不经心的找出最最充
足的理由邀请对方和你一起做什么事。总之这个是最有技术含量的地方，实在不行可以找前辈请教。

5、切忌切忌：随便送人家礼物是不礼貌的有些人追女孩子心切，喜欢经常买东西送人家，殊不知追女孩子最忌讳这个。俗话说“无功不受禄”，你这样送人家东西就是在施加压力，人家会觉得欠你的，所以会想办法还给你，如果没办法还给你就会想办法不和你交往，免得总是欠你人情。如果你想显示自己的诚意，倒不妨请女孩子一起消费，比如说找好的餐厅吃饭，或者找贵 的地方一起玩什么的，女孩子自然能看出你花了很多钱，但钱终究是两个人一起花了而不是变成东西带回家。

三、“女朋友”到底是什么？

1、“女朋友”是一种事实，而不是一份承诺你和女孩子开始交往，从“普通朋友”变成“好朋友”，再到“非常非常好、无话不谈的朋友”，某一个阳光灿烂的午后，你“不小心”拉了她的手；“月上柳梢头”，你突然
袭

击吻了她。这时她就已经是你的女朋友了，无论她是否承认，她心理已经认为你是他男朋友了。我知道最高明的，直到上床了都没问过“你是否愿意做我女朋友”，最后还是女孩子急了：“你怎么还不求我做你女朋友啊！” 所以说，千万不要急于把窗户纸捅破，情况越朦胧对你越有利。

2、“表白”是什么？
前面说了，表白实际上就是一个形式而已，正确的顺序应该是：事实上已经成为你女朋友了，你才能向人家表白，水到渠成。 很多人弄不明白这个问题，总以为人家先答应做自己女朋友，然后再如何如何，我只能说他非常非常“单纯”，也非常非常“愚蠢”。

3、有没有“迫不得已非表白不可”的时候？
有，比如说出现第三者，或者你和女孩子关系没有成熟但两个人可能分开一段时间。这时候的表白就是条件不成熟的表白，风险非常大，类似于下围棋的时候形势严峻，落後的一方迫于无奈放出“胜负手”，赢了就赢了，输了也只能说“倒霉都是天生的”。

4、“爱”字不要轻易出口
经常看见论坛出现“大胆的表白”，说实话我真的认为这是非常不成熟的一种表现。“ 爱 ”是一个神圣的字，意味着追求，也意味着承诺，甚至体现出一种责任。随便说“爱”的男人是不负责任的。

四、文明恋爱，不可强求

1、不是每个mm都能追到手的好女孩总会有很多人追，不可能遂了每个人的心愿，总会有失败者。举个例子，就算你刻苦钻研掌握了最搞超的追mm原理，你一样追不上twins里的任何一个。换个角度考虑问题，一个小学没毕业的农村小保姆，即使对你再好，每个月赚600给你买700的礼物（透支），愿意为你“当牛做马”，你也不会爱上她。如果她每天哭哭啼啼的缠着，你肯定觉得烦。 所以说爱情是需要物质基础的，至少需要平衡。

2、追mm做是一种严肃的社会活动千万不要把人家搞烦了，要给自己留后路。大丈夫何患无妻？有些mm确实势利眼（少数），如果不服气，你可以发愤图强，用事实证明“她当时瞎了眼”，绝对不要误人误己。 最后补充一点千万不要在mm面前显得愤世嫉俗，愤世嫉俗有时候意味着“你很失败”。