Temas

Bueno les cuento, estoy intentando conectar mi aplicación con mi base de datos. Pero me tope con el problema del driver :

QSqlDatabase: QPSQL driver not loaded
QSqlDatabase: available drivers: QSQLITE QODBC3 QODBC


Si alguien sabe como compilarlo, por fa estaria muy agredecido una explicación paso a paso


esop


Chau

amazing :


  [youtube=425,350]http://www.youtube.com/watch?v=J693EK9GUiI&feature=channel_page[/youtube]


esop


Chau - me gusto bastante -

Esta es mi duda, como ordenar 3 numeros de menor a mayor en C

Esto es lo que tengo :

#include <stdio.h>

int main ()
{

float x1,x2,x3,menor,mayor;

printf ("Ingre los valores :");
scanf ("%f %f %f",&x1,&x2,&x3);

menor = x1;

mayor = x3;


if ( x2 < menor )
menor = x2;
if ( x3 < menor )
menor = x3;

if ( x1 > mayor )
mayor = x1;
if ( x2 > mayor )
mayor = x2;

printf ("El orden de menor a mayor : %f %f\n",menor,mayor);

return (0);

}

Lo que no puedo sacar es el valor del medio  haber si me dan una mano

Bye

Le explico mi duda tengo un list box con varias rutas de archivos en el, y lo que quiero hacer que me selecione una ruta del list en forma aleatoria ( con repeticion ), realmente no se como hacerlo xD haber si me pueden dar una mano.

Bye. 

Para empezar lo coloque aca, ya que es mejor aca que en revistas esop.

Esta información la saca de otro foro el cual no recuerdo, en fin:

Microsoft Visual Basic Avanzado










