难道是VB盗版或是VB本身的漏洞引起的原因？？？？

sear 2004-07-15 05:29:44

我在VB下面我有一个方法是执行一个批处理文件的用了API函数
'获取MAC地址的组件方法

Public Function GetMacAddress()
ShellExecute 0, "open", "D:\GetMacAdd\DosGetMac.Bat", "-s", "", 0
End Function

当编译后生成Dll文件注册后在ASP页面调用的时候却什么错误也没有可是却没有执行到DosGetMac.Bat文件

DosGetMac.Bat文件的内容是
dir > D:\GetMacAddr\Mac.Txt 意思是将dir显示出来的信息重定向到Mac.Txt文件里

可是执行后Mac.Txt文件里什么也没有但是当我直接运行DosGetMac.Bat时内容是被写入到Mac.Txt文件里的，我想不该是DosGetMac.Bat文件的问题，所以请大家帮忙看看ShellExecute 0, "open", "D:\GetMacAdd\DosGetMac.Bat", "-s", "", 0
是不是错了或该怎么办？？

另外就是让我郁闷了好几天也没有解决的办法
我不用ShellExecute来运行文件
用Shell "D:\GetMacAddr\DosGetMac.Bat", vbHide
可是却报告说是Invalid procedure call or argument 的错误，，

Shell "D:\GetMacAddr\DosGetMac.Bat", vbHide 很多人都是调试通过的我就是不通过老实这个错误，包括运行其他的文件也是这样的难道他还要认人不成了？？
我的开发环境是windows 2003 + VB6.0

我是实在没有办法了，，请大家帮帮忙吧~~~~ 难道这个VB本身的问题还是是VB是用倒板的原因呀

...全文

192 7 打赏收藏转发到动态举报

写回复

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

dongge2000 2004-07-15

打赏
举报

回复

UP

ryuginka 2004-07-15

打赏
举报

回复

up

Linus2000 2004-07-15

打赏
举报

回复

如果你想获取本机MAC地址可以这样做
Set NetAdapterSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_NetworkAdapter")

For Each NetAdapter In NetAdapterSet
txt = NetAdapter.MACAddress
Next

jam021 2004-07-15

打赏
举报

回复

试试shell "cmd /c D:\GetMacAdd\DosGetMac.Bat"

northwolves 2004-07-15

打赏
举报

回复

try:

Private 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

Private Sub Command1_Click()
Open "D:\GetMacAdd\DosGetMac.Bat" For Output As 1
Print #1, "dir > D:\GetMacAddr\Mac.Txt"
Close 1
Shell "D:\GetMacAdd\DosGetMac.Bat"
'h = Shell("COMMAND.COM /C ", 0)
ShellExecute hwnd, "open", "D:\GetMacAddr\Mac.Txt", "notepad.exe", vbNullString, 5
End Sub

rainstormmaster 2004-07-15

打赏
举报

回复

//Shell "D:\GetMacAddr\DosGetMac.Bat", vbHide 很多人都是调试通过的我就是不通过老实这个错误，包括运行其他的文件也是这样的难道他还要认人不成了？？

没用过2003，估计是操作系统的问题

wxrwan 2004-07-15

打赏
举报

回复

gz

计算机二级（VB）教程，全面、系统、细致地介绍了计算机二级（VB）的相关知识点。课程能够帮助学习者快速入门。该课程面向对象：备考计算机二级（VB）的课程备课期末考试自学VB程序设计课程注意提高学习者实战技巧，授课过程中以实际操作演示为主，帮助学习者快速地掌握编程的实际方法和技巧。课程以2019年计算机二级大纲为主线，详细介绍了VB的相关知识点。

VB6在Win11上都能用，哪来的淘汰！前言大家知道，在2008年微软停更了VB6IDE，这一事件被传为VB6被淘汰的标志性事件。在后续的各大系统，尤其是64位系统上，无论是安装VB6还是使用VB6，总归有这样那样的问题。实话说，这也难免。毕竟VB6是Win98时代的产品，不仅经受了内核的变化，而且更面临着CPU的升级换代。如果一点问题都没有，那才奇怪呢。虽然官方说的很决绝，甚至连Never这样发毒誓的话都亮出来了，但身体还是很诚实的。微软其实一直在更新VB6所需的系统环境，SP6补丁也从2..

文件丢失是一件很麻烦的事，正所谓数据无价。这尤其是对于使用了盗版win7系统下载的用户，系统漏洞造成的不稳定，很容易在紧急情况下死机后丢失文件；另一种情况是我们在操作时可能误删了文件，甚至又清空了回收站，所以，这里我们首先提醒大家的是，使用安全稳定的正版win7系统下载，其次养成良好的使用习惯，比如在系统正常状态下创建win7系统还原点，或者自动创建系统备份等方法，以备不时之需。

操作系统安全防护一、操作系统的概述二、操作系统的安全威胁1、漏洞和漏洞扫描2、恶意代码3、端口扫描威胁三、操作系统安全防护1、安全防护策略2、补丁程序3、终端防护软件4、个人防火墙一、操作系统的概述 ◆操作系统( Operating System,OS)是计算机系统软硬件资源的控制中心，它以尽量合理有效的方法组织多个用户程序共享计算机的各种资源。 ◆有效( efficient):系统效率，资源利用率(如：CPU利用的充足与否，内存、外部设各是否忙碌) ◆合理：公平与否，如果不公平则会产生“死锁”'或“饥饿

软件的定义：国家标准GB/T 11457—2006《信息技术软件工程术语》给出的软件定义是：计算机程序、规则和可能相关的文档。以上两个标准文档都认为，软件是程序数据和文档的集合体。程序：是完成特定功能和满足性能要求的指令序列；数据：是程序运行的基础和操作的对象；文档：是与程序开发、维护和使用有关的图文资料。零日漏洞是指未被公开披露的软件漏洞，没有给软件的作者或厂商以时间去为漏洞打补丁或是给出建议解决方案，从而攻击者能够利用这种漏洞破坏计算机程序、数据及设备。

7,762

社区成员

197,608

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章