to rainstormmaster(rainstormmaster) 我在VB中执行netsh命令时总要弹出一个DOS窗口,而那个网站上给的例子(可下载的,只有执行程序)却不会弹出DOS窗口,他是如何做到的呢?
WinExec,ShellExecute及vb自己的函数shell都有一个参数定义了如何显示启动程序,将这个参数设为0试试:Shell(PathName, [WindowStyle As VbAppWinStyle = vbMinimizedFocus]) As Double 对应参数为WindowStylePrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 对应参数为nShowCmd Private Declare Function WinExec Lib "kernel32" Alias "WinExec" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long 对应参数为nCmdShow
to rainstormmaster(rainstormmaster) 我用了那个参数,但还是出现了DOS窗口,我想如果要用到DOS命令,就一定会出DOS窗口吧,不过我觉得http://www.china-askpro.com/msg47/qa99.shtml网站提供的那个可供下载的应用程序做得很漂亮,他既不出现DOS窗口,又有进度条,非常美观,可惜只有执行程序,没有源程序代码不过还是非常感谢你的帮助,我先把分给你了,如果你能找到关于上面这个问题的资料或是建议,给我发短信好吗?非常感谢!
(注:netsh是Win2k的一个命令行程序,可以用来动态设置IP地址。如:
netsh -c interface ip add address "本地连接" 192.168.1.105 255.255.255.0
关于该命令的更多信息请参考:http://www.yesky.com/20030410/1662582.shtml)
我在VB中执行netsh命令时总要弹出一个DOS窗口,而那个网站上给的例子(可下载的,只有执行程序)却不会弹出DOS窗口,他是如何做到的呢?
对应参数为WindowStylePrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
对应参数为nShowCmd
Private Declare Function WinExec Lib "kernel32" Alias "WinExec" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
对应参数为nCmdShow
具体位置记不得了你可以把你的IP设成192.168.0.99
然后到注册表里搜就可以了找到了,可能会有几处,自己慢慢琢磨吧。操作注册表的方法在csdn搜,太多了。
我用了那个参数,但还是出现了DOS窗口,我想如果要用到DOS命令,就一定会出DOS窗口吧,不过我觉得http://www.china-askpro.com/msg47/qa99.shtml网站提供的那个可供下载的应用程序做得很漂亮,他既不出现DOS窗口,又有进度条,非常美观,可惜只有执行程序,没有源程序代码不过还是非常感谢你的帮助,我先把分给你了,如果你能找到关于上面这个问题的资料或是建议,给我发短信好吗?非常感谢!