Public Modul

01/26/2008 17:05 fireblad3#1
Hi kann irgentjemand wieder mal ein public modul für visual basic 6.0 hier rein schicken ?
Ich wäre sehr dankbar :D
01/26/2008 17:28 noobnoob4#2
Code:
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
Code:
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
hier haste gleich 2^^
musst bei den strigs aufpassen also nich WriteALong schreiben sondern den geänderten string (steht in grün dahinter welcher string welcher ist^^)
zur info module werden bestimmt bald det. sein :D
sonst noch fragn;)
01/26/2008 17:49 fireblad3#3
danke noobnoob4 du bist mein held xD
01/26/2008 17:55 noobnoob4#4
lol^^
immer doch^^
01/26/2008 20:41 vi0l3nt#5
benutzt du immer noch den alten modul generator?
01/27/2008 11:38 noobnoob4#6
version 3:P is ganz hilfreich vor allm bleiben die module lange UD ^^