本文目录一览：
请给一些Windows中 *** 编程的资料
为一个不断进取的编程者,我们常常不满足于编程语言所提供的一般功能,总是希望能够实现一些特殊的功能,这有时不但是我们程序的要求,有时也是编程者心理上需要(试想，还会有什么比在深夜中巧妙解决一个难题而更令人兴奋呢？)。VisualBasic，做为一个当前更流行的快速编程环境，就给我们提供了实现这些目标的平台，事实上，它无限扩展的API接口可以实现所有WINDOWS下可以实现的功能。然而对于初学者来说，“浩瀚“的API函数总是显得那么神奇与不可琢磨，因此在实际应用过程中不能够灵活应用。下面我将结合两个小例子来示范介绍VB中调用API函数的步骤和功能,并总结说明在实际工作中如何提高这方面的技巧。例子在WINDOWS98下采用VB6.0编译。
一．限制鼠标的移动
---- 有时我们的软件要求用户在未完成某一任务时，鼠标不能移出当前活动控件，换句话就是将鼠标限制在控件的内部，直到任务完成或用户中断为止。这个功能借助API函数实现起来思路很清楚，代码也很简洁。其思路是先确定当前鼠标的位置；然后确定当前活动控件的大小；最后将鼠标限制在活动控件内。（下面忽略项目建立等过程）
---- 1．建立一个新项目：新窗体为form1,在form1上添加一个commandbutton,设置其Name=CMButton1；Caption=“将鼠标限制在此按钮中“
---- 2．拷贝API函数和POINTAPI结构：打开VB6.0自带的API浏览器，调入WIN32API.txt文件，复制以下结构和函数声明到form1的声明部分：
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function ClientToScreen Lib
“user32“ Alias “ClientToScreen“ (ByVal
hwnd As Long, lpPoint As POINTAPI) As Long
‘用来确定当前鼠标的位置
Private Declare Function ClipCursor Lib
“user32“ Alias “ClipCursor“ (lpRect As Any)
As Long ‘用来限定当前鼠标的活动范围
---- 3．定义一个通用过程ConfineTo
Public Sub ConfineTo (myCtl As Object)
On Error Resume Next
Dim tmpRect As RECT
Dim pt As POINTAPI
With myCtl
If TypeOf myCtl Is Screen Then ‘锁定在屏幕范围内
tmpRect.Left = 0
tmpRect.Top = 0
tmpRect.Right = (.Width \ Screen.TwipsPerPixelX)
tmpRect.Bottom = (.Height \ Screen.TwipsPerPixelY)
Elseif TypeOf myCtl Is form ‘锁定在窗体范围内
tmpRect.Left = (.Left \ Screen.TwipsPerPixelX)
tmpRect.Top = (.Top \ Screen.TwipsPerPixelY)
tmpRect.Right = (.Left + .Width) \ Screen.TwipsPerPixelX
tmpRect.Bottom = (.Top + .Height) \ Screen.TwipsPerPixelY
else
pt.X = 0
pt.Y = 0
Call ClientToScreen(.hWnd, pt)
‘获取当前控件在屏幕上的位置
tmpRect.Left = pt.X
‘保存当前控件位置
tmpRect.Top = pt.Y
pt.X = .Width
pt.Y = .Height
Call ClientToScreen(.hWnd, pt)
tmpRect.Bottom = pt.Y
tmpRect.Right = pt.X
End If
Call ClipCursor(tmpRect)
End With
End Sub
---- 4．在 CMButton1_Click()中加入以下代码
Static Cliped As Boolean
‘静态变量用来控制状态切换
If Not Cliped Then
ConfineTo Cmbutton1
Cliped = True
Else
ConfineTo Screen ‘取消鼠标限制
Cliped = True
End If
---- 5. 运行后，鼠标点击cmbutton1,此时鼠标只能被锁定在此按钮内部，再次点击按钮，限制取消。
二．创建临时文件
---- 临时文件用来保存软件运行过程中的临时变化，这对于熟悉WORD等软件的人来说，经常会遇到。那么临时文件是如何产生的呢，其实很简单，只需要一个API函数就可以。
---- 1．拷贝声明函数( *** 同前)
Private Declare Function GetTempFileName Lib “kernel32“ _
Alias “GetTempFileNameA“ (ByVal lpszPath As String, _
ByVal lpPrefixString As String, ByVal wUnique As Long, _
ByVal lpTempFileName As String) As Long
参数定义如下：
lpszPath ＝传入保存临时文件的路径 ，如“C:\mytemp“
lpPrefixString=传入临时文件名开始的前三个字母，
起到帮助识别临时文件来源的作用。
wUnique ＝0 ,windows随机产生文件名；否则安其值定义文件名。
lpTempFileName=返回随机文件名
---- 2.返回临时文件名
Private Function GenTempName(sPath As String)
Dim sPrefix As String
Dim lUnique As Long
Dim sTempFileName As String
If IsEmpty(sPath) Then sPath = “c:\temp“
sPrefix = “TVB“
lUnique = 0 ‘windows随机给名
sTempFileName = Space$(100)
GetTempFileName sPath, sPrefix, lUnique, sTempFileName
sTempFileName = Mid$(sTempFileName, 1,
InStr(sTempFileName, Chr$(0)) - 1) ‘去掉多余空格
GenTempName = sTempFileName
End Function
---- 3．将下面代码加入到form1_click()事件中
MsgBox GenTempName(“c:\temp“)
---- 4.运行，鼠标点击form,弹出msgbox,显示生成“c:\temp\TVB724.tmp“文件，用文件管理器查看，在c:\temp下有TVB724.tmp 文件，长度为0K。
---- 需要注意的是，传入的路径必须是有效路径，否则GenTempName函数返回0，lpTempFileName中也没有临时文件名。
三.结束语
---- 从上面可以看出，API函数的确简单高效，但也充满一些看似高深的变量而使人却步。我们不禁会问，究竟什么时候要用到API函数？具体哪些函数可以解决我的问题？，那些函数中的变量都代表什么？其实对这些问题，即使对一个VB高手也难给出明确的回答，因为API函数库实在太庞大了，每一个人最终只能熟悉其中的一小部分（这也可能是调用API的文章层出不穷的原因吧）。总结自己的一点经验，我觉得应该注意以下几点。
---- 1．熟练掌握VB基本技巧，了解其所能所不能，这是最基本的要求。
---- 2．了解WINDOWS内部控制机理，这样对一些复杂的问题就可以逐步分析其调用机制,初步确定采用哪部分的API函数来解决问题。
---- 3．案头必备一本最新的VB版的WINDOWS API 大全，推荐机械工业出版社的 。书中给出了每一个VB可以调用的API函数的详细说明，可以帮助精确了解所需要的API函数的变量声明。
---- 4．多看别人的程序。报纸杂志，尤其是网上这方面的文章数不清。这是最快的 *** 。
---- 5．随用随查。永远不要在用不到的函数上浪费宝贵的时间
求九一八讲座听后感
难忘九一八
时间不能使记忆风化，永远记着九一八。 整理了关于九一八事变作文范文精选800字，希望为各位学生提供服务。
那天才一上线，笑笑就兴奋的告诉我，站长让他代管一段网站，说自己正忙于联系全国知名黑客。我问怎么啦，他说，笨！今天九一八，肯定有活动嘛！
九一八？我把鼠标停在屏幕右下角，真的是九月十八日。我沉吟了一会儿，九一八，你有多久没在我记忆中浮现了？
那是一个中华民族不能忘却的日子，从那一天起，数以亿计的中华人民被一群岛居矮子们驱逐蹂躏，历经非人的折磨。而在今天的九月十八日，这个堪称中国人民屈辱日的日子里，当手机里都堆满了提前预祝中秋节快乐的时候，竟没有人提醒我一下，这是一个怎样的纪念日。
仿佛大家都忘了——包括我。仿佛大家都习惯了被人称为宽容大度的民族，仿佛那只是个平淡无奇的日子，活该倏忽而过。
只有几个黑客，还叨叨念着这九一八，他们的活动是什么，我不得而知。无非是入侵几个日本网站，留下几句豪言壮语。去年小泉参拜靖国神社，就有黑客发起倡议去攻击日本的 *** 网站，大家约定好了时间一齐动手，我也参与了。那夜不知道有多少黑客加入，凌晨三点多的时候我看见哪网站已临近崩溃，我在一刹那间有了一丝 *** ，过后却是深深的失落。这并不能改变什么，还不如身体力行的 *** 日货。毕竟这不是一件能长期做的事。
*** 上经常流传几篇狂骂日本的文章，读了似乎也很痛快。它们大多也跟《举起手来》似的拿日本人开涮——近年来被娱乐化的不只有鲁迅，抗日战争也成了数大体系之一。侵略军被丑化、愚化、非人化，更大限度的迎合国人的某种心理。难道中国就是被这么一群人轻易拿下的吗？贬低对手的同时也是在矮化自身。
日本还没有摆正姿态去面对历史，而我们仿佛也已麻木不仁。九月十八已过去两星期，忘却的救主快要降临了吧，谨以此文献给九一八，愿它不再被人漠视。
时间不能使记忆风化，永远记着九一八。
黑客的著名人物
1．Kevin Mitnick
凯文·米特尼克（Kevin David Mitnick，1964年美国洛杉矶出生），有评论称他为世界上“头号电脑骇客”。这位“著名人物”现年不过50岁，但其传奇的黑客经历足以令全世界为之震惊。
2．Adrian Lamo
艾德里安·拉莫（Adrian Lamo）
Adrian Lamo：历史上五大最著名的黑客之一。Lamo专门找大的组织下手，例如破解进入微软和《 *** 》。Lamo喜欢使用咖啡店、Kinko店或者图书馆的 *** 来进行他的黑客行为，因此得了一个诨号：不回家的黑客。Lamo经常发现安全漏洞，并加以利用。通常他会告知企业相关的漏洞。
3．Jonathan James
乔纳森·詹姆斯(Jonathan James），历史上五大最著名的黑客之一。
16岁的时候James就已经恶名远播，因为他成为了之一个因为黑客行径被捕入狱的未成年人。他稍后承认自己喜欢开玩笑、四处闲逛和迎接挑战。
4．Robert Tappan Morrisgeek.
Robert Tappan Morrisgeek.美国历史上五大最著名的黑客之一。
Morris的父亲是前美国国家安全局的一名科学家，叫做Robert Morris。Robert是Morris蠕虫病毒的创造者，这一病毒被认为是首个通过互联网传播的蠕虫病毒。也正是如此，他成为了首个被以1986年电脑欺骗和滥用法案起诉的人。
5．Kevin Poulsen
凯文·普尔森，全名凯文·李·普尔森（Kevin Lee Poulsen），1965年出生于美国的Pasadena。他常使用马甲“Dark Dante（黑暗但丁）”作案，因攻击进入洛杉矶电台的KIIS-FM *** 线而出名，这也为他赢得了一辆保时捷。 Richard Stallman--传统型大黑客，Stallman在1971年受聘成为美国麻省理工学院人工智能实验室程序员。
Ken Thompson和Dennis Ritchie--贝尔实验室的电脑科学操作组程序员。两人在1969年发明了Unix操作系统。
John Draper（以咔嚓船长，Captain Crunch闻名）--发明了用一个塑料哨子打免费 ***
Mark Abene（以Phiber Optik而闻名）--鼓舞了全美无数青少年“学习”美国内部 *** 系统是如何运作的
Robert Morris--康奈尔大学毕业生，在1988年不小心散布了之一只互联网病毒“蠕虫”
2002年，对于曾经臭名昭著的计算机黑客凯文·米特尼克来说，圣诞节提前来到了。这一年，的确是Kevin Mitnick快乐的一年。不但是获得了彻底的自由（从此可以自由上网，不能上网对于黑客来说，就是另一种监狱生活）。而且，他还推出了一本刚刚完成的畅销书《欺骗的艺术》（The Art of Deception: Controlling the Human Element of Security）。此书大获成功，成为Kevin Mitnick重新引起人们关注的之一炮。
Jargon File中对“黑客”一词给出了很多个定义，大部分定义都涉及高超的编程技术，强烈的解决问题和克服限制的欲望。如果你想知道如何成为一名黑客，那么好，只有两方面是重要的。（态度和技术）
为什么新概念英语讲座的可可网站不能打开了？？请问哪里还有免费的新概念英语视频课程讲座？裕兴版的！
前段可可英语最近受到了黑客的围攻的，怕网友被病毒感染 ，特地断网维护的