Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - 43H4FH44H45H4CH49H56H45H

Páginas 1 ... 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

#291

Desarrollo Web / Re: Les presento mi web en Silverlight

25 Noviembre 2009, 04:33 AM

No lei todos los mensajes, pero por si todavia te sirve, puedes detectar silverlight y redireccionar deacuerdo al resultado de esta manera:

Código (javascript) [Seleccionar]

<body onLoad="detectasilverligth()">
 REDIRECCIONAR
 <script language="javascript">
function detectasilverligth(){
var browser = navigator.appName;
var silverlightInstalled = false;

if (browser == 'Microsoft Internet Explorer') {
try {
var slControl = new ActiveXObject('AgControl.AgControl');
silverlightInstalled = true;
}
catch (e) {
// Error. Silverlight not installed.
}
}
else {
// Handle Netscape, FireFox, Google chrome etc
try {
if (navigator.plugins['Silverlight Plug-In']) {
silverlightInstalled = true;
}
}
catch (e) {
// Error. Silverlight not installed.
}
}
if (silverlightInstalled == false) {
  alert("Usted no tiene el Plugin de Microsoft Silverligth, redireccionando a Standard");
  location.href="http://www.brodasoft.com.ar/Standart/index.html";
}
else
{
 alert("Redireccionando a Pagina con Microsoft Silverligth");
  location.href="http://www.brodasoft.com.ar";
}
}
</script>
</body>

El ejemplo lo tenia guardado de alguna pagina que no recuerdo.

#292

.NET (C#, VB.NET, ASP) / Re: Delegados en hilos... algo raro

19 Noviembre 2009, 15:30 PM

Cita de: Zzombi en 18 Noviembre 2009, 22:26 PM"el primer código con delegados no me deja hacer nada más hasta que termine de llenarse el listbox.... por eso estoy diciendo que con delegados cambia la cosa."

Asi podriamos hacer funcionar tu código:

Código (vbnet) [Seleccionar]

Imports System
Imports System.ComponentModel
Imports System.Threading
Imports System.Windows.Forms

Public Class Form1
    Inherits Form

    Delegate Sub delegado(ByVal [text] As String)
    Dim t As New Thread(AddressOf Me.hilo)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.t.Start()
    End Sub

    Private Sub hilo()
        Dim c As Integer = 0
        For c = 0 To 10000
            Me.addList("valor" & c)
            Thread.Sleep(500)
        Next
    End Sub
    Private Sub addList(ByVal [text] As String)
        If Me.ListBox1.InvokeRequired Then
            Dim d As New delegado(AddressOf addList)
            Me.Invoke(d, New Object() {[text]})
        Else
            Me.ListBox1.Items.Add([text])
        End If
    End Sub
End Class

pero seria mejor que leas en el MSDN como utilizar los delegados y los Thread's porque aunque funciona no es el mejor modo de hacerlo.

#293

Sugerencias y dudas sobre el Foro / Re: [AYUDA] Virus en elhacker.net?

16 Noviembre 2009, 02:35 AM

Cita de: sirdarckcat en 15 Noviembre 2009, 18:45 PM
podrias pasarnos exactamente cual tema quisiste visitar en que fecha con que browser y que antivirus/firewalls tenias?

seria de gran ayuda

Saludos!!

Añadiendo en Windows 7 (IE 8 y Firefox 3.5.5) con Kaspersky Internet Security 2010 y las configuraciones por defecto, al ingresar a http://foro.elhacker.net/ solo carga un *.gif de 1*1 segun lo que lei y no ingresa al foro, se soluciona desactivando el firewall de KIS y esperar unos segundos...

#294

Bases de Datos / Re: Problemas al crear una Data Base

6 Noviembre 2009, 04:27 AM

Una cosa más, puesto que recien estas empezando es mejor que utilizes SQL Server Management Studio Express si no tienes instalado alguno similar, para ir observando los cambios que realizes, o si prefieres desde el Símbolo del sistema.

#295

Bases de Datos / Re: Problemas al crear una Data Base

6 Noviembre 2009, 04:21 AM

El error esta claro, de este modo ya funciona:

Código (sql) [Seleccionar]

IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'dce05_ejemplos_estrella1')
	DROP DATABASE [dce05_ejemplos_estrella1]
GO

CREATE DATABASE [dce05_ejemplos_estrella1]  
	ON 
	(NAME = N'dce05_ejemplos_estrella1_Data', 
	FILENAME = N'c:\dce05\dce05_ejemplos_estrella1_Data.MDF', 
	FILEGROWTH = 10%) 
	LOG ON (
	NAME = N'dce05_ejemplos_estrella1_Log', 
	FILENAME = N'c:\dce05\dce05_ejemplos_estrella1_Log.LDF', 
	SIZE = 1, FILEGROWTH = 10%)
	COLLATE SQL_Latin1_General_CP1_CI_AS
