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

HTA in Vordergrund schalten

Frage Entwicklung VB for Applications

Mitglied: bordermax

bordermax (Level 1) - Jetzt verbinden

31.12.2010, aktualisiert 16:39 Uhr, 6304 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 ...

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

Frage von thomasreischer zum Thema Windows Server ...

Switche und Hubs
gelöst Aktive Switch in Reihe schalten (3)

Frage von Frank1984 zum Thema Switche und Hubs ...

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

Frage von predator66 zum Thema Peripheriegeräte ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Rechtliche Fragen
gelöst Geschäftsführer Email gefaked (18)

Frage von xbast1x zum Thema Rechtliche Fragen ...

Vmware
VMware ESX - Start einer VM verhindern (16)

Frage von emeriks zum Thema Vmware ...

Vmware
gelöst Update auf ESXI 6.5 Installieren (15)

Frage von zeroblue2005 zum Thema Vmware ...

iOS
IPhone wird ferngesteuert Hacker? (15)

Frage von Akcent zum Thema iOS ...