建议 恢复原来帖子

kob5891

开个新栏，专门收集以前的帖子

哪位兄弟曾经收藏过的帖子，可以发上来与大家分享。

不知各位意下如何:)

wtj1216

本人有收藏一部分。。
http://www.ajdblog.cn/category/7/

meteorln

哈哈..怀念哇...

autoit

很遗憾..但真的没了

jack金枪鱼

我收藏了部分...嘎嘎

auto

看样子是没有备份
重新来过...也不错

Nonenever

如果有保存的话


建议恢复


个人的恢复

然后删除重复的

joyoustar

论坛数据怎么没备份呢，太惨了啊，想搜索以前的帖子都没办法了。

owner

这个建议很好！大家把以前发过的帖子，自己有备份的重新发一便

kob5891

通过PID获取进程路径

[language=autoit]

MsgBox(64,"进程信息","进程路径是："&Processpath(616))


Func Processpath($iPID)
;通过API获取指定PID的进程路径
;官方牛人制作

    Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID)
    If $aProc[0] = 0 Then Return SetError(1, 0, '')
    Local $vStruct = DllStructCreate('int[1024]')
    DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc[0], 'ptr', DllStructGetPtr($vStruct), 'int', DllStructGetSize($vStruct), 'int_ptr', 0)
    Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'hwnd', $aProc[0], 'int', DllStructGetData($vStruct, 1), 'str', '', 'int', 2048)
    If StringLen($aReturn[3]) = 0 Then Return SetError(2, 0, '')
    Return $aReturn[3]
EndFunc



MsgBox(64,"进程信息","进程路径是："&Procespath(616))

Func Procespath($pid)
        ;通过WMI获取指定PID的进程路径
        ;叁恨居士制作
$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE ProcessId = "&$pid)

           For $objItem In $colItems
                  
$cmdpath  =  $objItem.CommandLine
$exepath  =  $objItem.ExecutablePath
$path=StringSplit($cmdpath,"\")

if $path[0]<=2 Then
          Return  $exepath
   Else
      Return  $cmdpath
EndIf

          Next
EndFunc

[/language]