GO

USE [dce05_ejemplos_estrella1]
GO

/*  CREACION DE TABLAS */
CREATE TABLE [dbo].[Productos] ( 
	[Codigo] [int] IDENTITY(1,1) NOT NULL,
	[Descripcion] [varchar](30) NOT NULL,
	[Precio] [float] NOT NULL
) ON [PRIMARY]

CREATE TABLE [dbo].[ItemsVenta] ( 
	[Codigo] [int] identity(1,1) NOT NULL,
	[CodigoVenta] [int],
	[CodigoProducto] [int],
	[Cantidad] [int] DEFAULT 0
) ON [PRIMARY]

CREATE TABLE [dbo].[Ventas] ( 
	[Codigo] [int] identity(1,1) NOT NULL,
	[Fecha] [datetime] DEFAULT getdate()
) ON [PRIMARY]
GO

DELETE [Ventas]
DELETE [ItemsVenta]
DELETE [Productos]
GO

/*  CREACION DE CONSTRAINTS */
ALTER TABLE Productos ADD CONSTRAINT PK_Productos 
PRIMARY KEY (Codigo) 

ALTER TABLE ItemsVenta ADD CONSTRAINT PK_ItemsVenta 
PRIMARY KEY (Codigo) 

ALTER TABLE Ventas ADD CONSTRAINT PK_Venta 
PRIMARY KEY (Codigo) 

ALTER TABLE ItemsVenta ADD CONSTRAINT FK_ItemsVenta_Productos 
FOREIGN KEY (CodigoProducto) REFERENCES Productos (Codigo)

ALTER TABLE ItemsVenta ADD CONSTRAINT FK_ItemsVenta_Ventas 
FOREIGN KEY (CodigoVenta) REFERENCES Ventas (Codigo)
GO

INSERT INTO Productos (Descripcion, Precio) VALUES ('MotherBoard PC333', 45.30);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Placa de Red 100 Mbps', 15.75);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Microprocesador 1GHz', 112.90);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Disco Rígido 7200 rpm', 84.10);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Access Point Wi-Fi 802.11g', 66.40);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Placa de Red PCMCIA', 25.00);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Hub USB 4 Puertos', 12.80);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Mouse óptico', 33.60);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Monitor 17 pulgadas', 175.50);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Gabinete Mid-Tower', 35.30);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Teclado Internet', 25.80);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Placa de Video 128 MB', 45.70);
INSERT INTO Productos (Descripcion, Precio) VALUES ('DVD-ROM 8x', 45.00);
GO

#296

.NET (C#, VB.NET, ASP) / Re: Problema con caracteres con "Acentos" en StreamReader

25 Octubre 2009, 23:37 PM

Código (vbnet) [Seleccionar]


Dim linea As String = ""
Dim def As Encoding = Encoding.Default
Dim sr As StreamReader = New StreamReader(Archivo.Text, def, False)
    While True
       linea = sr.ReadLine
       If linea = "" Then
       Exit While
       End If
       MsgBox(linea)
    End While
sr.Close()
sr.Dispose()

#297

Scripting / Re: [Ayuda] ¿Como cortar un cacho del final de un archivo "Bin"?

2 Octubre 2009, 04:37 AM

Con esto deberia funcionar:

Código (python) [Seleccionar]

import os
def cortar(nomOriginal, nomNuevo, tamArchivo, tamCortar):
    with open(nomOriginal, 'r+b') as file1:
        f1 = file1.read (tamArchivo-tamCortar)
        file1.close()
    with open(nomNuevo, 'w+b') as file2:
        file2.write(f1)
        file2.close()
        print("Cortado Hecho y guardado en: " + nomNuevo)
 
direc = os.getcwd() + '\\'
dirList = os.listdir(direc)
for fname in dirList:
    if(fname.upper().endswith('.BIN')):       
        if(os.path.isfile(direc + fname)== True):
            if(os.path.exists(direc + fname + '.bak')== False):
                print ('Nombre de archivo: '+ fname)
                leno = os.path.getsize(direc + fname)
                print ("inciando cortado en: " + direc + fname)
                os.rename(direc + fname,direc + fname + '.bak')
                cortar(direc + fname + '.bak', direc + fname, leno, 131072)
            else:
                print ('Archivo: ' + direc + fname + ' ya fue cortado')