Mako napisał(a):
> 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
dzieki, dziala
tylko chodzilo mi o takie windowsowe okienko z tekstem ,a nie html
jak by ktos mial jakis pomysl to z gory dzieki
luk
Received on Mon Feb 19 21:30:11 2007
To archiwum zostało wygenerowane przez hypermail 2.1.8 : Mon 19 Feb 2007 - 21:42:02 MET