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

HTA in Vordergrund schalten

Frage Entwicklung VB for Applications

Mitglied: bordermax

bordermax (Level 1) - Jetzt verbinden

31.12.2010, aktualisiert 16:39 Uhr, 6336 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
Entwicklung
MSI Dateien als Administrator von einer HTA installieren (1)

Frage von iGordon zum Thema Entwicklung ...

Batch & Shell
gelöst Pin hta oder cmd to taskbar (1)

Frage von it4baer zum Thema Batch & Shell ...

Windows Server
RemoteApp Fenster kommt nicht in den Vordergrund (1)

Frage von thomasreischer zum Thema Windows Server ...

Peripheriegeräte
gelöst Suche USB Platine zum Anschluss von Schaltern und Tastern (2)

Frage von predator66 zum Thema Peripheriegeräte ...

Neue Wissensbeiträge
Sicherheit

How I hacked hundreds of companies through their helpdesk

Information von SeaStorm zum Thema Sicherheit ...

Erkennung und -Abwehr

Ccleaner-Angriff war nur auf große Unternehmen gemünzt

(9)

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Sicherheit

Eventuell neue Lücke in Intels ME

Information von sabines zum Thema Sicherheit ...

Heiß diskutierte Inhalte
Humor (lol)
Freidach Beitrag (25)

Frage von Penny.Cilin zum Thema Humor (lol) ...

Lizenzierung
Programm soll in verschiedenen Versionen lizenziert sein (20)

Frage von Yanmai zum Thema Lizenzierung ...

Windows 7
SSD - Win7 Lags (18)

Frage von ph5555 zum Thema Windows 7 ...

Humor (lol)
Wo ist der Fehler auf dem Bild? (17)

Information von the-buccaneer zum Thema Humor (lol) ...