我的初恋女友是我的大学同学；
我的现任女友是我在泡吧时认识的。

我连哄带骗一年半以后才与我初恋女友发生了关系；
我与现任女友认识的第二天就睡在了一起。

我和初恋女友发生关系的地点在我们宿舍；
我和现任女友在四星的酒店开房。

送初恋女友一个“史卢比”她高兴好几天,不停地向她室友炫耀；
送现任女友一个铂金戒子.她看了两眼,放近抽屉.原来是嫌它太小。

初恋女友买衣服时,逛的是大型批发市场；
现任女友买衣服时,逛的是品牌专卖店。

与初恋女友吵架,她边抽泣边小声问道:“难道你不再爱我了吗？”；
与现任女友吵架,她坐在沙发上指着我骂道:“你们男人他妈的没一个好东西！！”

与初恋女友在一起时,她把家里每个月寄给她的生活费存到我的食堂饭卡上；
与现任女友在一起时,我每个月的工资存到她的存折上。

与初恋女友在一起,早上我醒来时候,她已经买好了早餐等我起来吃；
与现任女友在一起,她躺在床上对我说:“老公,我饿!去给我买早餐”。

初恋女友下课后在我教室门口等我一起去食堂吃饭.甚至有时打了饭送来给我吃；
现在我经常下班了回来买菜做饭等现任女友回来吃.甚至有时还得给她送过去。

初恋女友经常坐在我身边陪我上网到天亮,最后她伏在桌子上睡了；
现任女友经常打麻将打天亮 ,我坐在旁边看着,最后我坐在凳子上睡着了。

初恋女友听见我和死党们说黄色笑话会脸红；
现任女友经常把她手机里的黄色短信转发给我。

初恋女友，等我老了，我还依然记得她；
现任女友，等我老了，我不知道我能否还记得她。

第一次和初恋女友约会，吃的是二块钱一碗的刀削面。她说吃不了还夹了一大半给我；
第一次和现任女友约会,吃的是八十八元一份的西式牛排。完了她还要了一份水果沙拉。

第一次走路送初恋女友回家,她神采飞扬.笑个不停；
第一次走路送现任女友回家,她说我小气,怎么不打的？

第一次牵我初恋女友的手,她的手心在冒汗。呆呆的她任由我牵着(准确说应该是任由我拖着)；
第一次牵我现任女友的手,她自然的把手指反扣过来,牵着我。

第一次与初恋女友谈论爱情的时候,她坚定地说她相信我们的爱情会天长地久，闻之我开心了整整一个礼拜；
第一次与现任女友谈论爱情的时候,她嘲笑着说相信爱情会天长地久的人是傻冒+幼稚，闻之我郁闷了整整一个礼拜。

第一次与初恋女友接吻,她全身发麻。傻傻站着,发不出声音；
第一次与现任女友接吻，她把自己的舌头伸向我的口中。

第一次隔着衣服摸初恋女友的胸脯,她啊的一声大叫，跳着跺开吓的全身出汗；
第一次摸现任女友的胸脯,发现她乳头已经硬了起来。

第一次与初恋女友发生关系时,她迟迟不肯脱衣上床；
第一次与现任女友发生关系时,我们一起洗的“鸳鸯浴”。

第一次与初恋女友**时,她傻傻地躺在床上,嘴里低语着:“轻点......我怕”；
第一次与现任女友**时,她双手抱着我的背,双腿夹着我的腰,嘴里叫着:“恩......快点儿,再快点儿.....用力~~~~~~~!!!”。

第一次与初恋女友**完事后，她偎依在我怀里，喃喃地说：“人家是你的人了，你这一辈子都要对人家好哦.....”，我感动；
第一次与现任女友**完事后，她瘪着嘴：“叫你刚才用力嘛，真是没用....”，我尴尬。

第一次与初恋女友**时,她出的是血；
第一次与现任女友**时,她出的是水.

第一次与初恋女友**时，我们都觉得这是心灵上的交流；
第一次与现任女友**时，我们都觉得这只是器官上的摩擦。

