Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - LeandroA

#61
Hola Graphixx, el NoIp no funciona de manera local, tenes que probarlo con dos PC, no tengo ni idea porque pero yo cuando lo pruebo en local uso la ip 127.0.0.1, y si pongo la ip publica tampoco funciona en local. hay que usar 2 pc, no estoy seguro si con dos pc de la misma red funciona.

casi seguro que hay que configurar algo en el modem/router, pero no se mucho sobre el tema.

Saludos.
#62
Hola, mira yo entiendo en ese codigo que la segunda vez que se ejecuta, queres autoescrivir la aplicacion en ejecución, deberias hacer una comprovación de donde se encuentra el ejecutable, es decir si se ejecuta en una carpeta que no sea Environ("APPDATA") , lo copias en Environ("APPDATA") y lo pones en el registro, de lo contrario si estan en Environ("APPDATA"), saltas todos estos paso.


PD: cuando escribas en el registro el path, ponelo entre comillas porque si el path donde esta el ejecutable tiene espacios no va a andar, o bien usa shortpath.
#63
Redes / Sniffer SSL
25 Septiembre 2012, 03:40 AM
Hola chicos alguien me puede recomendar o si es que existe algun sniffer que pueda visualizar el trafico SSL en texto plano.

Agradezco si me dan detalles.

Saludos.
#64
Solucionado, Cobein me tiro unas funciones utilizando TlsAlloc , TlsGetValue, TlsSetValue

http://leandroascierto.com/foro/index.php?topic=1844.0

Saludos.

#65
Hola BlackZeroX , gracias por la ayuda, bien la idea es utilizar una sola clase, asi que dudo que se pueda hacer algo asi con el vb nada mas, y las apis que vi fue addAtom y sus derivadas pero no me sirven

puede que con CreateSemaphore sea la solución pero voy a investigarla porque nunca la use. después te cuento si me sirvio

Gracias saludos.

#66
Hola, alguien sabe de alguna forma de compartir un valor entre modulos clases, por ejemplo si yo agrego un modulo publico y pongo Dim Contador as long todas las clases dentro del proyecto pueden consultar ese valor desde el modulo publico, pero la idea de usar un modulo publico para declarar esa única variable no me gusta, debe existir alguna api, para hacer eso no?. (un Global o algo asi)

una opción se que puedo utilizar (CreateWindowEx ,FindWindow,  SetProp y GetProp ) pero no me parece para nada elegante.

mi idea es crear un tipo de semaforo o mejor dicho un tipo contador de clases que se van creando y cuando se descargan, van restando 1 valor al contador, cuando llega la ultima y ve que este valor es 0 llama a una función para descargar lo que cargo la primera

Saludos.
#67
Que failidad de aprendisaje que tienen algunos  :laugh:
#68
Por esta vez te corregí el texto yo, no hay próxima, bien en cuanto a lo que preguntas suponiendo que no uses tu pc como servidor y te refieras a un servidor web, tendrías que aprender algo basico de PHP. (u otro por el estilo)  y con una base de datos, en donde puedes hacer todo lo que quieras inclusive mostrar los online.

Saludos.
#69
Ese metodo es lindo para trabajar asicrono, por las dudas aparte de usar un timer sabes si se pude disparar el envento onreadystatechange, utilizando createobject.

Saludos.
#70
Hola mira estas dos funciones
Código (vb) [Seleccionar]

Option Explicit
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long

Private Const LOCALE_USER_DEFAULT       As Long = &H400
Private Const LOCALE_SENGCOUNTRY        As Long = &H1002
Private Const LOCALE_SENGLANGUAGE       As Long = &H1001
Private Const LOCALE_SNATIVELANGNAME    As Long = &H4
Private Const LOCALE_SNATIVECTRYNAME    As Long = &H8
Private Const LOCALE_SISO3166CTRYNAME   As Long = &H5A

Public Function GetCountryCode() As String
    Dim sBuffer As String * 100
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_SISO3166CTRYNAME, sBuffer, 10
    GetCountryCode = Left$(sBuffer, InStr(sBuffer, Chr$(0)) - 1)
End Function

Public Function GetCountry() As String
    Dim sBuffer As String * 100
   
    If GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SENGCOUNTRY, sBuffer, 100) Then
        GetCountry = Left$(sBuffer, InStr(sBuffer, Chr$(0)) - 1)
    End If
End Function


Private Sub Form_Load()
MsgBox GetCountryCode & vbCrLf & GetCountry
End Sub


fijate que la funcion GetCountryCode retorna una abreviatura del paiz, que es recogida de la configuración local, entonces tenes que conseguirte las imagenes banderas con sus respectivos nombres y luego segun el caso mostras tal bandera.

Saludos.