Mensajes

[EDITO]

Gracias por tu tiempo, además con las explicaciones de lo que hace cada cosa ¡^^!  Trankilo, lo de pitoloko no es lo que te parece...  


voy por pasos, ya he arreglado el 1º, me ha costado un poco aunque al final he deducido como hacer funcionar mi string en tu ejemplo:

Código (vb) [Seleccionar] Expandir


If Dir(FName & "\*.msu") = vbNullString Then
   MsgBox "error no se encuentra archivo msu" & FName
End If


El resto no consigo utilizarlos, pero comentaré solo el 3º, me da error de que no encuentra el archivo (Pero el archivo si que existe en esa ruta)

Código [Seleccionar] Expandir

C:\Users\Administrador\Desktop\Windows6.1-KB2492386-x64.msu

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim archivo As String
   archivo = Dir("C:\Users\Administrador\Desktop\*.msu")
   While archivo <> ""
       Shell archivo
       archivo = Dir
   Wend
End Sub


¿Se te ocurre porque puede dar el error? :/

EDITO: ya se cual es el problema, "archivo" no coge el path entero, solamente el filename... ¿Como lo arreglo?   No me deja utilizar el string FName... ese sería otro tema que me gustaría hablar, ¿Como guardo el string para usarlo en las demás funciones?

gracias por todo, iré aprendiendo

[FName]

Hola, a ver se que el programa es simple, no sirve mucho, por eso es ideal para ser el primero y hacer pruebas, tengo echo esto:



en la opción "archivo" hay otra que se llama "Elegir directorio", la idea es usar esa opción, se elige la carpeta, y me la guarda en "FName", que no se si llamarla variable o string, porque aún no entiendo bien las funciones básicas xD...

...Bueno eso ya lo he conseguido, después de obtener el "FName", la idea es darle al botón "Empezar", y lo que debería hacer es:

1º - si no encuentra ningún archivo con extensión ".msu", mandar un error, en un msgbox o como sea

2º -  que a la derecha del botón aparezca un contador con la cantidad de actualizaciones que hay en la carpeta seleccionada (Osea, la cantidad de archivos MSU)

3º - Ejecutar una a una (No todas a la vez) cada archivo con extensión ".msu"

4º - Que el contador vaya restando los archivos que ya se han instalado, (Por ejemplo  "Quedan 7 de 30 actualizaciones" 0 "7 de 30")

Y luego no tengo ni idea de como hacer funcionar la casilla de reiniciar pc, ya me he enterado de como reiniciar el pc con vb, pero no se como hacerlo cuando el comando "empezar" termine de instalar las updates...  


Simplemente eso, ¿Alguien me ayuda?



EDITO: se me olvidaba, aqui el código entero, por si hace falta...

Código (vb) [Seleccionar] Expandir



Private Sub opendir_Click()
  Dim FName As String
FName = BrowseFolder(Caption:="Selecciona una carpeta")
If FName = vbNullString Then
   Debug.Print "No Folder Selected"
Else
   Debug.Print "Selected Folder: " & FName
End If
End Sub

Private Sub Check6_Click()
If Check6.Value = 1 Then
   Text6.Enabled = True
ElseIf Check6.Value = 0 Then
   Text6.Enabled = False
End If
End Sub


Private Sub english_Click()
Check6.Caption = "Reset PC after install updates."
Frame1.Caption = "Additional options"
opendir.Caption = "Open directory..."
virus.Caption = "File"
salir.Caption = "Exit"
Sobre.Caption = "About..."
Idioma.Caption = "Language"
español.Caption = "Spanish"
english.Caption = "English"
End Sub

Private Sub español_Click()
Check6.Caption = "Reiniciar PC después de instalar actualizaciones."
Frame1.Caption = "Opciones adicionales"
opendir.Caption = "Abrir directorio..."
virus.Caption = "Archivo"
salir.Caption = "Salir"
Sobre.Caption = "Sobre..."
Idioma.Caption = "Idioma"
español.Caption = "Español"
english.Caption = "Inglés"
End Sub

Private Sub salir_Click()
Unload Me
End Sub

Private Sub Sobre_Click()
MsgBox ("WinUpdates Installer 1.0" & vbNewLine & "" & vbNewLine & "By PiToLoKo" & vbNewLine & vbNewLine & "www.foro.elhacker.net")
End Sub


gracias tio

lo he solucionado escribiendo esto en un módulo, y luego llamandolo al hacer "click" en la opción 

que novato soy xD solo se crear el menú

Código (vb) [Seleccionar] Expandir

Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Const BIF_DONTGOBELOWDOMAIN As Long = &H2
Private Const BIF_RETURNFSANCESTORS As Long = &H8
Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000
Private Const BIF_BROWSEFORPRINTER As Long = &H2000
Private Const BIF_BROWSEINCLUDEFILES As Long = &H4000
Private Const MAX_PATH As Long = 260

Type BrowseInfo
   hOwner As Long
   pidlRoot As Long
   pszDisplayName As String
   lpszINSTRUCTIONS As String
   ulFlags As Long
   lpfn As Long
   lParam As Long
   iImage As Long
End Type

Type SHFILEOPSTRUCT
   hwnd As Long
   wFunc As Long
   pFrom As String
   pTo As String
   fFlags As Integer
   fAnyOperationsAborted As Boolean
   hNameMappings As Long
   lpszProgressTitle As String
End Type

