---

Ich habe im Internet ein kleines Skript gefunden, welches den Numlock überwacht und in ein/ausschaltet, hier mal der Code:

' benötigte API-Deklarationen
Private Declare Sub keybd_event Lib "user32" ( _
  ByVal bVk As Byte, _
  ByVal bScan As Byte, _
  ByVal dwFlags As Long, _
  ByVal dwExtraInfo As Long)

Private Const VK_NUMLOCK = &H90
Private Const KEYEVENTF_KEYUP = &H2

' NUM-Lock drücken
' Zunächst niederdrücken und dann wieder loslassen
keybd_event VK_NUMLOCK, 1, 0, 0
keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0

' NUM-Lock aktivieren (falls deaktiviert)
If Not (GetKeyState(vbKeyNumlock) = 1) Then
  keybd_event VK_NUMLOCK, 1, 0, 0
  keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0
End If

Nur wenn ich das ausführe, dann kommt der Fehler:
Fehler: Anweisungsende erwartet
Zeile 2
Zeichen 17
Code: 800A0401

Der Fehler liegt also hier:
Private Declare Sub

Wie kann ich den beheben? Eigentlich müsste das Skript ja stimmen, denn ich habe es von hier:
http://www.vbarchiv.net/tipps/tipp_563-num-lock-ein-ausschalten.html

Was funktioniert denn dann bei mir nicht?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tut mir leid, da kann ich nicht helfen.

Aber falls Du AxelŽs Punkt benutzt dann kannst Du die NumLock-Taste auch damit steuern. So mache ich es schon seit geraumer Zeit und es läuft.

Schönes langes Wochenende noch 

------------------
Grüße aus OWL, Thomas

ProE macht Spaß - viel ProE macht viel Spaß !  (Zitat, frei nach meinem ProE-Beibringer)

Neu auf CAD.de? Diese Infos werden Dir den Einstieg erleichtern: Willkommen auf CAD.de

Und das sollte jeder  mal gelesen haben:
Richtig Fragen - Nettiquette - Suchfunktion - System-Info - 7er-Regel - Unities - ProE-Konfiguration

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Neulermer,

den Code, den du angibst, funktioniert nur in einer Visual Basic Umgebung
wie z.B. die VBAs in MS-Word oder MS-Excel.

Visual Basic Script (*.vbs) kennt keine Typ-Deklarationen, d.h. die Syntax passt so nicht.
Ich bin mir aus dem Gedächtnis auch nicht sicher, ob die Declare-Funktion so geht. Würde eher meinen, dass man hier einen Verweis auf ein Objekt erstellen muss, dessen Methoden etc. man anschießend nutzen kann; das geht auch mit einem Event-Handler (was hier wohl der Fall ist).

Ich schließe mich Thomas an: Axels Punkt ist ein echt nützliches Tool, das zwischenzeitlich sogar erkennt, dass ein CAD-Programm läuft und dann das Dezimalkomma im Ziffernblock auf "." ändern; in andern Anwendungen, zu denen gewechselt wird, ist das Dezimalkomma wieder wie dort erwartet ",".

Gruß
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tja das hab ich mal probiert, aber das funktioniert auch nicht.Kann denn niemand das per vbs Skript programmieren?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von neulermer:
Tja das hab ich mal probiert, aber das funktioniert auch nicht.Kann denn niemand das per vbs Skript programmieren?

---

Warum sollte sich jemand die Mühe machen? Es gibt doch schon so viele Programme, die das können.

------------------
Gruß
Udo                 Keine Panik, Du arbeitest mit Pro/E! Und Du hast cad.de gefunden! 

Neu hier?     Verwundert über die Antworten?    Dann schnell nachfolgende Links durchlesen. 
• Richtig Fragen • Nettiquette • Suchfunktion • System-Info • Pro/E-Konfig • 7er-Regel      • Unities

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tja eben das ist das problem, das Vbs Skript das ich ausführe schlatet den mit dem Wait for Window befehl hin und her wie es gerade lustig ist und dann funktioniert der folgende teil nicht mehr. Deshalb der Aufwand. Axels Punkt konnte demauch nicht entgegenwirken. Wenn der Numlock nicht an ist, dann funktioniert die Tastenkombi Strg + Umschalt + Pfeiltaste Links nicht mehr bzw. nur die Umsschalttaste nicht mehr und so kann ich dann den Dateinamen nicht kopieren.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

NumLock.zip

Da bin ich.
Dazu müsstest Du aber erst den NumLock Status abfragen.
Für VB also so wie im angehängten Projekt, z.B. mit Timer Element.

Gruß

------------------
-Axel- 
CROSSFIRE

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hmm, soweit wie ich das jetzt sehe, ist das eine extra Anwendung. Ich bräuchte das aber direkt in meinem Skript, dass der mir genau an den wichtigen Stellen den Numlock aktiviert. Den Intervall von 1sec ist ohnehin zu lang, da ich eine Wait Zeit von 50ms habe und der bestenfalls in 1 sec mit dem gesamten Skript fertig ist. Ich stell mal das Beispiel Skript ein:

