Frank
Zitat von Andreas
ZitatHallo Horst...
Ich benötige noch mal deine Hilfe.
Wieso ist das Spamm
wenn ich ihm den Text an seine Mailadresse schicke
Eine Antwort wird ja wohl erlaubt sein oder braucht es dafür "Frank-Rechte"
Frank
Zitat von Andreas
ZitatHallo Horst...
Ich benötige noch mal deine Hilfe.
Wieso ist das Spamm
wenn ich ihm den Text an seine Mailadresse schicke
Eine Antwort wird ja wohl erlaubt sein oder braucht es dafür "Frank-Rechte"
Zitat von Frabbing;712590Ihr spammt den Thread hier voll. Hat ja mit dem Thema nüscht zu tun.
Doch, hat es. Ich wil wissen, ob EnumProcessModules unter Vista noch in der PSAPI vorhanden ist.
Export-Funktionen Psapi.dll unter Vista
EmptyWorkingSet
EnumDeviceDrivers
EnumPageFilesA
EnumPageFilesW
EnumProcessModules
EnumProcessModulesEx
EnumProcesses
GetDeviceDriverBaseNameA
GetDeviceDriverBaseNameW
GetDeviceDriverFileNameA
GetDeviceDriverFileNameW
GetMappedFileNameA
GetMappedFileNameW
GetModuleBaseNameA
GetModuleBaseNameW
GetModuleFileNameExA
GetModuleFileNameExW
GetModuleInformation
GetPerformanceInfo
GetProcessImageFileNameA
GetProcessImageFileNameW
GetProcessMemoryInfo
GetWsChanges
GetWsChangesEx
InitializeProcessForWsWatch
QueryWorkingSet
QueryWorkingSetEx
Alles anzeigen
und Windows 7
EmptyWorkingSet
EnumDeviceDrivers
EnumPageFilesA
EnumPageFilesW
EnumProcessModules
EnumProcessModulesEx
EnumProcesses
GetDeviceDriverBaseNameA
GetDeviceDriverBaseNameW
GetDeviceDriverFileNameA
GetDeviceDriverFileNameW
GetMappedFileNameA
GetMappedFileNameW
GetModuleBaseNameA
GetModuleBaseNameW
GetModuleFileNameExA
GetModuleFileNameExW
GetModuleInformation
GetPerformanceInfo
GetProcessImageFileNameA
GetProcessImageFileNameW
GetProcessMemoryInfo
GetWsChanges
GetWsChangesEx
InitializeProcessForWsWatch
QueryWorkingSet
QueryWorkingSetEx
Alles anzeigen
Also absolut gleich?
Hier mal ein korrigierter Quelltext - ich will hoffen, das der jetzt überall läuft...
Def GetCurrentProcess(0) !"Kernel32","GetCurrentProcess"
Def GetProcAddress(2) !"Kernel32","GetProcAddress"
Def EnumProcessModules7(4) !"Kernel32","K32EnumProcessModules"
Def EnumProcessModules(4) !"PSAPI","EnumProcessModules"
Declare Edit&, Text&, PSAPI&, Needed&, ModuleHandles#, Winver!, OldText$
Windowstyle 31+512
Windowtitle "Ist Funktion vorhanden?"
Window 0,0-640,440
Edit&=Control("Edit","ZwQuerySystemInformation",$40000000 | $10000000 | $1000 | $400000,20,40,(Width(%HWND)-100),30,%HWND,4113,%HINSTANCE)
Text&=Create("Text",%HWND,"",20,100,(Width(%HWND)-100),200)
Settext Text&,Funktion_vorhanden(GetText$(Edit&))
Winver!=Val($WinVer)
Usermessages $10
While %UMessage<>$10
Getmessage
IF OldText$<>GetText$(Edit&)
Settext Text&,Funktion_vorhanden(GetText$(Edit&))
OldText$=GetText$(Edit&)
endif
wend
End
Proc Funktion_vorhanden
Parameters FunktionsName$
Declare RetText$, Counter&
RetText$="Die API '"+FunktionsName$+"' wurde nicht gefunden! "
Counter&=0
DIM ModuleHandles#,4
EnumProcessModules(GetCurrentProcess(),ModuleHandles#,4,addr(Needed&))
Dispose ModuleHandles#
DIM ModuleHandles#,Needed&+40
EnumProcessModules(GetCurrentProcess(),ModuleHandles#,SizeOf(ModuleHandles#),addr(Needed&))
Repeat
IF GetProcAddress(Long(ModuleHandles#,counter&),addr(FunktionsName$))>0
RetText$="Die API '"+FunktionsName$+"' wurde gefunden! "
endif
Counter&=Counter&+4
Until Counter&=Needed&
Dispose ModuleHandles#
Return RetText$
endproc
Alles anzeigen
Unter XP wird sie gefunden.
Aus aktuellem Anlass möchte ich nochmals darauf hinweisen, dass es nicht besonders klug ist, Teile dieses Forums (hier scheinbar ohne Quellenverweis auf dieses Forum und diesen Thread hier ) von einer Ecke auf eine andere (unter Umständen in sein eigenes Forum :p) zu kopieren.
Die hier von mir geposteten Quelltexte sind Teile einer Diskussion, in deren Folge auch auf einigen Rechnern Programmabstürze gemeldet wurden. Diese Programmabstürze sind unter Umständen nicht dadurch beseitigt worden, dass hier die PSAPI.DLL nicht mehr über Usedll geladen wird.
Wer also denkt, er könne hier unkommentiert Quelltext aus einer unvollendeten Diskussion "stehlen" um sein eigenes Forum etwas aufzupäppeln, ist auf dem Holzweg.
Ich empfehle auch die ToolHelp-Variante, die funktioniert bei mir ohne Probleme und läuft mit ASM (für mein aktuelles Projekt) genauso schnell.
Zitat von Frabbing;713127Ich empfehle auch die ToolHelp-Variante, die funktioniert bei mir ohne Probleme und läuft mit ASM (für mein aktuelles Projekt) genauso schnell.
Jawoll!
Ich habe auch ne Variante in die Community gestellt: http://xprofan.com/thread.core?rd=rss&t=7713
Wenn Frank jetzt sagt, dass die DLLs seines Grafikkartentreibers im Taskmanager nach dem Enthooken seines Systems verschwunden sind, haben wir den Übeltäter, der diese Programmabstürze verursacht, wohl gefunden.
Zitat von RGH;710861Also bei mir erzeugt der Code keinerlei Fehlermeldung, weder im Interpreter, noch als Kompilat, noch als EXE.
Gruß
Roland
Welche Grafikkarte?
ZitatWenn Frank jetzt sagt, dass die DLLs seines Grafikkartentreibers im Taskmanager nach dem Enthooken seines Systems verschwunden sind, haben wir den Übeltäter, der diese Programmabstürze verursacht, wohl gefunden. :smile:
Sie sind dann nicht verschwunden.
Zitat von Frabbing;717109Sie sind dann nicht verschwunden.
Es geht nur um den Taskmanager - deine Mail lautete da anders.
Ach so, nur Taskmanager. Dann passt es ja.
Es sieht also im Augenblick so aus, als könne es unter Umständen beim Entladen von DLLs (PSAPI.DLL) mit XProfan zu Problemen kommen, wenn man bestimmte Grafikkartentreiber von NVidia installiert hat.
Bitte merke dir mal die Namen der DLLs, die der Taskmanager dort zusatzlich lädt...
NVidia hat diese all-in-one Treiberpackete. Ist das wirklich ein Problem der Grafikkarte, wird das nicht zum letzten Mal aufgetreten sein. :lupe:
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!