Declare Function SHGetPathFromIDListA Lib "shell32.dll" ( _
   ByVal pidl As Long, _
   ByVal pszBuffer As String) As Long

Declare Function SHBrowseForFolderA Lib "shell32.dll" ( _
   lpBrowseInfo As BrowseInfo) As Long


Function BrowseFolder(Optional Caption As String = "") As String

Dim BrowseInfo As BrowseInfo
Dim FolderName As String
Dim ID As Long
Dim Res As Long

With BrowseInfo
  .hOwner = 0
  .pidlRoot = 0
  .pszDisplayName = String$(MAX_PATH, vbNullChar)
  .lpszINSTRUCTIONS = Caption
  .ulFlags = BIF_RETURNONLYFSDIRS
  .lpfn = 0
End With

FolderName = String$(MAX_PATH, vbNullChar)
ID = SHBrowseForFolderA(BrowseInfo)
If ID Then
  Res = SHGetPathFromIDListA(ID, FolderName)
  If Res Then
      BrowseFolder = Left$(FolderName, InStr(FolderName,vbNullChar) - 1)
  End If
End If

End Function

Hola, lo que intento es abrir el dialogo de windows para abrir una carpeta, solo abrirla y guardar la carpeta que quiero, por ejemplo, abro el menú y voy a la carpeta "C:\Test" y luego le doy a "ok" en el menu, y esa carpeta se guarda en una variable...


solo tengo echo esto, y no funciona.

Código (vb) [Seleccionar] Expandir

Private Sub Opendir_Click()
    Dim opendir As Long, Nombre As String
    Dim sFile As String
    opendir = FreeFile
       'sFile almacenará el path completo que nos interesa
       sFile = Abrir
       'Comprobamos que no sea una cadena vacia
       If sFile <> "" Then
      Savefile = FreeFile
       End If
End Sub

ap, oki

SetWIndowPos

es que aún no había empezado a buscar eso, estoy bajandome sources como un loco xD

un saludo

[trane]

gracias por las respuestas, lo que no me funcionaba es el instalador directamente xD, al final lo que he echo es:

1º - VBox + win7 x86 + VB6

2º - Ripear las claves de registro y los archivos expandidos del instalador de vb6, vamos, hacerlo portable.

3º - pasarlo todo a mi win7 x64.

Problema resuelto (Aunque quizás encuentre bugs por toquetear los archivos).

ahora veré si la solución del link de trane a ver si es más fiable que lo que he echo

saludosss

Porfavor, alguno de los 2 me podría pasar el source?

estoy empezando con vb6 y me ayudaría muchisimo para aprender, quiero coger el código de centrar ventana, y así sabría de paso como hacer los botones de la manera que los hace vanx

muchas gracias

[1º - No hace ninguna conexión remota.2º - Solo crea archivos temporales del programa.]

si presiono X pregunta si deseo salir?

No, y si le das al botón "salir" tampoco.




Anda! xD si usas un batch mio para registrar la ocx  , por fin a alguien le sirvió

Si dejas esta linea así, sale un mensaje confirmando que la ocx seh a registrado correctamente:

Código [Seleccionar] Expandir

regsvr32 "%windir%\system32\%%a")



Perdona pero como te veo muy inquieto con el tema de los troyanos, me he tomado la molestia de analizar el programa...

1º - No hace ninguna conexión remota.

2º - Solo crea archivos temporales del programa.

Está limpio!!!

Perdón, pero soy un desconfiado

Un saludo, enhorabuena, y mejora el programa añadiendo lo que te dije xD!




EDITO: ah, una cosa sin importancia de la que me he dado cuenta, en la lista desplegable no deberías permitir la escritura xDD






EDITO2: otra cosa...

Código [Seleccionar] Expandir

[url][/url]


creo que debería ser:

Código [Seleccionar] Expandir

[url=][/url]


Se que en el foro tampoco es con el = ,por eso siempre me toca escribirlo... es una molestia xD

[We may store (temporarily) the files that you send in our online-virus-scanner and the files that you submitted can be shared with Anti-Malware and Security Companies that participate in our project generally if the file is detected by at least one Antivirus Software that is present in the list of the engines.If you do not want that your file will be shared or distributed because you think that can contain sensitive data or for other personal reasons, you can check the option"Do not distribute the sample".]

Pero quien le asegura a alguien de que no lo distribuyen a escondida o algo asi.

Existe una cosa que se llama "Términos de licencia y privacidad", es lo más fiable, pero la verdad como dices es que tampoco puedes confiar al 100%...

http://www.novirusthanks.org/terms/



Collection and use of submitted files:

We may store (temporarily) the files that you send in our online-virus-scanner and the files that you submitted can be shared with Anti-Malware and Security Companies that participate in our project generally if the file is detected by at least one Antivirus Software that is present in the list of the engines.

If you do not want that your file will be shared or distributed because you think that can contain sensitive data or for other personal reasons, you can check the option
"Do not distribute the sample".

[www.scan33.com]

Claro, novirusthanks ya no es lo que era, los reportes de analisis que has visto son antiguos, ahora solo usan 5 avs.

por algo te pasé en otro post este link... si te lo hubieras leido...  

http://foro.elhacker.net/analisis_y_diseno_de_malware/multi_engine_antivirus_scanner-t329444.0.html

Usa www.scan33.com , u otro.

PD: y recuerda, jamás uses virustotal 

saludosss