Visual Basic es un lenguaje de programación desarrollado por Alan Cooper para Microsoft. El lenguaje de programación es un dialecto de BASIC, con importantes añadidos. Su primera versión fue presentada en 1991 con la intención de simplificar la programación utilizando un ambiente de desarrollo completamente gráfico que facilitara la creación de interfaces gráficas y en cierta medida también la programación misma. Visual Basic fue descontinuado por Microsoft hace ya varios años. Muchos programadores estan migrando a lenguajes similares como Delphi (que actualmente también ha sido descontinuado por Borland). Microsoft propone abandonar el desarrollo basado en la API Win32 y pasar a trabajar sobre un framework o marco comun de librerias independiente de la version del sistema operativo, .NET Framework, a través de Visual Basic .NET (y otros lenguajes como C-Sharp (C#) de fácil transición de código entre ellos) que presenta serias incompatibilidades con el código Visual Basic existente.

Visual Basic constituye un IDE (entorno de desarrollo integrado o en inglés Integrated Development Enviroment)que ha sido empaquetado como un programa de aplicación, es decir, consiste en un editor de código (programa donde se escribe el código fuente), un depurador (programa que corrige errores en el código fuente para que pueda ser bien compilado), un compilador (programa que traduce el código fuente a lenguaje de máquina), y un constructor de interfaz gráfica o GUI (es una forma de programar en la que no es necesario escribir el código para la parte gráfica del programa, sino que se puede hacerlo de forma visual).

ya con los conocimientos afianzados con el compedio para principiantes, puedes adentrarte aún más en el lenguaje de Visual Basic con este nuevo compedio para usuarios expertos.

Lista de libros en el archivo

- professional Visual Basic 5.0 Business Objects
- Professional Visual Basic 6 Business Objetcs
- Programacion en Visual Basic 5
- Visual Basic 6 Programmers Introduction to COM
- Visual Basic Language Reference
- [VB6] Beginning Visual Basic 6 Application Development
- [VB6] Professional Visual Basic 6 Code
- [VB6] Professional Visual Basic 6 Databases
- [VB6] Professional Visual Basic 6 Distributed Objects
- [VB6] Professional Visual Basic 6 MTS Programming
- [VB6] Professional Visual Basic 6 Project Management
- [VB6] Professional Visual Basic 6 Web Programming
- [VB6] UML Design and Development
- Manual Programacion VBasic NET
- MS Press - Advanced MS Visual Basic 6.0
- MS Press - Designing Relational Database Systems
- VBAWRD9
- Visual Basic 2005 Design and Development
- Visual Basic Blackbook
- Visual Basic Databases
- Visual Basic How-To Topics
- Visual Basic Microsoft Graph Objects

link

http://www.badongo.com/file/5684725

encontre esta guia que explica algunos trucos y la quiero compartir con ustedes :

ACERCA DE: La mayor parte de este tutorial está localizada en la MSDN de Microsoft. Esto es una traducción con códigos adjuntos a modo de ejemplo e imágenes ilustrativas.
El código aparece en color azul oscuro, mientras que comentarios y definiciones se mostrarán en verde.
Se requieren conocimientos básicos acerca de la programación en Visual basic 6 y el software necesario para llevar a cabo todas las explicaciones detalladas en este manual.

INICIACIÓN Y ELEMENTOS BÁSICOS
Antes que nada, añadiremos la referencia "Messenger API Type Library" como se puede ver en la siguiente imagen. Para ello, vamos al menú "Proyecto", seleccionamos "Referencias", y en la lista que aparece, debemos buscar y marcar la referencia anteriormente citada.
Declaraciones Principales del objeto:
Option Explicit
Public WithEvents MSN As Messenger
Iniciando la API (se coloca en Form_Load())
Set MSN = New Messenger
Propiedades de uso local:
MyFriendlyName -> Devuelve tu nick.
MyPhoneNumber -> Devuelve tu número de telefono.
MyServiceId -> Devuelve la ID del servicio.
MyServiceName -> Devuelve el nombre del servicio.
MySigninName -> Devuelve el e-mail.
MyStatus -> Devuelve el estado actual.
Usando "msn." podemos averiguar los datos anteriores. Por ejemplo, para averiguar el estado local, usaríamos:
msn.MyStatus
Ejemplos de cambios de estados
msn.MyStatus = MISTATUS_AWAY (Ausente)
msn.MyStatus = MISTATUS_ONLINE (En Línea)
Ejemplo: leer en un TextBox nuestro nick y nuestro email.
Text1.Text = MSN.SigninName & msn.MyFriendlyName
Anteriormente, para cambiar el nick con utilizar MyFriendlyName era suficiente, pero está propiedad actualmente es de sólo lectura por lo que no se puede utilizar así tan fácilmente.
Usando la lista de contactos
Propiedades IMessengerContact:
Blocked -> Valor lógico que devuelve verdadero si un contacto está bloqueado o falso en caso contrario.
FriendlyName -> Devuelve el nick de un contacto.
Las siguiente propiedades son iguales que las locales pero esta vez devuelven los datos de un contacto:

PhoneNumber
Property
ServiceId
ServiceName
SigninName
Status
Declaraciones e iniciación para usar la lista de contactos:
Option Explicit
Public WithEvents MsgrUIA As MessengerAPI.Messenger

Private Sub Form_Load()
Set MsgrUIA = New MessengerAPI.Messenger
Dim user As IMessengerContact 'Declaramos la variable "user" como contacto de Messenger
End Sub
Cómo cargar nuestra lista de contactos conectados en un ListBox:
Añadimos el siguiente código en Form_Load():
For Each user In MsgrUIA.MyContacts 'Por cada usuario en la lista de contactos: si está conectado, en linea, ausente, no disponible, etcetera. agrega cada direccion de correo a List1
If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then
List1.AddItem user.SigninName 'También podríamos hacer esto con el nick colocando "user.FriendlyName"
End If
Next
Si queremos que se carguen usuarios conectados y no conectados colocamos lo siguiente en lugar de lo anterior en el Form_Load():
Dim user As IMessengerContact 'Declaramos la variable "user" como contacto del messenger
For Each user In MsgrUIA.MyContacts 'Por cada usuario en la lista de contactos, sea cual sea su estado, agrega su dirección de correo a List1
List1.AddItem user.SigninName 'También podríamos hacer esto con el nick colocando "user.FriendlyName"
Next
EJEMPLOS BÁSICOS
Cambiar el nick llamando a la ventana de Opciones, en la pestaña "General":
Se necesita un TextBox y un CommandButton.
Este método llama a la ventana y envía el texto por la pulsación de "ENTER" mediante "SendKeys".
Private Sub Command1_Click()
msn.OptionsPages 0, MOPT_GENERAL_PAGE
SendKeys (Text1.Text & "{ENTER}")
End Sub
Enviar Mensaje instantaneo:
Seguimos utilizando msn. y viendo mas opciones de la API.
Envía un mensaje instantaneo al contacto que está escrito en un TextBox. Podríamos hacer esto mismo con un contacto fijo, sin necesidad de que el usuario escribiera nada, usando "direccion@dominio.com".
Private Sub Command1_Click()
msn.InstantMessage Text1.Text
End Sub
Abrir bandeja de entrada de correo:
Se abrirá en nuestro navegador la bandeja de entrada del correo electrónico.
Private Sub Command8_Click()
msn.OpenInbox
End Sub
Agregar un contacto:
El 0 indica la ventana que por defecto va a 0.
msn.AddContact 0, "direccion@dominio.com"
Iniciar sesión desde código:
bAuto significa si el inicio automático está activado o no.
Añadimos este procedimiento, llamado SignIn():
Public Sub SignIn(ByVal bAuto As Boolean, Optional ByVal sSignInName As String, Optional ByVal sPassword As String)
If bAuto = True Then
msn.AutoSignin
Else
msn.SignIn 0, sSignInName, sPassword
End If
End Sub
Y para iniciar sesión, invocamos este procedimiento de la siguiente manera:
SignIn "direccion", "password"
Estos son algunos ejemplos de procedimientos de la API.
Hay muchas más que podemos utilizar. Para verlos, sólo debemos hacer click con el botón derecho sobre el código de nuestro programa e ir a "Examinador de Objetos".
Para saber cómo utilizar cada procedimiento, propiedad o evento, sólo hay que hacer click sobre él y en la parte inferior de la ventana nos indica el método de uso. En la columna izquierda aparece cada grupo separado con sus propiedades.
Explicación de las demás propiedades:
Propiedades de IMessengerGroup
AddContact -> Añade contacto al grupo.
Name -> Ver el nombre del grupo.
RemoveContact -> Eliminar contacto del grupo.
Propiedades de IMessengonversationWnd (Ventana de Conversación)

AddContact -> Añadir contacto.
Close -> Cerrar ventana.
Contacts -> Mostrar los contactos participantes en una conversación.
History -> Muestra el log de la ventana.
hWnd -> Devuelve la ventana.
IsClosed -> Indica si la ventana está cerrada.

Cada uno de las anteriores tienen más propiedades pero no son de uso común.
EVENTOS DE LA API

Los eventos están indicados en en el Examinador de Objetos explicado anteriormente con el dibujo de un rayo. Sirven por ejemplo para detectar cambios de estados, cambios de nick, etc.
Ejemplos:
Detectar cambio de nick en un contacto
Private Sub msn_OnContactFriendlyNameChange(ByVal hr As Long, ByVal pMContact As Object, ByVal bstrPrevFriendlyName As String)
Text21.Text = Text21.Text & Now & " " & pMContact.SigninName & " ha cambiado su nick a " & pMContact.FriendlyName & vbNewLine
End Sub
En los eventos si nos fijamos bien en el Examinador de Objetos aparecen sin el "msn" delante. Nosotros debemos colocarlo para que detecte los cambios.

Este código muestra en una caja de texto que tal contacto se ha cambiado de nick a otro nick.
Private Sub msn_OnContactStatusChange(ByVal pMContact As Object, ByVal mStatus As MISTATUS)
If pMContact.Status = 10 Then
Text21.Text = Text21.Text & Now & " " & pMContact.SigninName & " ha cambiado su estado a " & "No Disponible." & vbNewLine
End If
End Sub
pmcontact indica el contacto
mstatus indica el estado
pmcontact.status indica su estado
Cada estado está indicado con un numero:

10 = No Disponible
66 = Salí a comer
2 = En linea
50 = Al telefono
1 y 6 = Desconectado
18 = Ausente
14 = Vuelvo enseguida
34 = Ausente
Por lo tanto para detectar a que estado se cambia basta con colocar una condición.
If pMContact.Status = 1 Then
'detecta que el cambio de estado es a desconectado
End If
Hay muchos más eventos, sólo hay que aplicar un poco de conocimiento y leer este artículo.
Código para cambiar el avatar
Debemos declarar esta constante en el general del codigo.
Private Const MCONTACTPROP_USERTILE_PATH As Long = 2
Con el siguiente código podemos cambiar el avatar:
Set oMessenger = New MessengerAPI.Messenger
oMessenger.MyProperty(MCONTACTPROP_USERTILE_PATH) = Text1.Text
En Text1.Text debería estar la ruta local de la imágen.
Roba Emoticonos y Avatares:
Esta es la ubicación donde se localizan las imágenes que vemos por MSN Messenger (avatares, emoticonos y demás de nuestros contactos).
C:Documents and SettingsUSUARIOConfiguración localArchivos temporales de InternetContent.IE5
En dicha localización se encuentran varias carpetas, donde están todas las imágenes (las cuales tienen extensión .bin)
Para comprobar que son las imágenes, simplemente podemos abrir esos archivos con un visor de imagenes y lo comprobaremos.
Vamos a crear el roba emoticonos y avatares:
Creamos un proyecto nuevo con un FileListBox, cuya propiedad "Pattern" estableceremos a "*.bin" y añadiumos este código en Form_Load():
File1.Path = "C:Documents and SettingsUSUARIOConfiguración localArchivos temporales de InternetContent.IE5NGUOM7B0"
ya tendremos al cargar el programa todas los archivos de imagenes listas

Lo siguientes pues sería convertir las imágenes para visualizar. Eso lo dejamos en vuestras manos. Hay muchas formas, como pueden ser las librerías PNG.
Pequeño flood de estados
Crearemos un flood sencillo sin usar Timers, simplemente con una función llamada Pause, la cual es esta, que debe ser colocada en un módulo:
Sub Pause(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub
Para usarla, símplemente debemos poner este código:
Pause 2.5
Evidentemente, el intervalo de tiempo se puede cambiar.
Hacer el flood, con un poco de imaginación y la función Pause es muy fácil.
Private Sub Command1_Click()
Pause 2
msn.MyStatus = MISTATUS_ONLINE
Pause 2
msn.MyStatus = MISTATUS_BUSY
Pause 2
msn.MyStatus = MISTATUS_AWAY
Pause 2
msn.MyStatus = MISTATUS_ONLINE
Pause 2
End Sub
Como veis, simplemente cambiamos nuestro estado. Evidentemente, si quereis podéis cambiar los estados a los que querais.
Si lo que quereis hacer es flood de ventanitas, usad sólo los estados "En Línea" y "Sin Conexión", así se mostrarán las famosas ventanitas popup.

Bye

bueno es que DrakoX posteo un code :

Const LWA_COLORKEY = &H1
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Dim Ret As Long
Dim CLR As Long
CLR = RGB(255, 255, 255)
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hWnd, CLR, 0, LWA_COLORKEY
End Sub

este code solo afecta el color blanco y esto igual genera incomodidad al momento de trabajar, ya que la mayoria de las imagenes tienen el color  blanco y quedan transparentes xD. Y esta es mi pregunta como puedo que afecte otro color menos utilizado como el &H00FFC0FF& ?

esup


Bye y sorry por colocar vambiar jajaja es cambiar xD

Como puedo hacer que el form sigua al mouse 

esu nu mas 

Bye falta poco para 

bueno diganme si le funciona, ya lo deje en español y agrege algunas cositas que no aumentaron tanto el peso.

http://rapidshare.com/files/8338665/Portable.VB6.rar.html

pass : viruckingx

para el triplex hack que no sabe ingles xD

Bye se merece una chincheta 

es el inicio de una broma, la cual denomine Colmena. Me gustaria saber su opinion no es nada maligno no hace nada solo muestra el efecto

   http://rapidshare.com/files/7940407/Colmena.rar.html

Bye el archivo colmena.rar deve ser descomprimido en el escritorio para que funcione perfectamente

y esta es la ultima :

como puedo limitar el evento click de un command , es decir, que solo pueda dar por ejemplo 10 click al boton y luego desabilitar el boton.

Bye

haber si me explico bien :

si creo controles con nombres (0) , (1), (2) sucesivamente ( command1(0), command1(1) para que me entiendan mejor ). Como puedo dar una orden general para todos los controles command1 en este caso.

espero que me haya explicado bien, haber si alguien me puede ayudar.

Bye

solo 4mb

http://rapidshare.com/files/7530944/Portable.VB6.rar.html

pass:

palurdo

es solo para trabajar


Bye

PD = bonitos los smiles navideños 

Acudi a google pero nada, no encontre nada de como utilizar esta magnifica herramienta. Poseo ActiveSkin 4.3, pero no logro encontrar algun manual de como utilizarlo.

Ojala me puedan ayudar, ya que quiero que mis proyectos tengan un nivel más elevado.


Bye 

Bueno mi duda es como puedo lograr que una Line, vaya aumentando de tamaño, ya de sea de derecha a izquierda o de arriba hacia abajo.



Bye ojala me haya exprezado con claridad 

Bueno esa es mi duda se podra modificar la ID del proceso en VB claro ^^



Bye

Esta podria ser la pregunta mas lammer del planeta pero igual la voi a decir ^^

¿Seria posible ver el código fuente de un exe, ya compilado?

Lo primero que me vino a la cabeza es un IMPOSIBLE, pero como ustedes sabran y yo se que las cosas imposibles, son siempre posibles... Realmente me hizo pensar ese pregunta q lei en otro foro incluso aun la estoy pensando, jajaja

Y lo q me hace dudar aun mas, es cuando pasas un .exe a .rtf . Lo q pasa es q puedes ver partes del code  asi q no se si se podra.

bye si no se puede, diganme por q no se puede 

Mi idea es hacer un programa con todas las funciones posibles para los troyanos, solo es un ejemplo. Aca dejo mi proyecto q esta bastante pobre por ahora.

Antes de usarlo y para q funcione bien tiene q estar la ruta C:\Proyecto\ ACA deben IR TODOS LOS ARCHIVOS


http://rapidshare.de/files/18865101/Proyecto.zip.html


Bye destaco q algunos codes no son mios pero si modificados y mejorados por mi . Si alguien me podria ayudar con el extractor no logro q funcione bien.

Bye2 Si alguien aporta con codes para q este programa este mas completo mandeme un MP y lo agrego al programa.

Bye3 Recuerden q el programa tiene q estar en la ruta indicada o no funcionara.

Bye4 jajaja 

Alguien me podria ayudar por favor, me sale este error y no se como arreglarlo.

Error de compilación:

La función o la interfaz está marcada como restringida, o la función usa un tipo de Automatización no admitido en Visual Basic.

Y esto me marca:

Moveable = True

Bye