STEF[CAD CAE VB MATLAB]

清除autorun病毒的批处理文件代码

ztw — 2008-05-30 22:47:00

u盘插上　　　首先新建个文本文档，在里面添加以下内容: 　　　@echo on 　　taskkill /im explorer.exe /f 　　taskkill /im w.exe 　　start reg add HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\EXplorer\Advanced /v ShowSuperHidden /t REG_DWORD /d 1 /f 　　start reg import kill.reg 　　del c:\autorun.* /f /q /as 　　del %SYSTEMROOT%\system32\autorun.* /f /q /as 　　del d:\autorun.* /f /q /as 　　del e:\autorun.* /f /q /as 　　del f:\autorun.* /f /q /as 　　del g:\autorun.* /f /q /as 　　del h:\autorun.* /f /q /as 　　del i:\autorun.* /f /q /as 　　del j:\autorun.* /f /q /as 　　del k:\autorun.* /f /q /as 　　del l:\autorun.* /f /q /as 　　start explorer.exe 　　　=====到这里为止(这行不用复制)========================== 　　　其次打开我的电脑，在菜单栏里选择“工具-文件夹选项-查看”，将“隐藏已知文件类型的扩展名”前面的勾去掉-确定-退出窗口。　　　再次将刚才新建的那个文件文档的文件名，由“新建文本文档.txt”改为“u.vbe病毒消除.bat”。　　　最后直接双击它就能清除这个病毒了!

利用VB设计浏览器

ztw — 2007-10-19 12:59:00

