Ventana por encima de todo
Publicado por Halcon7 (1 intervención) el 08/07/2018 06:07:09
Hice el siguiente Web Launcher pero al hacer click en cualquiera de los Iconos que dispuse para cada codigo la ventana se minimiza y se abre la del explorador... ¿de que manera puedo hacer que quede siempre por encima sin minimizarse cuando hago click en cualquiera de los botones? Gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Private Sub Command01_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://es-la.facebook.com/", vbHide
End Sub
Private Sub Command02_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://www.youtube.com/", vbHide
End Sub
Private Sub Command03_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://www.google.com/gmail/", vbHide
End Sub
Private Sub Command04_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://login.live.com/es", vbHide
End Sub
Private Sub Command05_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://web.skype.com/es/", vbHide
End Sub
Private Sub Command06_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://www.onlinevideoconverter.com/es/mp3-converter", vbHide
End Sub
Private Sub Command07_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://www.mercadolibre.com.ve/", vbHide
End Sub
Private Sub Command08_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://translate.google.com/", vbHide
End Sub
Private Sub Command09_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://mega.nz/", vbHide
End Sub
Private Sub Command10_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe http://audiotag.info/index.php", vbHide
End Sub
Private Sub Command11_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe http://www.midomi.com/", vbHide
End Sub
Private Sub Command12_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://www.ccleaner.com/download", vbHide
End Sub
Private Sub Command13_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe http://www.ajedrezonline.com/", vbHide
End Sub
Private Sub Command14_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://www.google.co.ve/", vbHide
End Sub
Private Sub Command15_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://www.winrar.es/descargas/", vbHide
End Sub
Private Sub Command16_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://es.savefrom.net/", vbHide
End Sub
Private Sub Command17_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://www.devianart.com/", vbHide
End Sub
Private Sub Command18_Click()
Set objshell = CreateObject("wscript.shell")
objshell.run "explorer.exe https://www.redusers.com/", vbHide
End Sub
Valora esta pregunta
0
