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 HTA in Vordergrund schalten

Mitglied: bordermax

bordermax (Level 1) - Jetzt verbinden

31.12.2010, aktualisiert 16:39 Uhr, 6455 Aufrufe, 3 Kommentare

Hi,

folgendes Problem ....

ich hab mir ein skript in hta gebastelt das verschiedene kopieraktionen durchführt, was auch wunderbar funktioniert.
zusätzlich lasse ich dann noch während so ein kopiervorgang läuft ein 'wartefenster" auch in hta einblenden.
mein problem ist, daß ich dieses 'wartefenster' einfach nicht in den vordergrund bekomme. "shell.appactivate" zeigt
keine reaktion. das schließen funktioniert problemlos....

hier mal meine beiden funktionen zum starten und schließen des wartefensters:
01.
Waitwnd = "waiting.hta" 
02.
 
03.
' *** starten des wartefensters 
04.
 Function Waiting (pidnr) 
05.
   path = Shell.CurrentDirectory  
06.
   wtexe = "C:\Windows\System32\mshta.exe " & path & "\" & Waitwnd 
07.
   rc = proc.create(wtexe, , , pid) '*** Starten des Waiting-Fenster 
08.
   pidnr = pid 
09.
   Sleep 5 
10.
   rc = Shell.AppActivate(pidnr) 
11.
   MsgBox rc 
12.
End Function 
13.
 
14.
Function WaitClose (pidnr) 
15.
	wql = "select * from Win32_Process where processID=" & pidnr 
16.
	Set result = wmi.ExecQuery(wql)   
17.
    For Each instance In result   
18.
       instance.Terminate 0  '*** Schließen des Waiting-Fenster 
19.
    Next  
20.
End Function 
21.
 
22.
Sub Sleep(strSeconds) '** Wartezeit in Sekunden 
23.
     strCmd = "%COMSPEC% /c ping -n " & strSeconds & " 127.0.0.1>nul"  
24.
     Shell.Run strCmd,0,1  
25.
End Sub 
hat jemand ne idee ????

gruß

markus
Mitglied: 76109
31.12.2010 um 12:44 Uhr
Hallo bordermax!

Versuchs mal so:
01.
   'Dim objShell 
02.
     
03.
   'Set objShell = CreateObject("WScript.Shell") 
04.
 
05.
    rc = objShell.AppActivate("HTA-Fenster-Titel")
Gruß Dieter
Bitte warten ..
Mitglied: bordermax
31.12.2010 um 14:01 Uhr
hi,

hab ich auch schon probiert, geht aber auch nicht ....
Bitte warten ..
Mitglied: 76109
31.12.2010 um 14:11 Uhr
Hallo bordermax!

Und so:
01.
objShell.Run path & "\" & Waitwnd, 1, False 
02.
  
03.
'WScript.Sleep 100 
04.
 
05.
rc = objShell.AppActivate("HTA-Fenster-Titel")
Oder so:
01.
Dim objShell, objHTA 
02.
     
03.
Set objShell = CreateObject("WScript.Shell") 
04.
 
05.
Set objHTA = objShell.Exec("C:\Windows\System32\mshta.exe " & path & "\" & Waitwnd) 
06.
 
07.
'WScript.Sleep 100 
08.
     
09.
rc = objShell.AppActivate(objHTA.ProcessID)
Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
HTML
InternetExplorer.Application in HTA
gelöst Frage von eldorado1HTML7 Kommentare

Hallo, ich habe mir eine HTA erstellt in der ich wenn ich auf einen Button klicke eine Reihe von ...

Windows 8

Offenes Fenster immer im Vordergrund - Wie?

Frage von gk3000Windows 81 Kommentar

Hi, mich plagt das Problem (ist aber bei anderen Windows Versionen auch so) das ich das Fenster, das ich ...

Webbrowser

Firefox ist immer im Vordergrund

gelöst Frage von infowarsWebbrowser4 Kommentare

Hi, plötzlich ist das Firefox Fenster immer im Vordergrund. Ich habe auch schon im Taskmanager unter Anwendungen nachgesehen, ob ...

Exchange Server

ActveSync An und Aus schalten

Frage von HeinrichMExchange Server3 Kommentare

Hallo zusammen, es geht mal wieder um das Zustellen von Mails auf Handys per ActiveSync. Es sollen die Mails ...

Neue Wissensbeiträge
Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 17 StundenWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

iOS
IOS 11.2.6 verfügbar
Information von sabines vor 22 StundeniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 1 TagSicherheit8 Kommentare

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 TagInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Heiß diskutierte Inhalte
Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server25 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

LAN, WAN, Wireless
VPN Cisco ASA5505 PaloAlto PA-200
gelöst Frage von YannoschLAN, WAN, Wireless22 Kommentare

Hallo zusammen, ich würde gerne ein Site-to-Site VPN zwischen den beiden Standorten aufbauen. PaloAlto PA200 Internetanschluss Deutsche Telekom GK ...

SAN, NAS, DAS
Qnap TS-453S Pro - Anbindung Active Directory
Frage von JuckieSAN, NAS, DAS13 Kommentare

Hallo zusammen, ich habe hier eine Qnap TS-453S Pro die sich mal so absolut gar nicht in das Active ...