使用VB5附带的WebBrowser控件，可以非常简单地设计出一个实用的浏览器。　　首先，加载“Microsoft Internet Controls”和“Microsoft Windows Controls”控件。然后，设计好界面。在Web浏览器里定义URL　　现在，已经建立了浏览器里所需的一些控件，怎么让用户导航呢？　　我们可使用WebBrowser控件的Navigate方法。接下来看一看这种方法。例如：Web浏览器首次加载时，可以通过这种方法去导航Microsoft Web页(注意在Intenet Explorroe可定义带或不带“HTTP：//”)：　　 private sub form_load()　　 webbrowser1.navigate　　″www.microsoft.com″　　 …　　 end sub　　当然也可以使用户能够导航新的URL，这通常使用组合框Combo1。首先通过显示当前的URL来启动Combo1工作将其加载到组合框的下拉列表中：　　 private sub form_load()　　 webbrowser1.navigate″www.microsoft.com″　　 combo1.text=″www.microsoft.com″　　 combo1.AddItedm combo1.text　　 end sub　　用户可以从组合框下拉列表里选择过去的URLS ，当通过这种方法选择了一个URL时，相应的Click事件就产生了，用这种方法能够导航最新选择的URL：　　 private sub combo1_load()　　 webbrowser1.navigate combo1.text　　 end sub　　另外，用户可以在组合框里定义一个新的URL 并按Enter键，正如他们能够在商业浏览器里所作的一样。当按下Enter键时，就可以直接从Keypress事件处理器中简单地调用Combo1—Click事件处理器导航到这个新的URL：　　 private sub combo1_keypress(keyascii as integer)　　 if keyascii=vbkeyreturn then　　 combo1—click　　 end if　　 end sub　　最后，当下载过程结束时，WebBrowse控件激活了Do

最容易让男人爬上床的六句话

ztw — 2007-08-17 19:03:00

你们相遇于茫茫人海，相识于某个瞬间，然后，荷尔蒙的作用使你们相互吸引，一切似乎预示着某个特殊时刻的到来……然后，你说……(当然也可能是他说)，到底什么样的语言能够最准确最具杀伤力地使你们过渡到下一个关键的时刻呢？两性心理高手在调查了40名男女之后，为你列举分析男女走向“性生活阶段”前最具暗示性的六句话。想使你们的关系迅速白热化么？不妨参考下文。 “我觉得你累了，需要休息一下么？” 暗示性：★★★ 杀伤力：★★ 情趣度：★★ 40名男女中有五位选择了这句，确切地说，基本上是男性选择的。看起来，男人在这个社会上的压力是如此真切，和喜欢的女人做爱也许是放松的一种方式，所以，当女人温柔地说出“需要休息一下么？”的时候，他们的思维很容易就被带到了床上。当然，身边是否有女人陪伴的“休息”是最重要的。 “我觉得现在很寂寞” 暗示性：★★ 杀伤力：★ 情趣度：★★ 在40名接受调查的男女中，仅有三位选择了这句，大家的理由是：人人都会感到寂寞，与其他几句比起来，这句话更像是一种企图引起对方怜爱的可怜巴巴的表述，而并不是充满诱惑的暗示；而且，这句话也容易被一些喜欢拐弯思维方式的人理解为：“我和你在一起感到很寂寞”……那可不是适得其反么？ “你长得很像我的旧情人” 暗示性：★★★★ 杀伤力：★★★★ 情趣度：★★★★ 在接受调查的男女中，有七位说，他们一看到这句就想到了《围城》里船上的鲍小姐对方鸿渐说的那句：“你长得很像我的未婚夫”。当时钱老先生的解释是：当一个女人说你长得像她的未婚夫时，等于表示假使她没订婚，你有资格得到她的爱；或者，她已经另有未婚夫了，你可以享受她未婚夫的权利而不必履行和她结婚的义务。同样，长得很像旧情人，也许就暗示着你可以和她(他)成为现在的情人。因为他(她)是对于旧情人那么的念念不忘，但毕竟已是旧人，所以大家还是着眼当下吧。 “我猜你现在穿着白色的内衣，对么” 暗示性：★★★★ 杀伤力：★★★★★ 情趣度：★★★★ 心理分析，当人听到这句话时，第一感觉是想低头去看自己的身体，所以毫无疑问，直击“第2层皮肤”的这句话受到40名男女中将近一半人的推崇。这句话的隐藏含义是：我想看到你穿的内衣，(验证我的判断)；当然，白色只是打个比方，黑色、红色、灰色……颜色本无所谓。有个真实的例子，一个女人在MSN上猜测一个没见过面但是却感觉不错的男人从

Visual Basic 的数据库编程

ztw — 2007-05-12 12:36:00

Visual Basic作为应用程序的开发“利器”也表现在数据库应用程序的开发上，它良好的界面和强大的控件功能使数据库编程变得简单多了。但即便如此，数据库应用程序的开发仍然算得上是VB编程中的难点，这是因为你不仅要熟悉VB中关于数据库编程方面的知识（当然这是十分简单的）还要了解数据库的知识。所以我们先介绍一下数据库的基本知识，算是学习数据库编程前的热身运动吧！一、热身运动　　首先需要声明是，我们这里介绍的数据库知识都是指的关系数据库。所谓关系数据库就是将数据表示为表的集合，通过建立简单表之间的关系来定义结构的一种数据库。　　不管表在数据库文件中的物理存储方式如何，它都可以看作一组行和列，与电子表格的行和列类似。在关系数据库中，行被称为记录，而列则被称为字段。下面是一个客户表的例子。　　表1 客户表客户号姓名地址城市街道邮编 1723 Doe John 1234 Ffth Avenue New York NY 1004 3391 Smith Mary 9876 Myrtle Lavee Bosten MA 6078 3765 Blasel Mortimer 2296j River Road peoria IL 7011 　　此表中每一行是一个记录，它包含了特定客户的所有信息，而每个记录则包含了相同类型和数量的字段：客户号、姓名等等。　　表是一种按行与列排列的相关信息的逻辑组，类似于工作单表。　　字段数据库表中的每一列称作一个字段。表是由其包含的各种字段定义的，每个字段描述了它所含有的数据。创建一个数据库时，须为每个字段分配一个数据类型、最大长度和其它属性。字段可包含各种字符、数字甚至图形。　　记录各个客户有关的信息存放在表的行，被称为记录。一般来说，数据库表创建时任意两个记录都不能相同。　　键键就是表中的某个字段（或多个字段），它（们）为快速检索而被索引。键可以是唯一的，也可以是非唯一的，取决于它（们）是否允许重复。唯一键可以指定为主键，用来唯一标识表的每行。例如，在前面的例子中，客户标识号 (客户号) 是表的主键，因为客户号唯一地标识了一个客户。　　关系数据库可以由多个表组成，表与表之间可以以不同的方式相互关联。例如，客户数据库还可以有一个包含某个客户的所有定单的表。它只用“客户号”字段来引用该定单的客户，而不在

判断一个TCP/IP端口是否正在使用

ztw — 2007-05-09 16:46:00

Private Function PortInUse(ByVal PortNumber As Integer) As _ Boolean'*********************************************'PURPOSE: Determine if a TCP/IP port is in use'EXAMPLE: 'If PortInUse(21) Then 'MsgBox "The standard FTP port is in use on this machine" 'end if'**********************************************Dim oSocket As ObjectDim bAns As Boolean On Error Resume NextSet oSocket = CreateObject("MSWinsock.Winsock.1") If Err.Number > 0 Then Err.Raise 30000, , "Could not create winsock object" Exit Function End If Err.Clear oSocket.LocalPort = PortNumberoSocket.Listen 'if we get this error, it means'port is busybAns = Err.Number = 10048oSocket.CloseSet oSocket = NothingPortInUse = bAns End Function

获取CPU型号

ztw — 2007-05-09 16:44:00

Private Const PROCESSOR_ALPHA_21064 As Long = 21064Private Const PROCESSOR_ARCHITECTURE_ALPHA As Long = 2Private Const PROCESSOR_ARCHITECTURE_ALPHA64 As Long = 7Private Const PROCESSOR_ARCHITECTURE_ARM As Long = 5Private Const PROCESSOR_ARCHITECTURE_IA64 As Long = 6Private Const PROCESSOR_ARCHITECTURE_INTEL As Long = 0Private Const PROCESSOR_ARCHITECTURE_MIPS As Long = 1Private Const PROCESSOR_ARCHITECTURE_MSIL As Long = 8Private Const PROCESSOR_ARCHITECTURE_PPC As Long = 3Private Const PROCESSOR_ARCHITECTURE_SHX As Long = 4Private Const PROCESSOR_ARCHITECTURE_UNKNOWN As Long = &HFFFF&Private Const PROCESSOR_ARM_7TDMI As Long = 70001Private Const PROCESSOR_ARM720 As Long = 1824Private Const PROCESSOR_ARM820 As Long = 2080Private Const PROCESSOR_ARM920 As Long = 2336Private Const PROCESSOR_HITACHI_SH3 As Long = 10003Private Const PROCESSOR_HITACHI_SH3E As Long = 10004Private Const PROCESSOR_HITACHI_SH4 As Long = 10005Private Const PROCESSOR_INTEL_386 As Long = 386Private Cons

Windows操作系统消息大全使用详细介绍

ztw — 2007-04-29 22:14:00

消息，就是指Windows发出的一个通知，告诉应用程序某个事情发生了。例如，单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的，这个记录中包含了消息的类型以及其他信息。例如，对于单击鼠标所产生的消息来说，这个记录中包含了单击鼠标时的坐标。这个记录类型叫做 TMsg，　　它在Windows单元中是这样声明的：　　type 　　TMsg = packed record 　　hwnd: HWND; / /窗口句柄　　message: UINT; / /消息常量标识符　　wParam: WPARAM ; // 32位消息的特定附加信息　　lParam: LPARAM ; // 32位消息的特定附加信息　　time: DWORD; / /消息创建时的时间　　pt: TPoint; / /消息创建时的鼠标位置　　end; 　　消息中有什么？　　是否觉得一个消息记录中的信息像希腊语一样？如果是这样，那么看一看下面的解释：　　hwnd 32位的窗口句柄。窗口可以是任何类型的屏幕对象，因为Win32能够维护大多数可视对象的句柄(窗口、对话框、按钮、编辑框等)。　　message 用于区别其他消息的常量值，这些常量可以是Windows单元中预定义的常量，也可以是自定义的常量。　　wParam 通常是一个与消息有关的常量值，也可能是窗口或控件的句柄。　　lParam 通常是一个指向内存中数据的指针。由于W P a r a m、l P a r a m和P o i n t e r都是3 2位的，　　因此，它们之间可以相互转换。　　WM_NULL = $0000; 　　WM_CREATE = $0001; 　　应用程序创建一个窗口　　WM_DESTROY = $0002; 　　一个窗口被销毁　　WM_MOVE = $0003; 　　移动一个窗口　　WM_SIZE = $0005; 　　改变一个窗口的大小　　WM_ACTIVATE = $0006; 　　一个窗口被激活或失去激活状态；　　WM_SETFOCUS = $0007; 　　获得焦点后　　WM_KILLFOCUS = $0008;

中国政府发表《2006年美国的人权纪录》

ztw — 2007-03-09 20:09:00

中新网3月8日电中国国务院新闻办公室今天发表《2006年美国的人权纪录》，以回应美国国务院6日发表的《2006年国别人权报告》对中国人权状况的肆意歪曲和无理指责。这是中方针对美国一年一度的国别人权报告连续第8年发表美国的人权纪录。以下为《2006年国别人权报告》全文—— 2006年美国的人权纪录国务院新闻办公室 2007年3月8日 2007年3月6日，美国国务院发表《2006年国别人权报告》，再次对包括中国在内的世界190多个国家和地区的人权状况进行责难，却对自身的人权问题避而不谈。为了让世界人民更好地了解美国的人权纪录，推进国际人权事业，我们特发表《2006年美国的人权纪录》。一、关于生命、财产和人身安全美国暴力犯罪极其严重，危及人民的生命、财产和人身安全。据美国司法部2006年9月10日公布的报告，2005年，美国暴力犯罪案件总量为520万起，比上年增加2.5%，增幅达到15年来最高水平。12岁及以上居民共经历了近2300万起犯罪案件，其中每1千人有

李肇星外长答问妙语摘录

ztw — 2007-03-06 22:52:00

我认为历史认识应该是一种强大的进步的力量，而不应该成为拖后腿的包袱。真理往往是最朴素的，以史为鉴，面向未来，就是最简朴、最实在的解决问题的办法。在日本美丽的城市，也是很古老的城市京都郊区一个寺庙里，我见过这样几个汉字，叫“大道无遮拦”，我当时的联想就是中日两国人民世世代代友好下去，这就是一条康庄大道，它的发展是任何力量都不能阻挡的。世界上没有什么东西比和平更加值得珍惜、更加可贵。能为世界和平尽点力，能为自己的国家多交些朋友，也是人生的幸福和人生的责任。我是非常喜欢我们的宝岛——台湾，到了什么地方都会经常联想到我们的美丽台湾岛。比如有一次我去西宁出差，在青海省看到一座山叫日月山，我立即想到的就是咱们台湾岛上的日月潭，觉得它们就像兄妹俩或者姊妹俩。我认为一个人能成为人才，最基本的一点是要像爱自己的母亲一样热爱自己的祖国。一个热爱祖国的人，也才会热爱人民，热爱自己的人民，也热爱全人类的进步事业。我特别高兴有机会和你和其他各位记者分享我这次访问印度的幸福感。我到了什么地方？每一个中国小孩都向往的地方，就是唐僧他到过的地方，就是印度的纳兰达。我在那儿呆了一天一夜，心情无比愉快，觉得自己突然又变成了一个热爱学习的小学生。我发现瑞典的天空星星那么“拥挤”，好像天空都难以承担它们的重量了，我就特别羡慕。中国了解自己的情况，知道自己是一个最大的发展中国家，但也知道自己存在着许多困难和新的挑战。李肇星记者会纵论中国外交与天下大势李肇星：胡锦涛主席再次访俄内容会非常丰富胡锦涛主席将应普京总统的邀请，再次访问俄罗斯，访问的内容会“非常丰富”。今年是俄罗斯的“中国年”，将举办大约２００项活动，中俄两国最高领导人、两国政府、两国有关部门和人民正在共同努力，要让中俄“世代友好”更加深入人心，提升中俄战略协作伙伴关系的水平，促进两国共同发展，也为世界的和平与发展作出新的贡献。温家宝访日对推进和规划两国合作具重大意义应安倍首相邀请，温家宝总理将于４月对日本进行正式访问，这是中国总理时隔７年再次访日，对推进和规划两国各领域的合作有重大意义。李肇星说，今年是中日邦交正常化３５周年，应该把

世纪情书的变换

ztw — 2006-12-18 15:31:00

"爱不受时光的捉弄，尽管红颜和皓齿难免时光的毒手，爱并不因瞬息的改变而改变，它巍然矗立，直到末日的尽头。"莎士比亚曾如此歌颂爱。如果爱是岁月河床中奔腾着的永不停息的河流，那么，那些积淀在河底下异常圆润美丽的鹅卵石，便是情书了。　　（一）世纪初叶　　吾至爱汝，即此爱汝一念，使吾勇于就死也。吾自通汝以来，常愿天下有情人都成眷属；然遍地腥云，满街狼大，称心快意，几家能够？司马青衫，吾不能学太上之忘情也。语云：仁者"老吾老以及人之老，幼吾幼以及人之幼。"吾以吾爱汝之心，助天下人爱其所爱，所以敢先汝而死，不顾汝也。汝体吾此心，于啼泣之余，亦以天下人为念，当亦乐牺牲吾身与汝身之福利，为天下人洪永福也。汝其匆悲。　　--林觉民《与妻书》（1911年3月）　　这是林觉民烈士在就义前夕写在白布方巾上的家书，也是他写给妻子的最后一封情书，表达出一位20世纪初的中国革命者在政治思想上接受了民主、自由的同时，却依然保留着"国家兴亡，匹夫有责"这种中国人的传统心态。　　（二） 20 年代　　我惟一的爱龙，你真得救我了！这几天的日子也不知怎样过的，一半是痴子，一半是疯子，整天昏昏的，悯悯的，只想着我爱你，你知道吗？早上梦醒来，套上眼镜，衣服也不换就到楼下去看信。照例是失望，那就好比几百斤的石子压上了心去，一阵子悲痛，赶快回头躲进了被窝，抱住了枕头叫着我爱的名字，心头火热的浑身冰冷的，眼泪就冒了出来，这一天的希冀又没了。说不出的难受，恨不得睡着从此不醒。做梦倒可以自由些。龙呀，你好吗？为什么我这心惊肉跳的一息总忘不了你，总觉得有什么事不曾做妥当或者你那里有什么事似的。龙呀，我想死你了，你再不救我，谁来救我？　　--徐志摩致陆小曼（ 1925年6月）　　是不是大肉麻了？许多人也许不会相信这竟是20世纪20年代的情书。20年代的中国，经过五四新文化运动的洗礼和冲击，作为个体的人开始觉醒，尤其像徐志摩这样深受西方近代自由主义文化熏染的知识分子，在爱情的私人园地中更鲜明地表现出了迥异于前辈人（如林觉民）的特点：热烈、大胆、直白。爱情就是爱情，某种意义上它可以是最高的、惟一的人生价值。　　（三） 50 年代　　我们有两种生活。政治生活和爱情生活。亲爱的，请不要忘记，我们的相爱是在延安毛主席的身旁，而我们的十周年，又是经过了几件艰辛。远征了无数高山大川，经

用VB编写入侵监听程序(下)

ztw — 2006-12-16 23:17:00

程序的代码以及说明如下： ‘本程序在VB6.0＋Windows2000下测试通过！Dim tmpstr As StringDim NOW_OUT As Integer ''总共出去连接的有几个WinsockPrivate Sub Command1_Click()ListPorts.AddItem txtADDPORT.TextEnd Sub Private Sub Command2_Click()On Error Resume NextIf Command2.Caption = "监听" ThenFor i = 0 To ListPorts.ListCount - 1Load Winsock1(i + 1) ''加载监听端口的winsock1数组控件Winsock1(i + 1).LocalPort = ListPorts.List(i) ''设定端口Winsock1(i + 1).Listen ''监听Next iCommand2.Caption = "停止"ElseFor i = 1 To Winsock1.Count - 1Unload Winsock1(i)Next iFor i2 = 1 To Winsock2.Count - 1Unload Winsock2(i2)Next i2Command2.Caption = "监听"End IfEnd Sub Private Sub Command3_Click()Unload MeEnd Sub Private Sub Form_Load()txtLOG.Text = "日志:" & vbCrLfNOW_OUT = 1End Sub Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)Load Winsock2(NOW_OUT) ''加载建立连接的Winsock2数组控件Winsock2(NOW_OUT).Accept requestID ''建立连接Winsock1(Index).CloseWinsock1(Index).Listen ''Winsock1继续监听NOW_OUT = NOW_OUT + 1 ''连接的控件累加myAddLog "来自" & Winsock1(I

用VB编写入侵监听程序(上)

ztw — 2006-12-16 23:15:00

上网的时候很容易遭到探测，一般探测你个人的入侵者技术不会高明到哪里去。所以根本不能称上黑客，所以本文就用入侵者来代替。他们对普通网民的扫描可以是多端口单IP的扫描或者多IP单端口扫描。前者是通过一些IP工具来取得你的IP，然后尝试利用端口扫描获取你的信息，看你的计算机有没有预先中了木马。然后通过网上的木马端口列表，来获得木马名称。用相应的客户端软件来连接到你的计算机。从而获得密码、以及你的秘密信息。后者则是通过利用如SuperScan等可以大范围扫描IP的软件，扫描打开特定端口的机器。比如，可以扫描打开7626端口的机器，看对方是否中了冰河。然后，入侵者就用客户端连接到服务器从而入侵你的计算机。这些扫描是简单的TCP的Connect扫描。所以无法避开防火墙的追踪。网民就可以利用天网等防火墙软件来获取对方的IP。相信很多DIY迷或者编程爱好者总是想拥有属于自己的类似的工具。本文就给你讲述如何用VB来获得探测你的入侵者的IP地址，然后……我可没有教你用蓝屏炸弹或者蜗牛炸弹去炸它哦。毕竟，我们没有入侵者的野心，本程序还可以让你监听80端口，来察看对方对你进行的常规扫描。要看懂本文，你需要有一定的VB基础。好了，废话少说，我们来看看本程序的基本原理：入侵者通过Connect本机的端口，然后通过是否成功，来获得信息。由于TCP的三次握手原理。他必定会留下自己的IP，我们就利用这一个原理来获得对方的IP。 Winsock控件的属性、方法和事件在我上次写的《.用winsock制作漏洞扫描器》一文中已经叙述过，这里就不再介绍。大家还一定记得RemoteHostIP和LocalPort属性吧。这就是对方的IP和自己的端口。聪明的你应该明白了吧。通过这两个属性就可以清楚的获得对方的IP地址和他正在扫描的本地端口。因为不可能一个端口只有一个人会扫描，所以本程序我们需要使用到控件数组。这个概念的描述大家可以查找MSDN。本程序的流程是：１、定义需要监听的端口２、装载一定数量的Winsock1控件，从需要监听的端口列表中获得数据。一一开启监听功能。（Listen）３、当某一个控

学好英语的18条黄金法则

ztw — 2006-12-09 14:42:00

1．What is language for? Some people seem to think it is for practicing grammar rules and learning lists of words--the longer the words the better. That’s wrong. Language is for the exchange of ideas, for communication. 语言到底是用来干什么的呢？一些人认为它是用来操练语法规则和学习一大堆单词——而且单词越长越好。这个想法是错误的。语言是用来交换思想，进行交流沟通的！2. The way to learn a language is to practice speaking it as often as possible. 学习一门语言的方法就是要尽量多地练习说。 3. A great man once said it is necessary to dill as much as possible, and the more you apply it in real situations, the more natural it will become. 一位伟人曾说，反复操练是非常必要的，你越多的将所学到的东西运用到实际生活中，他们就变的越自然。 4．Listening and imitating should always go together. Use the LIP method! Listen－Imitate－Practice! 听和模仿一定要同时做，使用“LIP”方法：听、模仿、操练！ 5. Use all your senses to learn English. You must hear English, read English, touch English, smell English, and taste English. Feel English with your heart. Immerse yourself in this language. Begin to think in English.运用一切感官学习英语。你必须听英语、说英语、触摸英语、闻英语，还要尝尝英语的味道。用心去感受英语。让自己沉浸在这门语言当中。学

女性入夜后的心理变化？

ztw — 2006-12-09 13:10:00

　如果你是男友，与恋人情意绵绵，却不知道如何真正走进她的心灵深处；如果你是丈夫，平淡的生活将婚姻充淡得像一杯白开水；如果你是单身的流浪者，像游魂一样游荡在午夜的大街上，为找不到自己的另一伴而黯然神伤，请认真阅读下面的文字，或许对你有所帮助：　　1.白天为了保护自己而隐藏肌肤，夜晚为了展现自己而裸露肌肤。　　女人到了夜晚，不但喜欢穿著薄薄的衣服，更是喜欢花花绿绿，大胆而新潮的服装，因为她们在无形中以服装来强调昼夜的不同，当然，她们也明白如何强调自己的魅力。　　2.白天虽然很正经，夜晚只喝了点酒，就会变得很大胆。　　没有什麽事能像酒醉一样能让女人忘怀白天的一切，微薄的烈酒可达到让她放松心情的目的。继而和她面对面的交谈，则她会敞开心扉，而且迟早会拿掉内心的障碍。心理上的陶醉是赢得女人芳心的王牌。　　3.在夜晚的"音"、"光"等小道具的刺激下，生理兴奋容易变成性兴奋。　　舞厅可以说是促使女性生理兴奋的最佳场所，在刺耳的大音响之下，男女随著音乐的旋律，热情的扭摆身体....会使兴奋高涨。这种兴奋一经挑起，就容易转变成性兴奋，也容易做出越轨的行为。而音乐的强烈节奏、光线造成的幻象和身体的跃动所造成的心理兴奋，再加上夜晚的『非日常性』所带来的陶醉状态。如此会使人的逻辑性思考能力减弱，感情也会变得更加亢奋。　　4.白天视汽车为交通工具，夜晚视汽车为醉心的床。　　有一位影评家说：『对年轻女子而言，汽车是要抛弃处女所用的床。』因为，汽车可谓只是属於他们二人的空间，而且其隐密性也不差，何况汽车可以任意移动，所以难免会刺激年轻人的性冲动。在汽车中可以给与女人相当的安全感，进而让她在无形中放开了心胸，并且难免会陶醉在彷如依偎於对方怀中的浪漫气氛里，而情不自禁。　　当汽车所含有的非日常性和夜晚的非日常性组合在一起的时候，汽车俨然成为会移动的『双人床』了。因为，在夜晚兜风的话，一者目的意识变得比较淡薄，二者看不到四周的景物，而在黑暗的小空间里(汽车)孤独感会使二人变得更亲近，而很快就会建立起『只属於二个人的』甜蜜世界了。　　5.白天是为他人而化妆，夜晚是为了创造另一个自己而化妆。　　夜晚的化妆可使女人踏入幻想的、感性的夜的世界，因为化妆是创造幻想的神秘武器，因此浓妆是很适合於夜晚的。到了夜晚会偏好化浓妆的女人，渴望著能够创造出另一个自我，此与戴了面具的男人能够疯狂的玩乐一样对夜晚存有幻想，而男、

帮您解复杂的非线性微分方程

ztw — 2006-12-06 18:28:00

我们通过多年研究,摸索出解复杂的非线性微分方程的普适方法,如“Thomas—Fermi方程”之类的非线性微分方程的解析解的获得问题。如果您有这方面的需求,请把题目发来,我们不日将给出答案,欢迎垂询(能给出解将适当收费)！江苏省涟水县教育局何沛平朱顶余 PC:223400 Tel:0517-2221673 2361347 E-mail:haa2321673@pub.hy.jsinfo.net

Fortran 与 VB 混合编程

ztw — 2006-12-06 18:26:00

Fortran 与 VB 混合编程 Fortran 与 VB 混合编程吕洪波(作者网页) 1 概述在DOS时代，许多水利专业程序用Fortran语言编制，随着WINdows时代的来临，面向对象的编程语言如VB、VC等已成为主流，尤其是VB以其简单实用成为许多水利工作者首选工具，而以前大量Fortran程序重新编写，困难重重，充分利用前人程序资源，较好的解决办法是Fortran 与VB混合编程。 2 操作平台 Fortran PowerStation 4.0,VB6.0(也可以是Visual Fortran，但本人手头没有，其接口约定不同，但类似) 3 主要方法（1）利用动态链接库，实现多语言混合编程。（2）VB直接调用Fortran执行文件。 4 方法说明 4.1利用动态链接库方法：（1）在Fortran PowerStation 4.0下，编制可供VB调用的.dll文件，示例代码： subroutine forcx(a,b,c) !ms$if .not. defined(linkdirect) !ms$attributes dllexport :: HWJSVB !ms$endif integer a,b,c a=b+c end （2）在VB下编写如下代码： Private Declare Sub forcx B Lib "dll.dll" Alias "_ FORCX @12" (ByRef a As integer, ByRef b As integer, ByRef c As integer) Sub callfor() Dim a as integer, b as integer ,c as integer B=1 : c=2 Call forcx(a,b,c) End Alias 的具体格式：“_函数名（全部大写）@字节数”，其中函数名是.dll中函数名，特别注意须全部大写，字节数指函数中的变量的字节总和，整形为4字节，共12字节。 4.2 直接调用执行文件法：（1）这是一种最简单明了的办法，很使用，不必修改原程序，接口可通过读取数据文件方法处理，VB中直接调用shell函数即可。 Shell(pathname[,windowstyle]) Shell 函数的语法含有下面这

C语言程序设计入门学习六部曲

ztw — 2006-12-06 18:12:00

说明：在使用本方法之前要先阅读C语言的相关内容，要初步掌握相关知识的要点，然后按下述方法学习，可以达到理解、巩固、提高C语言知识和提高程序调式能力的目的。在程序开发的过程中，上机调试程序是一个不可缺少的重要环节。“三分编程七分调试”，说明程序调试的工作量要比编程大得多。这里以如何上机调试C程序来说明C语言的学习方法.第一步、验证性练习在这一步要求按照教材上的程序实例进行原样输入，运行一下程序是否正确。在这一步基本掌握C语言编程软件的使用方法（包括新建、打开、保存、关闭C程序，熟练地输入、编辑C程序；初步记忆新学章节的知识点、养成良好的C语言编程风格）。使用《Turbo C/C++ for Windows 集成实验与学习环境》软件可以很方便地看着软件集成的《C语言入门教程》输入练习其中的程序例题。具体使用方法参见软件帮助部分。初学者最容易犯的错误是： 1、没有区分开教材上的数字1和字母l，字母o和数字0的区别，造成变量未定义的错误。另一个易错点是将英文状态下的逗号,分号;括号()双引号""输入出入成中文状态下的逗号，分号；括号（），双引号“”造成非法字符错误。 2、C语言初学者易犯语法错误：使用未定义的变量、标示符（变量、常量、数组、函数等）不区分大小写、漏掉“；”、“{”与“}”、“（”与“）”不匹、控制语句（选择、分支、循环）的格式不正确、调用库函数却没有包含相应的头文件、调用未C声明的自定义函数、调用函数时实参与形参不匹配、数组的边界超界等。 3、修改C语言语法错误时要注意以下两点：（1）、由于C语言语法比较自由、灵活，因此错误信息定位不是特别精确。例如，当提示第10行发生错误时，如果在第10行没有发现错误，从第10行开始往前查找错误并修改之。（2）、一条语句错误可能会产生若干条错误信息只要修改了这条错误，其他错误会随之消失。特别提示：一般情况下，第一条错误信息最能反映错误的位置和类型，所以调试程序时务必根据第一条错误信息进行修改，修改后，立即运行程序，如果还有很

用VB操作注册表

ztw — 2006-12-01 12:42:00

登录数据库Registry的Value的存取--Default value的存取 1、Default value的存取我曾经给我的朋友开了个玩笑,他最讨厌喜欢windows中自带的一个扫雷的游戏了.我呢,编写了一个小程序叫他帮我测试一下有没有运行错误,他欣然接受了,结果在执行完毕之后,那个程序自己消失了[那段时间我正在研究"木马冰河",对程序的自销毁技术很感兴趣,想着法子也实现了这个功能.]以后他的机器一启动就要运行扫雷这个程序,气得他暴跳如雷......。其实这样的程序很容易实现的。我们在讲述了有关函数后将给出这个程序的完整例子涉及到的API函数讲解： RegQueryValue VB声明Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long hKey: Key HandlelpSubKey:SubKey名称路径lpValue:返回读取的Default ValuelpcbValue:传入lpValue参数的长度，若成功读取了默认值default value,则返回default value字符串的长度(含chr(0))这个和C语言中字符串的处理相似，都是以chr(0)作为结束符。返回值: =0,表示成功；≠0,表示失败。函数调用实例:'自编函数GetDefaultValue'读取Default Value，若成功，返回true 'Example:'Dim S As String, ret As Boolean 'ret = GetDefaultValue(HKEY_CLASSES_ROOT, ".txt", S) ' 如果 ret 为 True(与我们正常的函数调用习惯相同)，則 S 等於读取之資料 ' 如果 "HKEY_CLASSES_ROOT\.txt" 沒有缺省值, 則 S = "" Function GetDefaultValue(ByVal hKey As Long, ByVal Subkey As String, Value As String) A

26个细节助你赢得好人缘

ztw — 2006-11-29 20:40:00

1.长相不令人讨厌，如果长得不好，就让自己有才气；如果才气也没有，那就总是微笑。　　　　　　　　2.气质是关键。如果时尚学不好，宁愿纯朴。　　　　　　　　　　　　3.与人握手时，可多握一会儿。真诚是宝。　　　　　　　　　　　　4.不必什么都用“我”做主语。　　　　　　　　　　　　5.不要向朋友借钱。　　　　　　　　　　　　6.不要“逼”客人看你的家庭相册。　　　　　　　　　　　　7.与人打“的”时，请抢先坐在司机旁。　　　　　　　　　　　　8.坚持在背后说别人好话，别担心这好话传不到当事人耳朵里。　　　　　　　　　　　　9.有人在你面前说某人坏话时，你只微笑。　　　　　　　　　　　　10.自己开小车，不要特地停下来和一个骑自行车的同事打招呼。人家会以为你在炫耀。　　　　　　　　　　　　11.同事生病时，去探望他。很自然地坐在他病床上，回家再认真洗手。　　　　　　　　　　　　12.不要把过去的事全让人知道。　　　　　　　　　　　　13.尊敬不喜欢你的人。　　　　　　　　　　　　14.对事不对人；或对事无情，对人要有情；或做人第一，做事其次。　　　　　　　　　　　　15.自我批评总能让人相信，自我表扬则不然。　　　　　　　　　　　　16.没有什么东西比围观者们更能提高你的保龄球的成绩了。所以，平常不要吝惜你的喝彩声。　　　　　　　　　　　　17.不要把别人的好，视为理所当然。要知道感恩。　　　　　　　　　　　　18.榕树上的“八哥”在讲，只讲不听，结果乱成一团。学会聆听。　　　　　　　　　　　　19.尊重传达室里的师傅及搞卫生的阿姨。　　　　　　　　　　　　20.说话的时候记得常用“我们”开头。　　　　　　　　　　　　21.为每一位上台唱歌的人鼓掌。　　　　　　　　　　　　22.有时要明知故问：你的钻戒很贵吧！有时，即使想问也不能问，比如：你多大了？　　　　　　　　　　　　23.话多必失，人多的场合少说话。　　　　　　　　　　　　24.把未出口的“不”改成：“这需要时间”、“我尽力”、“我不确定”、“当我决定后，会给你打电话”…… 　　　　　　　

用C实现的爱情宣言

ztw — 2006-11-25 22:30:00

#include "stdio.h"#include "graphics.h"#include "time.h"#include "math.h"#define N 2#define TIME 0.8/*微粒的的运动时间，TIME/步，每一步长为25个单位*/void *buf[N];struct{int x,y;} lizi[]={{0,0},{75,75}};void alter_place_lizi(int *x,int *y,int key)/*根据随机方向改变粒子的方位*/{switch(key){case 0:case 1:case 2:*x-=25;break;case 4:case 5:case 6:*x+=25;break;}switch(key){ case 0:case 7:case 6:*y-=25;break;case 2:case 3:case 4:*y+=25;break;}if(*x<0) *x=0;if(*x>250) *x=250;if(*y<0) *y=0;if(*y>250) *y=250;}void make_graphics()/*画方框*/{int i,j,driver=VGA,mode=VGAHI;initgraph(&driver,&mode,"");setbkcolor(YELLOW);cleardevice();setcolor(LIGHTRED);setlinestyle(0,0,1);for(i=0;i<=10;i++)line(0,25*i,250,25*i);for(i=0;i<=10;i++)line(25*i,0,25*i,250);} void make_circle(int x,int y,int n)/*根据提供的离子所在方位画圆*/{int size;setcolor(LIGHTRED);setlinestyle(0,0,1);setfillstyle(1,10);circle(x+25/2,y+25/2,25/2);floodfill(x+25/2,y+25/2,12);size=imagesize(x,y,x+25,y+25);buf[n]=(void *)malloc(size);/*保存每一个圆*/}void sport(int *