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

Frage Entwicklung VB for Applications

Mitglied: bordermax

bordermax (Level 1) - Jetzt verbinden

31.12.2010, aktualisiert 16:39 Uhr, 6377 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
Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 6 StundenBatch & Shell7 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Humor (lol)

"gimme gimme gimme": Automatischer Test stolpert über Easter Egg im man-Tool

Information von Penny.Cilin vor 8 StundenHumor (lol)6 Kommentare

Interessant, was man so alles als Easter Egg implementiert. Ist schon wieder Ostern? "gimme gimme gimme": Automatischer Test stolpert ...

MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 1 TagMikroTik RouterOS8 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Information von BassFishFox vor 1 TagSicherheit1 Kommentar

Ein weiterer Grund, dass Drucker keinerlei Verbindung nach "auswaerts" haben sollen. Unter Verwendung spezieller Malware können Angreifer aus der ...

Heiß diskutierte Inhalte
Windows Server
RDP macht Server schneller???
Frage von JaniDJWindows Server17 Kommentare

Hallo Community, wir betrieben seit geraumer Zeit diverse virtuelle Maschinen und Server mit Windows Server 2012. Leider haben wir ...

Windows 10
Windows 10 dunkler Bildschirm nach Umfallen
Frage von AkcentWindows 1015 Kommentare

Hallo, habe hier einen Windows 10 Rechner der von einem User umgefallen wurde (Beine übers Knie, an den PC ...

Windows 10
Bitlocker nach Verschlüsselung nicht mehr aufrufbar!
gelöst Frage von alexlazaWindows 1013 Kommentare

Hallo, ich besitze ein HP ZBook 17 G4 mit einem Windows 10 Pro Betriebssystem. Bei diesem Problem handelt sich, ...

Batch & Shell
Neuste Datei via PowerShell kopieren
gelöst Frage von kaiuwe28Batch & Shell11 Kommentare

Hallo zusammen, ich hatte mir mit Hilfe der Suche im Forum einen kleinen Code von colinardo rausgesucht und versucht ...