• Martes 28 de Septiembre de 2021, 21:37

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - - RIKI -

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Payloads Y Scripts
« en: Sábado 12 de Abril de 2008, 21:58 »
Hola gente bueno tengo 2 dudas que no se resolver la pi¡rimera es como puedo hacer PAYLOAD en un VBS,me lo explicaron una vez pero no me quedo mu calro, y la seguna pregunta es como puedo crear un archivo VBS que cuando se ejecute genre otro archivo VBS con instrucciones diferentes,mas que nada por que si pono este codigo:


[CODE]


Set fso = CreateObject("Scripting.FileSystemObject")
Set var = fso.CreateTextFile("c:\ArchivoPrueba.txt", True)
var.write("Este es el contenido del archivo")
var.close


Si en Archivodeprueba.txt le canbio el txt por vbs i despues en Este es el contenido del archvi por ejemplo pongo:  
set mensaje =msgbox("hola mundo",0,"tritulo")

el codigo finalmente quedaria aisn:

Set fso = CreateObject("Scripting.FileSystemObject")
Set var = fso.CreateTextFile("c:\ArchivoPrueba.VBS", True)
var.write("set mensaje =msgbox("hola mundo",0,"tritulo")")
var.close

Pues esto sesupone que me tendria k generar un archivo VBS que cuando se ejecute me tendria k salir el mensaje i en canvio no em sale lo uniko k me sale es un maldito erro que me dice se esperava esto ')'


ya e probado de substituir las " en ' pero no me funciono



ayuda porfavor   :(

2
Visual Basic 6.0 e inferiores / Vbs (visual Basic Scripting)
« en: Viernes 4 de Abril de 2008, 23:19 »
Hola a todos los programadores de VB,VBS ect ect...Solo una duda k tengo me pasaron el codigo de un VBS k lo k acia es abrir la tapa del CD rom del pc y apartir de eso me pregunte si es posible controlar parte o algo de cualquier hardware del pc como el monito por ejemplo no se puede parar con VBS?

El codigo del cd rom es este:

[CODE]

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If


Gracias!!!

3
Pascal / Los Array
« en: Lunes 31 de Marzo de 2008, 23:29 »
Aver alguien me puede explicar que es un array y exactamente para que sirve ?

a ser podible les pido tmb un ejemplo lo mas sencillo posible para poder entenderlo sin ningun problema gracias!

4
Pascal / Interrupciones
« en: Viernes 28 de Marzo de 2008, 21:57 »
Hola buenas a todos solo queria preguntarles si saven como llamar a una interrucpion en Free pascal, por ejemplo del raton o del CD ROM o de qualiquier otro hardware, monitor ect... por ejemplo, no hai alguna interrucpion para parar el monitor un tiempo determinado o para habrir la tapa del CD ect?


Gracias.

5
Delphi / De Pascal A Delphi
« en: Martes 25 de Marzo de 2008, 14:22 »
Weno mi problema es el siguiente e echo varias aplicaciones DOS en pascal i ayer mismo empeze con delphi (OBject pascal" que weno delphi es mas k na pascal peor em encontre la sorpresita k no es exactamente igual ya k me lio sobretodo en una parte llamada Type kien me puede expikar i poner un ejemplo de eso porfa el codigo k me da el gprograma al principio es esto:

Explikenme de k konsta kada aprte porfi

[CODE]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

6
Pascal / Cliente/servidor
« en: Martes 25 de Marzo de 2008, 01:44 »
Wenos tenia otros temas por ai pero vei ak no tenian ninguna respuesta i los  cerrado pero abro este para pregunta k como puedo hacer un programa en pascal que se comunique con otro algo tipo cliente servidor




A i como se hacen los botones?

No me digan Lazarus por k no me funciono en mi pc

Gracias!!

7
Pascal / Copiarse
« en: Domingo 23 de Marzo de 2008, 14:09 »
Perdonad me ekivoke

8
Pascal / Free Pascal Pregunta???
« en: Sábado 22 de Marzo de 2008, 20:10 »
Aver primero decir k soi nuevo en seste foro i espero me puedan ayudar! bien dicho esto,Ai va mi primera pregunta:


Si por ejemplo yo quiero realizar un progtama en pascal (en free pascal) i quiero que cuando se abra el programa descargue un arhvio de internet como lo puedo hacer (eso es posible?)




I la segunda pregunta es:

Como debo hacerlo para crear un menu en pascal osea un programa que te de unas opciones i tu elijas kuala i depende kuala pues aga una kosa o otra osea algo asin:


Porgram nombre;

 uses crt;

  var

     a:string;

 begin

   pues k aki empiece el menu algo asin

 case a of  

  1 : acer una kosa
  2 acer otra cosa
  3 acer otra cosa
  ...
 else writeln('No has elejido ninguna opcion');
end;
end.

  enendeis?



Gracias!!!

Páginas: [1]