求助！关于文本输出(已解决）

afan

回复 14# surongfu


    不懂你的意思，一下合一下分的，没空帮你整了~ 你需要独立思考了。
关于延时，你可以如下，在每次获取后休息200ms，不过，个人认为与“太快了”关系不大

1. Local $Motherboard = _Motherboard()
   
2. _Sp()
   
3. FileWrite($sFile, '计算机名:' & @ComputerName & ',主板:' & $Motherboard[0] & ',处理器:' & _CpuGet() & _Sp() & ',显卡:' & _VGAGet() & _Sp() & ',声卡:' & _Realinfo() & @CRLF)
   
4. 
   
5. 
   
6. Func _Sp()
   
7.         Sleep(200)
   
8.         Return ''
   
9. EndFunc   ;==>_Sp

复制代码

afan

主要是主板有时会采集乱码其他的没有发现错误，不知道是什么原因
surongfu 发表于 2012-6-17 17:47

    看了下那个 DIY_RegInfo.au3 ，他的主板信息采集是读取的流，那样很容易产生乱码。而且走了很多弯路，这里就不多说了。获取主板信息用这个WMI的，因为仅需主板信息，速度快得多。脚本也无需多余的 Sleep() 了，至于如何修改使用，只能靠你所想。

1. #include 'DIY_RegInfo.au3'
   
2. 
   
3. Local $sFile = '硬件.ini'
   
4. IniWrite($sFile, '硬件信息', @ComputerName, '主板:' & _MbGet() & ',处理器:' & _CpuGet() & ',显卡:' & _VGAGet() & ',声卡:' & _Realinfo() & @CRLF)
   
5. ;;;以下为读取
   
6. Local $sInfo = IniRead($sFile, '硬件信息', @ComputerName, '读取错误')
   
7. MsgBox(0, '', $sInfo)
   
8. 
   
9. Func _MbGet()
   
10.         Local $objWMIService = ObjGet('winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2')
    
11.         Local $colBoard = $objWMIService.ExecQuery('SELECT * FROM Win32_BaseBoard')
    
12.         For $object In $colBoard
    
13.                 Local $mb = $object.Product
    
14.         Next
    
15.         Return $mb
    
16. EndFunc   ;==>_MbGet

复制代码

surongfu

A大能否帮我加入内存大小共几条啊，还有能把Local $sFile = '\硬件.ini'  这句帮我写出ini吧我方便到不同环境时不用编译经过最后修改已经达到完美了，主板不会在错

surongfu

查阅了很多关于调用ini的举例终于把这句Local $sFile = '硬件.ini'  写出用ini配置了
ini内容如下
[config]
1=\\192.168.2.247\info$\硬件.ini
现在完整代码如下，哪位大侠在帮帮我加入内存大小共几条啊

1. #include 'DIY_RegInfo.au3'
   
2. 
   
3. Local $sFile = IniRead(@ScriptDir & "\config.ini", "config", 1, 1)
   
4. IniWrite($sFile, '硬件信息', @ComputerName, '主板:' & _MbGet() & ',处理器:' & _CpuGet() & ',显卡:' & _VGAGet() & ',声卡:' & _Realinfo() & @CRLF)
   
5. ;;;以下为读取
   
6. Local $sInfo = IniRead($sFile, '硬件信息', @ComputerName, '读取错误')
   
7. MsgBox(0, '', $sInfo)
   
8. 
   
9. Func _MbGet()
   
10.         Local $objWMIService = ObjGet('winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2')
    
11.         Local $colBoard = $objWMIService.ExecQuery('SELECT * FROM Win32_BaseBoard')
    
12.         For $object In $colBoard
    
13.                 Local $mb = $object.Product
    
14.         Next
    
15.         Return $mb
    
16. EndFunc   ;==>_MbGet

复制代码

fhqbbfcu2050

注册表在没打驱动前是不准的...打错了驱动的也不准

dfd1258

刚好搜到这个资料对我有用，回复一下