Temas

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

Código (php) [Seleccionar] Expandir

<?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

Código (vb) [Seleccionar] Expandir

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

Código (vb) [Seleccionar] Expandir

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?

jejejeje yo programo en VB 6.0 pero decidi bajarme el Visual Basic 2005 Express Edition

y dije, a de ser como el 6.0 pero actualizado y con apis para Vista y cuando lo pille vi la gran desepcion de que el lenguaje era distinto   

y la verdad no eh visto por ay que se able de VB 2005 express edition como un languaje formal.

pero eso si vi que se parece como a VB.NET la verdad desconozco de los dos lenguajes, si es que son dos, es igual VB 2005 a VB.NET?

y el colmo, me topo con VB 8 (2008) BETA 2. quiensabe que   

ese que?

pero la pregunta central.

Cual es la diferencia entre VB 2005 Express, VB.NET y VB 8,   
Çcambian los lenguajes?

Salu2

Hola, Compañeros estoy desarollando un brute force xD
mi pregunta es, nesesito una super computadora para que corra bien?
si si para comprarla en tepito

si no pues con esta, pero en fin

la peculiaridad de mi brute force es que se multiplica xD y mientras una ventana se echa un rango de caracteres otra ventana se echa otro

aun que me falla el rango

aun asi si todo me sale bien, no le pasa nada a mi compu si por ejemplo procesa 34 ventanas de mi brute force?

es de 1 G en ram y 3 GHz de CPU.

a ay si tienen un BF pasenlo por que siento que el mio va muy lentito

Veran VB me manda un error de registro alguien sabe como solucionarlo?


Yo supuse que agregandolo pero no se el contenido alguien tiene el contenido de ese registro?


de antemano gracias

[Download Decompilador]

Porque todos ustedes lo pidieron xD
Y Pues para no causar polémica les advierto que no es mío, no lo modifique en lo mas mínimo
Así como lo vi lo subí

Download Decompilador Comprimido en ZIP


Si no les parece ay si quieren eliminenlo alfin y al cabo con mis posts hacen lo que quieren

asta los modifican lo pueden creer?

Por cierto creo q asta genera el vbp no estoy seguro

Agregar :
2 Controles TextBox   (txtURL,txtCode)
1 Command Button     (cmdExt)
1 Inet                        (intCon)

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim Url As String
Private Sub cmdExt_Click()
    Url = txtURL.Text
    If Len(Url) > 11 Then
        txtCode.Text = intCon.OpenURL(Url)
        MsgBox "ya esta el code we",vbInformation, "Extorcionador"
    Else
        MsgBox "Pon un Url valido", vbCritical, "Extorcionador"
    End If
End Sub



Ejemplo


No lo saca muy ordenadito pero al pareser lo saca todo