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, 8361 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
Windows 10
Fenster Mini- Maximieren per Batch-Befehl (1)

Frage von knitti zum Thema Windows 10 ...

VB for Applications
gelöst VB Skript für mehrere Batch Befehle (19)

Frage von freshman2017 zum Thema VB for Applications ...

Windows Server
SBS2011 Backup findet Festplatte nicht (4)

Frage von MiSt zum Thema Windows Server ...

VB for Applications
VB.net Combobox databinding langsam (4)

Frage von ForgottenRealm zum Thema VB for Applications ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (35)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Komplett neues Netzwerk, Ubiquiti WLAN, Router, Switch (15)

Frage von Freak-On-Silicon zum Thema LAN, WAN, Wireless ...

CMS
Lokales Wordpress im LAN - wie aufsetzen? (13)

Frage von Static zum Thema CMS ...

Backup
Backup Wochen- Monats- Jahressicherung (13)

Frage von Meterpeter zum Thema Backup ...