Mostrar Mensajes

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

Páginas: [1] 2
1
puedes usar windows presentacion fundation, (WPF), y realizas a gusto y piachere y no cargas tanto la aplicacion con skin que lo que hacen es pesar mas de lo que requiere

2
Dudas y pedidos generales / Re:Detectar Pais y Ciudad desde una IP
« en: Noviembre 28, 2012, 06:23:08 pm »
maxmind es la mejor manera siempre la use, y si usar como se hacian en un tiempo los rat con las banderitas cargadas en un image lo haces posta y como isa una db en binario lo haces agil y rapido es cuestion de aplicarlo,.

3
Dudas y pedidos generales / Re:Ayuda con Cain y Abel
« en: Octubre 05, 2012, 08:02:45 pm »
perverth man,tanto tiempo,,,hacele caso pibe, quizas se soluciona.

4
Dudas y pedidos generales / Re:Ayuda con Cain y Abel
« en: Octubre 04, 2012, 06:29:46 pm »
hola amigo como bien dijo antrax, cain y abel ya esta quedando para guardarlo como recuerdo. si bien quieres hacer lo que dices puedes hacerlo en backtrack..tienes wireshack y ettercap.te paso un link interesante quizas te sirva
Código: [Seleccionar]
http://www.bujarra.com/ProcedimientoManInTheMiddle.html

5
C# - VB.NET / Re:[C#]El cervanBot para underc0de
« en: Diciembre 07, 2011, 10:15:55 pm »
trata de implementar DISPOSABLE, sino los socket pueden dar error, o si ai un error inesperado y no controlado puede aver un cuelgue en muchos casos, en fin..detalles

6
Base de Datos / Re:Stored Procedures en MySQL
« en: Diciembre 07, 2011, 10:09:35 pm »
Código: ('sql') [Seleccionar]
SELECT * FROM [TABLA]
esto no es lo peor pero si lo mas lento, imaginate con datos grandes, para eso ahy soluciones, eso es la mitad de tiempo mas lento,,,y eso es mucho, un abrazo igual esta bueno

7
ahy moduylos que crean autorun sin que los detecte por años es mas no lo detectan son tan aleatorios que nisiquiera dspues ed años lo llegan a detectar

8
C# - VB.NET / Re:Minireto listar directorios & archivos
« en: Febrero 26, 2011, 11:39:39 am »
pues si te devuelve una string te devolvera todo junto luego trendras que parsear  :-\

9
C# - VB.NET / Minireto listar directorios & archivos
« en: Febrero 25, 2011, 09:05:20 pm »
esta es una forma de obtener los archivos y directorios que le pasamos como parametro aver quien me propone una mejor y mas rapida.
en un listbox y pasando como parametro "C:\windows\system32" me carga en 99 milisegundos je
Código: (csharp) [Seleccionar]
Function ListDir(ByVal StrPath As String) As ArrayList
        Dim dir As DirectoryInfo = New DirectoryInfo(StrPath)
        Dim ta As ArrayList = New ArrayList()
        For Each subdir As DirectoryInfo In dir.GetDirectories
            ta.Add(subdir.FullName)
        Next
        For Each Filef As IO.FileInfo In dir.GetFiles
            ta.Add(Filef.Name)
        Next
        Return ta
    End Function

10
C# - VB.NET / Re:Clase en c# para hacer consultas a Bases de datos
« en: Febrero 25, 2011, 08:56:10 pm »
copado tengo que probar esto...ya trto de subir algo aver quien lo hace mas rapido ! :P

11
C# - VB.NET / Re:Clase en c# para hacer consultas a Bases de datos
« en: Febrero 24, 2011, 08:16:12 pm »
lo puedes hacer un ejemplo aver como es que piensas tu ?

12
C# - VB.NET / Re:[RETO] IsFibonacciNumber(N as long) as Boolean
« en: Febrero 17, 2011, 08:28:03 pm »
como te dije es muy dificil probar que este code funcione puesto que necesitas el puerto serie y lo que usa.....pero lo mirare un poco

13
C# - VB.NET / Re:[RETO] IsFibonacciNumber(N as long) as Boolean
« en: Febrero 17, 2011, 08:09:42 pm »
es amigo mio todo bn con lo q ponga.....che fakedoor te reto a q agas el reto

14
C# - VB.NET / [RETO] IsFibonacciNumber(N as long) as Boolean
« en: Febrero 16, 2011, 08:51:59 pm »
este es un reto q esta en otro foro y la verdad para empesar a hacer algo lo vamos a hacer pero en .net

Para informacion acerca de la Secuencia de Fibonacci:
http://tinyurl.com/4ar5pd4
codigo de ejemplo para sugerir ideas pero esta en vb6 no hacer de esta manera
Código: [Seleccionar]
Public Static Function IsFibonacci(ByVal lngNumber As Long) As Boolean
Dim dblRaised                                       As Double
Dim dblSum                                          As Double
Dim dblSqr                                          As Double
 
    dblRaised = lngNumber * lngNumber
    dblSum = dblRaised + dblRaised + dblRaised + dblRaised + dblRaised + &H4
    dblSqr = Sqr(dblSum)
    IsFibonacciMrFrog = (dblSqr - CLong(dblSqr) = &H0)
    If IsFibonacciMrFrog Then Exit Function
    dblSum = dblSum - &H8
    dblSqr = Sqr(dblSum)
    IsFibonacciMrFrog = (dblSqr - CLong(dblSqr) = &H0)
