|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - F_Tanori
Páginas: 1 ... 74 75 [76] 77 78 ... 83
1876
« en: Lunes 6 de Noviembre de 2006, 02:00 »
..Pues el titulo no tiene nada que ver ya  .... Todoexprtos.com Foros Sybase Powerbuilder.org LWP Foros de la web SOLOCODIGO... Yo creo que en gustos se rompen .... caras ....  yo prefiero el rock punk, el progresivo y la musica 80.. aunque puedo escuchar de cualquier musica sin ningun problema aunque no soporto la acordion  Concuerdo con los demas en decir que el regeton es una basura pero apoco no bailan muy buen las morras (mujeres,muchachas,chicas,chavalas,viejas,plebes como las conozcan).... podemos ver los videos sin volumen  Por cierto que buenas alegatas se arman aqui 
1878
« en: Lunes 6 de Noviembre de 2006, 00:56 »
mira si ya tienes el "sistema de login" entonces necesitas como se llaman las variables de sesion para poder comparar cuando muestres la pagina ejemplo <? session_start(); if ($_SESSION["enlinea"]=="SI") { include("liga.php"); } else { header("Location: Login.php"); } ?>
Espero leas un poco pas sobre sesiones y cualquier problema no dudes en decirnoslo Saludo Espero me ayudes, porque realmente no se como empezar.
besos, marcela de chile  ....
1879
« en: Lunes 6 de Noviembre de 2006, 00:46 »
mira supongamos que tienes lo 9 digitos entonces creas un arreglo con los botones atraves de la propiedad index ejemplo supongamos que el boton se llama cmd entonces en la propiedad index le colocas el 0 en el caption tambien despues sigues creado botones con el mismo nombre cmd pero con el index siguiente 1,2,3.... Nota: si seleccionas el boton le das copiar y pegar te pregunta que si quieres formar el arreglo si respondes que si haria eso automatico ya que que has creado el arreglo da doble clic sobre cualquiera todos te llevara al mismo evento, ahora recibiendo como parametro el index entonces bastaria con hacer esto.. private sub cmd_click(index as integer) textbox1= textbox1 & cmd(index).caption end sub
lo cual te evitaria poner el codigo por cada uno de los botones sub command1_click() textbox1= textbox1 & command1.caption end sub command2_click() textbox1= textbox2 & command1.caption end etc Saludo espero haberte ayudado ....y si colocas el numero en el caption del boton..... ¿o no? 
1881
« en: Domingo 5 de Noviembre de 2006, 23:35 »
Hola espero haber entendido.... quieres ir mostrando los numero en un textbox segun el boton presionado supongo que ya todos los botones tienen el numero entonces seria asi por ejemplo.. sub command1_click() textbox1= textbox1 & command1.caption end
te aconsejo utilices un arreglo de botones cualquier duda.... "te escuchamos " Saludos
1882
« en: Viernes 3 de Noviembre de 2006, 19:17 »
...Estaban en un congreso de vampiros de todo el mundo discutiendo acerca de como solucionar "la sequia" no habia sangre y estaban en peligro de morir entoces llega un vampiro con la boca llena de sangre que hasta le escurria como que acabara de degustar un "banquete" y todos de inmediato se pusieron de pie y comenzaron a preguntar... "¿Como le hisite?" donde has conseguido sangre... el vampiro contesta "¿ven aquella pared?" -señalando- los demas vampiros contestan a unisono y desesperados por saber.... "Si!!!!" "Pues yo no la vi  ".....
1883
« en: Jueves 2 de Noviembre de 2006, 18:45 »
...gracias por la aportacion de luciano2 es una respuesta correcta..... aqui esta otra idea
Private Sub Timer1_Timer()
Dim Valor As Integer, Avance As Integer
Dim Vueltas As Integer, Retardo As Integer
Dim Desde As Integer, Hasta As Integer
Avance = 1
Desde = 0
Hasta = 250
Retardo = 10
For Vueltas = 1 To 2
For Valor = Desde To Hasta Step Avance
' Sleep Retardo 'Si se requiere que el efecto sea mas pausado
MakeWindowTransparent Form1.hWnd, Valor
DoEvents
Next Valor
Avance = -1
Desde = 250
Sleep 3000 '<--- Aqui va el retardo en milisegundos
Hasta = 0
Next Vueltas
Me.Timer1.Enabled = False
Unload Me
End Sub
Saludos y suerte
1884
« en: Jueves 2 de Noviembre de 2006, 04:15 »
[dohtml]<blink>Gracias por la info</blink> [/dohtml]
1885
« en: Jueves 2 de Noviembre de 2006, 04:10 »
Que tal usercode como va todo cual es el drama? yo te aconsejo este codigo Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 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 Const GWL_STYLE = (-16) Private Const GWL_EXSTYLE = (-20) 'Requires Windows 2000 or later: Private Const WS_EX_LAYERED = &H80000 Private Declare Function SetLayeredWindowAttributes Lib "USER32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Const LWA_COLORKEY = &H1 Private Const LWA_ALPHA = &H2 Public Sub MakeWindowTransparent(ByVal hWnd As Long, ByVal alphaAmount As Byte) Dim lStyle As Long lStyle = GetWindowLong(hWnd, GWL_EXSTYLE) lStyle = lStyle Or WS_EX_LAYERED SetWindowLong hWnd, GWL_EXSTYLE, lStyle SetLayeredWindowAttributes hWnd, 0, alphaAmount, LWA_ALPHA End Sub 'La transparencia es graduable modificando el alphaamount en este caso esta en 150 mientras menor es este valor mas transparente se torna Private Sub Form_load() MakeWindowTransparent Form1.hWnd, 0 'Iniciar en 'invisible' Me.Timer1.Interval = 10 'Iniciar el timer End Sub Private Sub Timer1_Timer() Dim Valor As Integer, Avance As Integer Dim Vueltas As Integer, Retardo As Integer Dim Desde As Integer, Hasta As Integer Avance = 1 Desde = 0 Hasta = 250 Retardo = 10 For Vueltas = 1 To 2 For Valor = Desde To Hasta Step Avance ' Sleep Retardo 'Si se requiere que el efecto sea mas pausado MakeWindowTransparent Form1.hWnd, Valor DoEvents Next Valor Avance = -1 Desde = 250 Hasta = 0 Next Vueltas Me.Timer1.Enabled = False Unload Me End Sub
Notas: Agrega una api para el retardo ( sleep) por si acaso tambien funciona sin el pero por si esta demaciado rápido, y un control timerSaludos y espero que te sirva
1886
« en: Miércoles 1 de Noviembre de 2006, 18:31 »
¿ tengo que abrir un nuevo post?
si maranata quita la ip de su mensaje de todos modos aparece en tu cita su-
ademas como es que pueda ser mortal?  que se puede hacer con una ip si no existe un servidor (quien conteste peticiones)? aqui esta la IP de google 66.102.7.99, uno de hotmail 208.172.13.254 crees que pueda ser mortal que sepamos la ip de ellos ?
pudieras indicarme alguno de los risgos altamente probable de ocurrir? si seria lo mas apropiado, podría quedar en el de Seguridad y Criptografía.
pero ya que estamos aquí
1.- obvio que sin server pues nada, es como querer atacar una pc apagada.
2.- si puede ser mortal pero en ellos es mínimo el riesgo, ya que se asume que deben de llevar buenos controles de seguridad.
3.- ¿que se puede hacer con un ip?, básico, lo primero que puedes hacer es scannear los puertos, ya que lo hiciste que te da como resultado, los puertos por los que escucha el servidor, lo siguiente es saber que puerto atacar(ya sabemos que esto no es un foro de cracking, pero esto es muy básico), en el caso de google el superscan me dice que los puertos abiertos para esa ip son tan solo 2 unos muy básicos, el 80 y el 21(HTTP y FTP respectivamente), se "supone" que ya con esta información lo que se debe de realizar es buscar un agujero o un backdoor en alguna aplicación que se conecte bajo estos puertos y en base a ello poder intentar tomar el control de la pc, si dije alguna incoherencia, haganmela saber , creo que su- y los demás han de saber mas cosas pero era como una breve ref. 
Bueno para no seguir 'destruyendo' la otra pregunta.... y tal como se suguirio ya esta en el foro 'indicado' 1- No no me refiero como server a la maquina (sino al sofware  ) 2- No veo porque conciderar que ellos, tenga excelentes controles de seguridad y los demas no, no es tan sencillo ni es tan mortal el backdoor se tendria que crear osea implantar un "server" para que contesten las peticiones (al que yo me refiero ) , de ahi el concepto de troyano en lo cual interviene la imprudencia de un usuario como es que entran la mayoria de los virus? por correo es porque engañaste al 110? o porque un usuario a descargado un archivo que dice "fwd:Fotos super divertidas  " y baja un adjunto llamado "fotos.exe" los agujeros son por imprudencia y mala configuracion,navegadores y componentes pero un simple router con firewall es de gran ayuda (no la solucion completa pero si ayuda),eso del escaneo de puertos no es tan sencillo y ligero sabemos que google tiene el puerto 80 66.102.7.99:80 ¿y? google esta en peligro?  ....tal vez un ataque DOS eso si seria problematico... es muy posible entrar a una maquina de varias manera pero es mas facil engañar a un usuario que a un sistema no basta la IP ¿o si?  Saludos
1887
« en: Miércoles 1 de Noviembre de 2006, 09:03 »
Bueno tambien creo que hay que actualizar Creo que el software libre no es semi prefecto pero es muy bueno, es como decir que respuestas que se dan en este foro no son buenas porque no se recibe paga ... y con respecto a... #1 Quita la ip del cliente (en tu mensaje) que puede ser mortal...
quisiera inciar una 'discucion' ¿ tengo que abrir un nuevo post? si maranata quita la ip de su mensaje de todos modos aparece en tu cita su- ademas como es que pueda ser mortal? que se puede hacer con una ip si no existe un servidor (quien conteste peticiones)? aqui esta la IP de google 66.102.7.99, uno de hotmail 208.172.13.254 crees que pueda ser mortal que sepamos la ip de ellos ? pudieras indicarme alguno de los risgos altamente probable de ocurrir? Saludos pues ya no abri uno nuevo 
1888
« en: Miércoles 1 de Noviembre de 2006, 08:16 »
Hola por supuesto que sirven, tambien las puedes omitir pero como bien te ha dicho frezeer las bases de datos relacionales son de gran ayuda para mantener la integridad de la informacion. Para diseñar una base de datos, requieres saber bien que informacion ira en ella ( mas que evidente) existen unas 'reglas'(formas normales) para diseñar 'correctamente' una base de datos, esto conocido como normalizar que imagino que las debes conocer a nosotros nos han enseñado bases de datos relacionales
Al seguir estas reglas pues vas normalizando tu base de datos y creando relaciones entre las tablas, hay un conocido lema "Algoritmo divide y vencerás" que se aplica mucho en estos casos de normalizar...(aunque si se te pasa la mano pues recuerda hay que desnormalizar) esto como breve repaso Bueno mira conozco algunas personas que iniciaron en las bases de datos en MsAccess y estaban acostumbrados a ver las relaciones de una manera grafica y cuando entraron a mysql encuentran con que no existe esa manera de relacionar las tablas (manera grafica ) y su mundo se desmorono  ..tal vez sea el caso de que 'no ves por donde' estan las relaciones entonces ocurre lo siguiente: tenemos 3 tablas Productos , Ventas , Detalle_ventas [dohtml] <table border=1 cellspacing=0 cellpading=0><tr><td> Productos<br> ----------<br> *Codigo<br> Descripcion<br> Precio<br> Existencia<br> </td><td> Ventas<br> --------<br> *Folio<br> Fecha_Hora<br> Tipo_Venta<br> Cajero<br> Tipo_Pago<br> Num_cliente<br> </td><td> Detalle_Ventas<br> --------------<br> Folio_Venta<br> Codigo_Producto<br> Cantidad<br> </td></tr></table> [/dohtml] Ahi es una base de datos relacional aunque no se vean las relaciones (graficamente), en php puedes llamar una consulta ya relacionada asi: ... $sql="SELECT p.dodigo,p.descripcion,dv.cantidad,p.precio v.cajero FROM productos p,ventas v,detalle_ventas dv WHERE dv.codigo_producto=p.codigo and v.folio=dv.folio_venta"; ...
Con eso ya creas la 'relacion'... en MySQL puedes declarar las llaves foraneas ( Foreign Keys) y que el DBMS te maneje la integridad referencial, puedes no hacerlo(y no significa que no este relacionada),pero requiera mas programacion  Tambien puedes relacionar con JOIN Saludos, suerte y a leer.... 
1889
« en: Miércoles 1 de Noviembre de 2006, 01:21 »
Hola Pues si lo mejor es una BD aqui hay unos ejemplos de como escribir y leer achivos Modulo Type Datos nombre As String apellidos As String edad As String End Type
Form Private Sub Command1_Click() Dim Num As Integer, Cliente As Datos Num = FreeFile Cliente.nombre = Me.Text1 Cliente.apellidos = Me.Text2 Cliente.edad = Me.Text3 'Modo Binary o Random Open App.Path & "\archivo.txt" For Binary As #Num Put #Num, , Cliente.apellidos & "," & Cliente.nombre & "," & Cliente.edad Close #Num ' en Modo Output o Append ' Open App.Path & "\archivo.txt" For Append As #Num ' Print #Num, Cliente.apellidos & "," & Cliente.nombre & "," & Cliente.edad ' Close #Num End Sub Private Sub Command2_Click() Dim Num As Integer, Cliente As Datos, Vcio Num = FreeFile Cliente.nombre = Me.Text1 Cliente.apellidos = Me.Text2 Cliente.edad = Me.Text3 'Lectura separada por comas ' Open App.Path & "\archivo.txt" For Input As #Num ' Input #Num, Cliente.apellidos, Cliente.nombre, Cliente.edad ' Close #Num 'MsgBox "Nombre:" & Cliente.nombre & vbCrLf & " Apellidos " & vbCrLf & Cliente.apellidos & vbCrLf & "edad:" & Cliente.edad 'Lectura binaria Open App.Path & "\archivo.txt" For Binary As #Num Len = LenB(Cliente) Get #Num, , Cliente Close #Num MsgBox "Registro:" & Cliente.nombre End Sub
Espero te sirva Suerte Tambien busca sobre la funcion EOF
1890
« en: Lunes 30 de Octubre de 2006, 23:37 »
Hola Aqui un ejemplo Ejemplo 1Espero que te sirva Suerte
1891
« en: Lunes 30 de Octubre de 2006, 21:41 »
Asegurate que el nombre este correcto, o que no hayas creado un dsn de archivo, entra al 'database painter' y donde das el nombre del dsn en la pestaña preview esta la sintaxis para conectarte por codigo lo copias y lo utilizas  SQLCA.DBMS=.... bla bla bla... tambien tiene un boton para probar la conexion, Saludos
1892
« en: Lunes 30 de Octubre de 2006, 21:34 »
Conozco esta pagina a ver si te sirve
IconosSuerte
1893
« en: Lunes 30 de Octubre de 2006, 18:12 »
bien mira... Configurar ODBC aqui puedes ver como crear el odbc aun que es en win 98 el procedimiento es el mismo si usas XP, o 2000 otro: Como crear DSNBueno una vez creado el DSN en powerbuilder entras al 'database painter' en el arbol que te aparece 'Installed Database Interface' selecionas 'ODB ODBC' haces clic derecho sobre el y eliges 'New Profile' aparece un cuadro de dialogo la pestaña 'Conection' le das un nombre al perfil y donde dice 'Data Source' aparece una lista desplegable ahi seleccionas el DSN que creaste utilizas solo los datos de usuario y password solo si es necesario sino quitas la seleccion de estos.... el usuario por default de Access es admin Saludos Suerte espero haberte ayudado
1894
« en: Lunes 30 de Octubre de 2006, 17:54 »
hola mveraa mira qui esta un codigo para conectarte por ADO y ODBC (para lo cual requieres el driver MySQL-ODBC 3.51 o la version 5.0 para mysql 5 MySQL-ODBC 5teniendo el driver correcto, ya puedes conectarte de esta manera por ejemplo... Private Sub CommandButton1_Click() Dim cnn_Conexion As Connection Dim rs_Tabla As Recordset Dim ls_Servidor As String, ls_BaseDatos As String Dim ls_Usuario As String, ls_pwd, ls_Cnn As String Dim ls_SQL As String ls_Servidor = "localhost" ls_BaseDatos = "bd_405461" ls_Usuario = "vb" ls_pwd = "xAc" ls_SQL = "Select * from t_menus" ls_Cnn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & ls_Servidor & ";DATABASE=" & ls_BaseDatos & ";USER=" & ls_Usuario & ";PASSWORD=" & ls_pwd & ";OPTION=3" Set cnn_Conexion = New Connection Set rs_Tabla = New Recordset cnn_Conexion.Open (ls_Cnn) rs_Tabla.Open ls_SQL, cnn_Conexion 'Si todo es correcto mostrara el nombre del primer campo, y su contenido ' en el primer registro MsgBox rs_Tabla.Fields(0).Name & "= " & rs_Tabla.Fields(0) 'Cerrar y 'destruir' las varibles rs_Tabla.Close cnn_Conexion.Close Set cnn_Conexion = Nothing Set rs_Tabla = Nothing End Sub
Ahora si no te aparecen los objetos de la liberia ADO es porque no la tienes agregada como referencia para hacer esto tienes que ir al menu Herramientas\Referncias en el cuadro de dialogo seleccionas Microsoft Activex Data Object 2.x Library (segun al version a utilizar) con esto la te apareceran en la lista despues del punto Suerte
1895
« en: Lunes 30 de Octubre de 2006, 12:36 »
con ODBC... cualquier cosa echanos un msg Suerte
1896
« en: Lunes 30 de Octubre de 2006, 12:29 »
Bueno creo que soy el mas retrazado en esto, pero que
¡¡¡¡VIVA MEXICO!!!!
pues ya somos 2  ...Aunque ya sea octubre...... [dohtml]<img src="http://www.egresados-fca.com/imgs/madein_mexico_80x15.png">[/dohtml]
1897
« en: Domingo 29 de Octubre de 2006, 13:30 »
...Pues tienes que leer para dejar de ser aprendiz...... y aprender Busca el modelo y la marca del lector, para que investiges que librerias ocupas para hacerlo funcionar desde algun lenguaje, algun ocx, o dll algun archivo que el lector arroje que puedas utilizar etc.... necesitas investigar acerca del lector, no debe ser dificil programar, conociendo el dispositivo Biblioteca MundialSaludos
1898
« en: Domingo 29 de Octubre de 2006, 06:02 »
definitivamente yo tampoco entendi seremos nosotros? sera un menu contextual? (en el click derecho?) en verdad deberias explicar un poco mas Saludos
1899
« en: Domingo 29 de Octubre de 2006, 06:00 »
Hola pues esa consulta la puedes obtener asi <!--sql--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td> SQL </td></tr><tr><td id='CODE'><!--sql1-->[color=blue;font-weight]Select[/color] t1.codigo, t1.nombre from tabla1 t1, tabla2 t2 where t1.codigo =t2.codigo and t2.fecha_nacimiento > '1995/01/01'<!--sql2--></td></tr></table><div class='postcolor'><!--sql3--> o asi Para saber si existe en la tabla 2... <!--sql--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td> SQL </td></tr><tr><td id='CODE'><!--sql1-->[color=blue;font-weight]SELECT[/color] * FROM tabla1 t1 where exists ([color=blue;font-weight]SELECT[/color] 1 FROM tabla2 t2 WHERE t1.codigo =t2.codigo ); <!--sql2--></td></tr></table><div class='postcolor'><!--sql3--> o bien los que no existen .. where not exists ...tambien puedes usar las subconsulta de este tipo.. <!--sql--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td> SQL </td></tr><tr><td id='CODE'><!--sql1-->[color=blue;font-weight]SELECT[/color] t1.*,([color=blue;font-weight]SELECT[/color] fecha_nacimiento FROM tabla2 WHERE tabla2.codigo =t1.codigo ) as FechaDNacimiento FROM tabla1 t1, tabla2 t2 WHERE t2.fecha_nacimiento > '1995/01/01'<!--sql2--></td></tr></table><div class='postcolor'><!--sql3--> Suerte espero te sea de ayuda
1900
« en: Sábado 28 de Octubre de 2006, 22:14 »
Hola Mira prueba con esta instruccion.. <!--sql--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td> SQL </td></tr><tr><td id='CODE'><!--sql1-->$sSQL ="[color=blue;font-weight]select id,dia,tema ,cita from biblia where DATE_FORMAT(dia,'[/color]%d/%m/%Y ')='".date("d/m/Y ")."'"; <!--sql2--></td></tr></table><div class='postcolor'><!--sql3--> Espero te sirva Saludos y Suerte
Páginas: 1 ... 74 75 [76] 77 78 ... 83
|
|
|
Mostrar Mensajes
, pero en fin la seguridad es primero 