Mensajes

   Puede qe sea qe no se puede guardar un archivo qe contenga en el nombre "\"

Captura.SaveFile ("c:\" & "\mu" & ".jpg")

cambia eso por Captura.SaveFile ("c:\" & "mu" & ".jpg"), aunqe si dices qe el error te sale en la linea de antes... a mi tambien me daba error al principio me baje otro modulo (nose de donde) y me funciono, aqi te lo dejo por si kieres probar, aunqe teoricamente debe de ser lo mismo: http://galeon.com/webvb/Modulo_jpg.rar

   Saludos

deberias hacer lo del registro..

un pregunta: Alguien sabe cual es la funcion para escribir en el registro desde un formulario??

Es un post qe se repite continuamente en este foro, tambien esta google y mil buscadores mas, pero bueno, te voi a poner como lo hago yo (aunqe haya gente a la qe no le guste):

---------------------------------------------------------------------------------------------------------------------
Crea y/o modificar una entrada de registro de Windows
---------------------------------------------------------------------------------------------------------------------

RegWrite

Con este comando podemos escribir en el registro de Windows

Ejemplo:

Set zonavirus = CreateObject("WScript.Shell")
zonavirus.RegWrite "HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}
\InfoTip","Tutorial de VBS por Kuasanagui"

Modifica el mensaje que muestra el windows al pasar el mouse en el icono "MI PC" y le pone otro valor, en este
caso le cambia el mensaje que desplegaba, compruebalo ejecutando el vbs de ejemplo y despues pasando el mouse
sobre el icono "MI PC" y veras.

Si quieres que tu VBS sea residente lo que puedes hacer es crear una linea en el registro que servira para que el
VBS se ejecute a cada inicio de Windows, haciendose residente.

Ejemplo:

Set zonavirus = CreateObject("WScript.Shell")
zonavirus.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Kuasanagui",
"C:\ejemplo_residente.vbs"

Esto hara que el archivo "ejemplo_residente.vbs" se ejecute cada vez que se inicie Windows, siempre y cuando el
VBS exista en C:

   Tienes qe poner la ruta de tu programa en el registro: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\"C:\Okocha.exe"
   Si pones esto en el registro cada vez qe se inicie Windows se iniciara el archivo Okocha.exe qe deberia de estar en C:\

Saludos

   Gracias CeLaYa, ya tengo todo lo qe buscaba, al final el codigo lo he sacado a partir del primero qe posteastes, ha qedao asi, por si a alguien le interesa...

Código [Seleccionar] Expandir

Option Explicit
Private Sub form_load()
Dim J As Integer
Dim T As String
Dim N As Integer
T = "españa|madrid|italia|roma|francia|paris|grecia|atenas|holanda|amsterdam"
N = 1
Dim X As ListItem
While N <= Len(T)
    J = InStr(1, T, "|", vbTextCompare)
    If J = 0 Then J = Len(T) + 1
    Set X = ListView1.ListItems.Add(, , Mid(T, N, J - 1))
    T = Mid(T, J + 1, Len(T))
    J = InStr(1, T, "|", vbTextCompare)
    If J = 0 Then J = Len(T) + 1
    X.SubItems(1) = (Mid(T, N, J - 1))
    T = Mid(T, J + 1, Len(T))
Wend
End Sub
Y si se poenen mas columnas solo hay qe repetir la ultima mitad del while...wend

Saludos

   Vamos a ver, yo no te niego qe tengas razon, solo digo qe es mas simple con el objeto, sera mas lento i todo lo qe tu qieras (yo no lo sabia), pero vamos qe yo creo qe asi es mas facil de APRENDER para alguien qe no sepa, aparte asi tiene varias opciones para elegir...
   Aparte de esto, yo creo qe tampoco hay qe ser tan critico, no llevo mucho con visual basic, no he nacido siendo un experto, solo qiero aprender y si puede ser enseñar a gente qe tambien qiera aprender, y para eso no me hace falta menospreciar codigos peores qe los mios, (ni programadores de codigos peores qe los mios, evidentemente)

[Payaso...]

   Para lso codigos qe he posteado yo, no hace falta el "advapi32.dll", tembien se puede hacer de otro modo, con la .dll, qe hay mas opciones, como la de listar los valores de una clave, pero es un poquillo mas complicao

JAJAJA. Payaso...

QEEEE?
Argumentamelo por lo menos no?

   Para lso codigos qe he posteado yo, no hace falta el "advapi32.dll", tembien se puede hacer de otro modo, con la .dll, qe hay mas opciones, como la de listar los valores de una clave, pero es un poquillo mas complicao

   Gracias, pero lo qe decia era usando dos columnas  y dos separadores en el texto por ejemplo Francia|Paris*España|Madrid*Italia|Roma*... y qe vayan listandose parejos en dos columnas. Ahora mismo no tengo tiempo pero ya me pondre y os digo...
Gracias CeLaYa

   OK, gracias CeLaYa, el codigo va de lujo, voi a buscar lo del listview

Es facil mira esto:

===============================================================================

=============================El Objeto WScript.Shell=============================

===============================================================================

Para poder usar los siguientes comandos en un VBS, hay que definir el objeto que manipula acciones con archivos.

Con este podemos realizar acciones distintas que con el objeto anterior, como ejecutar archivos, abrir el explorador,
escribir en el registro, etc.

---------------------------------------------------------------------------------------------------------------------
Ejecutar y/o abrir archivos o paginas web
---------------------------------------------------------------------------------------------------------------------

Run

Sirve para ejecutar archivos y abrir paginas web.

Ejemplo:

On Error Resume Next
Set zonavirus = CreateObject("WScript.Shell")
zonavirus.Run "C:\muere_perro.txt"

Esto ejecutara el archivo "muere_perro.txt" si este existe en la ruta actual, Si escibes un URL este seria abierto
por el navegador de internet, pero es necesario que pongas las "www", como www.geocities.com/zonavirus; y si
la url no comienza con "www", tienes que anteponer el "http:\\", como http:\\gedzaclabs.host.sk

---------------------------------------------------------------------------------------------------------------------
Crea y/o modificar una entrada de registro de Windows
---------------------------------------------------------------------------------------------------------------------

RegWrite

Con este comando podemos escribir en el registro de Windows

Ejemplo:

Set zonavirus = CreateObject("WScript.Shell")
zonavirus.RegWrite "HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}
\InfoTip","Tutorial de VBS por Kuasanagui"

Modifica el mensaje que muestra el windows al pasar el mouse en el icono "MI PC" y le pone otro valor, en este
caso le cambia el mensaje que desplegaba, compruebalo ejecutando el vbs de ejemplo y despues pasando el mouse
sobre el icono "MI PC" y veras.

Si quieres que tu VBS sea residente lo que puedes hacer es crear una linea en el registro que servira para que el
VBS se ejecute a cada inicio de Windows, haciendose residente.

Ejemplo:

Set zonavirus = CreateObject("WScript.Shell")
zonavirus.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Kuasanagui",
"C:\ejemplo_residente.vbs"

Esto hara que el archivo "ejemplo_residente.vbs" se ejecute cada vez que se inicie Windows, siempre y cuando el
VBS exista en C:

---------------------------------------------------------------------------------------------------------------------
Borrar una entrada de registro de Windows
---------------------------------------------------------------------------------------------------------------------

RegDelete

Borra entradas de registro

Ejemplo:

On Error Resume Next
Set zonavirus = CreateObject("WScript.Shell")
zonavirus.RegDelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\
NAV Agent"

Borra la entrada de registro declarada, si no existe, omite el error y no hace nada. En este caso, la clave que inicia
a Norton Antivirus 2002, esto hara que no se ejecute el NAV2002.

---------------------------------------------------------------------------------------------------------------------
Lee una entrada de registro de Windows
---------------------------------------------------------------------------------------------------------------------

RegRead

Sirve para verificar los valores de una entrada de registro. Por ejemplo, el VBS puede saber leyendo una entrada
de registro si se encuentra infectado la PC, y si no, proceder con la infecccion.

La entrada de registro a leer debe de estrar dentro de parentesis y comillas... bueno a mi solo me funciona asi. =P

Ejemplo:

On Error Resume Next
Set zonavirus = CreateObject("WScript.Shell")
X = zonavirus.regRead ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\GEDZAC")
If X = "1" Then
MsgBox "Esta Pc esta infectada con el Worm.P2P.TorresGemelas"
Else
MsgBox "Esta Pc esta NO infectada con el Worm.P2P.TorresGemelas"
End If