waldgnarf
Goto Top

VBS - HTML Ausgabe ohne Restart

Hallo, ich bekomme eine Ausgabe in VBS aus der vorher generierten HTML-Seite, quasi HTML GUI.
Jetzt versuch ich es so umzumodeln das die Datei nicht neugestartet werden muss um eine erneute Ausgabe von der HTML-Eingabe-Seite zu bekommen.
Aber ich weiss nicht wie das angefangen werden könnte, darum bitte ich euch um Hilfe.


[EDIT] Habs, ging doch einfacherer als ich dachte, trozdem Danke.[EDIT]


Set WSHELL=CreateObject("WScript.Shell")  

Set IEAPPL=CreateObject("InternetExplorer.Application")  

IEAPPL.Navigate "about:blank" : IEAPPL.Document.Title="VBSIE"  
IEAPPL.ToolBar=False : IEAPPL.Resizable=False : IEAPPL.StatusBar=False
IEAPPL.Width=320 : IEAPPL.Height=180
With IEAPPL.Document.ParentWindow.Screen : IEAPPL.Left=(.AvailWidth-IEAPPL.Width )\2 : IEAPPL.Top=(.Availheight-IEAPPL.Height)\2 : End With
Do While IEAPPL.Busy : WScript.Sleep 200 : Loop

IEAPPL.Document.Body.InnerHTML= "" &_  
"<DIV ALIGN=""Center"">" &vbCrLf& "<TABLE CELLSPACING=""5""><TR NOWRAP>" &_  
"<TD>Name:</TD><TD><INPUT TYPE=""Text"" SIZE=""20"" AUTOCOMPLETE=""Off"" ID=""LoginName""></TD></TR>" &vbCrLf &_  
"<TR NOWRAP><TD>Password:</TD><TD><INPUT TYPE=""Password"" SIZE=""20"" ID=""Password""></TD>" &vbCrLf &_  
"</TR></TABLE>" &vbCrLf& "<P><INPUT TYPE=""hidden"" ID=""Ok"" NAME=""OK"" VALUE=""0""><INPUT TYPE=""Submit"" VALUE="" OK "" ONCLICK=""VBScript:OK.Value=1""></P></DIV>"  

IEAPPL.Visible=True

Do
FENLIN=""  
IEAPPL.Document.All.Ok.Value=0
JSSWIT=CreateObject("JSSys3.ops").GetOpenWindowTitles(FENLIS)  
For Each FENSTE In FENLIS
FENLIN=FENLIN&FENSTE
Next
If Instr(FENLIN,"VBSIE")>0 Then FENEXI=True  
Do While IEAPPL.Document.All.Ok.Value=0 : WScript.Sleep 200 : Loop
WSHELL.Popup IEAPPL.Document.All.LoginName.Value &vbCrLf& IEAPPL.Document.All.Password.Value, 2
Loop While FENEXI=True


schönen Gruß vom waldgnarf

Content-ID: 104044

Url: https://administrator.de/forum/vbs-html-ausgabe-ohne-restart-104044.html

Ausgedruckt am: 23.12.2024 um 13:12 Uhr