Írnátok nekem egy VBS-t?
válasza:<% Option Explicit
%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" " [link]
<html>
<head>
<title>VBScript Example</title>
</head>
<body>
<div><%
' Grab current time from Now() function.
Dim timeValue
timeValue = Now() %>
The time, in 24-hour format, is <%=Hour(timeValue)%>:<%=Minute(timeValue)%>:<%=Second(timeValue)%>.
</div>
</body>
</html>
válasza:text1=msgbox("Köll valami? ", 4, "Na hogyisvanez?:")
if text1 = 6 then
Wscript.Echo("Silabizáld ki haver. :)")
End if
Igen pont ilyesmi kellene de úgy hogy a rákérdezés után mondjuk a gépemen lévő Total Commander nyissa meg.
text1=msgbox("Köll valami? ", 4, "TCM")
if text1 = 6 then
(Gondolom ez és utána a TCM az én gépemről)
válasza: válasza:Beírod a neved és köszön:
ha nem írsz be semmit észreveszi
Dim Input
Input = Inputbox (" Ird be a neved" )
If Input ="" Then
MsgBox ("Nem is írtál be semmit :P")
Else
Msgbox ("Szia "& Input &" !")
End If
----------------------------------------------------------
egy másik, ez egy windows errot ír ki de átírhatod bármire..
onclick=msgbox ("error x802004",16+5,"Error")
Gombkodok:
0 = OK
1 = OK,Mégse
2 = Kilépés,Ismét,Tovább
3 = Igen,Nem,Mégse
4 = Igen,Nem
5 = Ismét,Mégse
jelkodok:
[X] = 16
[?] = 32
[!] = 48
[i] = 64
összehangolás: pl MsgBox"törlöm a Windowst, oké?",16+4,"Windows 99"
válasza: válasza: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!