求助EnumPrinters在AUTOIT调用方法

chron

想检索出局域网内共享打印机，看到可以使用这个API，但试了好久不知如何使用，求高手指点！
http://msdn.microsoft.com/en-us/library/windows/desktop/dd162692(v=vs.85).aspx

DllCall("dll","BOOL","EnumPrinters","DWORD",Flags,"str",Name,"DWORD",Level,"BYTE*",pPrinterEnum,"DWORD",cbBuf,"DWORD*",pcbNeeded,"DWORD*",pcReturned)

netegg

[au3]Func _ENumPrinters($flags = $PRINTER_ENUM_LOCAL)
    Local $plist

;stop illegal flags
    $flags = BitAND($flags, BitOR($PRINTER_ENUM_CONNECTIONS, $PRINTER_ENUM_LOCAL))
    If $flags = 0 Then Return SetError(1, 1, '')
   
    Local $Name = ''
    Local $level = 4;uses gets printer_Info_4 which uses registry. Could be done with Printer_Info_2 but can cause long delay
                   ; if printer no longer installed or remote PC not available.   
     
    Local $cbBuf = 0;no space allowed but we will be told how much is needed
    Local $struct_enum = DllStructCreate("char[" & $cbBuf & "]")
    Local $pPrinterEnum = DllStructGetPtr($struct_enum)

    Local $pcbNeeded, $pcReturned, $n, $printerdesc, $thisPrinter
    $ret = DllCall("winspool.drv", "int", "EnumPrinters", "dword", $flags, "str", $Name, "dword", $level, "ptr", $pPrinterEnum, _
            "dword", $cbBuf, "dword*", $pcbNeeded, "dword*", $pcReturned)
    If @error Then Return SetError(1, 1, "")
   
    If $ret[6] > $ret[5] Then; if we need more space than we allowed
        $struct_enum = DllStructCreate("char[" & $ret[6] & "]")
        $pPrinterEnum = DllStructGetPtr($struct_enum)
        $ret = DllCall("winspool.drv", "int", "EnumPrinters", "dword", $flags, "str", $Name, "dword", $level, "ptr", $pPrinterEnum, _
                "dword", $ret[6], "dword*", $pcbNeeded, "dword*", $pcReturned)
        If @error Then Return SetError(2, 2, "")
    EndIf
   
    For $n = 0 To $ret[7] - 1;for each $PRINTER_INFO_4 structure in the array of $PRINTER_INFO_4's returned
        $ans = DllStructCreate($PRINTER_INFO_4, $pPrinterEnum + $n *12)
        
        $n1 = DllStructCreate("char[256]", DllStructGetData($ans, 1));2 for info_1
        
        $printerdesc = DllStructGetData($n1, 1)
        
        If StringInStr($printerdesc, ',') Then
            $thisPrinter = StringLeft($printerdesc, StringInStr($printerdesc, ',') - 1)
        Else
            $thisPrinter = $printerdesc
        EndIf
        
        If $thisPrinter <> '' Then $plist &= $thisPrinter & '|'
        
    Next
   
    If $plist = "" Then Return $plist
   
    Return StringLeft($plist, StringLen($plist) - 1)
EndFunc  ;==>_ENumPrinters[/au3]

chron

回复 2# netegg


   先谢谢了！我去试试

austere

怎么这几天到处都有蛋神存在.....

chron

回复 2# netegg


   看了一遍，有点云里雾里，有没有一个实际应用，谢谢了~

netegg

回复 4# austere

闲的没事，瞎溜达

wangms

前来学习。。。。。。。。。。。。。。

wln

求助，想实现遍历局域网的共享打印机，没看懂，求大神指点