"As Any" wird in Declare-Anweisungen nicht unterstützt
und:
Der Name "hProcess" wurde nicht deklariert. Kann mir hier jemand helfen?
Ich benutze Visual Basic 2008 Express Edition.
Ich hoffe jemand kann mir helfen.
Hier noch das Modul:
Quote:
Public Const WWWWWFFWM = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long
'API Declaration
Public Declare Function WHTMSULFJ Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function HTMSULFJW Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function TMSULFJWH Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function MSULFJWHT Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function SULFJWHTM Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function ULFJWHTMS Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function LFJWHTMSU Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Function WHTMSLUJF(WWWWWULJF As String, HHHMSULJF As Long, TTTMSULJF As Long) 'WriteALong
Dim FJWHTMSUL As Long
Dim WHTMSULJF As Long
Dim WHTMSUFJL As Long
FJWHTMSUL = SULFJWHTM(vbNullString, WWWWWULJF)
If (FJWHTMSUL = 0) Then
End
Exit Function
End If
WHTMSULFJ FJWHTMSUL, WHTMSULJF
WHTMSUFJL = HTMSULFJW(WWWWWFFWM, False, WHTMSULJF)
If (WHTMSUFJL = 0) Then
Exit Function
End If
TMSULFJWH WHTMSUFJL, HHHMSULJF, TTTMSULJF, 4, 0&
MSULFJWHT SSSSWSUSM
End Function
Public Function WHTMUSLJF(WWWWWULJF As String, HHHMSULJF As Long, MMMMSULJF As Long) 'ReadALong
Dim FJWHTMSUL As Long
Dim WHTMSULJF As Long
Dim WHTMSUFJL As Long
FJWHTMSUL = SULFJWHTM(vbNullString, WWWWWULJF)
If (FJWHTMSUL = 0) Then
End
Exit Function
End If
WHTMSULFJ FJWHTMSUL, WHTMSULJF
WHTMSUFJL = HTMSULFJW(WWWWWFFWM, False, WHTMSULJF)
If (WHTMSUFJL = 0) Then
Exit Function
End If
LFJWHTMSU WHTMSUFJL, HHHMSULJF, MMMMSULJF, 4, 0&
MSULFJWHT SSSSWSUSM
End Function
Public Function WHMTSULJF(WWWWWULJF As String, HHHMSULJF As Long, MMMMSULJF As Single) 'ReadAFloat
Dim FJWHTMSUL As Long
Dim WHTMSULJF As Long
Dim WHTMSUFJL As Long
FJWHTMSUL = SULFJWHTM(vbNullString, WWWWWULJF)
If (FJWHTMSUL = 0) Then
End
Exit Function
End If
WHTMSULFJ FJWHTMSUL, WHTMSULJF
WHTMSUFJL = HTMSULFJW(WWWWWFFWM, False, WHTMSULJF)
If (WHTMSUFJL = 0) Then
Exit Function
End If
LFJWHTMSU WHTMSUFJL, HHHMSULJF, MMMMSULJF, 4, 0&
MSULFJWHT SSSSWSUSM
End Function
Public Function HWTMSULJF(WWWWWULJF As String, HHHMSULJF As Long, TTTMSULJF As Single) 'WriteAFloat
Dim FJWHTMSUL As Long
Dim WHTMSULJF As Long
Dim WHTMSUFJL As Long
FJWHTMSUL = SULFJWHTM(vbNullString, WWWWWULJF)
If (FJWHTMSUL = 0) Then
End
Exit Function
End If
WHTMSULFJ FJWHTMSUL, WHTMSULJF
WHTMSUFJL = HTMSULFJW(WWWWWFFWM, False, WHTMSULJF)
If (WHTMSUFJL = 0) Then
Exit Function
End If
TMSULFJWH WHTMSUFJL, HHHMSULJF, TTTMSULJF, 4, 0&
MSULFJWHT SSSSWSUSM
End Function
Public Function MHWMSULJF(WWWWWULJF As String, HHHMSULJF As Long, TTTMSULJF As Byte) 'WriteAByte
Dim FJWHTMSUL As Long
Dim WHTMSULJF As Long
Dim WHTMSUFJL As Long
FJWHTMSUL = SULFJWHTM(vbNullString, WWWWWULJF)
If (FJWHTMSUL = 0) Then
End
Exit Function
End If
WHTMSULFJ FJWHTMSUL, WHTMSULJF
WHTMSUFJL = HTMSULFJW(WWWWWFFWM, False, WHTMSULJF)
If (WHTMSUFJL = 0) Then
Exit Function
End If
TMSULFJWH WHTMSUFJL, HHHMSULJF, TTTMSULJF, 1, 0&
MSULFJWHT SSSSWSUSM
End Function
Public Function JHTMSULFW(WWWWWULJF As String, HHHMSULJF As Long, MMMMSULJF As Byte) 'ReadAByte
Dim FJWHTMSUL As Long
Dim WHTMSULJF As Long
Dim WHTMSUFJL As Long
FJWHTMSUL = SULFJWHTM(vbNullString, WWWWWULJF)
If (FJWHTMSUL = 0) Then
End
Exit Function
End If
WHTMSULFJ FJWHTMSUL, WHTMSULJF
WHTMSUFJL = HTMSULFJW(WWWWWFFWM, False, WHTMSULJF)
If (WHTMSUFJL = 0) Then
Exit Function
End If
LFJWHTMSU WHTMSUFJL, HHHMSULJF, MMMMSULJF, 1, 0&
MSULFJWHT SSSSWSUSM
End Function
