VB编写DLL中使用Shell,怎么无法执行,请大家帮忙

我在Dll中使用
Function Reboot()
Shell "Rundll32.exe user.exe,restartwindows"
End Function
或是
Function makedir()
Shell "md c:\aaaa"
End Function我用ASP去调用时
无法使用!请大家帮忙!

解决方案 »

  1.   

    dll有没有在服务器上注册呀？执行页面是不是报错？
      

  2.   

    呵呵，这两个Shell调用本身就有问题
      

  3.   

    第一个改为：Shell "rundll.exe user.exe,exitwindowsexec", vbHide ’重新启动
    第二个直接用VB的MkDir不行吗？!  mkdir "md c:\aaaa"
      

  4.   

    SRY，第一个：Shell "rundll32.exe user.exe,exitwindowsexec", vbHide
      

  5.   

    Shell "cacls d:\testbak /t /e /g kiccleaf:c", vbHide
    这给这个目录分配一个kiccleaf用户,怎么无法实现!请指教
      

  6.   

    Function Reboot()Shell "Rundll32.exe user.exe,restartwindows", vbHideEnd Function
    也无法执行成功!真的好急啊!
     winehero(编程人生)
    谢谢帮助!能否再指点一下!
      

  7.   

    是不是你的Shell "md c:\aaaa"语句不对，你换成Msgbox "调用成功"，看有没有效果
      

  8.   

    faysky2() 
    你的这个问题我已经解决了!现在的问题是没法执行
    Shell "cacls d:\testbak /t /e /g kiccleaf:c", vbHide这个,如果是Form,就可以执行成功!给D盘的testbak目录分配了一个kiccleaf用户!
    但写成DLL用ASP去调用时就没有结果,也没有出错提示!
      

  9.   

    这个,如果是Form,就可以执行成功!给D盘的testbak目录分配了一个kiccleaf用户!
    但写成DLL用ASP去调用时就没有结果,也没有出错提示!
    ----------------------------------------------------------------
    你可以先在vb里测试（在vb里引用你的DLL），看是否成功
      

  10.   

    怎么引用!能否给个简单的步骤,
    以下是我测试成功的Form界面程序
    Private Sub Command1_Click()
    a = Shell("cacls " + Text1.Text + " /t /e /g " + Text2.Text + ":c", 0)
    If a Then
        MsgBox ("给目录添加用户成功！")
        Text1.Text = ""
        Text2.Text = ""
    End If
    End Sub能否帮帮忙!谢谢faysky2()
      

  11.   

    怎么引用!能否给个简单的步骤
    ------------------------------------------
    新建一个工程，在"工程"/"引用"下找到你的DLL，钩上，或者在"工程"/"引用"点"浏览",找到你的DLL所在的文件夹，把DLL添加进来，然后钩上
    使用方法：
    Private Sub Command1_Click()
        Dim varCls As 你的DLL里的类模块名
        Call varCls.你的DLL里的类模块名里的公共函数的名称 '调用DLL里的类公共函数
    End Sub注意，如果要调用DLL里的函数，那么那个被调用的函数要声明为公共的(Public)
      

  12.   

    问题就是没法得到结果!所以想不明白Shell能否执行DOS命令!如果可以执行,那么结果怎么没有得到原因出在哪?
    能否帮我执行上面的程序!写成DLL,用ASP调用
      

  13.   

    Function copys()
    Shell "cmd.exe /C copy f:\rar3.0.exe F:\aaa\"
    End Function
    编写成组件test.dll怎么无法调用
    工程名test
    类模块mk<%
    Set XuanObjec= Server.CreateObject("test.mk")XuanObjec.copys()
    %>
      

  14.   

    函数要声明成Public
    Public Function copys()
        Shell "cmd.exe /C copy f:\rar3.0.exe F:\aaa\"
    End Function
      

  15.   

    faysky2() 
    你好我用EXE调用DLL可以执行成功的!!但就是不知道为什么用ASP把参数传去就执行不了!
    如果你知道,或是其他人知道,请告诉一声好吗?