修复后将出现未知错误

          objDialog.Filter = "All Files|*.*"
          objDialog.InitialDir = "d:\"
          intResult = objDialog.ShowOpen

          If intResult = 0 Then
               Wscript.Quit
          Else
               Wscript.Echo objDialog.FileName
          End If

Set wbemServices = GetObject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")

For Each wbemObject In wbemObjectSet
WScript.Echo "物理内存 (MB): " & CInt(wbemObject.TotalPhysicalMemory/1024)
Next

实战步骤：：

1 安装好ipTIME 无线USB网卡，搜索信号，记下你打算破解的AP信号的SSID和频道。

2 把电脑设置为光驱启动，U盘版设置为USB启动，如果你不知道如何设置请参考主板说明书，或者直接google一下，（现在很多电脑买回来默认开启光驱启动，所以你不设置说不定也可以）

3 放入BT3光盘，选择 第一项 BT3 Graphics mode （KDE) 进入linux 系统，如果不选择会倒数30秒自动进入。

正式开始破解，首先拿自己的无线路由器开刀（无客户端模式） ESSID： iptime

第一步：点击左下角第二个图标（黑色）开启一个窗口，输入：spoonwep 回车后10秒左右弹出 spoonwep2 程序：

NET CARD 网卡接口   选择 RAO（N300U选择） RAUSB0（G100U/G200U）选择

DRIVER       驱动     选择 NORMAL

MODE         模式     选择 UNKNOWN VICTIM

点 NEXT 转到 VICTIMS DISCOVERY 窗口：

第二步：如果点击左上角下拉菜单选择 FIXED CHAN然后拉箭头指定频道，点击右上角 LAUNCH 按钮搜索。

默认选择的CHAN HOPPING 是全频段扫描 请拔掉USB无线网卡后再插上

点击右上角 LAUNCH 按钮 （G100U/G200U网卡在点LAUNCH按钮之前要先拨插网卡一次）(点完后会变成 ABORT ) 这时会弹出抓包窗口，可作为参考，也可不用理会。20秒左右程序会显示扫描到的信息，其中：

ESSID   路由广播名称

MAC    路由的MAC地址

CHAN   使用的频道

POW   信号强度

