maxim_42

Kann die Telefonleitung, über die ein RAS-Server angerufen wird, durch ein Mobiltelefon zur Verfügung gestellt werden? Getestet habe ich unter NT die Nokia Data Suite 3.0. Dabei hat der NT Rechner ankommende Anrufe nicht angenommen. ( Handy klingelt bis zum TimeOut) Eine DFÜ für rausgehende Verbindungen lässt sich einrichten und funktioniert.

ja genau. Hab bei der Kiste nur den Anmeldedialog gesehen und den falschen Schluss gezogen.

Ich nehme mal an du meinst das ListView Steuerelement. Listview.ColumnHeaders(index).Width = Breite

Ersetze alle "+"-Zeichen durch ein "&" Zeichen. Sollte dann gehen.

In deinem Projekt kannst du den CommonDialog benutzen um Explorerlike die Datei auszuwählen. Code dazu wirst du sicher hier im Forum über die Suche finden. Um den CommonDialog in dein Projekt zu integrieren musst du: 1: In der Vb-Entwicklungsumgebung die Werkzeugsammlung anzeigen 2: Dort über das Kontextmenü auf Komponenten clicken 3: Häkchen bei Microsoft Common Dialog Control setzen 4: Das Steuerelement in die Form ziehen.

Ich habs schon gefunden, glaug ich. Unter der Energieverwaltung kann man einstellen, das vor der Reaktivierung das Kennwort einzugeben ist. Erreichbar unter: Rechte Maus Desktop, Eigenschaften,Bildschirmschoner,Energieverwaltung,Erweitert. Ziemlich verschlungen das Ganze.

Hi Wo ist der "Knopf" mit dem man enstellen kann, dass bei längerem Stillstand der angemeldete User automatisch abgemeldet wird? Ein einer neuen Rechner mit XP Home ist so konfiguriert, und ich wäre diese Einstellung gerne wieder los.

Ne mögliche Lösung wäre , am Ende des Batchjobs der GostScript startet eine selbstdefinierte Enviromentvariable einen Wert zuzuweisen, und Vb solange warten zu lassen wie sie noch nicht gesetzt ist. Sicher nicht sehr elegant, aber who cares

ruf den Batch Job mit Start /Wait aus die Ausführung wird dann erst vortgesetzt wenn der Job durch ist. Also: Start /Wait MeinJob.cmd

Sollten die Tabellen auch noch einigermassen gross sein, und du Infos aus allen Tabellen gleichzeitig brauchen, wird es recht lange dauern den Recordset zu erstellen. Zur Informationsbeschaffung, würd' ich mir an deiner Stelle den Kofler besorgen. Gerade zum Thema DB's steht Einiges drinn.

Schick es doch in der Schleife 100 ms schlafen sleep(100) In der Zeit bekommt der Rechner Gelegenheit was Anderes zu tun.

Versuch mal über das AVM ISDN - ISDN(x.75) zu senden. ( Reiter Terminal in der Service Konfiguration) Andere Einstellungen haben bei uns zu ähnlichen Problemen geführt.

Nur der Vollständigkeit halber: In VB hat der Bool true (wahr) den Wert -1.

@developer Was tut's denn da nicht? Wir setzen es ein, bisher ohne Probleme.

Es ist nicht egal: Bei der Erzeugung des Schlüssels wird in die eine Richtung verknüpft. Bei der Verifikation des Schlüssels in die andere. Also Nummer1 ++ Nummer2 = schlüssel ( für die Erzeugung) Schlüssel ++ Nummer2 = Nummer1 Oder Schlüssel ++ Nummer1 = Nummer2 ( für Verifikation) Von den möglichen bit-Verknüpfungen kommt da nur XOR in Frage.

Du könntest dir überlegen nicht einfach die Festplattenseriennummer zu benutzen(ist ziemlich leicht rauszukriegen), sondern eine 32Bit Zahl die du erhältst wenn du die Seriennummer in einer definierten Art und Weise über die 32 Bit verteilst. Also z.B. Bit 1 steht an 20.Stelle, bit 2 an 5. Stelle usw. So ist es etwas schwieriger für den Kunden für andere Maschinen einen Schlüssel zu errechnen.

Oft hilft es, die Objektvariable die auf Aplication zeigt Nothing zu setzen.

Um die Werte aus einer Spalte in einer anderen Tabelle als Spaltenüberschriften zu nutzen musst du eine Privot-Abfrage (Kreutztabellenabfrage) erstellen. Benutz am besten Accsess zur Erstellung und schau dir den SQL Befehl an. Wenn die Umwandlungen die für die Saltenwerte vorzunehmen sind, sich nicht über Accsess-SQL-Befehle realisieren lassen(format zum Beispiel), muss zuerst eine temporäre Tabelle erzeugt werden in der die veränderten Werte stehen. Über diese Tabelle führst du dann die Kreutztabellenabfrage aus

Option Explicit Dim iVal As Integer Private Sub Command1_Click() Label1.Caption = iVal End Sub Private Sub Command2_Click() Text1.SetFocus End Sub Private Sub Form_Load() Text1.Text = "" End Sub Private Sub Text1_Validate(Cancel As Boolean) If IsNumeric(Text1.Text) Then iVal = CInt(Text1.Text) Else Cancel = True End If End Sub [/PHP]

