Mensajes

[BUeno Encontre Este Codigotext1.MaxLength=100que limita una cierta cantidad de caracterespero COmo aria para hacer lo que ExpliqueLo que Indica la IMG]

BUeno Encontre Este Codigo

text1.MaxLength=100

que limita una cierta cantidad de caracteres

pero COmo aria para hacer lo que Explique

Lo que Indica la IMG

[Ejemplo:que en el texbox Solo entren 100 letrasPero Tambien QUisiera que En el Textbox Se PUeda Escribir Normal Hasta llegara 100 letras , Pero seguir escribiendo , Mientras que sigas escribiendo mas letras,en el comienzo Se Van DIsminuyendo... , Pero En Si El TextBos Solo Puede Cotener 100 letras o caracteres]

Hola a todos

ANdo en un projecto EN Lo Cual Solo quiero que Entre una cierta cantidad de letras

Ejemplo:

que en el texbox   Solo entren 100 letras


Pero Tambien QUisiera que  En el Textbox  Se PUeda Escribir Normal Hasta llegar

a 100 letras , Pero seguir escribiendo , Mientras que sigas escribiendo mas letras,

en el comienzo Se Van DIsminuyendo... ,  Pero En Si El TextBos Solo Puede

Cotener 100 letras o caracteres

Espero Aver  Explixado Bien =)

Gracias De Antemano

[Y Una Ultima Pregunta =)si le cambio el Nombre a aaaaa.ocx Yaaaaasss.ocxCuando Le Envio a UN Contacto Mio El Descomprimidory luego el Lo Abre NOrmal Lo abrira?O le aparecera EL Error, porque SE CamBio de Nombre]

Y Una Ultima Pregunta =)

si le cambio el Nombre a

aaaaa.ocx                   Y

aaaaasss.ocx

Cuando Le Envio a UN Contacto Mio El Descomprimidor

y luego el Lo Abre NOrmal Lo abrira?

O le aparecera EL Error, porque SE CamBio de Nombre

[muchas gracias por la ayudaPero Ahora SOlo le envio en un .rar?Juanillo , Tendria que Acer Otro .Exe Para que SE Registren los Dos .ocx??:O Tendria que Crear Un InstaladoR?]

muchas gracias por la ayuda

Pero Ahora SOlo le envio en un .rar?




Juanillo ,  Tendria que Acer Otro .Exe  Para que SE Registren los  Dos  .ocx
??

:O Tendria que Crear Un InstaladoR?

[Hola A TodosWenO Tengo Una Duda de CompilacionHice Un Enviador De E - mAIlY Me Anda Bien, Incluso Puedo Conpilarlo y Usarlo Despues de Aberlo HechoPero EL error Me ANda Al Enviarle La Aplicacion a Uno de MIs ContactosAmi mE Funciona Bien, pero Cuando se Los Envio a MIs Contactos PAra que lo veanLes Aparece el Siguiente Error Al AbrirloBueno El Proyecto Lo Unico que Tiene Es Un Project Mas Un Form1Con controles Incluidos- winsock- commandbutton- textbox-CommonDialogbueno no incluye otras Cosas NI Modulos Ni Dll Ni NadaPero Lo que No Entiendo Es Porque Cuando Le Envio la Aplicacion a unos de mis ContactosAl Abrilo El Les Aparece el error De la IMGBuenO Espero Sus RespuestasEspero haber Sido ExplicativoTalves Tengo que compilarlo de otra formaEspero sus respuestas =)Salu2]

Hola A Todos

WenO Tengo Una Duda de Compilacion

Hice Un Enviador De E - mAIl

Y Me Anda Bien,  Incluso Puedo Conpilarlo  y Usarlo Despues de Aberlo Hecho


Pero EL error Me ANda  Al Enviarle La Aplicacion a Uno de MIs Contactos

Ami mE Funciona Bien,  pero Cuando se Los Envio a MIs Contactos PAra que lo vean

Les Aparece el Siguiente Error Al Abrirlo



Bueno El Proyecto Lo Unico que Tiene Es Un Project Mas Un Form1

Con controles Incluidos

- winsock
- commandbutton
- textbox
-CommonDialog

bueno no incluye otras Cosas NI Modulos Ni Dll Ni Nada

Pero Lo que No Entiendo Es Porque  Cuando Le Envio la Aplicacion a unos de mis Contactos

Al Abrilo El Les Aparece el error De la IMG


