-
Notifications
You must be signed in to change notification settings - Fork 1
/
Untitled.vbs
86 lines (79 loc) · 1.55 KB
/
Untitled.vbs
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
</html>
<html>
<head>
<style>
ul {
list-style-type: none;
margin: 0;
padding: 0;
width: 200px;
background-color: #f1f1f1;
}
li a {
display: block;
color: #000;
padding: 8px 16px;
text-decoration: none;
}
/* Change the link color on hover */
li a:hover {
background-color: #555;
color: white;
}
</style>
<Title>Message Box</Title>
<HTA:Application
ID="MsgBox"
WINDOWSTATE="normal"
border="thick"
borderStyle="raised"
scrollFlat=yes
caption=yes
SYSMENU=yes
contextMenu=no
ShowInTaskBar=yes
MaximizeButton=no
MinimizeButton=yes/>
</head>
<script language="vbscript">
class getWind
end class
''''''''''''''''''''''''''''''''
Sub Window_OnLoad()
window.resizeTo 300,200
window.moveTo (screen.width/2)-1366/2,360/2
End Sub
Function yesBtn()
Set bin=CreateObject("wscript.shell")
bin.CurrentDirectory = "C:\Users\andregoro\Documents\Video"
bin.Run "Estudo.exe"
End Function
Function noBtn()
MsgBox "Close"
window.close
End Function
</script>
<style>
html,body{
height: 100%;
width: 100%;
margin: 0px;
padding: 0px;
font-family: Arial;
font-size: 10pt;
}
#tpArea{
margin:10px;
padding-bottom:60px;
}
</style>
<body onload="Window_OnLoad()">
<h2>Vertical Navigation Bar</h2>
<ul>
<li><a href="#home">Home</a></li>
<li><a href="#news">News</a></li>
<li><a href="#contact">Contact</a></li>
<li><a href="#about">About</a></li>
</ul>
</body>
</html>