Temas

Buenas, tengo una nueva duda me explico, yo tengo tengo codigos en un proyecto vb6 para mover mouse y detecetar el click, por ende al hacer click realiza una accion con el fin de automatizar una accion, en este caso uso el mouse click derecho, y tengo otro codigo que me lee las coordenas X Y de mi mouse, ahora que entienden estas 3 capacidad de lectura XY mouse, deteccion de click y mover y realizar accion en mi proyecyo les muestro mi codigo.

If GetAsyncKeyState(2) Then
If Mouse.X > "581" And Mouse.X < "667" And Mouse.Y > "354" And Mouse.Y < "382" Then
Sendkeys ("hola")
End If
End If

Si logran entender el codigo correctamente lo que hace es preguntar si el mouseclick derecho se clickea entre las dimenciones de un rectangular que yo fije con XY del mouse y si esta en esa parte escribe "hola".
Si esta todo entendido a este punto les cuento que quiero hacer que, pregunte si el mouseclick derecho se clickea entre esas dimenciones y si lo hace (que ahi lo hace) despues del proximo mouseclick derecho ahi esribe el "hola" por ende tengo que tocar el click derecho en esa sección rectangular y despues donde quiera y ahi escribe "hola"

Si no lograron entender lo que quiero decir escriban y repondo rapidamente.
Yo si lo logro sacar el code lo comento y cierro th.

Saludos

Buenas hace tiempo habia echo un programa que yo en un textbox escribia el nombre/caption del proceso y en otro la direccion address y al darle a un command1 escribia el valor  de ese address y si lo ponia en un timer hasta se actualizaba, todo esto en vb.net
Ahora yo ncesito hacer algo como este programa pero en vb6 ya que perdi los codigos.

Muchas Gracias

no saben lo que cuesta escribir el problema es simple

se me cambio de lugar el "wasd" por las flechitas ahora e s
W=arriba
S=abajo
etc como lo cambio..? tengo windows 8

Buenas!

Estoy haciendo un programa que quiero que descargue, registre unos archivos .OCX .DLL

Pude mediante un servidor FTP manejandome con Init etc, descargar un archivo .rar de un servidor que yo subi. Lo descarga y lo extrae en el directorio de donde se encuentra el mismo proyecto.

El problema es que no se como hacer que registre todas las .OCX y .DLL


Pido ayuda, saludos!

Una pequeña pregunta, com oes que hago un proyecto parecido a WPE Pro, osea.
Como envio paquetes a un juego, desde el vb.

Me fije en varios post, tanto en spanish como en english. Y no se, recurro aca como la ultima opcion, por que pense que podia hacerlo solo.

Que apis uso y eso pregunto.


Saludos!

Buenas, tengo un problema bastante simple pienso yo.
El problema es que mi pc es vieja.

Cuando yo accedo a la configuración de la BIOS para acceder desde un pendrive booteado (Con windows xp ).

Aparece un menu de Boot de con que va a iniciar, aparece el disco duro, CD y usb.
El tema es que yo no puedo cambiar para que inicie con el usb..

Aparece al lado de la opcion de disco duro un "+" y probe tocando todas las teclas  pero no funciono nada.

Espero respuestas!
Saludos!

Bueno, tengo una duda bastante básica creo yo pero no se como plantearla en vb6

Hice un cronometro hacia atrás que cuentas minutos y segundos, me funciona bien todo etc..
El tema es que yo al darle iniciar, inicia a contar hacia atrás, pero quiero que al darle al botón "parar saque la diferencia del tiempo que sobro.

En un TxtMinutos22 el usuario coloca los minutos
En un TxtSegundos22 el usuario coloca los segundos

Supongamos que puso 5 minutos y con 00 segundos

Le da al botón parar a cuando pasaron 1:30 minutos entonces el contador estaría en 3:30 entonces quiero que saque la diferencia entre 5:00 y 3:30 y que en TxtSegundos y TxtMinutos ponga la diferencia..

El problema es que como se actualiza siendo un contador obviamente, no puedo hacer que haga TxtMinutos.text - TxtMinutos.text por que se actualiza y no se que hacer


Asi que no se, espero ayuda...

Gracias de ante mano!
Saludos!