Eine Vorgehensweise um die Überschriften in die richtige Reihenfolge zu bringen: Option Explicit Dim strTxtUeberschriften(100) As String Dim strExcelUeberschriften(100) As String Dim strResUeberschriften(100) As String Private Sub Form_Load() Dim i As Integer Dim j As Integer Dim g As Integer Dim iSpaltenIndex As Integer Dim bGefunden As Boolean iSpaltenIndex = 0 strTxtUeberschriften(0) = "eins": strTxtUeberschriften(1) = "zwei" strTxtUeberschriften(2) = "drei": strTxtUeberschriften(3) = "vier" strTxtUeberschriften(4) = "fuenf" strExcelUeberschriften(0) = "null": strExcelUeberschriften(1) = "eins" strExcelUeberschriften(2) = "drei": strExcelUeberschriften(3) = "vier" strExcelUeberschriften(4) = "sechs" For i = LBound(strResUeberschriften) To UBound(strResUeberschriften) If strTxtUeberschriften(i) = "" Then Exit For bGefunden = False For j = LBound(strExcelUeberschriften) To UBound(strExcelUeberschriften) If strExcelUeberschriften(j) = "" Then Exit For If strTxtUeberschriften(i) = strExcelUeberschriften(j) Then ' An dieser Stelle müssen alle Excel-Überschriften, die noch nicht in' ' strResUeberschriften übernommen wurden und vor der gefundenen stehen,' ' behandelt werden.' ' Schon ausgewertete Überschriften werden mit "#####" überschrieben' For g = 0 To j - 1 If strExcelUeberschriften(g) <> "#####" Then strResUeberschriften(iSpaltenIndex) = strExcelUeberschriften(g) Debug.Print iSpaltenIndex, strResUeberschriften(iSpaltenIndex) iSpaltenIndex = iSpaltenIndex + 1 strExcelUeberschriften(g) = "#####" End If Next strResUeberschriften(iSpaltenIndex) = strExcelUeberschriften(j) strExcelUeberschriften(j) = "#####" Debug.Print iSpaltenIndex, strResUeberschriften(iSpaltenIndex) iSpaltenIndex = iSpaltenIndex + 1 bGefunden = True Exit For End If Next If Not bGefunden Then strResUeberschriften(iSpaltenIndex) = strTxtUeberschriften(i) Debug.Print iSpaltenIndex, strResUeberschriften(iSpaltenIndex) ' An dieser Stelle neue Spalte ins Excel-Sheet einfügen' iSpaltenIndex = iSpaltenIndex + 1 End If Next 'Zum Schluss die Excel-Überschriften hinter der letzten txt-Überschrift.' i = 0 While strExcelUeberschriften(i) <> "" If strExcelUeberschriften(i) <> "#####" Then strResUeberschriften(iSpaltenIndex) = strExcelUeberschriften(i) Debug.Print iSpaltenIndex, strResUeberschriften(iSpaltenIndex) iSpaltenIndex = iSpaltenIndex + 1 End If i = i + 1 Wend End Sub [/PHP]

Ich weiss natürlich nicht ob ich die Aufgabe richtig begriffen hab. Beziehst du die Spaltenüberschriften auch aus der Textdatei? Ich mach mal 'nen Versuch. Der enfachste Ansatz könnte so aussehen: In einer Schleife bis Dateiende -- Schleife bis zum Zeilenumbruch ---- Zeichenkette bis zum nächsten Separator ( oder Zeilenumbruch) lesen ---- Gelesenes in das nächste Excel-Feld schreiben -- Schleife Ende -- Nächste Zeile in Excel Schleife Ende

Eine Referenz ist doch ein konstanter Zeiger (kann nicht verbogen werden), der bei Benutzung automatisch dereferenziert wird. Eine Kopie vom referenzierten Objekt wird dabei nicht gemacht.

Klotzkopp ist nicht zu schlagen. Immer als Erster am Ball:uli

Offenbar will GetFieldValue eine CString-Referenz haben. Du übergibst aber einen Zeiger; oder?

Eigendlich kann Alles über das Anmeldescript gelöst werden: :VERBINDEN net use * \\Rechnername\Freigabe | FIND "Der Befehl wurde erfolgreich" || GOTO NOCHMAL :: Die Ausgabe des NET USE Befehls wird an FIND weitergeleitet ::Ist die Zeichenfolge "Der Befehl wurde erfolgreich" enthalten, :: gehts bei OK weiter ; ansonsten versucht er's nochmal. GOTO OK :FEHLER ::Hier kannst du den Fall einer gescheiterten Verbindung behandeln GOTO END :NOCHMAL :: Die Schleife funktioniert nur, wenn die Verzögerte Erweiterung :: von Umgebungsvariablen aktiviert ist. Hilfe erhälst du mit dem Kommando :: Set /? in der Kommandozeile des cmd. set /A #ZAELER=!#ZAELER!+1 echo Neuer Versuch nach 10 Sekunden. :: 10 Pings dauern ziemlich genau 10 Sekunden. :: Diese Art der Warteschleife spart Resourcen ping -n 10 localhost > NUL if /i !#ZAELER! LSS 5 (GOTO VERBINDEN) ELSE GOTO FEHLER :OK :: Das VBS-Script könnte hier aufgerufen werden. GOTO END :END SET ZAELER=