Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > General Coding
You last visited: Today at 18:00

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Brauche Hilfe für Programmrestarter!

Discussion on Brauche Hilfe für Programmrestarter! within the General Coding forum part of the Coders Den category.

Reply
 
Old   #1
 
Kutzlor's Avatar
 
elite*gold: 27
Join Date: Sep 2009
Posts: 1,510
Received Thanks: 703
Brauche Hilfe für Programmrestarter!

Hallo!
Kann mir bitte jemand helfen ein Program zu schreiben, am besten in .bat format sonst mit VB.

Es soll überprüfen ob das program vom Pfad (Ein Beispiel) C:/Programme/Ordner/Datei.exe läuft, und das alle 20sekunden. Wenn es nicht läuft, soll es es starten!

geht sowas?

Bitte um Hilfe,
mfg
Kutzlor is offline  
Old 10/14/2010, 16:12   #2

 
マルコ's Avatar
 
elite*gold: 1329
Join Date: Jun 2009
Posts: 1,873
Received Thanks: 960
Mit batch gehts NICHT. Du musst einfach prüfen, ob der Prozess läuft:
Code:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Const GW_HWNDNEXT = 2
Dim mWnd As Long
Function GetProcID(ByVal strWindowTitle as String) As Long
Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long
Dim strWindowTitle as String
'strWindowTitle enthält den EXAKTEN Fenstertitels des Programms, dass du abschiessen willst
test_hwnd = FindWindow(vbNullString, strWindowTitel)
If GetParent(test_hwnd) = 0 Then
'Für den Fall, dass das geforderte Fenster kein Child-Prozess, liefert diese Funktion die PID zurück, im anderen Fall halte ich es für ungeschickt den Prozess abzuschiessen
test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid)
GetProcID = test_pid
End If
End Function
Private Sub Form_Load()
Dim strWindTitle as String
mWnd = GetProcID(strWindTitle)
TerminateProcess(mWnd, 0)
End Sub
Wenns nich läuft, dann einfach ausführen:
Code:
Dim TaskID
 
' Programm starten
TaskID = Shell("C:\Pfad\Programm.exe")
Achja, die 20 Sekunden hab ich vergessen XD.
Mach nen Timer. Stell ihn auf 20000 ms und schreib in das Event das Zeug rein!
マルコ is offline  
Old 10/14/2010, 17:27   #3
 
Kutzlor's Avatar
 
elite*gold: 27
Join Date: Sep 2009
Posts: 1,510
Received Thanks: 703
mit was für nen programm muss ich das machen?
Kutzlor is offline  
Old 10/14/2010, 22:21   #4

 
マルコ's Avatar
 
elite*gold: 1329
Join Date: Jun 2009
Posts: 1,873
Received Thanks: 960
lol...ich dachte entweder batch oder VB. Der Code ist offensichtlich VB. Ich hab sogar geschrieben, dass Batch nich geht
Und wenn du meinst, mit welchem Programm du das programmierst, dann hab ich ne schlechte Nachricht für dich!

außerdem: GidF
マルコ is offline  
Old 10/15/2010, 05:16   #5
 
Kutzlor's Avatar
 
elite*gold: 27
Join Date: Sep 2009
Posts: 1,510
Received Thanks: 703
jaja wtf xD Ich meinte eher welche art von Aplication.
Aber, da der Timer ja eh nur bei einer geht, ist die Frage hinfällig.

naja auf jeden fall bin ich zu doof dafür... -.-
krieg das ned hin xD
Kutzlor is offline  
Old 10/15/2010, 09:53   #6
 
elite*gold: 42
Join Date: Jun 2008
Posts: 5,425
Received Thanks: 1,888
Quote:
Originally Posted by gnom overbord View Post
jaja wtf xD Ich meinte eher welche art von Aplication.
Aber, da der Timer ja eh nur bei einer geht, ist die Frage hinfällig.

