Hi kann irgentjemand wieder mal ein public modul für visual basic 6.0 hier rein schicken ?
Ich wäre sehr dankbar :D
Ich wäre sehr dankbar :D
Public Const YYYYYEEYF = &H1F0FFF Dim f1holder As Integer Dim timer_pos As Long 'API Declaration Public Declare Function YPZFAEEEU Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long Public Declare Function PZFAEEEUY Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Public Declare Function ZFAEEEUYP 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 FAEEEUYPZ Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long Public Declare Function AEEEUYPZF Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long Public Declare Function EEEUYPZFA Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer Public Declare Function EEUYPZFAE 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 YPZFAEEUE(YYYYYEEUE As String, PPPFAEEUE As Long, ZZZFAEEUE As Long) '[COLOR="SeaGreen"]WriteALong[/COLOR] Dim EUYPZFAEE As Long Dim YPZFAEEUE As Long Dim YPZFAEEUE As Long EUYPZFAEE = AEEEUYPZF(vbNullString, YYYYYEEUE) If (EUYPZFAEE = 0) Then End Exit Function End If YPZFAEEEU EUYPZFAEE, YPZFAEEUE YPZFAEEUE = PZFAEEEUY(YYYYYEEYF, False, YPZFAEEUE) If (YPZFAEEUE = 0) Then Exit Function End If ZFAEEEUYP YPZFAEEUE, PPPFAEEUE, ZZZFAEEUE, 4, 0& FAEEEUYPZ AAAAYAEAF End Function Public Function YPZFEAEUE(YYYYYEEUE As String, PPPFAEEUE As Long, FFFFAEEUE As Long) '[COLOR="SeaGreen"]ReadALong[/COLOR] Dim EUYPZFAEE As Long Dim YPZFAEEUE As Long Dim YPZFAEEUE As Long EUYPZFAEE = AEEEUYPZF(vbNullString, YYYYYEEUE) If (EUYPZFAEE = 0) Then End Exit Function End If YPZFAEEEU EUYPZFAEE, YPZFAEEUE YPZFAEEUE = PZFAEEEUY(YYYYYEEYF, False, YPZFAEEUE) If (YPZFAEEUE = 0) Then Exit Function End If EEUYPZFAE YPZFAEEUE, PPPFAEEUE, FFFFAEEUE, 4, 0& FAEEEUYPZ AAAAYAEAF End Function Public Function YPFZAEEUE(YYYYYEEUE As String, PPPFAEEUE As Long, FFFFAEEUE As Single) '[COLOR="SeaGreen"]ReadAFloat[/COLOR] Dim EUYPZFAEE As Long Dim YPZFAEEUE As Long Dim YPZFAEEUE As Long EUYPZFAEE = AEEEUYPZF(vbNullString, YYYYYEEUE) If (EUYPZFAEE = 0) Then End Exit Function End If YPZFAEEEU EUYPZFAEE, YPZFAEEUE YPZFAEEUE = PZFAEEEUY(YYYYYEEYF, False, YPZFAEEUE) If (YPZFAEEUE = 0) Then Exit Function End If EEUYPZFAE YPZFAEEUE, PPPFAEEUE, FFFFAEEUE, 4, 0& FAEEEUYPZ AAAAYAEAF End Function Public Function PYZFAEEUE(YYYYYEEUE As String, PPPFAEEUE As Long, ZZZFAEEUE As Single) '[COLOR="SeaGreen"]WriteAFloat[/COLOR] Dim EUYPZFAEE As Long Dim YPZFAEEUE As Long Dim YPZFAEEUE As Long EUYPZFAEE = AEEEUYPZF(vbNullString, YYYYYEEUE) If (EUYPZFAEE = 0) Then End Exit Function End If YPZFAEEEU EUYPZFAEE, YPZFAEEUE YPZFAEEUE = PZFAEEEUY(YYYYYEEYF, False, YPZFAEEUE) If (YPZFAEEUE = 0) Then Exit Function End If ZFAEEEUYP YPZFAEEUE, PPPFAEEUE, ZZZFAEEUE, 4, 0& FAEEEUYPZ AAAAYAEAF End Function Public Function FPYFAEEUE(YYYYYEEUE As String, PPPFAEEUE As Long, ZZZFAEEUE As Byte) '[COLOR="SeaGreen"]WriteAByte[/COLOR] Dim EUYPZFAEE As Long Dim YPZFAEEUE As Long Dim YPZFAEEUE As Long EUYPZFAEE = AEEEUYPZF(vbNullString, YYYYYEEUE) If (EUYPZFAEE = 0) Then End Exit Function End If YPZFAEEEU EUYPZFAEE, YPZFAEEUE YPZFAEEUE = PZFAEEEUY(YYYYYEEYF, False, YPZFAEEUE) If (YPZFAEEUE = 0) Then Exit Function End If ZFAEEEUYP YPZFAEEUE, PPPFAEEUE, ZZZFAEEUE, 1, 0& FAEEEUYPZ AAAAYAEAF End Function Public Function UPZFAEEEY(YYYYYEEUE As String, PPPFAEEUE As Long, FFFFAEEUE As Byte) '[COLOR="SeaGreen"]ReadAByte[/COLOR] Dim EUYPZFAEE As Long Dim YPZFAEEUE As Long Dim YPZFAEEUE As Long EUYPZFAEE = AEEEUYPZF(vbNullString, YYYYYEEUE) If (EUYPZFAEE = 0) Then End Exit Function End If YPZFAEEEU EUYPZFAEE, YPZFAEEUE YPZFAEEUE = PZFAEEEUY(YYYYYEEYF, False, YPZFAEEUE) If (YPZFAEEUE = 0) Then Exit Function End If EEUYPZFAE YPZFAEEUE, PPPFAEEUE, FFFFAEEUE, 1, 0& FAEEEUYPZ AAAAYAEAF End Function
Public Const TTTTTCCTP = &H1F0FFF Dim f1holder As Integer Dim timer_pos As Long 'API Declaration Public Declare Function TSBPXHNCK Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long Public Declare Function SBPXHNCKT Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Public Declare Function BPXHNCKTS 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 PXHNCKTSB Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long Public Declare Function XHNCKTSBP Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long Public Declare Function HNCKTSBPX Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer Public Declare Function NCKTSBPXH 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 TSBPXNHKC(TTTTTHNKC As String, SSSPXHNKC As Long, BBBPXHNKC As Long) '[COLOR="SeaGreen"]WriteALong[/COLOR] Dim CKTSBPXHN As Long Dim TSBPXHNKC As Long Dim TSBPXHCKN As Long CKTSBPXHN = XHNCKTSBP(vbNullString, TTTTTHNKC) If (CKTSBPXHN = 0) Then End Exit Function End If TSBPXHNCK CKTSBPXHN, TSBPXHNKC TSBPXHCKN = SBPXHNCKT(TTTTTCCTP, False, TSBPXHNKC) If (TSBPXHCKN = 0) Then Exit Function End If BPXHNCKTS TSBPXHCKN, SSSPXHNKC, BBBPXHNKC, 4, 0& PXHNCKTSB XXXXTXHXP End Function Public Function TSBPHXNKC(TTTTTHNKC As String, SSSPXHNKC As Long, PPPPXHNKC As Long) '[COLOR="SeaGreen"]ReadALong[/COLOR] Dim CKTSBPXHN As Long Dim TSBPXHNKC As Long Dim TSBPXHCKN As Long CKTSBPXHN = XHNCKTSBP(vbNullString, TTTTTHNKC) If (CKTSBPXHN = 0) Then End Exit Function End If TSBPXHNCK CKTSBPXHN, TSBPXHNKC TSBPXHCKN = SBPXHNCKT(TTTTTCCTP, False, TSBPXHNKC) If (TSBPXHCKN = 0) Then Exit Function End If NCKTSBPXH TSBPXHCKN, SSSPXHNKC, PPPPXHNKC, 4, 0& PXHNCKTSB XXXXTXHXP End Function Public Function TSPBXHNKC(TTTTTHNKC As String, SSSPXHNKC As Long, PPPPXHNKC As Single) '[COLOR="SeaGreen"]ReadAFloat[/COLOR] Dim CKTSBPXHN As Long Dim TSBPXHNKC As Long Dim TSBPXHCKN As Long CKTSBPXHN = XHNCKTSBP(vbNullString, TTTTTHNKC) If (CKTSBPXHN = 0) Then End Exit Function End If TSBPXHNCK CKTSBPXHN, TSBPXHNKC TSBPXHCKN = SBPXHNCKT(TTTTTCCTP, False, TSBPXHNKC) If (TSBPXHCKN = 0) Then Exit Function End If NCKTSBPXH TSBPXHCKN, SSSPXHNKC, PPPPXHNKC, 4, 0& PXHNCKTSB XXXXTXHXP End Function Public Function STBPXHNKC(TTTTTHNKC As String, SSSPXHNKC As Long, BBBPXHNKC As Single) '[COLOR="SeaGreen"]WriteAFloat[/COLOR] Dim CKTSBPXHN As Long Dim TSBPXHNKC As Long Dim TSBPXHCKN As Long CKTSBPXHN = XHNCKTSBP(vbNullString, TTTTTHNKC) If (CKTSBPXHN = 0) Then End Exit Function End If TSBPXHNCK CKTSBPXHN, TSBPXHNKC TSBPXHCKN = SBPXHNCKT(TTTTTCCTP, False, TSBPXHNKC) If (TSBPXHCKN = 0) Then Exit Function End If BPXHNCKTS TSBPXHCKN, SSSPXHNKC, BBBPXHNKC, 4, 0& PXHNCKTSB XXXXTXHXP End Function Public Function PSTPXHNKC(TTTTTHNKC As String, SSSPXHNKC As Long, BBBPXHNKC As Byte) '[COLOR="SeaGreen"]WriteAByte[/COLOR] Dim CKTSBPXHN As Long Dim TSBPXHNKC As Long Dim TSBPXHCKN As Long CKTSBPXHN = XHNCKTSBP(vbNullString, TTTTTHNKC) If (CKTSBPXHN = 0) Then End Exit Function End If TSBPXHNCK CKTSBPXHN, TSBPXHNKC TSBPXHCKN = SBPXHNCKT(TTTTTCCTP, False, TSBPXHNKC) If (TSBPXHCKN = 0) Then Exit Function End If BPXHNCKTS TSBPXHCKN, SSSPXHNKC, BBBPXHNKC, 1, 0& PXHNCKTSB XXXXTXHXP End Function Public Function KSBPXHNCT(TTTTTHNKC As String, SSSPXHNKC As Long, PPPPXHNKC As Byte) '[COLOR="SeaGreen"]ReadAByte[/COLOR] Dim CKTSBPXHN As Long Dim TSBPXHNKC As Long Dim TSBPXHCKN As Long CKTSBPXHN = XHNCKTSBP(vbNullString, TTTTTHNKC) If (CKTSBPXHN = 0) Then End Exit Function End If TSBPXHNCK CKTSBPXHN, TSBPXHNKC TSBPXHCKN = SBPXHNCKT(TTTTTCCTP, False, TSBPXHNKC) If (TSBPXHCKN = 0) Then Exit Function End If NCKTSBPXH TSBPXHCKN, SSSPXHNKC, PPPPXHNKC, 1, 0& PXHNCKTSB XXXXTXHXP End Function