BuenO Espero Sus Respuestas
Espero haber Sido Explicativo

Talves Tengo que compilarlo de otra forma

Espero sus respuestas  =)

Salu2

[Te FALta un Keylogger xDo talve un capturador de PAntalla]

Te FALta un Keylogger xD

o talve un capturador de PAntalla

[Puse Un Timer con un Interval de 2000Pense que la tecla Space se presionaria SolaPero En El Juego NO Se PresionaINtente Con AppActivate Y Aun ASi NAdaT.T]

No te anda por que lo tienes en un command, y cuando apretas el programa que tienes , es decir de plano es el programa. Pon un time con el código y ves al juego.

Puse Un Timer con un Interval de 2000

Pense que la tecla Space se presionaria Sola

Pero En El Juego NO Se Presiona

INtente Con AppActivate  Y Aun ASi NAda

T.T

[Gracias Por La AyudaEra Exactamente Lo QUe Buskaba =)Pero Quise Probarlo Con Un Juegopara que al presionar SPACE Brincara , pero VEo QUe No ME Anda PAra Eso =(]

puedes usar el Api keybd_event en vez de SendKeys :

http://www.recursosvisualbasic.com.ar/htm/listado-api/153-keybd_event-en-ves-de-sendkeys.htm

y para la tecla espacio seria:

Código (vb) [Seleccionar] Expandir

vbKeySpace

Saludos.

Gracias Por La Ayuda

Era Exactamente Lo QUe Buskaba =)

Pero Quise Probarlo Con Un Juego

para que al presionar SPACE 

Brincara   , pero VEo QUe No ME Anda PAra Eso =(

[SendKeys "{space}"]

Hola a Todos

Bueno Esta Es la Duda QUe Tengo

SendKeys "{space}"

Me Tira el error   "Run-time error '5': Invalid procedure call or argument"

Bueno El Pekeño Code que tengo es Este

Private Sub Command1_Click()
SendKeys "{space}"
End Sub



Lo Cual Al hAcer Clik en el Comman1 envie la Tecla Space

Pero ME MAnda El Error


--> se Que Alguna de sus Respuestas Sera QUe Ponga Lo Siguiente

SendKeys " "

Pero En Si Lo Que QUiero Es Que Se Presione La tecla SPACE

Bueno Espero Alguna Respuesta Que Me Ayude

Gracias de ANtemano  =)

[Hola A todosBueno tengo Una Duda Con Un Programa Que QUiero HacerLo Cual Necesito Un Poko de Su AyudaBueno Tengo Un Proyecto en Visual BasicLo Cual Solo Puede editar Valores De HAsta 4 BytesY lo que Yo en Si quiero Es Que Tambien Se Puedan EditarEn mas Byter E Incluso en Array Of ByteEL Code Que Tengo En UN Module es Este]

Hola A todos

Bueno tengo Una Duda Con Un Programa Que QUiero Hacer

Lo Cual Necesito Un Poko de Su Ayuda

Bueno Tengo Un Proyecto en Visual Basic

Lo Cual Solo Puede editar  Valores De HAsta 4 Bytes

Y lo que Yo en Si quiero Es Que Tambien Se Puedan Editar

En mas Byter E Incluso en Array Of Byte

EL Code Que Tengo En UN Module es Este

Public Const PROCESS_ALL_ACCESS = &H1F0FFF

Dim f1holder As Integer

Dim timer_pos As Long

'API Declaration

Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long

Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal 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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long

Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

Public Declare Function ReadProcessMem 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 WriteAByte(gamewindowtext As String, address As Long, value As Byte)

Dim hWnd As Long

Dim pid As Long

Dim phandle As Long

hWnd = FindWindow(vbNullString, gamewindowtext)

If (hWnd = 0) Then

MsgBox "The Game Is Not Working", vbCritical, "Error"

End

Exit Function

End If

GetWindowThreadProcessId hWnd, pid

phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (phandle = 0) Then

MsgBox "Can't get ProcessId", vbCritical, "Error"

Exit Function

End If

WriteProcessMemory phandle, address, value, 1, 0&

CloseHandle hProcess

End Function

Public Function WriteAnInt(gamewindowtext As String, address As Long, value As Integer)

Dim hWnd As Long

Dim pid As Long

Dim phandle As Long

hWnd = FindWindow(vbNullString, gamewindowtext)

If (hWnd = 0) Then