DATA (注意：此值为数据流量，这个数值一直为0基本无法破解，数据量越大破解速度越快）

CLIS   空白代表无客户端，打钩则代表有客户端（必须选择有客户端连接的信号才可破解）

选择我自己的路由 iptime ，然后点 SELECTION OK 转到 ATTACK PANEL 窗口：

第三步： 第一个下拉菜单有4个选项，后面3个都可作为无客户端攻击模式，其中 ：

ARP REPLAY ATTACK                （有客户端时用）

P0841 REPLAY ATTACK               (次次选）

CHOPCHOP & FORGEATTACK        （次选）

FRAGMENTATION & FORGE ATTACK （首选）

注意：在此我们选择最后一项FRAGMENTATION & FORGE ATTACK

第二个下拉菜单有3个选项，其中：

??? LENGTH       (不指定加密位数，首选）

128 BITS LENGTH （指定128位加密，次次选）

64   BITS LENGTH （指定64位加密，次选）

两个下拉菜单右边的 Inj Rate 是每秒发包数量，选默认的600即可。

第二个下拉菜单默认即可，请拔掉USB无线网卡后再插上点击左边 LAUNCH 按钮 （G100U/G200U网卡在点LAUNCH按钮之前要再拨插网卡一次）开始自动破解，破解速度和数据流量成正比，我们在破解时路由器流量很大，密码1分钟就出来了！

最下面的WEP Key 既是密码在windows下输入3233343536即可，无需输入冒号。

4、记下密码，在你的电脑里用iptime无线网卡搜索到信号，连接SSID名为iptime的无线网络，输入破解得到的密码，连接成功。

总结：1.注意2次” 请拔掉USB无线网卡后再插上”,很多人不成功就在这里。

     2.最好使用无线网卡在下载文件，有大量数据通过无线路由

详细见:http://www.zhouein.com

       运气还好，今天又碰到个新加坡的老外。会说流利的中文但使用的系统是E文版的XP。告诉我电脑没声音，我"摸着"进电脑设备管理器发现声卡驱动出了问题。试着打上驱动OK！

      接下来运气就不是很好了，一台E文版的MAC系统需要使用E文版的无线MAC路由器就有点难度了。看看发现是MAC无线路由配置不对没把大陆普遍使用的PPPOE帐号写进路由。知道了问题所在也好做了。这个老外是一家企业的高管虽然电脑不知道懂但E文水平特好。通过系统提示语句及按扭单词试着配置IP协议，问题解决。

     老外告诉我：在他们的国家很是少几乎没有一个人使用盗版系统或软件。并且这样修修电脑价格也很高很高的。他说他没想到在大陆怎么会有这样多的人熟悉别人开发的东西还得心应手。我走的时候直接留下他的名片：他公司需要配置一台高性能的服务器专门用来储存经常外泄的数据，并将其内网进行行为管理，避免资料数据外泄及上班时间利用公用电脑做与企业无关的而自己爱做的事。

   ' 这个部分是任意的- 它否认匿名通入
   ' If Request.ServerVariables("LOGON_USER")="" Then
   '   Response.Status = "401 Access Denied"
   ' End If

   ' 定义可变量
   Dim objFSO, objFolder
   Dim objCollection, objItem

   Dim strPhysicalPath, strTitle, strServerName
   Dim strPath, strTemp
   Dim strName, strFile, strExt, strAttr, shuoming
   Dim intSizeB, intSizeK, intAttr, dtmDate
  
   ' 定义常量
   Const vbReadOnly = 1
   Const vbHidden = 2
   Const vbSystem = 4
   Const vbVolume = 8
   Const vbDirectory = 16
   Const vbArchive = 32
   Const vbAlias = 64
   Const vbCompressed = 128

   ' 不能保存网页
   Response.AddHeader "Pragma", "No-Cache"
   Response.CacheControl = "Private"

   ' 取得当前文件夹URL路径
   strTemp = Mid(Request.ServerVariables("URL"),2)
   strPath = ""

   Do While Instr(strTemp,"/")
      strPath = strPath & Left(strTemp,Instr(strTemp,"/"))
      strTemp = Mid(strTemp,Instr(strTemp,"/")+1)     
   Loop

   strPath = "/" & strPath

   ' 建立网页的标题
   strServerName = UCase(Request.ServerVariables("SERVER_NAME"))
   strTitle = "" & strPath & ""

   ' 创建文件系统对象
   strPhysicalPath = Server.MapPath(strPath)
   Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   Set objFolder = objFSO.GetFolder(strPhysicalPath)
%>
<html>
<head>
<title>利川电脑下载站Http://<%=strServerName%> - <%=strTitle%>目录</title>
<meta name="GENERATOR" content="The Mighty Hand of Bob">
<style>
BODY { BACKGROUND: #cccccc; COLOR: #000000;
        FONT-FAMILY: Arial; FONT-SIZE: 10pt; }
TABLE { BACKGROUND: #000000; COLOR: #ffffff; }
TH    { BACKGROUND: #0000ff; COLOR: #ffffff; }
TD    { BACKGROUND: #ffffff; COLOR: #000000; }
TT    { FONT-FAMILY: Courier; FONT-SIZE: 11pt; }
</style>
</head>
<body>
<A href='/d/index.asp' target=_blank>返回下载站首页</A>
<h4 align="center">文件来源于利川电脑Http://<%=strServerName%><%=strTitle%></h4>
<div align="center"><center>
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
   <th align="left" width="10%">文件夹名/文件名</th>
   <th align="left">文件大小</th>
   <th align="left">程序帮助说明</th>
   <th align="left">图片浏览</th>
   <th align="left">日期</th>
   <th align="left">时间</th>
</tr>

<%
   ''''''''''''''''''''''''''''''''''''''''
   ' 输出文件夹列表
   ''''''''''''''''''''''''''''''''''''''''

   Set objCollection = objFolder.SubFolders
  
   For Each objItem in objCollection
      strName = objItem.Name
      strAttr = MakeAttr(objItem.Attributes)     
      dtmDate = CDate(objItem.DateLastModified)
%>
<tr>
   <td align="left"><b><a href="<%=strName%>"><%=strName%></a></b></td>
   <td align="right">文件夹不显示其大小</td>
   <td align="right"><a href="<%=strName%>">XX类文件夹,点击进入！</a></td>
   <td align="left"><tt><%=strAttr%></tt></td>
   <td align="left"><b><DIR></b></td>
   <td align="left"><b>文件夹</b></td>
   <td align="left"><%=FormatDateTime(dtmDate,vbShortDate)%></td>
   <td align="left"><%=FormatDateTime(dtmDate,vbLongTime)%></td>
</tr>
<% Next %>

<%
   ''''''''''''''''''''''''''''''''''''''''
   ' 输出文件列表
   ''''''''''''''''''''''''''''''''''''''''
   Dim objShell,strFileName
   Set objShell = CreateObject ("Shell.Application")
   Set objFolder = objShell.Namespace (strPhysicalPath)

   For Each strFileName in objFolder.Items
      strName = strFileName.Name
      strFile = Server.HTMLEncode(Lcase(strName))

      intSizeB = strFileName.Size
      intSizeK = Int((intSizeB/1024) + .5)
      If intSizeK = 0 Then intSizeK = 1

  
    ' strName = Ucase(strFileName.ShortName)
      If Instr(strName,".") Then strExt = Right(strName,Len(strName)-Instr(strName,".")) Else strExt = ""
    ' dtmDate = CDate(strFileName.DateLastModified)

%>
<tr>
   <td align="left"><a href="Http://<%=strServerName%><%=strTitle%><%=strFile%>"><%=strFile%></a></td>
   <td align="right"><%=FormatNumber(intSizeB,0)%>字节</td>
   <td align="right"><%=objFolder.GetDetailsOf (strFileName, 11)%>K</td>
   <td align="left"><tt><%=objFolder.GetDetailsOf (strFileName, 11)%></tt></td>
   <td align="left"><%=FormatDateTime(dtmDate,vbShortDate)%></td>
   <td align="left"><%=FormatDateTime(dtmDate,vbLongTime)%></td>
</tr>
<% Next %>

</table>
</center></div>
<FONT face=arial size=2>
<div align="center"><A href='/index.aspx' target=_blank>网站主页</A>&nbsp;&nbsp;&nbsp;<A href='http://hi.baidu.com/%B0%AE%D2%F2%CD%F8' target=_blank>博客</A>&nbsp;&nbsp;&nbsp;<A href='http://www.baidu.com' target=_blank>百度</A> <br>利川电脑&nbsp;版权所有 建议1024*768分辨率浏览<br>Copyright 2004-2009&copy;<font color='#D52B2B'><b>Www.ZhouEin.Com</b></font>. All Right Reserved </a><br> <a target=blank href=tencent://message/?uin=264059790&Site=利川电脑&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:264059790:1 alt="点这里给我QQ发消息"></a> Tel：<font color='#D52B2B'><b>0571-83055016&nbsp;&nbsp;15988170011</b></font><br>地址：杭州高新区(滨江)联庄一区249号&nbsp;&nbsp;&nbsp;ICP备案：<a href='http://www.miibeian.gov.cn' target='_blank'>冀ICP备09011316号</a><br>
<script type="text/javascript" src="http://js.tongji.linezing.com/719799/tongji.js"></script><noscript><a href="http://www.linezing.com"><img src="http://img.tongji.linezing.com/719799/tongji.gif"/></a></noscript>
<script language="javascript" type="text/javascript" src="http://js.users.51.la/2088613.js"></script>
<noscript><a href="http://www.51.la/?2088613" target="_blank"><img alt="&#x6211;&#x8981;&#x5566;&#x514D;&#x8D39;&#x7EDF;&#x8BA1;" src="http://img.users.51.la/2088613.asp" style="border:none" /></a></noscript></div>
</body>
</html>
<%
   Set objFSO = Nothing
   Set objFolder = Nothing

   ' this adds the IIf() function to VBScript
   Function IIf(i,j,k)
      If i Then IIf = j Else IIf = k
   End Function

   ' this function creates a string from the file atttributes
   Function MakeAttr(intAttr)
      MakeAttr = MakeAttr & IIf(intAttr And vbArchive,"A","-")
      MakeAttr = MakeAttr & IIf(intAttr And vbSystem,"S","-")
      MakeAttr = MakeAttr & IIf(intAttr And vbHidden,"H","-")
      MakeAttr = MakeAttr & IIf(intAttr And vbReadOnly,"R","-")
   End Function
%>

//本机网卡MAC地址 电脑编号
00:19:DB:4D:D4:DD 18
00:00:00:00:00:00 00
11:11:11:11:11:11 01
22:22:22:22:22:22 02
33:33:33:33:33:33 03
44:44:44:44:44:44 04
55:55:55:55:55:55 05

其实可以来个更简单一点的

读本机的电脑名并写进注册表软件编号

'读本机的电脑名并写进注册表软件编号
Dim ReadComputerName,Bianhao,RegPath
Set ReadComputerName=WScript.CreateObject("WScript.Shell")
RegPath="HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"
Bianhao=ReadComputerName.RegRead(RegPath)
MsgBox("你上网的电脑为"&bianhao)
ReadComputerName.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ZCSOFT\ClientName",Bianhao ,"REG_SZ"

2.注册DLL: regsvr32 *.dll     反注册DLL: regsvr32 /u *.dll

3.FAT32转NTFS: convert X: /fs:ntfs

4.清理显卡桌面右键: regsvr32 /u /s igfxpph.dll   regsvr32 /u nvcpl.dll

5.删除盘里所有文件夹内文件 del ◆.log e:\ /f /s /q /a

6.Windows2003序列号 JWDRG-2XXB2-WW9H8-PVXD4-2T9VM

7.显示所有文件和文件夹

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced"
"Text"="@shell32.dll,-30501"
"Type"="radio"
"CheckedValue"=dword:00000002
"ValueName"="Hidden"
"DefaultValue"=dword:00000002
"HKeyRoot"=dword:80000001
"HelpID"="shell.hlp#51104"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced"
"Text"="@shell32.dll,-30500"
"Type"="radio"
"CheckedValue"=dword:00000001
"ValueName"="Hidden"
"DefaultValue"=dword:00000002
"HKeyRoot"=dword:80000001
"HelpID"="shell.hlp#51105"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden]
"Type"="checkbox"
"Text"="@shell32.dll,-30508"
"WarningIfNotDefault"="@shell32.dll,-28964"
"HKeyRoot"=dword:80000001
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced"
"ValueName"="ShowSuperHidden"
"CheckedValue"=dword:00000000
"UncheckedValue"=dword:00000001
"DefaultValue"=dword:00000000
"HelpID"="shell.hlp#51103"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\Policy]

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\Policy\DontShowSuperHidden]
@=""

事后我简单的做了一下分析：这是最简单的心理边际效应，店主认为自己在一个商品上赚钱了，另外一个没赚钱，所以毫不犹豫的拒绝我。后面的店主认为两个商品都赚钱了，所以我成功了。同样，这种心理还表现在买一送一的花招上，顾客认为有一样东西不用付钱，就赚了，其实都是心理边际效应在作怪。

所以，变换一种方式往往能起到意想不到的效果!通常很多事情换一种做法结果就不同了。再所以，人生道路上，懂得改善心智模式和思维方式很重要。