Top-Themen

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

Mitglied: waldgnarf

waldgnarf (Level 1) - Jetzt verbinden

14.12.2008 um 13:40 Uhr, 4761 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
Batch & Shell
Batch dir und Html Link ausgabe
gelöst Frage von Pilger83Batch & Shell7 Kommentare

Hallo zusammen, folgendes Problem, ich möchte eine Batch mit folgender function dir Ordner plus Unterordner durchsuchen ausgabe ohne Kopfzeile ...

Batch & Shell

Powershell Script - Ausgabe Tasks eines Servers in eine HTML Seite

gelöst Frage von lexuraBatch & Shell4 Kommentare

Powershell Neuling !!!! Hallo, hatte vor kurzem ja schon die Frage nach einem Script zum Auslesen der Tasks gefragt. ...

Outlook & Mail

Signatur im HTML Format zu VBS Scribt hinzufügen

Frage von GalipoliOutlook & Mail2 Kommentare

Hallo zusammen, ich habe ein VBS Script das unsere bisherige Signatur an die Mitarbeiter verteilt hat. Nun wurde ein ...

Basic

Visual Basic Script (VBS): HTML-Tabelle generieren

Tipp von GurkenhobelBasic3 Kommentare

Für all jene, die schnell mal eine simple HTML-Tabelle benötigen, ist das folgende Skript gedacht. Der Name der fertigen ...

Neue Wissensbeiträge
Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 18 StundenWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Sicherheit
Microsoft und Skype: Sicherheit
Information von kgborn vor 18 StundenSicherheit

Die Tage gab es ja einige Berichte zur Sicherheit des Skype-Updaters. Der Updater von Skype läuft unter dem Konto ...

Datenschutz

Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10

Information von Penny.Cilin vor 1 TagDatenschutz8 Kommentare

Hallo, passend zum Thema Ablösung LIMUX in München ein Beitrag bei Heise (siehe Link folgend). Behörden ignorieren Sicherheitsbedenken gegenüber ...

Sicherheit
Information Security Hub Munich airport
Information von brammer vor 1 TagSicherheit

Hallo, Neues Center für Cyber Kriminalität am Münchener Flughafen brammer

Heiß diskutierte Inhalte
Exchange Server
Exchange Postfach Einbindung Betriebs-rat -Arzt, Bewerbung .
gelöst Frage von YellowcakeExchange Server23 Kommentare

Hey ich habe da mal eine Denksport Aufgabe bekommen Genutzt wird ein Exchange Server 2010. hier gibt es den ...

Windows Server
Downgrade von Windows Server 2016 auf 2012 - Wie vorgehen?
Frage von EstefaniaWindows Server13 Kommentare

Guten Ich habe eine Frage an Erfahrene unter euch. Durch einen InPlace Upgrade wurde Windows Server 2012 auf die ...

Windows Server
Delgegierte OU via RDP verwalten - Objektverwaltung zuweisen
gelöst Frage von TOAOICEWindows Server12 Kommentare

Hallo, ich habe folgendes Problem. Ich möchte in meiner Domäne (Server2016), einer Gruppe (OUAdmin) Berechtigungen auf die OU Test ...

Datenschutz
Telematikinfrastruktur Erfahrungsaustausch
Frage von MOS6581Datenschutz12 Kommentare

Moin, unter meinen Kunden befinden sich auch einige Ärzte, welche sich künftig mit der Telematikinfrastruktur-Geschichte der Gematik herumärgern dürfen. ...