Mensajes

ejecuto la aplicacion pero no puedo ver el video ... solo se escucha el audio ....
al parecer hay algun problema con los codecs instalados que tengo (klite codecs)...
pero buena trabajo... aprovechando el code esto tambien puede ajustarse para un salvapantallas ... recuerdo haber visto un compilado tuyo ... pero sin source.

saludos.

Muy bien, un manual basico para implementar recursos, pero porque usar el visual C++  si el visual basic 6.0 tambien puede crear los archivos de recursos en el proyecto... 

Saludos.

esta interesante ... buen trabajo, si vi el otro juego ... y esta bueno tambien...

segui asi .. saludos.

oculto en que sentido?, en Visible = Flase o oculto a la vista del usuario poniendolo en cordenadas X,Y que no se vean...?

Visible = False

segun tengo entendido un webnrowser en :

Visible = False ... no realiza ninguna accion (no navega), corriganme si me equivoco

existen muchas maneras de cargar un texto en un listview de forma ordenada:

Código (vb) [Seleccionar] Expandir

Sub abre_lista()

Dim itm As ListItem
Dim a, b, c As String
    Open App.Path & "\Data.txt" For Input As #1
    Do Until EOF(2)
    Input #1, a, b, c
              Set itm = lv1.ListItems.Add(, , a)
              itm.SubItems(1) = b
              itm.SubItems(2) = c
    Loop
    Close #1
   
End Sub

y claro las lineas del texto deben de estar separados :

Código [Seleccionar] Expandir

"usuario","password","rango"

espero te sirva...

saludos.

edit: los datos solo eran 3 .. puse para 4 anteriormente... ya esta corregido 

Me dice qe me falta una ocx, qe supongo qe la busco, la opngo en la carpeta system 32 y pongo regsvr adasda.ocx


y dsp... cuando abro el code me tira errores

Línea 104: la clase CCRIPAddress6.ccrpIPAddress del control direccion_ip no era una clase de control cargada.
Línea 110: el nombre de la propiedad _ExtentX de direccion_ip no es válido.
Línea 111: el nombre de la propiedad _ExtentY de direccion_ip no es válido.
Línea 112: el nombre de la propiedad Var de direccion_ip no es válido.
Línea 122: el nombre de la propiedad Blank de direccion_ip no es válido.

y cunado abro el formulario, me dice qe vea priamario.log y es eso lo qe tengo

Aprende a caminar antes de querer correr....

y sigue la recomendacion de seba:

Código [Seleccionar] Expandir

Hola, emepeza a leer algo del control Winsock como para iniciarte en el tema...el foro e internet esta lleno de ejemplos...

saludos.

Vamos por partes, primero FindWindows para obtener el Hwnd de la ventana, segundo FindWindowsEx para obtener el Hwnd del boton, caja de texto, etc, y tercero con este Hwnd y SendMessage mandas las intrucciones, si analisas el último codigo que te puse te puede facilitar la tarea.

Saludos

eso iva a escribir usar el findWindows para obtener la ventana a manipular, 

eso si quieres que la ruta de descarga sea fija ... pero si quisieras cambiarlo podrias usar el codigo siguiente, usando un boton para poder llamar al cuadro de buscar una carpeta y poner la ruta selecionada en un textbox:

Código (vb) [Seleccionar] Expandir


' Estructura BrowseInfo requerida para el Api SHBrowseForFolder
Private Type BrowseInfo
    hWndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type

' Constantes
Const BIF_RETURNONLYFSDIRS = 1
Const MAX_PATH = 260 ' Para Buffer de caracteres del path

' Funcion Api CoTaskMemFree
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)

' Funcion Api CoTaskMemFree lstrcat
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" ( _
    ByVal lpString1 As String, _
    ByVal lpString2 As String) As Long

' Funcion Api SHBrowseForFolder
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long

' Funcion Api SHGetPathFromIDList
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList _
As Long, ByVal lpBuffer As String) As Long

Private Sub Command1_Click()
Dim Ret As Long
Dim sPath As String
Dim tBI As BrowseInfo

    With tBI
        .hWndOwner = Me.hwnd
        .lpszTitle = lstrcat("Selecione una carpeta", "")
        .ulFlags = BIF_RETURNONLYFSDIRS Or 64

    End With

    'Mostrar el cuadro de dialogo Buscar carpeta
    Ret = SHBrowseForFolder(tBI)

    If Ret Then
       
        sPath = String$(MAX_PATH, 0)
        Call SHGetPathFromIDList(Ret, sPath)
        Call CoTaskMemFree(Ret)
       
        Dim pos As Long
        pos = InStr(sPath, vbNullChar)

        If pos Then
            sPath = Left$(sPath, pos - 1)
        End If
    End If
   
    'Mostramos el Path elegido en el textbox
    Text1.Text = sPath
     
End Sub



Se ve muy bien ... y dime en la descarga esta incluida la imagen de fondo que usas en el form... 

Eso de los sueldos para el staff en un foro nunca lo vi y por eso no crei que fuese cierto...

Para ocupar el puesto de mods de este sub foro muchos cubren las espectativas... para muestra un boton:

seba123neo, cobein, el_c0c0, LeandroA, KarCrack, SKL.... y muchos mas ..

y claro lo mas importante si estan dispuestos a invertir sus tiempos libres en colaborar con esta area de la comunidad elhacker.net ...

asi como yo muchos tienen sus candidatos favoritos... no estaria mal la idea de hacerlo por votacion, si ubiese muchos candidatos.

solo espero que pronto este sub foro tenga mods para que lleven el orden. 

Saludos.