este es el codigo del programa que ejecuta a todo el resto de programas, de tal forma que forma 1 solo programa.
Public Class Form1
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_LWIN = &H5B
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_APPS = &H5D
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer3.Enabled = True
Timer1.Interval = 1
Timer3.Interval = 50
Shell("C:\Program Files\COCO.SO\start.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Visible = False
Timer2.Interval = 3600
Timer2.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Me.Visible = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("C:\Program Files\COCO.SO\Code-Pad (Select).exe", AppWinStyle.NormalFocus)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Shell("C:\Program Files\COCO.SO\MPlayer2.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Shell("C:\Program Files\COCO.SO\calculadora.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Label5.Text = TimeOfDay
Label6.Text = DateString
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Shell("C:\Program Files\COCO.SO\Coco-int.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim VK_ACTION As Long
VK_ACTION = &H45
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(VK_ACTION, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Shell("C:\Program Files\COCO.SO\CDB (read Disc).exe", AppWinStyle.NormalFocus)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Shell("C:\Program Files\COCO.SO\Adobe-Read.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
MsgBox("Precaucion: si usted tiene ataques epilecticos o se marea con facilidad le rogamos que no ejecuta esta aplicacion, por su bien y el de los demas")
MsgBox("Esta aplicacion ejecutara una programacion en Flash en 3D, cuanto mas rapido gire el raton mas cerca estara, cuando mas despacio mas lejos estara, gira a gran velocidad y deje el mouse quieto y observe una galaxia, se fascinara de verla.")
Shell("C:\Program Files\COCO.SO\optical Efect.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Shell("C:\Program Files\COCO.SO\cronometro.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Shell("C:\Program Files\COCO.SO\Proyecto1.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Shell("C:\Program Files\COCO.SO\Tetris.exe", AppWinStyle.NormalFocus)
End Sub
End Class
el BOTON 6 ejecuta para que se abra MIPC o EXPLORADOR DE WINDOWS
casi todo el codigo son SHELL
el nombre del ejecutable no es más que el mote que me pusieron en clase y bueno
aparte de es codigo devo decir que
al iniciarse ejecuta un video con 2 timers 1 ejecuta y quita el from de la pantalla y el segundo timer hace visible el from1
despues hay un reloj y facha que se actualizan cada 0.5 segundos, para no sobrecargar la CPU con timer.interval.
la imagen de fondo esta en 800x600
tiene tantos botones como SHELL que hay y cada boton tiene una imagen,
eso me hace pensar que puede sobrecargar la RAM y CPU un poco. el caso es que el uso de cPU es igual a del 30% como mucho y el de RAM es de 100MB aprox.
en todo caso no se que falla.
tambien hay parte de codigo que sirve para ejecutar cosas del Windows, es posible que sea por eso.
un programa simula un antivirus, y lo que hace es recorrer todas las rutas del disco C:\ (este funciona APARTE)
otro accede para poder abrir y cerrar las unidades de disco (este funciona APARTE)
y el General acede al RELOJ.FECHA y MIPC.
quizas sea por estos 3 ultimos?
el errror que me salta es el de que (se allo un error y tubo que cerrar obligatoriamente, no expecifica más)
me dice que desde P1 hasta P8 hay estos errores, pero solo pone el nombre de la aplicacion, la version y el binario o HEX,
no se, pero especificar donde falla no lo pone,
tampoco puedo abrirlo si le instalo el VB ya que me dice que el proyecto fue creado en otro PC y no se puede abrir, pero aun asi no lo abre.
si lo arreglo lo subire a mi blog que se puede acceder desde aqui.
salu2 y gracais
. quizas sea por que tiene muchos botones y SHELL's.