Luancher készítése?
válasza: válasza:Ne mond, hogy nem segít senki:
<html>
<head>
<title>Menü</title>
<hta:Application
ApplicationName="htaMenu"
Sysmenu="no"
Border="thin"
Caption="yes"
Scroll="no"
InnerBorder="no"
/>
</head>
<script language="VBScript">
Sub Run(ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub
Sub Window_onLoad
window.resizeTo 250,250
window.moveTO 0, 0
End Sub
Sub Elso
Run("Calc.exe") 'Értelemszerűen a programod neve
End Sub
Sub Masodik
Run("Notepad.exe") 'Értelemszerűen a programod neve
End Sub
Sub ExitProgram
Dim result, rendben
result = MsgBox ("Biztosan ki akarsz lépni ?", 20, "Figyu ide !")
Select Case result
Case vbYes
window.close()
Case vbNo
rendben = MsgBox("Na azért !", 64, "Figyu ide !")
End Select
End Sub
</script>
<body>
<style type="text/css">
body{
background-color: #0066CC;}
.gomb{
font-size: 18px;
font-weight: bold;
color: #000;
background: #FFDD00;
cursor: pointer;}
</style>
<center>
<div>
<button onClick="Elso" class="gomb">Számológép</button>
</div>
</br>
<div>
<button onClick="Masodik" class="gomb">Jegyzettömb</button>
</div>
</br>
<div>
<button onClick="ExitProgram" class="gomb">Kilépés</button>
</div>
</center>
</body>
</html>
Értelemszerűen javítsd ki a programok nevét és a gombok felíratát. Mentsd el Menu.hta néven vagy amilyenen akarod csak a kiterjesztése legyen hta. Természetesen bővítheted, pofásíthatod ha megy a CSS és a VBS.
válasza: válasza:Közben privátban megbeszéltük, hát egy kicsit speciálisabb kellett, úgyhogy más nyelven írtam meg.
IE azért van a Windows alatt, érdekességképpen írtam, bár vannak korlátai. Itt még nem is láttam hasonló megoldást - HTA - másra sem - vagy csak nem tűnt fel.
Kapcsolódó kérdések:
Minden jog fenntartva © 2025, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!