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

VB Findwindow findet Fenster nicht

Frage Entwicklung Basic

Mitglied: Blackangel

Blackangel (Level 1) - Jetzt verbinden

17.12.2007, aktualisiert 24.07.2008, 8347 Aufrufe, 1 Kommentar

Hallo,

ich bin am verzweifeln und zwar soll mein Programm(kann man das so sagen?) stoppen bevor nicht ein anderes Programm geschlossen wird!
Das ganze habe ich jetzt mit Findwindow probiert doch der arbeitet einfach weiter!
Test mit Windows Spiel Minesweeper war kein Problem.
Hier mal der Code:
01.
Option Explicit 
02.
 
03.
Private Declare Function FindWindow Lib "user32" Alias _ 
04.
      "FindWindowA" (ByVal lpClassName As Any, ByVal _ 
05.
      lpWindowName As Any) As Long 
06.
 
07.
Private Sub Form_Load() 
08.
  Shell Pathname:="D:\fleet\prog\navigator.exe", Windowstyle:=vbNormalFocus 
09.
Dim Pausenlänge, Start, Ende 
10.
        Pausenlänge = 5 ' 
11.
        Start = Timer ' 
12.
    Do While Timer < Start + Pausenlänge 
13.
  DoEvents 
14.
Loop 
15.
 
16.
  While FindWindow("Navigator", 0&) 
17.
    DoEvents 
18.
  Wend 
19.
 
20.
  MsgBox "Navigator wurde beendet.", vbInformation + vbOKOnly 
21.
End 
22.
End Sub
Ich habe eine Pause von 5 Sekunden mit eingebaut da das Programm 2-3 Sekunden braucht um zu starten(siehe Shell)

Laut Microsoft Spy++
Heißt die Windows Caption "Navigator"
und der Class Name "#32770 (Dialog)".

Habe ich irgendetwas nicht beachtet?
Ich muss dabei auch gleich sagen das ich noch nicht so fit in VB bin!
Mitglied: fishbone222
24.07.2008 um 15:49 Uhr
Dashier müsste gehn:
01.
While FindWindow(0&, "Navigator")
es heißt ja auch
01.
Private Declare Function FindWindow Lib "user32" Alias _  
02.
"FindWindowA" (ByVal lpClassName As Any, ByVal _  
03.
 lpWindowName As Any) As Long 
und nicht
01.
Private Declare Function FindWindow Lib "user32" Alias _  
02.
"FindWindowA" (ByVal _  
03.
 lpWindowName As Any, ByVal lpClassName As Any) As Long 
Bitte warten ..
Ähnliche Inhalte
Backup
Veeam Endpoint Backup findet SQL Datenbank nicht (1)

Frage von FFSephiroth zum Thema Backup ...

Microsoft Office
gelöst Office 2007 Upgrade auf 2013 ständiges First Run Fenster (5)

Frage von xbast1x zum Thema Microsoft Office ...

Batch & Shell
gelöst Mit Powershell schwarzes CMD-Fenster unterdrücken? (4)

Frage von Yauhun zum Thema Batch & Shell ...

Windows 8
gelöst Windows 8.1 findet keine Updates (5)

Frage von bytetix zum Thema Windows 8 ...

Heiß diskutierte Inhalte
Exchange Server
gelöst Email in Exchange an 2ten Empfänger senden (18)

Frage von MultiStorm zum Thema Exchange Server ...

Weiterbildung
Gehaltsvorstellungen (16)

Frage von SYS64738 zum Thema Weiterbildung ...

Windows Server
gelöst Microsoft-Lizenz CALs und passendes Server-Betriebssystem (13)

Frage von planetIT2016 zum Thema Windows Server ...

Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (13)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...