Alguien sabe si hay alguna equivalencia de odbc_result_all para el mysql? 

<?php
# ActiveSheet
# Calculador de Formula general
# http://hackmexico.com/
# Hack México
function fgnrl($a,$b,$c){
$p = Sqrt((pow($b,2))+((-4)*($a)*($c)));
$x1 = (-$b) + $p;
$x2 = (-$b) - $p;
$x1=($x1/(2*$a));
$x2=($x2/(2*$a));
return "X1 es igual a $x1 y X2 es igual a $x2";
}
 
# ejemplo
echo fgnrl(1,15,50);
?>

Ojala les sirba xD

Pff que ondas, una duda, como ahorita estoy programando una Shell en PHP xD mi primer projecto profesinal a segun

queria preguntarles que es el inode de un archivo 

esto lo encontre aqui xD

http://www.php.net/manual/es/function.stat.php

alguien sabe como se puede averiguar si un numero es par o impar por medio de PHP?

 

Hola buenas tardes dias noches lo que ustedes  tengan.

Quisiera sugerir un foro de Defacing...

jajajaja

No, es en serio ¬¬

Es rutina es para comprender un poco de como utilizar el mandato print de una forma muy peculiar

---

'Rutina que da formato a la salida del mandato Print
Private Sub Form_Paint()
Dim mensaje As String, pos As Long, PosEspacio As Long
mensaje = "Utilizará con frecuencia los métodos TextWidth y TextHeight" _
& "para ver si un mensaje cabe dentro  de un área determinada." _
& vbCrLf & "Esto es especialmente necesario cuando" _
& "imprima en un formulario, porque el método Print no" _
& "se ocupa automáticamente de dividir las líneas largas, y" _
& "será usted mismo quien tenga que resolver este problema" _
& "utilizando líneas de código."

Cls
Do While pos < Len(mensaje)
    pos = pos + 1
If Mid$(mensaje, pos, 2) = vbCrLf Then
    ' Un par de CR-LF imprime la cadena mas allá
    ' y redefine las variables.
    Print Left$(mensaje, pos - 1)
    mensaje = LTrim$(Mid$(mensaje, pos + 2))
    pos = 0
    PosEspacio = 0
    ElseIf Mid$(mensaje, pos, 1) = " " Then
    ' Si este es un espacio, recuerda su posición.
    PosEspacio = pos
    End If
'verifica la anchura del mensaje.
If TextWidth(Left$(mensaje, pos)) > ScaleWidth Then
    ' El mensaje es demasiado largo, hay que dividirlo.
    ' Si se localiza un espacio, divídelo aquí.
    If PosEspacio Then pos = PosEspacio
    ' Imprime el mensaje hasta el puno de división.
    Print Left$(mensaje, pos - 1)
    ' Descartar caracteres impresos, y volver a definir las variables.
    mensaje = LTrim$(Mid$(mensaje, pos))
    pos = 0: PosEspacio = 0
End If
   
Loop
' Imprime los caracteres restantes, si es que hay alguno.
If Len(mensaje) Then Print mensaje
End Sub
Private Sub Form_Resize()
Refresh
End Sub

---

Sin mas Preámbulo.

Iniciamos

Initialize >
Se hace referencia en el código al objeto Form.
Visual Basic asigna el valor inicial a las variables de formulario.

Load >
Se hace referencia a las propedades o controles de Form.
Visual Basic crea la ventana y sus controles hijos.

Resize >
El Formulario es visible.
También ocurre cuano se modifica el tamaño del Formulario

Activate >
El formulario está preparado para aceptar la entrada del usuario.
También ocurre cuando el foco pasa a otro Formulario y vuelve al Formulario actual.

                        Deactivate >
                        El usuario final activa otro formulario contenido en la misma aplicación.

Paint >
Visual Basic solicita que el formulario se actualice a sí mismo la primera
vez que se muestre y cuando otra ventana lo cubra y luego vueva a mostrarse.
Se pone en marcha únicamente si la propiedad AutoRedraw tiene el valor False.

Query Unload >
Visual Basic pregunta a la aplicación si está preparada para descargar ahora el Formulario.

Unload >
Visual Basic está preparado para descargar ahora al Formulario.
Es la última oportunidad para cancelar la operación.

Tarminate >
Visual Basic está preparado para liberar la memoria utilizada por el Formulario y volver a definir las variables.

FIN.....

---

hola, como hago para que con una aplicacion tire la seguridad del word 2007

intente esto pero no sirve por que crea un nuevo instancia y no del tipo D_WORD

System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Word\Security", "secu") = 1&

jejeje le puse secu para que no me borrara la instancia pero de todos modos como le hago para que cree una de  ese tipo?
D_WORD

Esta rutina es para arrastrar y redimenzionar contrles en tiempo de ejecucion
para el VB 2008

para redimenzionar con el boton derecho

Friend Class MoverControles
    Inherits System.Windows.Forms.Form
 
    Private DX, DY As Integer
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer) As Integer
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, _
    ByVal X As Integer, ByVal Y As Integer, ByVal cX As Integer, ByVal cY As Integer, ByVal wFlags As Integer) As Integer
 
    Const GWL_STYLE As Integer = (-16)
    Const WS_THICKFRAME As Integer = &H40000
    Const SWP_DRAWFRAME As Integer = &H20
    Const SWP_NOMOVE As Integer = &H2
    Const SWP_NOSIZE As Integer = &H1
    Const SWP_NOZORDER As Integer = &H4
    Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AsignarEventos(Me)
 
    End Sub
    Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        DX = e.X
        DY = e.Y
        If e.Button = MouseButtons.Right Then
            CambiarEstilo(CType(sender, Control))
        Else
            CType(sender, Control).BringToFront()
        End If
    End Sub
    Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            CType(sender, Control).Left = e.X + CType(sender, Control).Left - DX
            CType(sender, Control).Top = e.Y + CType(sender, Control).Top - DY
        End If
    End Sub
    Private Sub AsignarEventos(ByVal elControl As Control)
        Dim ctrl As Control
        For Each ctrl In elControl.Controls
            If ctrl.Name <> "cmdAlgo" And ctrl.Name <> "txtControl1" And ctrl.Name <> "txtControl1" Then ' aqui vaz agregando los controles que quieres estaticos y no redimensionables
                AddHandler ctrl.MouseDown, AddressOf Me.Control_MouseDown
                AddHandler ctrl.MouseMove, AddressOf Me.Control_MouseMove
                AsignarEventos(ctrl)
            End If
        Next
    End Sub
    Private Sub CambiarEstilo(ByVal aControl As Control)
        Dim Style As Integer
        Try
            Style = GetWindowLong(aControl.Handle.ToInt32, GWL_STYLE)
            If (Style And WS_THICKFRAME) = WS_THICKFRAME Then
                Style = Style Xor WS_THICKFRAME
            Else
                Style = Style Or WS_THICKFRAME
            End If
            SetWindowLong(aControl.Handle.ToInt32, GWL_STYLE, Style)
            SetWindowPos(aControl.Handle.ToInt32, Me.Handle.ToInt32, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME)
        Catch
        End Try
    End Sub
End Class

veran yo omito la parte del hackeo y me adentro a la programacion, pero ahora me
surgio la controversia de que es lo que se le quita para que no te detecten por medio de
 tu exe

que la mac se queda impresa en el?
que le quito?
y por que selo quito?