luk napisał(a):
> Jak pod windowsem xp napisac jakis skrypt bat tak zeby wyskakiwalo
> okienko windowsowe popup z jakim tam napisem i np odliczany byl czas np
> 1 min po tym czasie okienko zamykalo by sie.
> Sorry za byc moze trywialne pytanie , ale na ogół siedze w linuksie i
> winda nie za wiele mam kontaktu.
> Z gory dzieki za pomoc
> luk
popup.vbs:
'----------------------------------------------------------
Wiadomosc("plik_z_wiadomością.html")
Sub Wiadomosc(htmlfile)
Dim oIE,licznik
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.ToolBar = 0
oIE.StatusBar = 0
oIE.Width = 400
oIE.Height = 400
oIE.Left = 300
oIE.Top = 200
oIE.Visible = 1
oIE.Navigate GetSPath(WScript.ScriptFullName)&htmlfile
licznik=0
Do While (oIE.Document.Body.All.OKClicked.Value = "")
Wscript.Sleep 100
licznik=licznik+1
if licznik>600 then ' licznik w 0.1s
oIE.Quit
Wscript.Sleep 100
Wscript.quit()
end if
Loop
oIE.Quit
Wscript.Sleep 100
End Sub
function GetSPath(path_in)
GetSPath = Left(path_in, InStrRev(path_in, "\"))
End Function
'----------------------------------------------------------
plik_z_wiadomością.html
<!--------------------------------------------------------->
<html>
<head>
<SCRIPT language="VBScript">
<!--
Sub OKButton_OnClick
OkClicked.Value = 1
End Sub
'-->
</SCRIPT>
<title>Tytul</title>
</head>
<body onclick=OKButton_OnClick>
<h2>Naglowek wiadomosci</h2>
<p>Tresc wiadomosci,Tresc wiadomosci,
Tresc wiadomosci,Tresc wiadomosci,
Tresc wiadomosci,Tresc wiadomosci,
Tresc wiadomosci,</p>
<input type="hidden" name="OKClicked" value="">
</body>
</html>
<!--------------------------------------------------------->
założenie:
plik z wiadomością html w tym samym katalogu co skrypt vbs.
Po kliknięciu w okienko - jego zamknięcie.
Pozdrawiam,
Mako
Received on Mon Feb 19 21:00:11 2007
To archiwum zostało wygenerowane przez hypermail 2.1.8 : Mon 19 Feb 2007 - 21:42:02 MET