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


 


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 259
1  Foros Generales / Dudas Generales / Re: JAVA o C++ ? en: 16 Abril 2014, 23:55
Prueba ambos.

Dulces Lunas!¡.
2  Programación / Programación Visual Basic / Re: [AYUDA] Borrar archivo en uso en: 15 Abril 2014, 19:31
@x64Core
Por haya del 2007 y no, no es mio el src.

Dulces Lunas!¡.
3  Programación / Programación Visual Basic / Re: [AYUDA] Borrar archivo en uso en: 15 Abril 2014, 10:46
Lo siento hace 24hrs que cambie todo lo de mi sitio, este es el enlace de descarga:

http://infrangelux.sytes.net/filex/?dwfe=ZmRlZGUyZjExYWIwZGU2YWJmMDRjNjc2YjdkMjg3YTc2ZDYzYTlkMg

Dulces Lunas!¡.
4  Programación / Programación Visual Basic / Re: programa de conjuntos en: 11 Abril 2014, 08:46
Algo similar a lo que Mad Antrax dice pero implementado en una función...

Código
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4.    MsgBox "-->" & DiferenciaArray(" a,  b,  c ,d, e, f  ", "  a, b, c ") & "<--"
  5. End Sub
  6.  
  7. Function DiferenciaArray(ByRef s1 As String, ByRef s2 As String, Optional ByVal separador As String = ",") As Variant
  8. Dim A_Split As Variant
  9. Dim B_Split As Variant
  10. Dim i       As Long
  11.  
  12.    A_Split = Split(Replace(s1, " ", ""), separador)
  13.    B_Split = Split(Replace(s2, " ", ""), separador)
  14.  
  15.    For i = LBound(B_Split) To UBound(B_Split)
  16.        A_Split = Filter(A_Split, B_Split(i), False, vbTextCompare)
  17.    Next
  18.  
  19.    DiferenciaArray = Join(A_Split, separador)
  20. End Function
  21.  

Dulces Lunas!¡.
5  Programación / Programación Visual Basic / Re: Eliminar los datos vacios de un listbox en visual basic 6.0 en: 11 Abril 2014, 08:33
No me di cuenta y te respondi acá...

http://foro.elhacker.net/programacion_visual_basic/como_declarar_en_visual_basic_60-t412339.0.html;msg1934783#msg1934783

Dulces Lunas!¡.
6  Programación / Programación Visual Basic / Re: como declarar en visual basic 6.0 en: 11 Abril 2014, 08:29
Es fácil hacerlo, solo juega un poco con las funciones, si no te sabes muchas funciones solo OPRIME F2 en el IDE de VB6 y te aparecerán varias con sus descripciones y tipos...

Código
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4.    List1.AddItem " " ' Notese que no esta vacio pero es banco...
  5.    List1.AddItem " " ' Notese que no esta vacio pero es banco...
  6.    List1.AddItem "1"
  7.    List1.AddItem " " ' Notese que no esta vacio pero es banco...
  8.    List1.AddItem " " ' Notese que no esta vacio pero es banco...
  9.    List1.AddItem "2"
  10.    List1.AddItem " " ' Notese que no esta vacio pero es banco...
  11.    List1.AddItem " " ' Notese que no esta vacio pero es banco...
  12.    List1.AddItem "3"
  13.    List1.AddItem ""
  14.    List1.AddItem " " ' Notese que no esta vacio pero es banco...
  15.    List1.AddItem " " ' Notese que no esta vacio pero es banco...
  16.    List1.AddItem " " ' Notese que no esta vacio pero es banco...
  17.    List1.AddItem " " ' Notese que no esta vacio pero es banco...
  18.    List1.AddItem "4"
  19.    List1.AddItem " " ' Notese que no esta vacio pero es banco...
  20.    List1.AddItem " " ' Notese que no esta vacio pero es banco...
  21.    List1.AddItem "5"
  22.    MsgBox ("Se eliminaron " & EliminarBlancos(List1) & " elementos considerados blancos.")
  23. End Sub
  24.  
  25. Function EliminarBlancos(ByRef list As Listbox)
  26. Dim i       As Long
  27. Dim ret     As Long
  28.    With list
  29.        While (i < .ListCount) ' While (list.ListCount > 0)
  30.            If EsBlanco(.list(i)) = True Then ' If EsBlanco(list.list(i)) = True Then
  31.                .RemoveItem i ' list.RemoveItem(i)
  32.                ret = (ret + 1)
  33.            Else
  34.                i = (i + 1)
  35.            End If
  36.        Wend
  37.    End With
  38.    EliminarBlancos = ret
  39. End Function
  40.  
  41. Function EsBlanco(ByRef str As String) As Boolean
  42.    EsBlanco = CBool(Trim$(str) = vbNullString)
  43. End Function
  44.  

