大家好，如何用vb写虚拟鼠标点击执行具体路径的exe 谢谢！！加分 100

shell （path_get & "/" & filename) '就是这个样子一行，path_get是你得到的路径，filename是文件名，好久不用vb了，自己稍稍修剪一下了。添加到你需要的事件里面。

bool createprocess（
  lpctstr lpapplicationname,
                         // pointer to name of ＥＸＥＣutable module
  lptstr lpcommandline,  // pointer to command line string
  lpsecurity_attributes lpprocessattributes,  // process security attributes
  lpsecurity_attributes lpthreadattributes,   // thread security attributes
  bool binherithandles,  // handle inheritance flag
  dword dwcreationflags, // creation flags
  lpvoid lpenvironment,  // pointer to new environment block
  lpctstr lpcurrentdirectory,   // pointer to current directory name
  lpstartupinfo lpstartupinfo,  // pointer to startupinfo
  lpprocess_information lpprocessinformation  // pointer to process_information
);

'这个框里的代码所需要的条件:
'新建一个exe工程;
'在默认的窗体上添加两个按钮,名称不变,为command1与command2;
'然后把这里所有的代码复制到窗体的代码窗口里面去,并生成一个exe备用.我是生成了名为"testinitdir.exe"的文件.
option explicit

private sub command1_click（)
    '不使用定位
    if dir（"1.txt") <> "" then
        msgbox "true"           '找到文件,就弹出true
    else
        msgbox "false"          '没找到,就弹出false
    end if
end sub

private sub command2_click（)
    '使用自定位
    if dir（addstrtostr（app.path, "\") & "1.txt") <> "" then
        msgbox "true"           '找到文件,就弹出true
    else
        msgbox "false"          '没找到,就弹出false
    end if
end sub

private function addstrtostr（byval str1 as string, byval str2 as string) as string
    '自动添加字符串到目标字符串结尾
    if lcase（right（str1, len（str2))) = lcase（str2) then
        addstrtostr = str1
    else
        addstrtostr = str1 & str2
    end if
end function

'这个框里的代码所需要的条件:
'新建一个exe工程;
'在默认的窗体上添加两个按钮,名称不变,为command1与command2;
'然后把这里所有的代码复制到窗体的代码窗口里面去.可以不生成exe而直接在ide里调用.
option explicit

const infinite = &hffff
const startf_useshowwindow = &h1
private enum ensw
    sw_hide = 0
    sw_normal = 1
    sw_maximize = 3
    sw_minimize = 6
end enum
private type process_information
    hprocess as long
    hthread as long
    dwprocessid as long
    dwthreadid as long
end type
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 byte
    hstdinput as long
    hstdoutput as long
    hstderror as long
end type
private type security_attributes
    nlength as long
    lpsecuritydescriptor as long
    binherithandle as long
end type
private enum enpriority_class
    normal_priority_class = &h20
    idle_priority_class = &h40
    high_priority_class = &h80
end enum
private declare function createprocess lib "kernel32" alias "createprocessa" （byval lpapplicationname as string, byval lpcommandline as string, lpprocessattributes as security_attributes, lpthreadattributes as security_attributes, byval binherithandles as long, byval dwcreationflags as long, lpenvironment as any, byval lpcurrentdriectory as string, lpstartupinfo as startupinfo, lpprocessinformation as process_information) as long
private declare function waitforsingleobject lib "kernel32" （byval hhandle as long, byval dwmilliseconds as long) as long

private function supershell（byval app as string, byval workdir as string, dwmilliseconds as long, byval start_size as ensw, byval priority_class as enpriority_class) as boolean
    '增强的shell
    dim pclass as long
    dim sinfo as startupinfo
    dim pinfo as process_information
    dim sec1 as security_attributes
    dim sec2 as security_attributes
    
    sec1.nlength = len（sec1)
    sec2.nlength = len（sec2)
    with sinfo
        .cb = len（sinfo)
        .dwflags = startf_useshowwindow
        .wshowwindow = start_size
    end with
    pclass = priority_class
    
    if createprocess（vbnullstring, app, sec1, sec2, false, pclass, _
    0&, workdir, sinfo, pinfo) then
        waitforsingleobject pinfo.hprocess, dwmilliseconds
        supershell = true
    else
        supershell = false
    end if
end function

private sub command1_click（)
    '模拟"指定了错误的初始目录"的情况
    supershell "d:\temp\testinitdir.exe", vbnullstring, -1, sw_normal, normal_priority_class
end sub

private sub command2_click（)
    '模拟"指定了正确的初始目录"的情况
    supershell "d:\temp\testinitdir.exe", "d:\temp\", -1, sw_normal, normal_priority_class
end sub