El problemas es simple, no puedo abrir mis puertos.
Tengo windows 8

Abrí una "cmd"  como administrador puse el comando "ipconfig" conseguí la dirección de IP la cual "192.168.0.1"
Coloque la IP, en la dirección de URL, tanto como en el navegador chrome como en internet explorer, probe banda de cosas.
Mi moden es, Motorola SBG901

Buenas tengo un problema, me compre una notebook, con lo cual anda vacia sin nada. Le instale lo basico, despues pase a instalarle el visual basic 6.0.
La instalacion anduvo joya, hasta cierto punto. Termina de instalar, dice un cartel como "Cambiando la configuración del sistema" algo asi maso menos, y me tira un error diciendo.

"Javasign.dll no se pudo registrar en el registro del sistema" ahi para la instalacion le doy a aceptar y se cierra, bueno, algo se de computadoras e intente esto (Obviamente como hago el tema, envano):

-Instalarte las librerias javasign.dll manualmente desde una cmd (Iniciando como admin, y tengo admin en el sistema operativo)
-Me dijeron si era admin en el sistema operativo, y si lo soy.

Hubo programas que decian que arreglaban esto pero no se cuales.
Ese es mi error, lo que pasa ademas es que al instalar una libreria como la javasign.dll me dice error al cargar modulo, y otra cosa mas de binario.

Muchas Gracias!
Saludos y Espero Respuesta!

Buenas, estuve haciando un cambia caption.
Cambiar la caption de una ventana poniendo yo los datos que quiero etc.

El cambia caption lo hice asi:

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32.dll" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Sub Command1_Click()
    Dim Ret As Long
    Ret = FindWindow(vbNullString, Text1.Text)
    SetWindowText Ret, Text2.Text
End Sub

(Generen el codigo en su vb para entender mejor)

Y me funciono bien, pero lo que quiero hacer ahora es mejorarlo, de manera que pueda ver los caption es un listbox y cambiandolo dandole click a la caption en la lista y poniendo en un textbox el nombre y dandole al commandbutton bueno, para que ejecute la acción de cambiar la caption.

Lo mas que pude acercarme a eso fue este codigo:
(generenlo en vb para entenderlo mejor)

Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long

Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)

Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * 260
End Type

'Para llenar el listbox con los procesos
Sub RellenaLista()
On Error Resume Next
Dim hSnapShot As Long
Dim uProceso As PROCESSENTRY32
Dim res As Long
List1.Clear
hSnapShot = CreateToolhelpSnapshot(2&, 0&)
If hSnapShot <> 0 Then
uProceso.dwSize = Len(uProceso)
res = ProcessFirst(hSnapShot, uProceso)
Do While res
List1.AddItem Left$(uProceso.szExeFile, InStr(uProceso.szExeFile, Chr$(0)) - 1)
List1.ItemData(List1.NewIndex) = uProceso.th32ProcessID
res = ProcessNext(hSnapShot, uProceso)
Loop
Call CloseHandle(hSnapShot)
End If

End Sub

Private Sub Form_Load()
RellenaLista
End Sub

Pero me muestra los procesos, no las caption de los .exe abiertos. Y ahi me quede.

Espero que ustedes me puedan ayudar a terminar el proyecto, por que me quede estancado.

Saludos!

Buenas esta es una duda que antes de postear esto eh, investigado en internet, google, y este mismo foro con temas parecidos.

Lo que quiero hacer basicamente es enviar un packet hacia una app que tengo abierta.
Segun lo que tengo entendido se hace atreves de winshock  etc
por que me vi este th http://foro.elhacker.net/programacion_vb/ayuda_programa_que_envie_1_paquete_a_x_servidor-t247752.0.html

Pero no me ayudo a mi caso.
Mas claramente lo que quiero hacer es como lo que hace WpePro, que envia paquetes a un .exe que tengamos abierto para "repetir nuestra acción" por asi decirlo.
Y quiero que se active con el mouse (Esto ya lo se, el tema es para enviar el packet a ese .exe que seria lo importante del proyecto que tengo el mente).

Saludos!
TheJucas21!

Che gente me dicen como hago para reasignar una tecla por otra..
Por ejemplo algo parecido al X-Mouse o Keytwerk

Osea que toco el click de la duedita y pulsa 1 vez 1 tecla.
Se entiende?

