博文
讲述你的网名，你的故事(2006-01-03 03:49:00)
摘要：编者：几乎可以说，每一个网民都有自己的网名，不管是随手一敲键盘的任意组合还是寓意深刻的费尽心思，网名恰恰反映了网络本身的特点，它是隐蔽的，它又是最畅通和直接的，它能够把人和人之间最原始的状态、内心的东西展现出来。在起网名的同时，都给了参与者一个更广泛的释放空间。
关于网名的种种 ：网名又叫ID，ID是英文Identification的缩写，意思是“身份”。网名又称为马甲，这来源于赵本山一个小品。 上网的人一般都用网名，在网上用真名发言的，要么是领导，要么是做梦都想出名的人。像“能不爱江南？”肯定生活在江南一带，而且很懂得享受生活。“胡匪”，人肯定很老实，渴望自己身上有点匪气。“董事长”，一定是个公司的小职员，真正进入公司董事会的人，反而自称“老妮子”、“老榕”。“今夜太冷不宜私奔”，肯定是个本分人，真想私奔，还管天冷不冷！“卧梅闻花”，肯定没文化，这么老的手机段子，他还拿来用作网名。
网路上的ID可谓千奇百怪 ，论惊人者，莫如“帅的惊动中央”系列——象“毛主席夸我帅”则以朴素的阶级感情来诠释“帅”，又有好事者取了个“周总理说我比你帅”，这是针锋相对，“帅的惊动联合国”则是将名字推广到国际，又有“帅的不敢上街”“帅得要罚款”、“帅得想毁容”“因帅而遭追杀”这是将帅表现出一种生活化的活灵，“俺村俺最帅”是将范围缩小，达到一种假象的真实。 又有将这个网名逆化的，就叫“丑的惊动中央”，虽是延伸出来的，但也不乏新意和创新，或者“衰的惊动中央”、“龌龊的惊动中央”则是鹦鹉学舌了，不过，“丑得吓死外星人”还是够弓虽……
我们应该感谢有了网络这是个可以自己给自己做主的地方，名字一起一大撂，比高帽子来得还容易。起网名这事儿，用一个网友的网名概括，就是一种“自愚自乐”。 “自愚”和“自乐”，都需要一种放松的心态。让人眼睛一亮的网名，能让人会心一笑，暗暗赞叹：TMD！真NB！且看 你的网名如此多情 。
关于网名背后的故事： 野蔷薇：一个网名就是一种心情 记得初到沁园论坛时，论坛里有一篇贴，是要网友们介绍自己网名的来由。我只说了一句：蔷薇再怎么野，还是花，我再怎么野，还是女人。网友们觉得我并不是个野性难驯的人，其实，我的骨子里，确实有着叛逆。 瘦西湖：都是网名惹的祸 本来我是有个很好的名字的，叫雪儿。雪儿让人想起三口百惠，......
假如我中了五百万(2006-01-03 03:38:00)
摘要：
假如我中了五百万
“缺钱缺的我顿时没了志气，顿时不宣扬女权，顿时不号称单身快乐，顿时在埋单的时候偷着上厕所或者为了面子我干脆不出去耍了。谁现在要一不小心娶了我、养我，我利马倍儿柔弱，利马倍儿服气，利马成为家里的小甜甜甜死你腻死你。”缺钱到了这个份上，能忍住不梦想中个五百万吗？
假如我中了五百万，我就拿出个二百万分期付款付七个首付买七个底商我用租金还贷款我也当他个地主婆。 假如我中了五百万，就随便的抛给谁个几十万玩儿似的，你还别着急还我，你要还我我和你急！ 假如我中了五百万，我就找个优良品种当孩儿他爸我生个娃娃在家让我妈养着玩儿！ 假如我中了五百万，我装修我都用美克美家的家具，你还别给我拿便宜的，一副挂墙上的装饰画我就要那个一万多的！你给我拿两千多的相框我只能给Y放在卫生间！ 假如我中了五百万……靠，不能再有想法了，五百万也不够了。还不能交税。税后五百万也不够了。 ［详细］
真的？假的？中了500万？
我把这篇博客来回看了数次，还是无法判断，这到底是一个冷静的中奖者还是一个可怕的臆想症患者。如果是前者，我实在对他的沉着冷静的精神控制能力表示由衷的敬佩；如果是后者，我则要对他出众的想象能力致以敬意。
我中了五百万。 我很清醒，这根本不是做梦。 我也不紧张，遇到好事。紧张干嘛？我先跟彩票点的人说明，不希望把我的名字公开。当然只是口头，那个人满脸堆笑，以为中奖是的我是他亲戚。我不睬他。 然后，我先给林律师打了个电话，希望他全权全程服务这五百万，使之能顺利地安全合法地最后落入我的口袋。林律师并不激动，似乎带有一点点的轻蔑，我认为这是典型的“自以为知识分子”劣根在作怪，见不得暴富之人，老认为自己做牛做马，还收不了多少钱。［详细］
我中了500万以后的24小时
当然，不可能每一个中奖者都会像楼上这位一般镇定——就算是在梦想中也不会。比如接下来这一位所梦想的中奖经历，我认为就是符合广大梦想中奖爱好者们的普遍心理的。
掐自己一下确定不是在做梦。结果：全身都被掐紫。 睡觉。结果：睡不着。 吃安眠药。结果：睡着了，但是做梦不止，反复梦到中了1000万。 起床。结果......
大学21件事情，你经过哪些(2005-10-29 20:24:00)
摘要：四级 也许你第一次考了59分，可是你第二次却只有50分，到了第三次，你自己都已经缺乏信心了！其实，即便你顺利通过，也不能够代表什么。也许你仍然不敢开口和老外讲话，或者根本就听不懂一则英语新闻报道！
奖学金 得奖学金当然很光荣，可是得到了却不一定是好事。有师兄得了一个三等奖学金，然后被逼着请客。一餐下来，花了410元，而三等奖学金才400元！呵呵，哑巴吃黄连，有苦说不出。可恨的奖学金，不要也罢！
初吻 我和女朋友躲在电影院里第一次接吻时，我差一点吐了，因为我不习惯她唾液的味道。 我对她说：“以后我们不要接吻了，好吗？”她说：“好！”因为在我想呕吐之前，她已经吐了！这就是我的初吻，一个浪漫的事故。
情人节 每个男生关于情人节的记忆，都是玫瑰真贵！真弄不明白，那几朵玫瑰难道会比川菜馆的鱼香肉丝好吃？记得情人节那天，我以每支50元的价格买了一束玫瑰送女朋友，她脸上的笑容是那么夸张。当着全班同学的面，就给了一个筘得我隐隐作痛的拥抱！情人节，一个外国鬼子想出来害人的节日！
失恋 分手的时候，她说：“跟你在一起，我已经麻木了！”我回答：“希望你能够找到快乐！”没有过多久，她有了新男友，是一个自考生，高干子弟。后来，又听说她被玩弄后，被人家甩了。最后一次见她是在前不久，她说，其实不该和我分手。我笑了笑。回想起认识她时，她借给我一本《少年维特之烦恼》。看着她远去的背影，我无声地哭了……
QQ 没有电话号码不打紧，但是不能没有qq号码。咳嗽声和嘀嘀声余音绕梁，三日不绝，网友遍布祖国大江南北，甚至远到了地球另外一边，交际从现实社会转变到了虚拟世界。可悲的是，我们却从未主动向周围的人说一声：“你好，我们可以聊聊吗？”
星际争霸 如果你不知道星际争霸，要么你是个女孩子，否则便是傻冒。人族、虫族和神族的战争，延续了大学四年。大家在线上废寝忘食，每个晚上断电的时候，总有人安慰说：“睡吧，明天我们接着战！”明天的明天，还会有星际争霸么？
电脑 买电脑的时候，每个人都有自己宏伟的计划，学编程，学软件和硬件，不玩游戏，好好利用网络！其实，越是发了毒誓的人，到后来也玩得越疯。看吧，哪一台机子不是在玩游戏，上网聊天，看影碟？电脑，除了女朋友之外耗时最多的朋友！
长假 五一和国庆，两个难得的长假......
Visual Basic 6.0网络编程的五大散手(4)(2005-10-28 21:30:00)
摘要：访问Internet并调用Explorer 1．实现方法和控件介绍 首先在VB 6菜单上点击"工程/部件..."，弹出"部件"对话框，在对话框的控件卡中选中Microsoft Internet Controls控件，点击"确定"按钮后工具箱上增加一个WebBrowser图标，将它加到Form中。 该控件有以下几个重要的方法和事件： ·GoHome：装入IE设定的起始页； ·Navigate：装入页面，如Object.Navigate url，其中url为URL地址，如http://www.microsoft.com； ·GoBack：返回上一个页面； ·GoForward：进入下一个页面； ·Stop：停止载入页面； ·BeforeNavigate Event：在每次装入页面前调用该事件； ·StatusTextChange Event：每次浏览器的操作状态改变时调用该事件。 2．具体的访问方法 将WebBrowser图标添加到Form中。并在Form上添加4个命令按钮，Name属性分别为：GoButton、BackButton、ForwardButton和StopButton，通过这4个命令按钮可以实现对浏览器的操作。在Form上添加一个TextBox控件，用来输入和显示当前的页面地址。在Form上添加一个Label控件，用来显示当前浏览器操作状态。 /＊载入Form＊/ Private Sub Form_Load() /＊程序装入后进入IE设定的起始页＊/ WebBrowser1.GoHome End Sub /＊改变Form尺寸＊/ Private Sub Form_Resize() /＊改变窗口大小后同时改变控件的大小＊/ WebBrowser1.Width = Form1.ScaleWidth WebBrowser1.Height = Form1.ScaleHeight － 900 Label1.Width = Form1.ScaleWidth Label1.Top = Form1.ScaleHeight － 300 End Sub Private Sub BackButton_Click() /＊返回上一个页面＊/ WebBrowser1.GoBack End Sub Private ......
Visual Basic 6.0网络编程的五大散手(3)(2005-10-28 21:29:00)
摘要：设计E-mail的接收部分 在VB 6菜单上点击"工程/部件..."，弹出"部件"对话框，在对话框的控件卡中选中Microsoft MAPI Controls 6.0控件，点击"确定"按钮后，工具箱上增加了MAPIMessage和MAPISession两个图标。 在Form上加入一个MAPIMessage控件，取名为MAPIMessage1；再加入一个MAPISession控件，取名为MAPISession1；再加入三个TextBox控件，分别取名为Subject、Content和Indexno， 将它们的Caption分别改为邮件标题、邮件内容和邮件索引号；在TextBox前各加入一个Label控件，将Caption分别改为标题、内容和索引号。 将MAPIMessage1的各项属性设置如下： ·DownLoadMail=TRUE； ·LogonUI=TRUE； ·NewSession=FALSE； ·UserName="接收Email"。 在Form上加入一个按钮（Getmail），将其Caption改为取邮件。 在 Getmail_Click()事件中加入以下程序代码，程序的功能是使我们接收Email。 MAPIMessage1.Fetch Form1.Caption=MAPIMessage1.MsgCount MAPIMessage1.MsgIndex=CINT(Indexno.text) Subject.Text = MAPIMessage1.MsgNoteText Content.Text = MAPIMessage1.MsgSubject 其中Fetch命令用来将信件抓到系统存储器的inbuffer中。我们将信件抓回来后，可以通过MsgCount属性知道信件数量,接着可以用MsgIndex设置要看哪一封信件的内容、标题等。 设计E-mail的发送部分 1．参数设置 进入Exchange系统，选择新增设置文件后屏幕上会显示所需要的信息服务，选择Internet Mail。 把设置文件的名称设为test。屏幕会显示两个选项，您可以选择以Modem方式或以Network 方式连接。笔者所用的是Modem方式；假若您是使Internet专线，就要选择Network 方式。 选择......
Visual Basic 6.0网络编程的五大散手(2)(2005-10-28 21:29:00)
摘要：Visual Basic 6.0（以下简称VB 6）以其强大的功能为广大软件开发人员所喜爱，被用来开发各种应用程序。随着Internet的迅猛发展，VB6在网络方面的应用开发也越来越多。本文介绍笔者在实际编程开发中总结的5个技巧，希望能为进行网络开发的朋友们提供一点参考。 连通检测 许多应用程序常常需要在程序中直接进行联网操作，以便进行一些必要的处理（如在线注册和在线帮助等），这就要求我们在程序中建立某些连接。很多软件在不知用户是否联网的情况下就启动浏览器查找网址，结果只能查出一错误网页，既浪费用户时间又没有任何效果。如果应用程序在查找网页之前能自动判断用户是否已经联网，就会节约许多时间，提高程序运行效率。 下面是实现网络连通检测的VB 6代码： Private Sub Form_Load() If IsConnected = TRUE Then MsgBox ("您已经连通了Internet!") End If If IsConnected = FALSE Then MsgBox ("您还没有连通 Internet!") End If End Sub Option Explicit /＊有关的API声明和定义＊/ Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long /＊常数和变量的设定＊/ Public Const RAS95_MaxEntryName = 256 Public Const RAS95_MaxDeviceType = 16 Public Const RAS95_MaxDeviceName = 32 Public Type RASCONN95 dwSize As Long hRasCo......
Visual Basic 6.0网络编程的五大散手(1)(2005-10-28 21:28:00)
摘要：Visual Basic 6.0（以下简称VB 6）以其强大的功能为广大软件开发人员所喜爱，被用来开发各种应用程序。随着Internet的迅猛发展，VB6在网络方面的应用开发也越来越多。本文介绍笔者在实际编程开发中总结的5个技巧，希望能为进行网络开发的朋友们提供一点参考。 连通检测 许多应用程序常常需要在程序中直接进行联网操作，以便进行一些必要的处理（如在线注册和在线帮助等），这就要求我们在程序中建立某些连接。很多软件在不知用户是否联网的情况下就启动浏览器查找网址，结果只能查出一错误网页，既浪费用户时间又没有任何效果。如果应用程序在查找网页之前能自动判断用户是否已经联网，就会节约许多时间，提高程序运行效率。 下面是实现网络连通检测的VB 6代码： Private Sub Form_Load() If IsConnected = TRUE Then MsgBox ("您已经连通了Internet!") End If If IsConnected = FALSE Then MsgBox ("您还没有连通 Internet!") End If End Sub Option Explicit /＊有关的API声明和定义＊/ Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long /＊常数和变量的设定＊/ Public Const RAS95_MaxEntryName = 256 Public Const RAS95_MaxDeviceType = 16 Public Const RAS95_MaxDeviceName = 32 Public Type RASCONN95 dwSize As Long hRasCo......
聊天室和对话系统(2005-10-28 20:13:00)
摘要：在一个单位内部或通过广域协议（如X.25）互联的行业内部都有几十或上万台计算机互联，用Intranet虽然可以建立聊天室，但实现点对点实时对话却比较困难。本人用Winsock和VB自制了一套聊天室和对话系统，特拿来供同行们参考。 一·Winsock的主要属性、事件和方法 Winsock是不可见控件，控件文件名是MSWINSCK.OCX，全称为Mcirosoft winsock control，使用时要将此控件调入工具箱。 1·属性：①Protocol=0 //使用TCP协议； ②RemoteHost //准备连接远程机的IP地址 ③RemotePort //连接远程机的IP端口号 （1024—65535之间） ④LocalPort //本地机监听IP端口号必须与呼叫机端口号相同2·方法：①connect //申请连接远程机 ②listen &n......
用VB编写异步多线程下载程序(2005-10-28 20:12:00)
摘要：为了高效率地下载某站点的网页,我们可利用VB的Internet Transfer 控件编写自己的下载程序, Internet Transfer 控件支持超文本传输协议(HTTP) 和文件传输协议 (FTP)，使用 Internet Transfer 控件可以通过 OpenURL 或 Execute 方法连接到任何使用这两个协议的站点并检索文件。本程序使用多个Internet Transfer 控件，使其同时下载某站点。并可判断文件是否已下载过或下载过的文件是否比服务器上当前的文件陈旧，以决定是否重新下载。所有下载的文件中的链接都做了调整，以便于本地查阅。 OpenURL 方法以同步方式传输数据。同步指的是传输操作未完成之前，不能执行其它过程。这样数据传输就必须在执行其它代码之前完成。 而 Execute 方法以异步方式传输数据。在调用 Execute 方法时，传输操作与其它过程无关。这样，在调用 Execute 方法后，在后台接收数据的同时可执行其它代码。 用 OpenURL 方法能够直接得到可保存到磁盘的数据流，或者直接在 TextBox 控件中阅览（如果数据是文本格式的）。而用 Execute 方法获取数据，则必须用 StateChanged 事件监视该控件的连接状态。当达到适当的状态时，调用 GetChunk 方法从控件的缓冲区获取数据。 首先，建立启始的http检索连接, Public g As Variant Public k As Variant Public spath As String Dim links() As String g = 0 spath = 本地保存下载文件的路径 links(0)=启始URL inet1.execute links(0), "GET" '使用GET方法。 事件监控子程序（每个Internet Transfer 控件设置相对应的事件监控子程序）： 用StateChanged 事件监视该控件的连接状态, 当该请求已经完成，并且所有数据均已接收到时，调用 GetChunk 方法从控件的缓冲区获取数据。 Private Sub Inet1_StateChanged(ByVal State As Integer) 'State = 12 时，使用 GetChunk 方法检索服务器的响应。 Selec......
用VB6.0编写手机短信发送(2005-10-28 20:11:00)
摘要：因为手机短消息的发送是以PDU串的形式发送出去的，中文字符以Unicode码来表示，所以在发送中文短消息之前必须首先将中文字符转换为Unicode码，下面的函数将实现这个功能。这个函数主要应用到VB自带的一个格式转换函数：ChrW（）将中文转换为Unicode码。 Public Function chg(rmsg As String) As String Dim tep As String Dim temp As String Dim i As Integer Dim b As Integer tep = rmsg i = Len(tep) b = i / 4 If i = b * 4 Then b = b - 1 tep = Left(tep, b * 4) Else tep = Left(tep, b * 4) End If chg = "" For i = 1 To b temp = "&H" & Mid(tep, (i - 1) * 4 + 1, 4) chg = chg & ChrW(CInt(Val(temp))) Next i End Function 同上，为了发送以PDU模式发送短消息，必须将手机号码和对方手机号码也转换为PDU格式，下面的函数就是为了实现这种转换： Public Function telc(num As String) As String Dim tl As Integer Dim ltem, rtem, ttem As String Dim ti As Integer ttem = "" tl = Len(num) If tl ＜＞ 11 And tl ＜＞ 13 Then MsgBox "wrong number." & tl Exit Function End If If tl = 11 Then tl = tl + 2 num = "86" & num End If For ti = 1 To tl Step 2 ltem = Mid(num, ti, 1) rtem = Mid(num, ti + 1, 1) If ti = tl Then rtem = "F" ttem......