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, 6121 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 ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

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

Frage von thomasreischer zum Thema Windows Server ...

Sicherheit
IoT: Hacker schalten Heizungen aus (6)

Link von ticuta1 zum Thema Sicherheit ...

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

Frage von Frank1984 zum Thema Switche und Hubs ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Ipv4 mieten (22)

Frage von homermg zum Thema Router & Routing ...

Windows Server
DHCP Server switchen (20)

Frage von M.Marz zum Thema Windows Server ...

Exchange Server
gelöst Exchange 2010 Berechtigungen wiederherstellen (20)

Frage von semperf1delis zum Thema Exchange Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...