naja auf jeden fall bin ich zu doof dafür... -.-
krieg das ned hin xD
Du bist nicht dazu in der Lage, ein fertiges Programm zu kompilieren? Tjo, Hartz 4 sort dafür, dass Leute überleben, die nicht überleben sollten. Aber keine Sorge, die Natürliche Auslese kriegt dich früher oder später (:
MoepMeep is offline  
Thanks
1 User
Old 10/15/2010, 11:47   #7

 
マルコ's Avatar
 
elite*gold: 1329
Join Date: Jun 2009
Posts: 1,873
Received Thanks: 960
Quote:
Originally Posted by MoepMeep View Post
Du bist nicht dazu in der Lage, ein fertiges Programm zu kompilieren?
^this

Meine schlechte Nachricht an dich: Lern erstmal die Basis des Programmierens. Im Inet gibts haufenweise tuts, in Läden Berge von Büchern zu diesem Thema. Natürlich ist ein solches Programm, das nur alle 20 sek prüft, ob ein anderes läuft und ggf. startet ein sehr leichtes Programm, mit dem man anfangen kann, das man weiter ausbauen kann mit Zusatzfunktionen zum Einstellen für den Benutzer(z.B. welches Programm soll überwacht werden, in welchen Intervallen, mehrer Programme zum überwachen, Updatefunktion,...). Also lern die Basis des Programmierens (in den Tuts steht auch 100%ig, welches Programm und wie du was machn musst) und dann versuchs nochmal mit dieser Idee.
マルコ is offline  
Old 10/15/2010, 14:05   #8
 
Kutzlor's Avatar
 
elite*gold: 27
Join Date: Sep 2009
Posts: 1,510
Received Thanks: 703
ich vermute das der code für VB10 ist!Da sind (glaube ich!) ja so manche sachen anders. ich benutze VB08 O.o
Kutzlor is offline  
Old 10/15/2010, 15:36   #9

 
マルコ's Avatar
 
elite*gold: 1329
Join Date: Jun 2009
Posts: 1,873
Received Thanks: 960
VB10? Dein Mangel an wissen ist unglaublich... Lern erstmal! Wenn du Grundwissen hast, kannst dus nochmal versuchen.
1. Visual Basic (Abk. VB) ist eine proprietäre objektorientierte Programmiersprache (wiki)
2. Was du suchst ist ein PROGRAMM, mit dem man programmieren kann und das VB kompilieren kann. Das ist z.B. VS (Visual Studio ist eine von der Firma Microsoft angebotene integrierte Entwicklungsumgebung für verschiedene Hochsprachen (wiki))
Der Unterschied VS08 und VS10 wikt sich nicht auf die Programmiersprache aus!!!
マルコ is offline  
Reply


Similar Threads Similar Threads
[Sammelthread]Brauche hilfe/Biete hilfe beim p-server erstellen
07/07/2011 - Metin2 Private Server - 14 Replies
Jeder einzelne um hilfe bittet bzw bietet. Dafür muss nicht immer ein extra Thread eröffnet werden ;) -Posted eure fragen -Eure probleme -Oder wenn ihr Hilfe anbietet doch einfach hier hinein
[Hilfe]Brauche Hilfe kann mir wer beim Tool fixxen helfen
10/12/2010 - Metin2 Private Server - 3 Replies
Hallo E*pvp Ich brauche drigend Hilfe beim Fixxen Von dem Server hack Tool Ich hoffe es ist jemand so nett und hilft mir PS: Es ist ein Root Server. Mfg Sonnylein
[HILFE]Brauche hilfe beim FreeBSD Rootserver umbekannte Fehlermeldung.
09/09/2010 - Metin2 Private Server - 8 Replies
Hallo comunity. So, ich habe ja letztens schonmal was gefragt wegen dem kernel. Dem den rootserver gehört hat den den hoster eingeschreiben, die haben nun einen reinstall gemacht. So bis jetzt klappt alles, so wie es soll außer....das starten Wenn wir den den server starten möchten, kommt das: http://www.fotos-hochladen.net/uploads/unbenann11 tuptn6kfg.png
[Hilfe] Brauche Hilfe bei meinem Hamachi Server alles Fertig ausser Navicat und co.
08/07/2010 - Metin2 Private Server - 2 Replies
Guten Tag, Also ich habe heute mein Hamachi P-Server erstellt doch habe Paar Fragen. Kann ich nachdem ich Server erstellt habe VPC schließen also da wo Operation timed out steht. Wie kann ich das mit Navicat machen (wäre schön wenn einer alles einzeln beschreiben könnte). Wie funktionert das mit der Datenbank? Und wie erstelle ich Accounts?
Brauche Dringend Hilfe! Bin Metin spieler aber Brauche Hilfe
12/30/2009 - Metin2 Private Server - 0 Replies
Es gehört hier zwar nicht rein , aber ich weiß keine andere Lösung Ich habe seit einigen Tagen ein Problem... Microsoft Windows Search Protocol Host funktioniert nicht mehr Die Anwendung wird Aufgrund eines Problems nicht mehr richtig Ausgeführt. Ich weiß nicht was das ist und wie ich es loswerde.



All times are GMT +1. The time now is 18:00.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.