Codigo Plus

Descargar Archivo
Titulo	Abrir Mi Pc
Descripcion	Codigo para abrir la ventana de Mi Pc
Descargas	1040
Codigo Fuente
<pre><font face='Verdana,Tahoma'><span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Sub</span> keybd_event Lib <span style="color: #B22222">"user32"</span> (<span style="color: #0000FF">ByVal</span> bVk <span style="color: #0000FF">As</span> <span style="color: #0000FF">Byte</span>, <span style="color: #0000FF">ByVal</span> bScan <span style="color: #0000FF">As</span> <span style="color: #0000FF">Byte</span>, <span style="color: #0000FF">ByVal</span> dwFlags <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> dwExtraInfo <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>)

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> VK_LWIN = &H5B
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> KEYEVENTF_KEYUP = &H2
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> VK_APPS = &H5D

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command1_Click()
   <span style="color: #0000FF">Dim</span> VK_ACTION <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

   VK_ACTION = &H45
   
   <span style="color: #0000FF">Call</span> keybd_event(VK_LWIN, 0, 0, 0)
   <span style="color: #0000FF">Call</span> keybd_event(VK_ACTION, 0, 0, 0)
   <span style="color: #0000FF">Call</span> keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span></font></pre>