Need help with my UDM

[poon hacker]

I can't tell if it's detected, or how to use it. Thanks guys.

[HTML]Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function Alias "Get" Lib "user32" Alias "GetWindowThreadProcessId" (ByVal Alias "Wnd" As Long, lpdwProcessId As Long) As Long
Public Declare Function Alias "Open" Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function Alias "Write" 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 Alias "Close" Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function Alias "Find" Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function Alias "Getk" Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function Alias "Read" 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 Alias "WriteLong"(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Long)
Dim Alias "Wnd" As Long
Dim Alias "Pd" As Long
Dim Alias "Get"0 As Long
Alias "Wnd" = Alias "Find"(vbNullString, Warrock_fenster_4_)
If (Alias "Wnd" = 0) Then
End
Exit Function
End If
Alias "Get" Alias "Wnd", Alias "Pd"
Alias "Get"0 = Alias "Open"(PROCESS_ALL_ACCESS, False, Alias "Pd")
If (Alias "Get"0 = 0) Then
Exit Function
End If
Alias "Write" Alias "Get"0, Combination_4_, Super_zahl_4_, 4, 0&
Alias "Close" hProcess
End Function

Public Function Alias "ReadLong"(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Long)
Dim Alias "Wnd" As Long
Dim Alias "Pd" As Long
Dim Alias "Get"0 As Long
Alias "Wnd" = Alias "Find"(vbNullString, Warrock_fenster_4_)
If (Alias "Wnd" = 0) Then
End
Exit Function
End If
Alias "Get" Alias "Wnd", Alias "Pd"
Alias "Get"0 = Alias "Open"(PROCESS_ALL_ACCESS, False, Alias "Pd")
If (Alias "Get"0 = 0) Then
Exit Function
End If
Alias "Read" Alias "Get"0, Combination_4_, Super_zahl_filter_4_, 4, 0&
Alias "Close" hProcess
End Function

Public Function Alias "ReadFloat"(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Single)
Dim Alias "Wnd" As Long
Dim Alias "Pd" As Long
Dim Alias "Get"0 As Long
Alias "Wnd" = Alias "Find"(vbNullString, Warrock_fenster_4_)
If (Alias "Wnd" = 0) Then
End
Exit Function
End If
Alias "Get" Alias "Wnd", Alias "Pd"
Alias "Get"0 = Alias "Open"(PROCESS_ALL_ACCESS, False, Alias "Pd")
If (Alias "Get"0 = 0) Then
Exit Function
End If
Alias "Read" Alias "Get"0, Combination_4_, Super_zahl_filter_4_, 4, 0&
Alias "Close" hProcess
End Function

Public Function Alias "WriteFloat"(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Single)
Dim Alias "Wnd" As Long
Dim Alias "Pd" As Long
Dim Alias "Get"0 As Long
Alias "Wnd" = Alias "Find"(vbNullString, Warrock_fenster_4_)
If (Alias "Wnd" = 0) Then
End
Exit Function
End If
Alias "Get" Alias "Wnd", Alias "Pd"
Alias "Get"0 = Alias "Open"(PROCESS_ALL_ACCESS, False, Alias "Pd")
If (Alias "Get"0 = 0) Then
Exit Function
End If
Alias "Write" Alias "Get"0, Combination_4_, Superzahl_4_, 4, 0&
Alias "Close" hProcess
End Function

Public Function Alias "WriteByte"(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Byte)
Dim Alias "Wnd" As Long
Dim Alias "Pd" As Long
Dim Alias "Get"0 As Long
Alias "Wnd" = Alias "Find"(vbNullString, Warrock_fenster_4_)
If (Alias "Wnd" = 0) Then
End
Exit Function
End If
Alias "Get" Alias "Wnd", Alias "Pd"
Alias "Get"0 = Alias "Open"(PROCESS_ALL_ACCESS, False, Alias "Pd")
If (Alias "Get"0 = 0) Then
Exit Function
End If
Alias "Write" Alias "Get"0, Combination_4_, Super_zahl_4_, 1, 0&
Alias "Close" hProcess
End Function

Public Function Alias "ReadByte"(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Byte)
Dim Alias "Wnd" As Long
Dim Alias "Pd" As Long
Dim Alias "Get"0 As Long
Alias "Wnd" = Alias "Find"(vbNullString, Warrock_fenster_4_)
If (Alias "Wnd" = 0) Then
End
Exit Function
End If
Alias "Get" Alias "Wnd", Alias "Pd"
Alias "Get"0 = Alias "Open"(PROCESS_ALL_ACCESS, False, Alias "Pd")
If (Alias "Get"0 = 0) Then
Exit Function
End If
Alias "Read" Alias "Get"0, Combination_4_, Super_zahl_filter_4_, 1, 0&
Alias "Close" hProcess
End Function
[/HTML]

[radnomguywfq3]

You...use it to see if its detected...or give it to some random noob.

[poon hacker]

Alright then. Guess I'll test it out.

[wieter20]

i wana bet that 1 is detected just get urself a module and change keywords like writealong writeafloat in to like ice cream1 or shit2

[da_je]

i wana bet that 1 is detected just get urself a module and change keywords like writealong writeafloat in to like ice cream1 or shit2

uhm yeh.. its should be perfect name ;]