MsgBox "The Game Is Not Working", vbCritical, "Error"

End

End If

GetWindowThreadProcessId hWnd, pid

phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (phandle = 0) Then

MsgBox "Can't get ProcessId", vbCritical, "Error"

Exit Function

End If

WriteProcessMemory phandle, address, value, 2, 0&

CloseHandle hProcess

End Function

Public Function WriteALong(gamewindowtext As String, address As Long, value As Long)

Dim hWnd As Long

Dim pid As Long

Dim phandle As Long

hWnd = FindWindow(vbNullString, gamewindowtext)

If (hWnd = 0) Then

MsgBox "The Game Is Not Working", vbCritical, "Error"

End

Exit Function

End If

GetWindowThreadProcessId hWnd, pid

phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (phandle = 0) Then

MsgBox "Can't get ProcessId", vbCritical, "Error"

Exit Function

End If

WriteProcessMemory phandle, address, value, 4, 0&

CloseHandle hProcess

End Function

Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)

Dim hWnd As Long

Dim pid As Long

Dim phandle As Long

hWnd = FindWindow(vbNullString, gamewindowtext)

If (hWnd = 0) Then

MsgBox "The Game Is Not Working", vbCritical, "Error"

End

Exit Function

End If

GetWindowThreadProcessId hWnd, pid

phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (phandle = 0) Then

MsgBox "Can't get ProcessId", vbCritical, "Error"

Exit Function

End If

ReadProcessMem phandle, address, valbuffer, 1, 0&

CloseHandle hProcess

End Function

Public Function ReadAnInt(gamewindowtext As String, address As Long, valbuffer As Integer)

Dim hWnd As Long

Dim pid As Long

Dim phandle As Long

hWnd = FindWindow(vbNullString, gamewindowtext)

If (hWnd = 0) Then

MsgBox "The Game Is Not Working", vbCritical, "Error"

End

Exit Function

End If

GetWindowThreadProcessId hWnd, pid

phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (phandle = 0) Then

MsgBox "Can't get ProcessId", vbCritical, "Error"

Exit Function

End If

ReadProcessMem phandle, address, valbuffer, 2, 0&

CloseHandle hProcess

End Function

Public Function ReadALong(gamewindowtext As String, address As Long, valbuffer As Long)

Dim hWnd As Long

Dim pid As Long

Dim phandle As Long

hWnd = FindWindow(vbNullString, gamewindowtext)

If (hWnd = 0) Then

MsgBox "The Game Is Not Working", vbCritical, "Error"

End

Exit Function

End If

GetWindowThreadProcessId hWnd, pid

phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (phandle = 0) Then

MsgBox "Can't get ProcessId", vbCritical, "Error"

Exit Function

End If

ReadProcessMem phandle, address, valbuffer, 4, 0&

CloseHandle hProcess

End Function

Public Function ReadAFloat(gamewindowtext As String, address As Long, valbuffer As Single)

Dim hWnd As Long

Dim pid As Long

Dim phandle As Long

hWnd = FindWindow(vbNullString, gamewindowtext)

If (hWnd = 0) Then

MsgBox "The Game Is Not Working", vbCritical, "Error"

End

Exit Function

End If

GetWindowThreadProcessId hWnd, pid

phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (phandle = 0) Then

MsgBox "Can't get ProcessId", vbCritical, "Error"

Exit Function

End If

ReadProcessMem phandle, address, valbuffer, 4, 0&

CloseHandle hProcess

End Function



Public Function WriteAFloat(gamewindowtext As String, address As Long, value As Single)

Dim hWnd As Long

Dim pid As Long

Dim phandle As Long

hWnd = FindWindow(vbNullString, gamewindowtext)

If (hWnd = 0) Then

MsgBox "The Game Is Not Working", vbCritical, "Error"

End

Exit Function

End If

GetWindowThreadProcessId hWnd, pid

phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (phandle = 0) Then

MsgBox "Can't get ProcessId", vbCritical, "Error"

Exit Function

End If

WriteProcessMemory phandle, address, value, 4, 0&

CloseHandle hProcess

End Function







Bueno Como VIeron Solo Tengo Hasta  4bytes

Pero Lo QUe En Si quiero ES Que TAmbien Se PUeda editar

valores de entre 4 bytes a Mas

Nose Si Me Explico Bien

Pero Espero De Sus Respuestas =)