Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBS - HTML Ausgabe ohne Restart

Frage Entwicklung VB for Applications

Mitglied: waldgnarf

waldgnarf (Level 1) - Jetzt verbinden

14.12.2008 um 13:40 Uhr, 4750 Aufrufe

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]



01.
Set WSHELL=CreateObject("WScript.Shell") 
02.
 
03.
Set IEAPPL=CreateObject("InternetExplorer.Application") 
04.
 
05.
IEAPPL.Navigate "about:blank" : IEAPPL.Document.Title="VBSIE" 
06.
IEAPPL.ToolBar=False : IEAPPL.Resizable=False : IEAPPL.StatusBar=False 
07.
IEAPPL.Width=320 : IEAPPL.Height=180 
08.
With IEAPPL.Document.ParentWindow.Screen : IEAPPL.Left=(.AvailWidth-IEAPPL.Width )\2 : IEAPPL.Top=(.Availheight-IEAPPL.Height)\2 : End With 
09.
Do While IEAPPL.Busy : WScript.Sleep 200 : Loop 
10.
 
11.
IEAPPL.Document.Body.InnerHTML= "" &_ 
12.
"<DIV ALIGN=""Center"">" &vbCrLf& "<TABLE CELLSPACING=""5""><TR NOWRAP>" &_ 
13.
"<TD>Name:</TD><TD><INPUT TYPE=""Text"" SIZE=""20"" AUTOCOMPLETE=""Off"" ID=""LoginName""></TD></TR>" &vbCrLf &_ 
14.
"<TR NOWRAP><TD>Password:</TD><TD><INPUT TYPE=""Password"" SIZE=""20"" ID=""Password""></TD>" &vbCrLf &_ 
15.
"</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>" 
16.
 
17.
IEAPPL.Visible=True 
18.
 
19.
Do 
20.
FENLIN="" 
21.
IEAPPL.Document.All.Ok.Value=0 
22.
JSSWIT=CreateObject("JSSys3.ops").GetOpenWindowTitles(FENLIS) 
23.
For Each FENSTE In FENLIS 
24.
FENLIN=FENLIN&FENSTE 
25.
Next 
26.
If Instr(FENLIN,"VBSIE")>0 Then FENEXI=True 
27.
Do While IEAPPL.Document.All.Ok.Value=0 : WScript.Sleep 200 : Loop 
28.
WSHELL.Popup IEAPPL.Document.All.LoginName.Value &vbCrLf& IEAPPL.Document.All.Password.Value, 2 
29.
Loop While FENEXI=True

schönen Gruß vom waldgnarf
Ähnliche Inhalte
VB for Applications
gelöst Kommunikation zwischen vbs und javascript (1)

Frage von it4baer zum Thema VB for Applications ...

Webentwicklung
gelöst HTML Output in eine txt Datei mit VisualBasicScript (2)

Frage von coca22COCA zum Thema Webentwicklung ...

Batch & Shell
gelöst Powershell Ausgabe in Messagebox (1)

Frage von Peterz zum Thema Batch & Shell ...

Batch & Shell
gelöst Powershell Funktion Ausgabe in Datei (2)

Frage von schicksal zum Thema Batch & Shell ...

Neue Wissensbeiträge
LAN, WAN, Wireless

WPA-2 hat erste Risse: KRACK

(2)

Information von the-buccaneer zum Thema LAN, WAN, Wireless ...

Hardware

GPD Pocket: Winziger Laptop für Wenig Tipper

(1)

Information von pelzfrucht zum Thema Hardware ...

Windows 10

Microsoft veröffentlicht das "Fall Creators Update

(10)

Information von Penny.Cilin zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows Server
gelöst Gruppenrichtlinie greift nicht zu! (23)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (20)

Frage von sunics zum Thema Hosting & Housing ...

Windows 7
gelöst Windows 7 Anmeldedomäne festlegen (13)

Frage von flotaut zum Thema Windows 7 ...