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

#21
técnicamente esto daria cómo resultado una ip interna de la maquina, un router y no sirve para nada, una de las mejores cosas que se pueden hacer con respecto a este tema es simplemente como lo planteo Ertai en un hilo de la sección de virukeros conectar a una pagina de tipo cualesmip.com y descargarla buscar la ip copiarla y eliminar el archivo todo con apis, muy bueno y sencillisimo igual de ahi puede paritr un irc notificador o que se yo ... bueno eso



un saludo.

edito:

bueno encontré el hilo en el que se habla y se explica bien el tema...

http://foro.elhacker.net/index.php/topic,68433.0.html

igual pongo un code que sintetizé en base a lo escrito por Ertai en su tiempo ...



'en un modulo
'**************************
Public Declare Function URLDownloadToFile Lib "urlmon" _
                             Alias "URLDownloadToFileA" _
                            (ByVal pCaller As Long, _
                             ByVal szURL As String, _
                             ByVal szFileName As String, _
                             ByVal dwReserved As Long, _
                             ByVal lpfnCB As Long) As Long
   
        Private Const ERROR_SUCCESS As Long = 0
        Private Const BINDF_GETNEWESTVERSION As Long = &H10
        Private Const INTERNET_FLAG_RELOAD As Long = &H80000000


Public Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean
    DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function
'************************************


'en el form normal

Private Const sSourceUrl = "http://www.andy21.com/ip/"
    Private Const sLocalFile = "c:\ip.htm"

    Dim pos2%, pos1%
    Dim ip_A$, ip$
    Dim hFile%
    Dim url As String


Private Sub Command1_Click()
    Dim a As Variant
        a = DownloadFile(sSourceUrl, sLocalFile)
        Text3.Text = a
        hFile = FreeFile
    Open "C:\ip.htm" For Input As #hFile
        a = Input(LOF(hFile), #hFile)
    Close hFile
        Text1.Text = a
        Kill ("C:\ip.htm")
        pos1 = InStr(1, Text1.Text, "REMOTE_ADDR: ", vbTextCompare)
        pos2 = InStr(pos1, Text1.Text, " - HTTP_X_FORWARDED_FOR:", vbTextCompare)
        ip = Mid(Text1.Text, (pos1 + 13), (pos2 - (pos1 + 13)))
        Text2.Text = ip

end sub

#22
si, con la api de windows seguro hay algun tipo de funcion, pero no la sé xD, sin embargo, con un control SysInfo seria relativamente sencillo, este en su propiedad .OsPlataform devuelve numericamente el tipo de sistemas operativos, por ejemplo ejecutarlo en un win NT devolveria el número 2 ... en un 98 CREO que es 1 , en fin seria cuestion de investigar y leer solo un poco,

ya con esto pones en un if o en un select case que segun sea el sistema operativo (1,2,3 etc) pues la direccion de la base de datos o de la aplicacion cambia...

edito: sobra decir que dicho control lo debes agregar en "Proyecto > Componentes > Microsoft SysInfo control 6.0" o algo así...


un saludo.
#23
es el ultimo que ha cojido amenos que tu la iguales a 0 o a "" (en caso de variable tipo string) .... en matrices se debe tener cuidado con eso y en las redimenciones ... para que no borre el contenido creo que es on Preserve  o algo así.


un saludo.
#24
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"     'esto desabilita el ctrl+alt+sup  en win XP

edito: obviamente para activarlo será cambiar el 1 por 0

un saludo.
#25
Programación Visual Basic / Re: iconos
10 Octubre 2005, 20:10 PM
claro editores de iconos hay muchisimos la cuestion es almenos dignarse a buscar un poco, lo de las recomendaciones de cual es mejor o peor simplemente va en que los pruebes y decidas a cual  te adaptas mejor y cual te parece a ti mejor....

una ayuda

Aqui

un saludo.
#26
Programación Visual Basic / Re: Una opinion...
10 Octubre 2005, 20:05 PM
exacto, si quieres sugerenmcias  u opiniones a cerca de tu programa sube el proyecto con los respectivos formularios y en el post en el que lo promociones almenos pon una breve descripcion de lo que es y hace ... porque dudo que alguien se anime a ejecutarlo ...



un saludo.
#27
pues si pones un control DriveListBox no veo el inconveniente en verlas :-\


un saludo.
#28
aaapz jejeje leí mal xD ...... pero con and deberia salir perfecto :S  jejeje bueno será revisar que esté bien el code no?


un saludo.
#29
pues tambien prodria ser con Or  .... si tal cosa or esta blablavbla


un saludo.
#30
creo que no deberia molestarte en absoluto, es una critica constructiva totalmente valida, pero bueno es lo que creo


un saludo.