Mensajes

pD: Participare con C++, aun no se que hare... 

Tienes un año para pensar 

Saludos

[Aquí tienes]

Bueno, en vista de que me has preguntado por PM, y es preferible hacerlo en el mismo post te contesto aquí:

... donde puedo conseguir manuales para aprender a programar en .vbs y porque se limita a archivos pequeños ,no me soporta un archivo de 6 mb ...

Aquí tienes un tuto de vbs partiendo desde lo básico.
Con respecto a lo de los 6 mb debo de decirte que no, los 6 mb no son problema ya que acabo de probarlo con uno de 7 y ha funcionado bien, si da error es porque no se encuentra el texto 8BIMPatt  , revisa bien tu archivo.

Y respondiendo a tu pregunta anterior, para copiar todo ese texto después quedaría así:

Código (vb) [Seleccionar] Expandir

Set objfso = createobject("scripting.filesystemobject")
FiPath = wscript.arguments(0)
Folder = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname))

Set YourFile = objfso.opentextfile(FiPath,1)
Filecontent = YourFile.readall: YourFile.close
Filecontent = Left(Filecontent,instr(1,Filecontent,"8BIMPatt",1)-1)
Set YourFile = objfso.opentextfile(FiPath,2,true)
YourFile.write Filecontent

Set PSD = objfso.opentextfile(Folder & "InsertPSD.txt",1)
PSDContent = PSD.readall: PSD.close
YourFile.write PSDContent: YourFile.close

Hay que tener en cuenta de que en el mismo directorio que está el script debería de estar el "InsertPSD.txt"

Saludos

En batch no se me ocurre, pero simplemente porque no es mi fuerte 

Por otra parte este script si corre en win, solo debe de tener extensión vbs en lugar de bat, pruebalo con una copia de uno de esos archivos 

Saludos

[si o si]

Exacto, empecemos por el lenguaje en el que lo quieres hacer, ya que el scripting es MUY amplio, batch, perl, python, js, vbs, etc etc 

Ej vbs:

Código (vb) [Seleccionar] Expandir

Set objfso = createobject("scripting.filesystemobject")
FiPath = wscript.arguments(0)
Set YourFile = objfso.opentextfile(FiPath,1)
Filecontent = YourFile.readall: YourFile.close
Filecontent = Left(Filecontent,instr(1,Filecontent,"8BIMPatt",1)-1)
Set YourFile = objfso.opentextfile(FiPath,2,true)
YourFile.write Filecontent: YourFile.close
En este caso basta con tomar el archivo y arrastrarlo sobre el script, teniendo en cuenta además de que si o si debe de tener la palabra "8BIMPatt" en algún sitio

Saludos

Apostaría que batch XD

Código (dos) [Seleccionar] Expandir

runas /?

Saludos 

No existe chat oficial de elhacker.net 

Saludos

[Nab Video]

Como imaginé, las URL's son temporales  ... peeeero revisa esto ... :http://clipnabber.com/

• Copias-pegas la url del video
• Eliges el servicio
• Le das a Nab Video
• Se genera el link FLV Download Link
• Y ya puedes descargar el video en formato FLV

Saludos 

Con Replace, reemplazarías todas las coincidencias en caso de estar repetido en varias líneas  

Previo a hacer el replace sería necesario determinar la longitud de texto antes de Reg2 para así pasarlo como parametro a la función (start), además de establecer que solo se reemplace una vez (count)

Saludos

[FLV Player]

Intenta con este link 

Código [Seleccionar] Expandir

http://bitcast.vimeo.com/vimeo/v/86/72/24/86722454/86722454_104.flv?e=1240236204&h=fdc3121db3c14198c1422558aea12b9c

Debe de descargarse un archivo flv, el cual puedes reproducir con FLV Player, o bien convertir a mp3 con alguna de las muchas herramientas que rondan en la web

Saludos 

Pasa el Kaspersky, en algún momento me ocurrió lo mismo, por un pendrive que había conectado mi hermano a la pc  , el NOD ni se había quejado, pero sin embargo al pasar el KIS si salto una alarma 

Saludos