elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 [15] 16 17 18
141  Programación / Programación Visual Basic / Re: Formula para hallar velocidad de descarga en: 26 Julio 2006, 16:44 pm
podias ponerlo cn un codigo de ejemplo? eske asi como k no me aclaro xD

saludos
142  Programación / Programación Visual Basic / Re: Formula para hallar velocidad de descarga en: 25 Julio 2006, 11:40 am
xD aver si me explico mejor

quiero saber a la VELOCIDAD que se descarga un determinado fixero, (KB/s)

saludos
143  Programación / Programación Visual Basic / Formula para hallar velocidad de descarga en: 24 Julio 2006, 20:09 pm
pues eso que toy haciendo un programita que descarga un fixero de la web y no tengo ni zorra idea de cual es la formula para hallar la velocidad de descarga  (formula matematica)

alguien la sabe? ;D

saludos
144  Programación / Programación Visual Basic / Re: Añadir mas componentes en: 22 Julio 2006, 20:58 pm
Pues es cierto:


xDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDd


Command254 jajaja XDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD

dios
xDDDDDDD
yo como muxo e llegao a 20 xD
145  Programación / Programación Visual Basic / Descomprimir carpetas en: 17 Junio 2006, 15:37 pm
Tngo un módulo para descomprimir Zips pero cuando descomprimo un zip que contenga carpetas no las crea, simplemente no las descomprime -.-

alguien sabe como hacer pa que descomprima las carpetas, o algun código
Código:
Private Type CBChar
    ch(4096) As Byte
End Type

Private Type UNZIPUSERFUNCTION
    UNZIPPrntFunction As Long
    UNZIPSndFunction As Long
    UNZIPReplaceFunction  As Long
    UNZIPPassword As Long
    UNZIPMessage  As Long
    UNZIPService  As Long
    TotalSizeComp As Long
    TotalSize As Long
    CompFactor As Long
    NumFiles As Long
    Comment As Integer
End Type


Private Type UNZIPOPTIONS
    ExtractOnlyNewer  As Long
    SpaceToUnderScore As Long
    PromptToOverwrite As Long
    fQuiet As Long
    ncflag As Long
    ntflag As Long
    nvflag As Long
    nUflag As Long
    nzflag As Long
    ndflag As Long
    noflag As Long
    naflag As Long
    nZIflag As Long
    C_flag As Long
    FPrivilege As Long
    Zip As String
    extractdir As String
End Type

Private Type ZIPnames
    s(0 To 99) As String
End Type
Public Declare Function Wiz_SingleEntryUnzip Lib "unzip32.dll" (ByVal ifnc As Long, ByRef ifnv As ZIPnames, ByVal xfnc As Long, ByRef xfnv As ZIPnames, dcll As UNZIPOPTIONS, Userf As UNZIPUSERFUNCTION) As Long
Public Sub UnZip(Zip As String, extractdir As String)
On Error GoTo err_Unzip

Dim Resultado As Long
Dim intContadorFicheros As Integer

Dim FuncionesUnZip As UNZIPUSERFUNCTION
Dim OpcionesUnZip As UNZIPOPTIONS

Dim NombresFicherosZip As ZIPnames, NombresFicheros2Zip As ZIPnames

NombresFicherosZip.s(0) = vbNullChar
NombresFicheros2Zip.s(0) = vbNullChar
FuncionesUnZip.UNZIPMessage = 0&
FuncionesUnZip.UNZIPPassword = 0&
FuncionesUnZip.UNZIPPrntFunction = DevolverDireccionMemoria(AddressOf UNFuncionParaProcesarMensajes)
FuncionesUnZip.UNZIPReplaceFunction = DevolverDireccionMemoria(AddressOf UNFuncionReplaceOptions)
FuncionesUnZip.UNZIPService = 0&
FuncionesUnZip.UNZIPSndFunction = 0&
OpcionesUnZip.C_flag = 1
OpcionesUnZip.fQuiet = 2
OpcionesUnZip.noflag = 1
OpcionesUnZip.Zip = Zip
OpcionesUnZip.extractdir = extractdir

Resultado = Wiz_SingleEntryUnzip(0, NombresFicherosZip, 0, NombresFicheros2Zip, OpcionesUnZip, FuncionesUnZip)

Exit Sub
err_Unzip:
    MsgBox "Unzip: " + Err.Description, vbExclamation
    Err.Clear
End Sub

Private Function UNFuncionParaProcesarMensajes(ByRef fname As CBChar, ByVal x As Long) As Long
On Error GoTo err_UNFuncionParaProcesarMensajes

    UNFuncionParaProcesarMensajes = 0

Exit Function
err_UNFuncionParaProcesarMensajes:
    MsgBox "UNFuncionParaProcesarMensajes: " + Err.Description, vbExclamation
    Err.Clear
End Function

Private Function UNFuncionReplaceOptions(ByRef p As CBChar, ByVal L As Long, ByRef m As CBChar, ByRef Name As CBChar) As Integer
On Error GoTo err_UNFuncionReplaceOptions

    UNFuncionParaProcesarPassword = 0

Exit Function
err_UNFuncionReplaceOptions:
    MsgBox "UNFuncionParaProcesarPassword: " + Err.Description, vbExclamation
    Err.Clear
End Function
Public Function DevolverDireccionMemoria(Direccion As Long) As Long
On Error GoTo err_DevolverDireccionMemoria

    DevolverDireccionMemoria = Direccion

Exit Function
err_DevolverDireccionMemoria:
    MsgBox "DevolverDireccionMemoria: " + Err.Description, vbExclamation
    Err.Clear
End Function


saludos

146  Programación / Programación Visual Basic / Re: Error rarisimo en: 17 Junio 2006, 15:36 pm
weno ya lo solucione, sobre lo del código es bastante largo xDDDDD

saludos
147  Programación / Programación Visual Basic / Error rarisimo en: 17 Junio 2006, 10:20 am
este es el problema

sin compilar el programa no me da error ninguno, o sea me refiero a que se ejecuta como yo quiero sin dar ningun error

pero cuando lo compilo al exe, me da un error de path o nombre de archivo. Cuando intenta manejar algun archivo

al no dar el error cuando no esta compilado no se que linea tiene error -_-

alguien sabe k hacer?

saludos
148  Programación / Programación Visual Basic / Re: Al minimizar k se convierta en un notyicon en: 10 Junio 2006, 13:31 pm
el notifyicon es un control ocx k le e añadido al programa xD

lo kitais y poneis lo k kiere k haga cuando se minimize

saludos
149  Programación / Programación Visual Basic / Re: Al minimizar k se convierta en un notyicon en: 9 Junio 2006, 20:12 pm
weno ya lo solucione xD y sin buskar en google :P xD


Código:
Private Sub Form_Resize()
If form1.WindowState = "1" Then
form1.Hide
NotifyIcon.SetEnabled True
End If
End Sub
150  Programación / Programación Visual Basic / Al minimizar k se convierta en un notyicon en: 9 Junio 2006, 20:06 pm
weno lo del icono ya lo tengo pero lo k quiero eske al minimizarse el formulario no se minimize a la barra d tareas o sea k se haga un form1.hide y k el icono apareza dnde ta el reloj

alomejor no me e explicado bien
xD


saludos
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 [15] 16 17 18
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines