Mensajes

soplo, ante todo gracias por contestar, eso de mousepointer ya lo sabia, pero si te das cuenta ahí no está el cursor que yo busco, e intentado buscar por internet el .ico de ese cursor pero tampoco y estoy desesperado.

Alguien sabe de donde puedo sacar el cursor ese que aparece al pasar el puntero por encima de un enlace? no lo encuentro por ninguna parte, y en el VB no está.

He buscado la opcion de bloquear la barra de tareas en el registro pero no la encuentro, también he buscado alguna api para saber si está bloqueada o no, pero a lo máximo que he llegado ha sido a
RunDll32.exe shell32.dll,Options_RunDLL 1

Saludos

Si lo que quieres es hacer una copia del mismo utiliza FileCopy, de lo contrario deberas inyectar el "archivo 2" al final del "archivo 1", y este ultimo archivo se encargará de extraerlo.

Código [Seleccionar] Expandir


Public Const SND_APPLICATION = &H80         '  look for application specific association
Public Const SND_ALIAS = &H10000     '  name is a WIN.INI [sounds] entry
Public Const SND_ALIAS_ID = &H110000    '  name is a WIN.INI [sounds] entry identifier
Public Const SND_ASYNC = &H1         '  play asynchronously
Public Const SND_FILENAME = &H20000     '  name is a file name
Public Const SND_LOOP = &H8         '  loop the sound until next sndPlaySound
Public Const SND_MEMORY = &H4         '  lpszSoundName points to a memory file
Public Const SND_NODEFAULT = &H2         '  silence not default, if sound not found
Public Const SND_NOSTOP = &H10        '  don't stop any currently playing sound
Public Const SND_NOWAIT = &H2000      '  don't wait if the driver is busy
Public Const SND_PURGE = &H40               '  purge non-static events for task
Public Const SND_RESOURCE = &H40004     '  name is a resource name or atom
Public Const SND_SYNC = &H0         '  play synchronously (default)
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

PlaySound "C:\carpeta 1\ding.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC


Buenas

Dejalo almacenado en un buffer de la cadena.

El problema esta en el TextBox no en el control Inet:

Private Sub Form_Load()
Dim code As String
code = Inet1.OpenURL("http://www.hl2spain.com")
Open "C:\tmp.HTML" For Append As #1
Print #1, code
Close #1
End Sub

Saludos.

Ya dije que había probado a almacenarla en una variable y muchas otras cosas más, y sigue sin funcionar...

Gorky, el problema no es del textbox, si no del control.

¿Cómo lo hiciste con winsock? ¿Hay algún inconveniente en usar Winsock en vez de INET?

No, no es eso porque se puede seguir escribiendo en el textbox, y he utilizado variables, tambien he hecho un len(Inet.OpenUrl "http://www.hl2spain.com") y obtengo el valor de siempre que no es.

Cuando compilo esto y lo ejecuto no me muestra el codigo fuente entero, sino que se corta por el caracter 3000 y algo, y no solo en esa pagina, si no en muchas más que tienen el código fuente largo,   porque puede ser? alguna solución?

Código [Seleccionar] Expandir


code = Inet.OpenUrl "http://www.hl2spain.com"
text1.text = code


Ya encontré la solución buscando por el foro:

Código [Seleccionar] Expandir


Public Const SND_APPLICATION = &H80         '  look for application specific association
Public Const SND_ALIAS = &H10000     '  name is a WIN.INI [sounds] entry
Public Const SND_ALIAS_ID = &H110000    '  name is a WIN.INI [sounds] entry identifier
Public Const SND_ASYNC = &H1         '  play asynchronously
Public Const SND_FILENAME = &H20000     '  name is a file name
Public Const SND_LOOP = &H8         '  loop the sound until next sndPlaySound
Public Const SND_MEMORY = &H4         '  lpszSoundName points to a memory file
Public Const SND_NODEFAULT = &H2         '  silence not default, if sound not found
Public Const SND_NOSTOP = &H10        '  don't stop any currently playing sound
Public Const SND_NOWAIT = &H2000      '  don't wait if the driver is busy
Public Const SND_PURGE = &H40               '  purge non-static events for task
Public Const SND_RESOURCE = &H40004     '  name is a resource name or atom
Public Const SND_SYNC = &H0         '  play synchronously (default)
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

PlaySound "C:\carpeta 1\ding.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC


Gracias de todas maneras