[公告]：vlisp直接使用WINDOWS API已经实现 提供思路+个提示

zhang8755

(setq *wsh (vlax-create-object "MSScriptControl.ScriptControl"))
(vlax-put-property *wsh 'Language  "vbscript" )  
(setq vbcode   "sub showhello()
                                msgbox   \"hello\"
                                end  sub"  )
(vlax-invoke *wsh 'AddCode vbcode)
(vlax-invoke *wsh 'Run "showhello")

初步探索，采用vbs解释器

nonsmall

很好啊
楼上的思路请继续
谁能帮助VBS ???

zhang8755

再提示一下  看来不对 ：（

wujimmy

采用rundll32.exe命令
rundll32.exe user32.dll MessageBoxA hi

eachy

看到一篇文章，没看懂！

[iframe h=600 w=100%]http://blog.csdn.net/fupozsl/archive/2007/11/27/1904080.aspx[/iframe]

雄啸

这是通过地址调用api函数。
不过ccall等应该是装上脚本魔术师才会有
19楼的思路可发掘

nonsmall

大家多探讨

我有用到这句话

(setq WshShell (vlax-create-object "WScript.Shell"))

eachy

WScript 的 Run 和 采用rundll32.exe命令
rundll32.exe user32.dll MessageBoxA hi 结合？

wujimmy

http://msdn.microsoft.com/en-us/library/bb687915.aspx


Calling DLL Functions and Commands from VBA
You can access DLL functions and commands in VBA by using the Declare statement. This statement has one syntax for commands and one for functions.

Syntax 1 – commands

Copy Code
[Public | Private] Declare Sub name Lib "libname" [Alias "aliasname"] [([arglist])]Syntax 2 – functions

Copy Code
[Public | Private] Declare Function name Lib "libname" [Alias "aliasname"] [([arglist])] [As type]

nonsmall

Lisp 本身还有一个可以导入类库的函数只是我不大会用

TYEEXDD

大家顶起来啊，顶出老猫的绝学
老猫的绝活太多了，好歹露一点给我们撒
老猫现在还搞出了lisp直接调用VBA的对话框 不得了啊 都是划时代的变革啊

wujimmy

楼主是不是用了第三方的DLL文件?

http://hi.baidu.com/lengie/blog/ ... 55838ea1ec9c44.html


vbs 调用 Win32 API2007-03-20 14:26Option Explicit
Dim UserWrap
Set UserWrap = CreateObject("DynamicWrapper")

' Call MessageBoxA(), first register the API function
UserWrap.Register "USER32.DLL", "MessageBoxA", "I=HsSu", _
                  "f=s", "R=l"
' now call the function
UserWrap.MessageBoxA Null, "MessageBox (ANSI)", _
         "From DynaWrap Object", 3

Readme.txt

This is the dynacall.dll that I described as "bringing back the Declare
statement"   in VBScript. Basically it will allow you to call functions
in other dlls...like any of the win32 api functions. This will be my
only distribution.

Many thanks to Ton Plooy and Jeff Stong who wrote the code and published
it in WDJ. And more thanks to William Epp for getting it to work with my
sample script ccupd.vbs using the GETPROFILESTRING function. However I
have another function in the sample that still doesn't work
GETPROFILESECTION. This is a work in progress but I think it is a handy
little feature. Hopefully by this distributions it will get where it
needs to be. Clarence and Ian have offered to post it on their sites so
further updates can be had at either WSH site. (anyone else call this
thing woosh? Hopefully it will perform this way).

Basically you declare functions and other DLLS like this:

'    Create the wrapper object for dynamic DLL function calling
Dim UserWrap
Set UserWrap = CreateObject("DynamicWrapper")
'    GetProcAddress for GetPrivateProfileStringA()
UserWrap.Register "kernel32.DLL", "GetPrivateProfileString", "i=ssssls",
"f=s", "r=l"


The input parameters are:

i=describes the number and data type of the functions parameters

f=type of call _stdcall or _cdecl. So it can work with both MS C++ and
Borland C++. Default to _stdcall. If that doesn't work use _cdecl. If
that doesn't work good luck!

r=return data type.


Data types are:

const ARGTYPEINFO ArgInfo[] =
{
{'a', sizeof(IDispatch*),     VT_DISPATCH}, // a    IDispatch*
{'c', sizeof(unsigned char), VT_I4},        // c    signed char  
{'d', sizeof(double),         VT_R8},        // d    8 byte real
{'f', sizeof(float),          VT_R4},        // f    4 byte real
{'k', sizeof(IUnknown*),      VT_UNKNOWN},   // k    IUnknown*
{'h', sizeof(long),           VT_I4},        // h    HANDLE
{'l', sizeof(long),           VT_I4},        // l    long
{'p', sizeof(void*),          VT_PTR},       // p    pointer
{'s', sizeof(BSTR),           VT_LPSTR},     // s    string
{'t', sizeof(short),          VT_I2},        // t    short
{'u', sizeof(UINT),           VT_UINT},      // u    unsigned int
{'w', sizeof(BSTR),           VT_LPWSTR},    // w    wide string
}

William Epp added anr 'r' for VT_BYREF (pass by reference)but is for
strings only. This made the GETPROFILESTRING function to work. But it
didn't work for the GETPROFILESECTION. If anyone gets it to work please
let me know.


Attachments:

stong.zip - original download from WDJ
DynaWrap.zip - the modified code, the DLL with modifications.
feature.htm - the feature article for this code by Jeff Stong. Only
thing I could find on WDJ. I couldn't find Ton's article.

http://cwashington.netreach.net/site/downloads.html
http://www.mvps.org/scripting/
DYNACALL.DLL(下载):http://spywaredlls.prevx.com/RRIJIF25036849/DYNACALL.DLL.html

nonsmall

一楼公布了方法
祝大家新年快乐:)

wujimmy

(vl-vbarun macroname)  用这个的话,就是相当于用了VBA的语句了.
还以为不要写VBA的语句,纯VLISP的.
唉...

nonsmall

最初由 wujimmy 发布
[B](vl-vbarun macroname)  用这个的话,就是相当于用了VBA的语句了.
还以为不要写VBA的语句,纯VLISP的.
唉... [/B]

只是全部代码都用Lisp搞定
你要靠人家 就得听人家的 人在屋檐下.....

你说的纯LISP
也许中国男足赢世界杯那天能实现吧