求助EnumPrinters在AUTOIT调用方法

chron · 发表于 2014-12-2 16:32:49

想检索出局域网内共享打印机，看到可以使用这个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 · 发表于 2014-12-3 08:18:37

[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 · 发表于 2014-12-3 08:29:32

回复 2# netegg

先谢谢了！我去试试

austere · 发表于 2014-12-3 08:32:21

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

chron · 发表于 2014-12-3 08:40:03

回复 2# netegg

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

netegg · 发表于 2014-12-3 10:54:28

回复 4# austere

闲的没事，瞎溜达

wangms · 发表于 2014-12-5 08:39:02

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

wln · 发表于 2021-3-24 12:18:35

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

		自动登录	找回密码
密码			加入

[网络通信] 求助EnumPrinters在AUTOIT调用方法

相关帖子