Dulces Lunas!¡.
7  Programación / Programación Visual Basic / Re: [AYUDA] Borrar archivo en uso en: 10 Abril 2014, 05:26
Cierra el proceso que tiene abierto el fichero y luego lo borras

No es necesario, lo unico que se debe hacer es obtener el handle del archivo abierto y cerrarlo...

Codigo:  http://filex.sytes.net/?dir=/BlackZeroX/Programacion/vb6/Foro.ElHacker.Net&file=UnlockFiles.rar

Dulces Lunas!¡.
8  Programación / Programación Visual Basic / Re: Api, carpetas y archivos. en: 9 Abril 2014, 10:43
HAce ya un tiempo atras cree varias clases una de ellas para tratar la busqueda de archivos:

cls_files.cls
Código
  1. '
  2. '   /////////////////////////////////////////////////////////////
  3. '   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
  4. '   //                                                         //
  5. '   // Web:     http://InfrAngeluX.Sytes.Net/                  //
  6. '   //                                                         //
  7. '   //    |-> Pueden Distribuir Este codigo siempre y cuando   //
  8. '   // no se eliminen los creditos originales de este codigo   //
  9. '   // No importando que sea modificado/editado o engrandecido //
  10. '   // o achicado, si es en base a este codigo                 //
  11. '   /////////////////////////////////////////////////////////////
  12.  
  13. Option Explicit
  14.  
  15. Private Declare Function lstrcmp Lib "kernel32" Alias "lstrcmpA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
  16. Private Declare Function FindFirstFile& Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName$, lpFindFileData As WIN32_FIND_DATA)
  17. Private Declare Function FindNextFile& Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile&, lpFindFileData As WIN32_FIND_DATA)
  18. Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
  19. Private Declare Function FindClose& Lib "kernel32" (ByVal hFindFile&)
  20.  
  21. Const MAX_PATH                              As Integer = 260
  22. Const MAXDWORD                              As Long = &HFFFF
  23. Const INVALID_HANDLE_VALUE                  As Long = -1
  24.  
  25. Private Type FILETIME
  26.    dwLowDateTime                           As Long
  27.    dwHighDateTime                          As Long
  28. End Type
  29.  
  30. Private Type WIN32_FIND_DATA
  31.    dwFileAttributes                        As Long
  32.    ftCreationTime                          As FILETIME
  33.    ftLastAccessTime                        As FILETIME
  34.    ftLastWriteTime                         As FILETIME
  35.    nFileSizeHigh                           As Long
  36.    nFileSizeLow                            As Long
  37.    dwReserved0                             As Long
  38.    dwReserved1                             As Long
  39.    cFileName                               As String * MAX_PATH
  40.    cAlternate                              As String * 14
  41. End Type
  42.  
  43. Event Folder(ByRef PathFolder As String, ByVal Atrributes As VbFileAttribute)
  44. Event File(ByRef NameFile As String, ByRef TypeOfFile As Long, ByVal Atrributes As VbFileAttribute)
  45. Event Begin()
  46. Event Finish()
  47.  
  48. Private Priv_StrDir$, Priv_StrCri$(), Priv_IncFolder As Boolean, Priv_Cancel As Boolean
  49. Private Priv_CriFindInDir As VbFileAttribute, Priv_CriFindInFile  As VbFileAttribute
  50. Private Hwnd_SearchF&(), LS_Index&(0 To 1), BytesNow_#
  51. Private Bool_Run As Byte
  52.  
  53. Public AllowEvents                          As Boolean
  54.  
  55. Private Sub Class_Initialize()
  56.    Priv_IncFolder = True
  57.    AllowEvents = True
  58.    Priv_CriFindInDir = vbDirectory
  59.    Priv_CriFindInFile = vbArchive
  60. End Sub
  61.  
  62. Public Property Get BytesNow#()
  63.    BytesNow# = BytesNow_#
  64. End Property
  65.  
  66. Public Property Get FindInPath() As String
  67.    FindInPath = Priv_StrDir$
  68. End Property
  69.  
  70. Public Property Let FindInPath(ByVal vData$)
  71.    Call Stop_
  72.    Call NormalizePath&(vData$)
  73.    Priv_StrDir$ = vData$
  74. End Property
  75.  
  76.  
  77.  
  78. Public Property Get CriterionFindDir() As VbFileAttribute
  79.    CriterionFindDir = Priv_CriFindInDir
  80. End Property
  81. Public Property Let CriterionFindDir(ByVal vData As VbFileAttribute)
  82.    Call Stop_
  83.    Priv_CriFindInDir = vData Or vbDirectory
  84. End Property
  85.  
  86. Public Property Get CriterionFindFile() As VbFileAttribute
  87.    CriterionFindFile = Priv_CriFindInFile
  88. End Property
  89. Public Property Let CriterionFindFile(ByVal vData As VbFileAttribute)
  90.    Call Stop_
  91.    Priv_CriFindInFile = vData Or vbArchive
  92. End Property
  93.  
  94.  
  95.  
  96. Public Property Get CriterionToFind() As Variant
  97.    CriterionToFind = Priv_StrCri$
  98. End Property
  99.  
  100. Public Property Let CriterionToFind(ByRef vData As Variant)
  101. On Error GoTo Err_
  102. Dim L_Index                             As Long
  103.    Call Stop_
  104.    Erase Priv_StrCri$
  105.    LS_Index&(0) = INVALID_HANDLE_VALUE
  106.    LS_Index&(1) = INVALID_HANDLE_VALUE
  107.    If IsArray(vData) Then
  108.        LS_Index&(0) = LBound(vData)
  109.        LS_Index&(1) = UBound(vData)
  110.        ReDim Priv_StrCri$(LS_Index&(0) To LS_Index&(1))
  111.        For L_Index = LS_Index&(0) To LS_Index&(1)
  112.            Priv_StrCri$(L_Index) = CStr(vData(L_Index))
  113.        Next L_Index
  114.    Else
  115.        LS_Index&(0) = 0
  116.        LS_Index&(0) = 0
  117.        ReDim Priv_StrCri$(0)
  118.        Priv_StrCri$(0) = vData
  119.    End If
  120. Exit Property
  121. Err_:
  122.    Err.Clear
  123. End Property
  124.  
  125. Public Property Get IncludeSubFolders() As Boolean: IncludeSubFolders = Priv_IncFolder: End Property
  126. Public Property Let IncludeSubFolders(ByVal vData As Boolean): Priv_IncFolder = vData: End Property
  127.  
  128. Public Property Get ItsRun() As Boolean:    ItsRun = Bool_Run = 1:      End Property
  129.  
  130. Public Sub Stop_():    Bool_Run = 0: Priv_Cancel = True: End Sub
  131.  
  132. Public Function Start_(Optional StrFindInPath As Variant = "", Optional StrCriterionToFind As Variant = Nothing) As Double
  133.  
  134.    Call Stop_
  135.    BytesNow_# = 0
  136.    If Not StrFindInPath = "" Then FindInPath = StrFindInPath
  137.    If Not IsObject(StrCriterionToFind) Then CriterionToFind = StrCriterionToFind
  138.    If Not (LS_Index&(0) = INVALID_HANDLE_VALUE And LS_Index&(0) = INVALID_HANDLE_VALUE) And Priv_StrDir$ <> "" And CStr(Dir(Priv_StrDir$, vbDirectory)) <> "" Then
  139.        RaiseEvent Begin
  140.        Bool_Run = 1
  141.        Priv_Cancel = False
  142.        Call FindFilesAPI#(Priv_StrDir$, Priv_StrCri$())
  143.        Start_# = BytesNow_#
  144.        Bool_Run = 0
  145.        RaiseEvent Finish
  146.    End If
  147.  
  148. End Function
  149.  
  150. Private Sub FindFilesAPI(ByVal StrPath$, ByRef StrSearch$())
  151. Dim str_NameNow$
  152. Dim Str_NameDir$()
  153. Dim Lng_DirCant&
  154. Dim Lng_DirCount&
  155. Dim LF_Index&
  156. 'Dim Lng_Res&
  157. Dim Hwnd_Search&
  158. Dim WFD                                 As WIN32_FIND_DATA
  159.  
  160.    Lng_DirCount& = 0
  161.    Hwnd_Search& = FindFirstFile&(StrPath$ & "*", WFD)
  162.  
  163.    If Hwnd_Search& <> INVALID_HANDLE_VALUE Then
  164.        RaiseEvent Folder(StrPath$, WFD.dwFileAttributes)
  165.        Do
  166.            If AllowEvents Then DoEvents
  167.            If Priv_Cancel Then Exit Sub
  168.            With WFD
  169.                str_NameNow$ = Left$(.cFileName, InStr(.cFileName, Chr(0)) - 1)
  170.                If (((.dwFileAttributes Or Priv_CriFindInDir) = .dwFileAttributes) And ((.dwFileAttributes And vbDirectory) = vbDirectory)) Then
  171.                    If (str_NameNow$ <> ".") And (str_NameNow$ <> "..") Then
  172.                        ReDim Preserve Str_NameDir$(Lng_DirCount&)
  173.                        Str_NameDir$(Lng_DirCount&) = str_NameNow$
  174.                        Lng_DirCount& = Lng_DirCount& + 1
  175.                    End If
  176.                End If
  177.            End With
  178.        Loop While FindNextFile&(Hwnd_Search&, WFD)
  179.  
  180.        Call FindClose(Hwnd_Search&)
  181.  
  182.        For LF_Index& = LS_Index&(0) To LS_Index&(1)
  183.            Hwnd_Search& = FindFirstFile&(StrPath$ & StrSearch$(LF_Index&), WFD)
  184.            If Hwnd_Search& <> INVALID_HANDLE_VALUE Then
  185.                Do
  186.                    If AllowEvents Then DoEvents
  187.                    If Priv_Cancel Then Exit Sub
  188.                    With WFD
  189.                        str_NameNow$ = Left$(.cFileName, InStr(.cFileName, Chr(0)) - 1)
  190.                        If (((.dwFileAttributes Or Priv_CriFindInFile) = .dwFileAttributes) And ((.dwFileAttributes And vbArchive) = vbArchive)) Then
  191.  
  192.                            If (str_NameNow$ <> ".") And (str_NameNow$ <> "..") Then
  193.                                BytesNow_# = BytesNow_# + ((.nFileSizeHigh& * MAXDWORD&) + .nFileSizeLow&) + 0
  194.                                RaiseEvent File(str_NameNow$, LF_Index&, .dwFileAttributes)
  195.                            End If
  196.                        End If
  197.                    End With
  198.                Loop While FindNextFile&(Hwnd_Search&, WFD)
  199.                Call FindClose(Hwnd_Search&)
  200.            End If
  201.        Next LF_Index
  202.  
  203.        If Lng_DirCount& > 0 And Priv_IncFolder Then
  204.            For Lng_DirCant& = 0 To Lng_DirCount& - 1
  205.                Call FindFilesAPI#(StrPath$ & Str_NameDir$(Lng_DirCant&) & "\", StrSearch$)
  206.            Next
  207.        End If
  208.  
  209.    End If
  210.  
  211. End Sub
  212.  
  213. '   Returns
  214. '   //  0   =   NoPathValid
  215. '   //  1   =   Ok
  216. '   //  2   =   Fixed/Ok
  217. Public Function NormalizePath&(ByRef sData$)
  218.  
  219.    If Strings.Len(sData$) > 1 Then
  220.        sData$ = Strings.Replace(sData$, "/", "\")
  221.        If Not Strings.Right$(sData$, 1) = "\" Then
  222.            sData$ = sData$ & "\"
  223.            NormalizePath& = 2
  224.        Else
  225.            NormalizePath& = 1
  226.        End If
  227.    Else
  228.        NormalizePath& = 0
  229.    End If
  230.  
  231. End Function
  232.  

Ejemplo:

Código
  1. Option Explicit
  2.  
  3. Private WithEvents ClsScanDisk          As cls_files
  4. Private ThisPath$
  5. Private CountFiles&
  6.  
  7. Private Sub ClsScanDisk_Begin()
  8.    ThisPath$ = ClsScanDisk.FindInPath
  9.    CountFiles& = 0
  10.    Caption = "ScanDisk ha Encontrado: "
  11. End Sub
  12.  
  13. Private Sub ClsScanDisk_File(NameFile As String, TypeOfFile As Long, ByVal Atrributes As Long)
  14.    CountFiles& = CountFiles& + 1
  15.    Caption = "ScanDisk ha Encontrado: " & CountFiles&
  16.    Debug.Print ThisPath$ & NameFile
  17.    Debug.Print vbTab & "Criterio:"; ClsScanDisk.CriterionToFind(TypeOfFile),
  18.    Debug.Print "Atributos:"; Atrributes
  19. End Sub
  20.  
  21. Private Sub ClsScanDisk_Finish()
  22.    Caption = "ScanDisk ha Encontrado: " & CountFiles& & " -> Finalizado."
  23. End Sub
  24.  
  25. Private Sub ClsScanDisk_Folder(PathFolder As String, ByVal Atrributes As Long)
  26.    ThisPath$ = PathFolder
  27. End Sub
  28.  
  29.  
  30. Private Sub Form_Load()
  31.    If ClsScanDisk Is Nothing Then Set ClsScanDisk = New cls_files
  32.    With ClsScanDisk
  33.        If .ItsRun Then .Stop_
  34.        .CriterionToFind = Split("*.mp3,*.wma,*.avi,*.mid,*.mid", ",")
  35.        '.CriterionFindDir = vbReadOnly                  '   //  Solo directorios de Solo lectura.
  36.        '.CriterionFindFile = vbHidden Or vbReadOnly     '  //  Solo archivos ocultos.
  37.        .FindInPath = "c:\"
  38.        .AllowEvents = True
  39.        Call .Start_
  40.    End With
  41. End Sub
  42.  

Dulces Lunas!¡.
9  Programación / Programación Visual Basic / Re: como declarar en visual basic 6.0 en: 9 Abril 2014, 10:18
Claro que si y por lo que veo necesitas propiedades en los formularios mira te dejo esto:

Form1
Código
  1. Option Explicit
  2.  
  3. Public Property Get text() As String
  4.    text = "Adios Mundo"
  5. End Property
  6.  

Form2
Código
  1. Option Explicit
  2.  
  3. Public Property Get text() As String
  4.    text = "Hola Mundo"
  5. End Property
  6.  

Form3
Código
  1. Option Explicit
  2.  
  3. Private Sub Combo1_Click()
  4. Dim frm1 As Form1
  5. Dim frm2 As Form2
  6. Static last As Integer
  7.    If last = Combo1.ListIndex Then    ' Evitamos acciones repetidas sobre un mismo elemento.
  8.        Exit Sub
  9.    End If
  10.  
  11.    last = Combo1.ListIndex
  12.  
  13.    Select Case Combo1.text ' o Combo1.ListIndex
  14.        Case "Adios" ' o 0
  15.            Set frm1 = New Form1
  16.            MsgBox frm1.text
  17.        Case "Hola" ' o 1
  18.            Set frm2 = New Form2
  19.            MsgBox frm2.text
  20.        Case Else
  21.            MsgBox "Error"
  22.    End Select
  23.  
  24. End Sub
  25.  
  26. Private Sub Form_Load()
  27.    Combo1.AddItem "Hola"
  28.    Combo1.AddItem "Adios"
  29. End Sub
  30.  

De lo dejo para descargar:

http://filex.sytes.net/?dir=/BlackZeroX/Programacion/vb6/Foro.ElHacker.Net&file=Ejemplo%2009042014.zip

Dulces Lunas!¡.
10  Programación / Programación Visual Basic / Re: Como enviar hexa en visual basic? en: 26 Marzo 2014, 05:30
.
Hace mucho en este mismo foro se crearon cientos de funciones...

Código
  1.  
  2. '
  3. ' ////////////////////////////////////////////////////////////////
  4. ' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
  5. ' //                                                            //
  6. ' // Web: http://InfrAngeluX.Sytes.Net/                         //
  7. ' //                                                            //
  8. ' // |-> Pueden Distribuir Este Código siempre y cuando         //
  9. ' // no se eliminen los créditos originales de este código      //
  10. ' // No importando que sea modificado/editado o engrandecido    //
  11. ' // o achicado, si es en base a este código                    //
  12. ' ////////////////////////////////////////////////////////////////
  13.  
  14. Option Explicit
  15. Enum ActionsHexStr
  16.    HexToString = 0
  17.    StringToHex
  18. End Enum
  19. Public Function HexAndString(ByVal vData As String, Optional Accion As ActionsHexStr = HexToString) As String
  20. Dim LenBuffer               As Long
  21. Dim LenOfBuffer             As Integer
  22. Dim Puntero                 As Long
  23. Dim I                       As Long
  24. Dim vStep                   As Integer
  25.    If CBool(IIf(Accion = HexToString And (Len(vData) Mod 2) = 0, True, IIf(Accion = StringToHex, True, False))) Then
  26.        LenBuffer = IIf(Accion = HexToString, Len(vData) / 2, Len(vData) * 2)
  27.        LenOfBuffer = IIf(Accion = HexToString, 1, 2)
  28.        HexAndString = Space(LenBuffer)
  29.        vStep = IIf(Accion = HexToString, 2, 1)
  30.        Puntero = 1
  31.        For I = 1 To Len(vData) Step vStep
  32.            If Accion = HexToString Then
  33.                Mid(HexAndString, Puntero, LenOfBuffer) = Chr$(Val("&H" & Mid$(vData, I, 2)))
  34.                Puntero = Puntero + 1
  35.            Else
  36.                Mid(HexAndString, Puntero, LenOfBuffer) = Hex$(Asc(Mid$(vData, I, 1)))
  37.                Puntero = Puntero + 2
  38.            End If
  39.        Next I
  40.    End If
  41. End Function
  42.  
  43.  

P.D.: Cuando termine de re-diseñar y de re-programar mi sitio host de archivos (FileX) vuelvo a montar mi blog.

Dulces Lunas!¡.
11  Programación / Scripting / Re: [IMPRESIONANTE] Crear Formularios en VBS! en: 25 Marzo 2014, 12:51
Hace tiempo hice algo similar (mas cutre) y lo publique.

[ 1.1.10 ] Scripting Motor de InfraExplorer

Abandone el proyecto para crear algo mas serio... por hay debo tener este código aun.

Dulces Lunas!¡.
12  Seguridad Informática / Análisis y Diseño de Malware / Re: [VBS] [SOURCE] Facebook y Twitter Spread en: 18 Marzo 2014, 04:48
Las APIS de facebook alertan al usuario sobre las acciones que se van a ejecutar bajo su cuenta. Cuando conectamos un juego del iphone/android al facebook siempre pregunta si le queremos dar acceso. Usar las APIS de facebook para propagar un gusano es un poco... como lo diría... poco efectivo xD

Las APIS de Facebook + javascript + vbs/vb6 = Spread de lujo... javascript se utilizaría para crear una extensión en chrome/firefox o que se yo, su utilidad radica en dar aceptar los diálogos...

Dulces Lunas!¡
13  Programación / Programación Visual Basic / Re: Que codigo es este? en: 3 Marzo 2014, 17:54
Si quieres la dirección ip puedes usar un servicio que tengo ya desde hace tiempo.

http://scanx.sytes.net/?myipaddres=1

http://foro.elhacker.net/programacion_visual_basic/ayuda_con_los_antivirus-t317937.0.html;msg1574028#msg1574028
Código
  1.  
  2. Option Explicit
  3.  
  4. Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
  5. Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
  6. Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
  7. Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
  8.  
  9. Private Const IF_NO_CACHE_WRITE As Long= &H4000000
  10.  
  11. Public Function Get_Html_Code(ByRef sURL As String) As String
  12.    Dim sBuffer         As String * 1000
  13.    Dim lInternet       As Long
  14.    Dim lFile           As Long
  15.    Dim lRead           As Long
  16.  
  17.    lInternet = InternetOpen(0, 1, vbNullString, vbNullString, 0)
  18.    If lInternet Then
  19.        lFile = InternetOpenUrl(lInternet, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
  20.        If lFile Then
  21.            Do
  22.                Call InternetReadFile(lFile, sBuffer, 1000, lRead): DoEvents
  23.                Get_Html_Code = Get_Html_Code & Left$(sBuffer, lRead)
  24.            Loop While lRead
  25.        End If
  26.        Call InternetCloseHandle(lInternet)
  27.    End If
  28. End Function
  29.  
  30.  

Código
  1.    msgbox(Get_Html_Code("http://scanx.sytes.net/?myipaddres=1"))
  2.  

Dulces Lunas!¡.
14  Programación / Programación Visual Basic / Re: detectar objetos class.. en: 2 Marzo 2014, 23:18
debes obtener el Handle de la ventana con:


Código
  1. HWND WINAPI WindowFromPoint(
  2.  _In_  POINT Point
  3. );

Justo la llamada debe estar despues de GetCursorPos y antes de GetClassName()...

Código
  1. ...
  2.    GetCursorPos(Mouse)
  3.    ldWnd = WindowFromPoint(Mouse)
  4.    lRetVal = GetClassName(lhWnd, sClass, 255)
  5. ...

Dulces Lunas!¡.
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 259
Powered by SMF 1.1.19 | SMF © 2006-2008, Simple Machines