'Option Explizit

WScript.Sleep 50

Dim Fi, Fso

Set Shell = CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")

Sub sk(Befehl)
'wscript.echo befehl
   WshShell.SendKeys(Befehl)
   WScript.Sleep 50 'Zeitangabe in Millisekunden

End Sub

'------------------------------------------------------------------------------------------------

'------------------------------------------------------------------------------------------------
Public Function WaitForWindow(WindowTitle)

Set WshShell = WScript.CreateObject("WScript.Shell")

success=0
I = 0
Do
I = I + 1
WScript.Sleep 300
success=WshShell.AppActivate(WindowTitle)
If I = 50 Then
x=MsgBox ("Fenster "+Chr(34)& WindowTitle &Chr(34)+" konnte nicht gefunden werden.",48,"Warnmeldung")
WaitForWindow = False
asyncConnection.Disconnect(2)
WScript.quit
Exit Do
End If
Loop Until success
If success Then
WaitForWindow = True
End If
End Function
'------------------------------------------------------------------------------------------------

'Dateinamen vorbereiten
sk "^s"

WaitForWindow("Objekt speichern")
sk "{Tab 5}"
sk "{BS 4}"
sk ".drw"
sk "+^{left}" <== Hier funktioniert die Umschalttaste nicht mehr
sk "^c"
sk "^a"
sk "^o"

WaitForWindow("Datei öffnen")

sk "^v"
sk "~"

WScript.Quit()

Ein verlängern der Wartezeit ist auch nicht sinnvoll, weil ich die ja mit dem Wait for Window befehl auf ein minimum reduzieren konnte und nicht wieder das gegenteil bewirken will. Außerdem ändert das nichts an dem Problem dass die Umschalttaste nicht geht wenn der Wait for Window befehl im Skript drin ist. Kann man das vielleicht irgendwie nach bedarf programmieren?

[Diese Nachricht wurde von neulermer am 04. Okt. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

   

Zitat:

---

Original erstellt von neulermer:
sk "+^{left}" <== Hier funktioniert die Umschalttaste nicht mehr
[/B]

---

Bei mir, unter Windows 7, funktioniert 'sk "+^{left}"' egal ob NUMLOCK aktiviert ist oder nicht. Ich weiss deshalb nicht was bei dir passiert wenn NUMLOCK nicht aktiviert ist.

Vielleicht geht aber so etwas, quasi doppelt gemoppelt:
sk "+^{left}"
sk "^c"
sk "{NUMLOCK}" 'aktiviert respektive deaktiviert Numlock
sk "+^{left}" 'oder right, je nach dem wie dein Computer auf das erste CTRL+C reagiert
sk "^c"
sk "{NUMLOCK}" 'Numlock ist wieder so wie vor dem Skript

HTH
Tobias

EDIT: System-Info angepasst (habe zu lange nichts mehr geposted) 
EDIT2: hat aber offenbar nicht funktioniert
[Diese Nachricht wurde von Manuku am 04. Okt. 2011 editiert.]

[Diese Nachricht wurde von Manuku am 04. Okt. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja klar ist das eine Extra Anwendung. War auch nur ein Beispiel. Schau mal rein (Texteditor) und schau Dir den "Quältext" im Form1 an. Ist VB nicht VB-Script.

Wenn Du das getan hast die Frage: Warum überwachst Du nicht mit
If GetKeyState(vbKeyNumlock) = 1 Then
blabla...
um dann bei Bedarf dei Funktion Ein-bzw.Ausschalten auszuführen ?

Ehrlich gesagt verstehe ich auch nicht so recht warum die Num-Lock Einstellung Dir das "...Tastenkombi Strg + Umschalt + Pfeiltaste Links ..." vermiesen sollte. Da stimmt irgend etwas anderes nicht. Bei mir funzt das optimal, auch mit Strg-V

Eigentlich ist das auch das falsche Forum hier. Hat ja nicht viel mit Pro/E zu tun. Wenn das hier länger dauert ziehen wir besser um.

Gruß

------------------
-Axel- 
CROSSFIRE

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von arossbach:
Eigentlich ist das auch das falsche Forum hier. Hat ja nicht viel mit Pro/E zu tun. Wenn das hier länger dauert ziehen wir besser um.

---

Sagt bei Bedarf Bescheid! 

------------------
CAD.DE macht Spaß!       
Wichtige Links für noch mehr Spaß: Richtig Fragen - Nettiquette - Suchfunktion - System-Info - Unities
Wichtige Links für noch mehr Spaß mit Pro/Engineer: 7er-Regel - Abstürze - Konfiguration - Stammtisch

Guten Morgen - und falls wir uns nicht mehr sehen - guten Nachmittag, guten Abend und gute Nacht!  (Truman Burbank in "Die Truman-Show")

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP