by TISAproject » 2016年10月15日(土) 20:00
コード: 全て選択
#console
#include<vcrt71.sbp>
Type PROCESSENTRY32
dwSize As DWord
cntUsage As DWord
th32ProcessID As DWord
th32DefaultHeapID As DWordPtr
th32ModuleID As DWord
cntThreads As DWord
th32ParentProcessID As DWord
pcPriClassBase As Long
dwFlags As DWord
szExeFile[MAX_PATH] As BytePtr
End Type
Const TH32CS_SNAPPROCESS = 2
Declare Function CreateToolhelp32Snapshot Lib "kernel32" (
Flags As Long, ProcessID As Long) As Long
Declare Function Process32First Lib "kernel32" (
hSnapshot As Long, ByRef ProcessEntry As PROCESSENTRY32) As Long
Declare Function Process32Next Lib "kernel32" (
hSnapshot As Long, ByRef ProcessEntry As PROCESSENTRY32) As Long
Dim hSnap As HANDLE
Dim pe32 As PROCESSENTRY32
hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS , 0 )
If hSnap = -1 Then
printf(Ex"スナップショットの作成に失敗したよ\n")
Goto *owari
End If
pe32.dwSize = sizeof(PROCESSENTRY32)
If Process32First(hSnap , pe32 ) = FALSE Then
printf(Ex"プロセス無いよ\n")
Goto *owari
End If
printf(Ex"| ID | 名前 | スレ | 優先 |\n")
printf(Ex"+-----+------------------+------+------+\n")
Do
printf(Ex"|%4d | %-16s | %4d | %4d |\n" , _
pe32.th32ProcessID , pe32.szExeFile , pe32.cntThreads , _
pe32.pcPriClassBase)
Loop while(Process32Next(hSnap , pe32) <> FALSE)
*owari
CloseHandle(hSnap)
exit(0)
で、
api_console.sbp(4) - "FOREGROUND_BLUE" はすでに定義されています
api_console.sbp(5) - "FOREGROUND_GREEN" はすでに定義されています
api_console.sbp(6) - "FOREGROUND_RED" はすでに定義されています
api_console.sbp(7) - "FOREGROUND_INTENSITY" はすでに定義されています
api_console.sbp(8) - "BACKGROUND_BLUE" はすでに定義されています
api_console.sbp(9) - "BACKGROUND_GREEN" はすでに定義されています
api_console.sbp(10) - "BACKGROUND_RED" はすでに定義されています
api_console.sbp(11) - "BACKGROUND_INTENSITY" はすでに定義されています
というエラーが発生してしまいます。
どうすればいいでしょうか?
vcrt71.sbp
http://www.geocities.jp/debu0510/basic/ ... 1_v423.zip
[code]#console
#include<vcrt71.sbp>
Type PROCESSENTRY32
dwSize As DWord
cntUsage As DWord
th32ProcessID As DWord
th32DefaultHeapID As DWordPtr
th32ModuleID As DWord
cntThreads As DWord
th32ParentProcessID As DWord
pcPriClassBase As Long
dwFlags As DWord
szExeFile[MAX_PATH] As BytePtr
End Type
Const TH32CS_SNAPPROCESS = 2
Declare Function CreateToolhelp32Snapshot Lib "kernel32" (
Flags As Long, ProcessID As Long) As Long
Declare Function Process32First Lib "kernel32" (
hSnapshot As Long, ByRef ProcessEntry As PROCESSENTRY32) As Long
Declare Function Process32Next Lib "kernel32" (
hSnapshot As Long, ByRef ProcessEntry As PROCESSENTRY32) As Long
Dim hSnap As HANDLE
Dim pe32 As PROCESSENTRY32
hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS , 0 )
If hSnap = -1 Then
printf(Ex"スナップショットの作成に失敗したよ\n")
Goto *owari
End If
pe32.dwSize = sizeof(PROCESSENTRY32)
If Process32First(hSnap , pe32 ) = FALSE Then
printf(Ex"プロセス無いよ\n")
Goto *owari
End If
printf(Ex"| ID | 名前 | スレ | 優先 |\n")
printf(Ex"+-----+------------------+------+------+\n")
Do
printf(Ex"|%4d | %-16s | %4d | %4d |\n" , _
pe32.th32ProcessID , pe32.szExeFile , pe32.cntThreads , _
pe32.pcPriClassBase)
Loop while(Process32Next(hSnap , pe32) <> FALSE)
*owari
CloseHandle(hSnap)
exit(0)[/code]
で、
api_console.sbp(4) - "FOREGROUND_BLUE" はすでに定義されています
api_console.sbp(5) - "FOREGROUND_GREEN" はすでに定義されています
api_console.sbp(6) - "FOREGROUND_RED" はすでに定義されています
api_console.sbp(7) - "FOREGROUND_INTENSITY" はすでに定義されています
api_console.sbp(8) - "BACKGROUND_BLUE" はすでに定義されています
api_console.sbp(9) - "BACKGROUND_GREEN" はすでに定義されています
api_console.sbp(10) - "BACKGROUND_RED" はすでに定義されています
api_console.sbp(11) - "BACKGROUND_INTENSITY" はすでに定義されています
というエラーが発生してしまいます。
どうすればいいでしょうか?
vcrt71.sbp
[url]http://www.geocities.jp/debu0510/basic/source/vcrt71_v423.zip[/url]