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
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.
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
El problema esta en el TextBox no en el control Inet:
Citar
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.
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?
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
Mostrar Mensajes