Muchas Gracias!
Saludos!

Estoy en un proyecto que me va a durar 1 semana. Y boeno.
Tengo todo planeado, por ahora tendria que funcionar.

Pero necesito saber como poner un timer en horas?
Eso seria todo.

Poner no se un timer que se active cada 1 hora o cada 60 minutos ( que es igual solo que distinto lenguaje )

Muchas gracias!

Buenas.
Yo bootee el usb con windows XP, perfecto.
Dps el problema fue cuando intente iniciar el programa de instalacion...

Inicio el equipo desde usb me aparece para instalar y en un momento aparece esto:



Espero tener una respuesta, me quede sin pc XD
Gracias!
Saludos!

Buenas habia echo un tema y creo que no voy a hacer mas por que casi termino esta busqueda.

Lo que quiero lograr es que la "tarea" se active con un click ( Que eso ya lo logre ) pero fuera del form.
Aca dejo el codigo del proyecto que tengo.

Código [Seleccionar] Expandir

Private Sub Command1_Click()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
                            SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Command2_Click()
SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Form_Load()
Command1.Caption = "Siempre visible"
Command2.Caption = "Ventana Normal"
End Sub

    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        'Sólo basta con vbRightButton, pero puse la línea completa para que veas de dónde viene
        If Button = VBRUN.MouseButtonConstants.vbRightButton Then
             Call Tarea   'Ejecutamos la Tarea
        End If
    End Sub
     
    Private Sub Tarea()
        SetCursorPos "720", "133"
mouse_event MOUSEEVENTF_LEFTDOWN, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 720, 133, 0, 0
SetCursorPos "634", "335"
mouse_event MOUSEEVENTF_LEFTDOWN, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 634, 335, 0, 0
SetCursorPos "620", "390"
mouse_event MOUSEEVENTF_LEFTDOWN, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 620, 390, 0, 0
SetCursorPos "283", "344"
mouse_event MOUSEEVENTF_LEFTDOWN, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 283, 344, 0, 0
End Sub

Como ven no sabia como explicar la "tarea" pero ahi lo ven. Queria lograr, repito, como activarla con click derecho pero fuera del form.
Logre que se active la "tarea" pero tiene que ser click derecho dentro del formulario.

Como lo logro?

Saludos! Suerte!
Muchas Gracias!

Buenas gente!
Me descargue un programa que lo que realiza o su objetivo es el de cambiar la caption. Pero no se de mismo "exe" por asi decirlo si no de cualquier programa que este abierto....
Les dejo el link del programa para que lo analizen y vean mejor que hace.

https://mega.co.nz/#!hltWCAoT!J4Zlxwx4NKR3szHKnXxeBlLDonan3oyzg0EkLib_FDY

IMAGEN! Habia dejado el link pero no importa NO?
http://fotos.subefotos.com/ff85f956e4d295c062e35b331a4abd29o.jpg

Es bastante simple creo yo pero no se como hacerlo.
Y quisiera saber como hacerlo.

Escuche que hay un descompresor o un programa que quita los codes del proyecto de vb6 tambien queria saber que era eso. ( y se los dejo como mini ayuda )

MUCHAS GRACIAS!
Saludos!

    Option Explicit
     
    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        'Sólo basta con vbRightButton, pero puse la línea completa para que veas de dónde viene
        If Button = VBRUN.MouseButtonConstants.vbRightButton Then
             Call Tarea   'Ejecutamos la Tarea
        End If
    End Sub
     
    Private Sub Tarea()
        'Aquí iría la tarea, es decir todo lo que pusiste dentro del evento Timer
    End Sub


Listo!!

Quisiera saber como cambiar la caption mediante un textbox y boton.

Como veran en visual basic 6 es asi el code

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Form1.Caption = Text1.Text
End Sub

Pero en visual basic 2010 o 2008 como es el code?

Muchas Gracias!

Como veran en el titulo.
Lo que busco que es lo siguiente:

Yo programo X programas, y quiero lograr que esten SIEMPRE visibles osea, que aunque abras el navegador ese .exe este delante de el y no que uses otro el otro tambien lo pase...
Se entiende?

Eso me serviria MUCHO y lo vi en varios programas.

