Mensajes

osea , el primer code borra el contenido de "%temp%" y el segundo, borra la carpeta "%temp%" pero la cosa es q ninguno borra nada  

Acabo de encontrar esto :

http://codigosvisualbasic.com.ar/index.php?s=de9ec0f4edd6400c30b2c7ba01f09220&showtopic=183
estaba viendo el code, pero no  entiendo cual es de que boton :/

me vas a odiar pero lee algo de matriz de controles y sobre el select case en vb6, otra cosa Kill y RMDir Eliminar rutas Explicitas y un solo archivo!¡.

P.D.: para que pones exit sub una linea antes de end sub ¬¬" no tiene caso es código basura ¬¬!

Temibles Lunas!¡.

WTF!

En si quisiera abrir cualquier achivo y que en un texbox se vea su HEX

Código [Seleccionar] Expandir

Text1.Text = FuncionHex()

xD

mmmmmmmmm FuncionHex??

Hay por quien mas quiero esto ya te lo resolvieron, si no entiendes es que ya tienes un problema de conocimientos de cosas BÁSICAS.

variable = algo

http://foro.elhacker.net/programacion_vb/ayuda_con_hex-t281257.0.html;msg1385880#msg1385880

P.D.: Esto es denigrante!¡.

Temibles Lunas!¡.
.

en lugar de realizarlo con if then hazlo con select case y pasa como argumento los datos aun proceso o funcion  ajeno a DataArrival del socket resector.

y en lugar de usar la variable de tipo ong para almacenar lo recibido usa string o variant.

Un ejemplo sencillo seria este.

Código (vb) [Seleccionar] Expandir



Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As string
    Winsock1.GetData datos,vbstring
    call procesarinfo(datos)
End Sub

private sub procesarinfo(vdata as string)
    select case vdata
        case "apagarreiniciar cerrarsexiooqueseyo 1"
            ExitWindowsEx(2, 0&)
        case "apagarreiniciar cerrarsexiooqueseyo 2"
            ExitWindowsEx(2, 0&)
        case else
            msgbox "error protocolo"
    end select
end sub



Nota: otra forma es usar split para decidir en el select case para mas información documentarte sobre esa y otras funciones

Temibles Lunas!¡

P.D: Como hago para que haya un espacio entre mensaje y mensaje enviado me refiero que cuando lo envie se vea separado por espacio como en el ejemplo. Esk me sale todo de seguido lo que reciben las dos txtbox.

Servidor:ola
Cliente ola

.
Un ejemplo ContextoOriginal.

http://infrangelux.sytes.net/Descargas/Tutoriales/TroyanoCero/SimpleWinChat.zip

Temibles Lunas!.
.

Revisa el ejemplo, igual revisa un manual de vb6, ya que si saltaste directamente a socket's entonces...

Temibles unas!¡.

.
Un ejemplo ContextoOriginal.

http://infrangelux.sytes.net/Descargas/Tutoriales/TroyanoCero/SimpleWinChat.zip

Temibles Lunas!.
.

.
Antes que nada buena, se le del contexto que se abita en un foro de vb6 es decir el malware.

Quita tu librería y usa PlaySound() o MCISendMesage() para reproducir los sonidos y canciones, en este subforo hay código de esto (pero para manipular el sonido si esta).

Temibles Lunas!¡.
.

y si haces una funcion que devueva el recordset? en ugar de estar siempre consultado la Nd recuerdoq ue haci le hice en un proyecto para un concurso de preparatoria.

Cconsultas...
conectar
obtener Registros (una funcion)
Cerrar conexion

update
conecion
Actualizar
Desconectar

Esto trae pros y contras, intenta con eso.

Igua se puede hacer un servidor intermediario (solo existirá una conexión permanente a la DB y los clientes harian consultas en cola por medio del servidor), pero mmm es muy laborioso y sin garantía de envacion de fallas.

Temibles Lunas!¡.
.

.
No es el API pero... espero que te sirva xP

http://foro.elhacker.net/programacion_vb/source_shellexecute_sin_declaracion_api-t281057.0.html

Temibles Lunas!¡

ajjaajaj ok, igual gracias u.u

por cierto el código que te di trae un error ( evasión de vagos )

Dulces Lunas!¡.
.

lamento decirte que ya existe, lo hizo 50l3r, y se llama click generator fijate que esta por aca.

saludos

Que a su vez consulto esta misma sección usando el buscador si no mas recuerdo

Temible lunas!¡.