binder

[Erzwingen des Bluetooth Pairing Code]

Erzwingen des Bluetooth Pairing Code

Begonnen von Fabian Binder
07. Januar 2017, 15:46:21

Hallo,

ich hoffe ich finde hier bei euch Hilfe. Seit 2 Tagen suche ich bei Google nach einer Lösung aber komme nicht weiter.

Und zwar habe ich mir vor kurzem einen Bluetooth Adapter gekauft, welchen ich an meine Anlage angeschlossen habe um über das Handy oder den PC Musik zu streamen. Mit dem Handy klappt alles wunderbar, aber mit dem PC komme ich einfach nicht weiter. Ich habe Windows 10 und einen Bluetooth Dongle von Hama v4.0. Der Dongle erkennt den Adapter ohne Probleme aber er stellt keine Verbindung her. Ich hatte auch noch einen Uralt Dongle und bei diesem wurde ich aufgefordert einen Pairing Code einzugeben ("0000") danach stand die Verbindung auch aber der Dongle ist so langsam das nur Bruchstücke ankommen. Nun ist meine Frage: Wie kann ich Windows 10 dazu bringen, dass ich einen Pairing Code eingeben muss. Denn mit dem neuen Dongle kommt nichts er verbindet sich nur und zeigt mir dann an, das das Gerät gekoppelt ist aber ich kann es nicht verwenden. Ich hoffe ihr könnt mir weiter helfen.

Vielen Dank schon mal.

windows verbinden probleme deaktivieren yahoo per prozess bing code codes passwort search keine win abfrage go-windows ohne 104819420 bgs 122448493 133053837 yqelvgmrgely verbindung programme erzwingen installiert pin rechner ver option

weitere Antworten anzeigen »»

[PDFCreator - wie unter WordVBA programmieren?]

PDFCreator - wie unter WordVBA programmieren?

Begonnen von Jean Raul
03. Juli 2008, 22:35:12

Hat schon mal jemand versucht, mit dem (kostenlosen) PDFCreator
http://www.pdfforge.org/
WordVBA zu programmieren? Im Prinzip schaffe ich es ja mit dem mitgelieferten Beispielprogrammen. Ich habe aber Probleme damit, den Dateinamen zu programmieren, unter dem die pdf ausgegeben werden soll. Die PDF wird immer mit dem Pfad und Namen ausgegeben, der den Autosave-Optionen des Programms entspricht, aber nicht mit dem Namen, den ich im Programm vorgebe und haben will.

So lautet mein VBA-Skript. Es soll die aktuell in Word geöffnete Datei ohne weitere Benutzereingriffe als PDF in den Pfad <PDFPfad$> unter dem Namen <PDFName$> speichern:
[code]
Public Function PDFDruck(Optional OhneMsg As Boolean)
Dim Zwi$, PDFPfad$, PDFName$, pdfjob
PDFPfad$ = "C:\Zwi"
'Ermittelt den Namen des aktiven Dokuments:
Zwi$ = ActiveDocument.Name
If InStr(1, Zwi$, ".", vbTextCompare) > 1 Then
   PDFName$ = Mid(Zwi$, 1, InStr(1, Zwi$, ".", vbTextCompare) - 1)
Else
   PDFName$ = "Unbenannt"
End If

Set pdfjob = New PDFCreator.clsPDFCreator
With pdfjob
   If .cStart("/NoProcessingAtStartup") = False Then
      MsgBox "PDFCreator kann nicht initialisiert werden. Bitte beenden Sie die PDFCreator-Prozesse.", vbCritical + _
         vbOKOnly, "PrtPDFCreator"
      GoTo Ende
   End If
   .cOption("UseAutosave") = 1
   .cOption("UseAutosaveDirectory") = 1
   .cOption("AutosaveDirectory") = PDFPfad$
   .cOption("AutosaveFilename") = PDFName$
   .cOption("AutosaveFormat") = 0    '0 = PDF
   .cDefaultPrinter = "PDFCreator"
   .cPrinterStop = False
   .cClearCache
   ActiveDocument.PrintOut Background:=False
End With
'!!!!!!!!!!!!!!!!Wartet ab, bis fertig gedruckt ist:!!!!!!!!!!!!!!
Dim sleepTime, maxTime, c
sleepTime = 250
maxTime = 10
c = 0
Do While (pdfjob.cOutputFilename = "") And (c < (maxTime * 1000 / sleepTime))
  c = c + 1
  Sleep 200
Loop
'!!!!!!!!!!!!!!!Ende des Abwartens!!!!!!!!!!!!!!
Ende:
Zwi$ = pdfjob.cOutputFilename
pdfjob.cClose
Set pdfjob = Nothing
If Not OhneMsg Then
   If Len(Zwi$) > 0 Then
      MsgBox "Das Dokument wurde nach " & Zwi$ & " gespeichert.", vbInformation
   Else
      MsgBox "Beim Speichern als pdf ist ein Fehler aufgetreten!", vbCritical
   End If
End If
PDFDruck = Zwi$
End Function
[/code]

Auch die anderen COM-Funktionen des Programms sind mir ein Buch mit sieben Rätseln, da die Funktionen nach meiner Ansicht sehr schlecht dokumentiert sind. Weiß jemand mehr? Anbei die "Dokumentation" und die Beispieldateien:

weitere Antworten anzeigen »»