以前没玩过VB6，俺本是做MAX效果图的。可是老板下了任务，要我做个程序。一堆一堆的码，我都看不懂。赶鸭子上架啊！！这不刚下载了VB6，运气好，安装成功了。

不废话了，老板的要求是这样的。他要一个EXE文件，运行这个文件，在C:盘的WINDOWS下创建一个文件，把序列号写进去，展名是.dat。运行这个EXE的时候，要求不蹦出窗口。2天能完成吗？大家救我


大家一定要帮我。我启动VB6后，要新建什么文件啊？是“标准EXE”还是“ActiveX EXE”呢？

[ 本帖最后由 菜鸟的梦 于 2012-11-29 19:24 编辑 ]

要求不蹦出窗口，应该选择“标准EXE”还是“ActiveX EXE”呢？

这是刚找的代码，大家看对不对啊？
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In colItems
Print "Processor Id: " & objItem.ProcessorId
Next

共有24人关注本贴，没人回复

谢谢斑竹的回复。我现在弄出点门道了。是通过两个按钮实现的。按下第一个按钮，抓取CPU成功。按下第二个按钮，写文件成功。但是还有问题。下面是代码：
Private Sub Command1_Click()
MsgBox GetCpu
End Sub
Public Function GetCpu() As String
On Error Resume Next
Dim TmpCode$
Dim ObjWMIService As Object, objItem As Object, colItems As Object
Set ObjWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = ObjWMIService.ExecQuery("Select * from Win32_Processor", , 48)
For Each objItem In colItems
TmpCode = TmpCode & " " & objItem.ProcessorId
Next
GetCpu = Trim(TmpCode)
End Function
Private Sub Command2_Click()
Open "F:\aa.dat" For Output As #1
Write #1, GetCpu
Close #1
End Sub

问题是：1.按下第一个按钮后，抓到CPU的序列号的时候，电脑会“嘟”一身，并且会弹出一个方块，把抓到序列号显示出来了。怎样去掉“嘟”声？怎样不弹出这个方块呢？还望斑竹伸出援手啊！

问题解决了。我不用MsgBox了，用Dim,就不弹出窗体也就不“嘟”一声了。

还剩最后一个问题要解决。现在是通过按钮实现的：按下按钮抓序列号，再按下按钮写文件。怎样不通过按钮，运行程序就自动抓序列号、抓完自动写文件？写完自动关闭程序？大家教教我吧

我想，不用按钮实现肯定能达到，而且不复杂。因为我接触过AS3语言，很方便的。但是没有接触过VB。抓瞎了，什么也看不懂。斑竹帮我想想办法。最终的目的是没有窗口，没有按钮，程序运行完没事了，用户都没察觉。

你好，谢谢你的回复。现在的问题是先解决非得要按按钮才执行的问题。我想不按按钮让它自动执行。目前的状况是这样的，窗体中有2个按钮，代码窗口中是下面的语句：
Private Sub Command1_Click()
Dim GetCpu
End Sub

Public Function GetCpu() As String
On Error Resume Next
Dim TmpCode$
Dim ObjWMIService As Object, objItem As Object, colItems As Object
Set ObjWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = ObjWMIService.ExecQuery("Select * from Win32_Processor", , 48)
For Each objItem In colItems
TmpCode = TmpCode & " " & objItem.ProcessorId
Next
GetCpu = Trim(TmpCode)
End Function


Private Sub Command2_Click()
Open "F:\aa.dat" For Output As #1
Write #1, GetCpu
Close #1
End Sub
麻烦你给看看怎样去掉按钮，让它自动运行？

再麻烦你给看看16楼的问题。怎么改一下。

再麻烦你给看看怎样去掉按钮，让它自动运行？