asp调用vb生成的dll文件,执行shell异步变同步的解决方法(带源代码)

作者:网络 来源:佚名 更新时间:2009-01-21 14:19:03 点击:

网页设计爱好者团队在开发一个asp系统,需要同步调用vb(dll)执行的shell操作,asp->vb(dll)->shell->rar.exe同步执行exe文件。

由于shell是异步处理,这个问题让我们头疼了很久,最终还是通过百度找到了几个不错的函数,调试过,效果还不错,建议可以先用vb建exe来调试好了,再放入dll编译给asp调用。

代码如下:

以下是用vb制作一个exe文件进行调试,打开记事本和计算器示例:
private type startupinfo
   cb as long
   lpreserved as string
   lpdesktop as string
   lptitle as string
   dwx as long
   dwy as long
   dwxsize as long
   dwysize as long
   dwxcountchars as long
   dwycountchars as long
   dwfillattribute as long
   dwflags as long
   wshowwindow as integer
   cbreserved2 as integer
   lpreserved2 as long
   hstdinput as long
   hstdoutput as long
   hstderror as long
 end type

 private type process_information
   hprocess as long
   hthread as long
   dwprocessid as long
   dwthreadid as long
 end type

 private declare function waitforsingleobject lib "kernel32" (byval _
   hhandle as long, byval dwmilliseconds as long) as long

 private declare function createprocessa lib "kernel32" (byval _
   lpapplicationname as string, byval lpcommandline as string, byval _
   lpprocessattributes as long, byval lpthreadattributes as long, _
   byval binherithandles as long, byval dwcreationflags as long, _
   byval lpenvironment as long, byval lpcurrentdirectory as string, _
   lpstartupinfo as startupinfo, lpprocessinformation as _
   process_information) as long

 private declare function closehandle lib "kernel32" _
   (byval hobject as long) as long

 private declare function getexitcodeprocess lib "kernel32" _
   (byval hprocess as long, lpexitcode as long) as long

 private const normal_priority_class = &h20&
 private const infinite = -1&

 public function execcmd(cmdline$)
   dim proc as process_information
   dim start as startupinfo

   ’ initialize the startupinfo structure:
   start.cb = len(start)

   ’ start the shelled application:
   ret& = createprocessa(vbnullstring, cmdline$, 0&, 0&, 1&, _
    normal_priority_class, 0&, vbnullstring, start, proc)

   ’ wait for the shelled application to finish:
    ret& = waitforsingleobject(proc.hprocess, infinite)
    call getexitcodeprocess(proc.hprocess, ret&)
    call closehandle(proc.hthread)
    call closehandle(proc.hprocess)
    execcmd = ret&
 end function

 sub form_click()
   dim retval as long
   retval = execcmd("notepad.exe")
   msgbox "notepad process finished, exit code " & retval
   retval = execcmd("calc.exe")
   msgbox "calc process finished, exit code " & retval

 end sub 

方法二:


以下是引用片段:
private declare function openprocess lib "kernel32" (byval dwdesiredaccess as long, byval binherithandle as long, byval dwprocessid as long) as long
private declare function closehandle lib "kernel32" (byval hobject as long) as long
private declare function waitforsingleobject lib "kernel32" (byval hhandle as long, byval dwmilliseconds as long) as long

private const synchronize = &h100000
private const infinite = &hffff   ’ infinite timeout
private const wait_timeout = &h102&

public function shellforwait(sappname as string, optional byval lshowwindow as vbappwinstyle = vbminimizedfocus, optional byval lwaittime as long = 0) as boolean
  dim lid as long, lhnd as long, lret as long
  on error resume next
  lid = shell(sappname, lshowwindow)
  if lid > 0 then
    lhnd = openprocess(synchronize, 0, lid)
    if lhnd <> 0 then
      do
        lret = waitforsingleobject(lhnd, lwaittime)
        doevents
      loop while lret = wait_timeout
      closehandle lhnd
      shellforwait = true
    else
      shellforwait = false
    end if
  else
    shellforwait = false
  end if
end function

shellforwait("notepad.exe",,&hffff)

方法三:


以下是引用片段:
private declare function openprocess lib "kernel32" (byval dwdesiredaccess as long, byval binherithandle as long, byval dwprocessid as long) as long
private const synchronize = &h100000  ’进程同步
private declare function closehandle lib "kernel32" (byval hobject as long) as long
private declare function waitforsingleobject lib "kernel32" (byval hhandle as long, byval dwmilliseconds as long) as long
private const infinite = &hffffffff

private sub cmdopen_click()
  openfilewait "c;\windows\hh.exe ", "help.chm"
end sub

private sub openfilewait(tkshellfile as string, tkfilename as string)
  wndid = shell(tkfilename, vbnormalfocus)
  wnd = openprocess(synchronize, 0, wndid)
  waitforsingleobject wnd, infinite
  closehandle wnd
end sub

如果你觉得不错,网页设计爱好者(.com)网站还有更多精彩资源,不要错过,记住我们的网址!