Yo me compre una pc digamos "buena" para que no preocuparme que se tilde o nada digamos de "tirón de fps" y para que valla mas rápido en si... y hace poco me compre el Battelfield 3 y las armas cuando "aparezco" tardan aveces 10 o 20 aveces de segundos a aparecer y jode por que no podes ayudar hacer nada... (graficos en medio)
Esta es mi velocidad de internet:
http://www.speedtest.net/my-result/3361845594
Digamos que no es mucho (por que pago por 12 megas y aveces me llegan 20 megas) pero igual es mucho a la ves para cargas eso entonces descontamos el internet y pasamos a la PC:
http://fotos.subefotos.com/a1e30e429d357a7f8b732b31490969b3o.jpg
Una tarjeta gráfica nvdia 7870 de 1gb creo que era.

PD: Si no va acá perdonen muévanlo sin problema pero mándame MP para saber donde lo mueven y revisarlo de ves en cuando.

Saben por que pasa eso D:?

Bueno yo creo proyctos y los subo a internet muchas personas lo buscan okey, con eso yo quiero cobrar osea yo doy el programa y ellos lo prueban por 10 dias se le bloquea y si quieren tener el full pagan y se los doy...
Se entiende vieron al instalar VB 2010 o cualquier programa que dice:
Para poner un serial al programa y si no en 30 dias se bloquea bueno quiero hacer eso mismo pero en 5 dias ok?

PD: Expliquen por pasos y detalladamente si saben por favor.

Muchas Gracias!

Buenas Gente!
Estoy buscando un code en Visual Basic 2010
O un programa o hacerlo de alguna manera como para "habilitar la aplicación" a una IP

Yo creo un form1 poe ejemplo pongu un textbox y otro textbox

con un boton que tenga de code:

Código (vb) [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Usuario.Text = "Pepito" And Contraseña.Text = "Pepapa" Then
Form2.Show()
Me.Hide()
Else
MsgBox("¡¡Nombre De Usuario O Contraseña No Es Correcta!!")
Usuario.Text = ""
Contraseña.Text = ""
End If
End Sub
Osea que si pones en el Box de usuario Pepito y la pass pepapa se muestra el form2 cerrandose al mismo (form1)
y si pones mas la pass o el user te aparece el "msgbox"
Pero quiero hacer que ademas de ver el usuario y las pass vea una IP que escriba para mas seguridad a mi aplicacion.

Muchas Gracias.

Bueno si leen el titulo quisiera saber como hacer esto:

Por ejemplo creo un proyecto, en el form1 pongo un Timer
Timer1

Código [Seleccionar] Expandir

SendKeys ("Este es una prueba para el foro")
Por ejemplo no?
Bueno yo quiero que en vez de poner un CommandButton con

Código [Seleccionar] Expandir

Timer1.Enabled = True
y otro con

Código [Seleccionar] Expandir

Timer1.Enabled = False
Quiero hacerlo mas practico osea que se active el timer pero con el click derecho o el click de la rueda.

PD: Se poco de Vb me gustaría si me explican que sea detalladamente así se hace "rápido"

Muchas Gracias!

Buenas gente como andan soy nuevo en el foro como hacer eso  

Yo tengo un exe que busque con el evento "mouse event"
(descargalo asi no explico tanto)
https://www.mediafire.com/?qhw6apo6q7yaf76

Virus total: https://www.virustotal.com/es/file/997b7b2a07081b145076745e42d3e51c85fc761b0e299c1eef6c3bb23284cea7/analysis/

Veran que al tocar el segundo boton se mueve el mouse a la isquierda de la pantalla toca click lo mantiene y lo mueve a la derecha seleccionando todos los item del escritorio

Ahora quiero saber como hago para que en ves de hacer eso simplemente mueva el mouse a X Y y de click despues a X Y devuelta y de click eso hasta que lo haga tantas veces (por ejemplo 5 veces)

Si necesitan los codes se los paso por MP

Aparte: Quiero saber como activar ese timer por ejemplo con el click derecho del mouse.
Aparte 2: Tambien saber como hacer para que por ejemplo ejecuto el exe y se llama "proyecto" e inicio el administrador de tareas en el exe donde dice "descipcion" diga otra cosa.

Muchas Gracias!