Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 4727 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
Outlook & Mail
Signatur im HTML Format zu VBS Scribt hinzufügen (2)

Frage von Galipoli zum Thema Outlook & Mail ...

Batch & Shell
HTML in Batch und Powershell (12)

Frage von michi-ffm zum Thema Batch & Shell ...

Webentwicklung
gelöst HTML 5 Sterne Bewertung buggt (7)

Frage von Yanmai zum Thema Webentwicklung ...

Heiß diskutierte Inhalte
Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (13)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...

Festplatten, SSD, Raid
gelöst Fehlerhafte Blöcke im RAID 10 (12)

Frage von Kojak-LE zum Thema Festplatten, SSD, Raid ...

Batch & Shell
HTML in Batch und Powershell (12)

Frage von michi-ffm zum Thema Batch & Shell ...

Windows Server
gelöst Microsoft-Lizenz CALs und passendes Server-Betriebssystem (12)

Frage von planetIT2016 zum Thema Windows Server ...