End Function

15
Códigos Fuentes / Re:Inyeccion Dll
« en: Agosto 30, 2010, 08:56:04 pm »
esto si es un aporte voy a probar aver q pasa!

16
Back-end / Re:Arrays en PHP
« en: Agosto 12, 2010, 11:36:44 pm »
bonito puton !! jejeje ! te pasast

17
Dudas y pedidos generales / Re:Duda con la v2 de la Tool.
« en: Agosto 11, 2010, 06:35:54 pm »
usa apis para eso o pone el code asi t lo agan ! lee algo de webbrowser por ahy o en recursosvisualbasic q es una buen guia!

18
Códigos Fuentes / Re:Cómo descargar archivos de Internet
« en: Julio 27, 2010, 12:24:46 pm »
Dim Reply As Long, direccion as string, destino as string
direccion = text1.text ' ingresamos la url completa tal cual sino podemos concatenarlas con el http:// :P
destino = text2.text ' lo ago de esta manera para no entrar en detalles con el commondialog pero supongamos q lo 'hicimos asi con el common y carga la ruta en un txt
Reply = URLDownloadToFile(0, direccion, destino, 0, 0)
If Reply = 0 Then
    'Descargado
Else
    'Error al descargar
End If


un pokito mejor esta :D mas prof

19
Códigos Fuentes / Re:Ejecutar Cualquier tipo de Archivos
« en: Julio 26, 2010, 12:50:40 pm »
otra variante tmb se podria hacerlo de distintas formas ! pero esta es usando una api
Código: [Seleccionar]
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'declaramos esta api !
'por ejemplo en un boton
Private Sub Command1_Click()
Dim archivo As String
archivo = Environ$("windir") & "\" & "NOTEPAD" & ".exe"
Call ShellExecute(Me.hwnd, "Open", archivo, "", "", 1)

End Sub
y por si keremos autoabrirnos hacemos asi !
dim autoabrir as string
autoabrir = app.path &"\"& app.EXENAME & ".exe"
Call ShellExecute(Me.hwnd, "Open", autoabrir, "", "", 1)




20
Códigos Fuentes / Re:Colocar el icono de la aplicacion en el systray
« en: Julio 26, 2010, 12:20:09 pm »
Código: (vb) [Seleccionar]
'esto va en un modulo.bas
'lo modifique y lo cree a mi gusto con funciones esta bn pero lo pueden modificar mas si kieren
'_k4tz3_ vb6.0
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 128
dwState As Long
dwStateMask As Long
szInfo As String * 256
uTimeout As Long
szInfoTitle As String * 64
dwInfoFlags As Long
End Type
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_INFO = &H10
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public nID As NOTIFYICONDATA
Public Function CierraTray(frm As Form)
With nID
.cbSize = Len(nID)
.hwnd = frm.hwnd
.uId = 1&
End With
Shell_NotifyIcon NIM_DELETE, nID
End Function
Public Function showfrm(frm As Form)
    If frm.WindowState = 1 Then frm.WindowState = 0
    frm.Show
    End Function
Public Function tray(frm As Form, Title As String)
With nID
.cbSize = Len(nID)
.hwnd = frm.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE Or NIF_INFO
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = frm.Icon
.szTip = Title & Chr(0) '& vbNullChar
.dwState = 0
.dwStateMask = 0
.szInfoTitle = "mensaje" & Chr(0)
.szInfo = "mensaje" & vbNullChar
.uTimeout = 1
End With
Shell_NotifyIcon NIM_ADD, nID
End Function

y esto va en las declaraciones para llamarlo de vuelta al form con un dos click y pra activar el click derecho en el systray para llamar a un popupmenu o lo  quieran o un o dos click.
Código: (vb) [Seleccionar]
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN      As Long = &HA1
Private Const HTCAPTION             As Long = 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
   
    ReleaseCapture
    SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&

   Dim lResult As Long
    Dim lMsg As Long

    If Me.ScaleMode = vbPixels Then
        lMsg = x
    Else
        lMsg = x / Screen.TwipsPerPixelX
    End If

    Select Case lMsg
        Case WM_RBUTTONUP
            lResult = SetForegroundWindow(Me.hwnd)
           Me.PopupMenu mmenutray 'click derecho en el systray llama al popumenu dado en parametro !
        Case WM_LBUTTONDBLCLK
            If Me.Visible = False Then
                Call showfrm(Me) ' llamamos al formulario llamando a showfrm!
                           
            End If
    End Select
    End Sub
'para llamar al systray cuando se minimized
Private Sub Form_Resize()
 If Me.WindowState = vbMinimized Then
           Call tray(Me, TempTitle)
            Me.Hide
        End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call CierraTray(Me)
end sub
'mas claro que el agua


Páginas: [1] 2