[不死猫出品]原创vlisp直接调用WINDOWS API (核心秘密揭晓)

jxlsp

这样你的气泡程序就可以不用VBS了.

nonsmall

在一楼提供了思路

大家可以发表自己的看法

27012701

摘要 本文以Visual Basic 为例，介绍了在使用调用外部程序的办法实现以下五种功能的方法：1）关机和重新启动；2）使用缺省（默认）的程序打开文件或链接； 3）调用"资源管理器"； 4）复制和移动文件夹；5）把DOS程序的屏幕显示信息写入文件。
关键词 Visual Basic, Shell 函数，外部程序

调用调用API 函数可直接使用Windows 底层资源，因此功能强大。然而API函数使用较复杂，易出错。本文将以Visual Basic 6.0中的shell 函数为例，详细说明调用外部程序实现一些windows 高级功能的方法。
一、关机和重新启动Windows
在"开始-运行"对话框或DOS窗口中输入 rundll.exe user.exe,exitwindowsexec命令，Windows 就会重新启动；输入 rundll.exe user.exe,exitwindows，机器关闭。
所以您在Visual Basic 中使用下面两个命令来实现重起和关机：
Shell "rundll.exe user.exe,exitwindowsexec", vbHide '重新启动
Shell "rundll.exe user.exe,exitwindows", vbHide '关闭
二、使用缺省（默认）的程序打开文件或链接
在Windows的Command子目录中有一个Start.exe, 在这个命令后加上一个文件名参数，该文件即可用缺省程序打开。所以在Visual Basic 中可使用下面的代码：
Dim FiletoOpen$
FiletoOpen= "system.ini"
Shell "Start.exe " & FiletoOpen, vbHide
注意：1)如果变量FiletoOpen的值为包含长文件名的字符串，以上第三行应为
Shell "Start.exe " & Chr(34) & FiletoOpen & Chr(34) ' Chr(34) 为双引号。
这是因为当参数中的长文件名含有空格时，程序会认为空格以前的部分子符串为一个参数，所以会产生找不到文件的错误。例如要用Winword.exe 打开"C:\my documents\mydoc.doc" 时，如果在 "运行"对话框中输入start.exe c:\my documents\mydoc.doc, 系统寻找的文件是 c:\my 和 documents\mydoc.doc两个文件，所以会出错。正确的命令应当是start.exe "c:\my documents\mydoc.doc"
2）在上面第三行中，Start.exe 后别忘了留空格。
另外程序员也常常希望用户能点击软件上的链接而直接打开自己的主页或给自己写信。用下面的方法可以不另外添加控件而实现这种功能。
Dim url$，email$
url="nwdonkey.uhome.net"
email="mailto:nwdonkey@371.net"
shell "start.exe " & url, vbHide
shell "start.exe " & email, vbHide
三、调用"资源管理器"
用下面的命令可调用Windows资源管理器，并打开指定的文件夹：
Dim PathtoOpen$
PathtoOpen = "c:\my documents"
Shell "explorer.exe " & PathtoOpen, vbNormalFocus
四、复制和移动文件夹
是不是很怀念强大的DOS命令？其实所有的DOS外部命令所能实现的功能，您都能在VB中通过Shell函数来实现。比如您要把一个子目录的包含下一级目录的所有文件复制到另一个位置，可使用下面的代码：
If Dir$("c:\mydos", vbDirectory) = "" Then MkDir "c:\mydos" '在硬盘上新建一个c:\mydos的文件夹。
Shell "xcopy.exe c:\windows\command\*.* c:\mydos/s/e", vbHide
Shell "explorer.exe " & "c:\mydos", vbNormalFocus
同样我们也以用shell 来调用move.exe来实现来实现文件或文件夹的移动。
说明：此方法仅限于外部DOS命令，并需要把参数中的长文件名转换为8.3制文件名，转换似乎可以用API函数实现，我们自己编写了不调用API函数实现这一功能的函数，您如果需要请到http://go.163.com/
~nwdonkey/vb/ 去下载。
Contributor: NorthWest Donkey
五、把DOS程序的屏幕显示信息写入文件
Shell函数不支持DOS内部命令，要想在VB 中使用DOS内部命令，就得使用迂回的办法：先把DOS命令写到一个BAT文件中，然后再用Shell函数调用该BAT文件。如果您是编写DOS批处理的高手，则完全可以先编写好BAT文件，然后再用Shell 函数来调用。另外，大家还记得DOS命令中的管道命令符吧？ 例如〈和〉号可以把一个文件的内容传递到另一个程序中去，也可把DOS应用程序的屏幕输出写到一个文件中去。例如用下列代码可把DOS命令copy的帮助信息写到一个文件中去。
Open "c:\test.bat" For Output As #1 '建立批处理文件
Print #1, "copy/?>c:\copyhelp.txt"
Print #1, "@exit"
Close #1
Shell "c:\test.bat", vbHide
Shell "start.exe c:\copyhelp.txt", vbHide
注意：'test.bat 中最后一句必须是@exit，不然经Shell调用后的批处理文件无法从内存中退出。
这种方法可以把dos 程序中显示在屏幕上的信息写入一个文件，因此对编写一些dos应用程序的windows 版本特别有用。
以上以Visual Basic 为例，讲述了巧用Shell函数实现一些一般不容易实现的功能的方法。一般情况下，其他编程语言也都提供了类似的函数接口，在这些编程环境下也可以轻易实现上述功能。对本文，您如有什么问题请寄信到 nwdonkey@371.net 或到我的主页http://nwdonkey.uhome.net/ 上留言。

oyxx1023

楼上的没什么用.

关键是要能处理返回值.

coolpoom

顶

nonsmall

以前借助第三方调用API的程序

API需要封装好 只能调用

无法根据自己的需要临时添加API

现在可以根据需要

即时生成需要的API调用函数(用lisp拆解API声明 自动转为lisp函数定义)

以下为今天测试成功样例:

"Declare Function SetCursorPos Lib \"user32\" (ByVal x As Long, ByVal y As Long) As Long"

自动生成函数 (SetCursorPos var0 var1)

使用(SetCursorPos 200 300);设置鼠标位置

Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

自动生成函数 (PlaySound var0 var1 var2)

使用(PlaySound "C:\\WINDOWS\\Media\\Windows XP 启动.wav" 1 1);播放WAV文件

oyxx1023

用什么东西去执行这个生成的函数?

jxlsp

用他自己写的Declare Function

oyxx1023

jxlsp发表于2008-12-31 8:45:00用他自己写的Declare Function

屁,从上面来看,Declare Function是属于API函数的中的词句.

nonsmall

不用急

都几年没讨论的问题了

一楼我再给个提示吧