Anzeige
Archiv - Navigation
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sendkeys beschleunigen o ersetzen - Profi gesucht?

Sendkeys beschleunigen o ersetzen - Profi gesucht?
16.05.2003 09:21:20
Roman Herzog
Habe folgendes (Dank diverser Mithilfe):

Sub Makro4()
SendKeys "%{TAB}" wechselt in die Anwendung "Lizenzierung"
For i = 103000000 To 999999999
SendKeys i & "-ABC4" gibt in das Linzenzfeld (vorher mit Maus aktiviert) die Lizenznummer ein
SendKeys "{TAB}" sprigt über die Felder NAME
SendKeys "{TAB}" und FIRMA
SendKeys "{TAB}" auf FREISCHALTEN
SendKeys " ", True sendet ein SPACE (Return geht nicht)
SendKeys " ", True Fehlermeldung "Lizenz stimmt nicht" wird bestätigt
Next i und wieder von vorne....
End Sub


So, das ganze klappt super! es ist nur zu langsam, da "nur" ca. 100 Nummer in einer Sekunde geschafft werden. Die Lösung liegt zwischen 103000000-ABC4 und 399999999-ABC4. Man hat 30 Tage zeit.....??? Jemand ne Lösung/Idee ???



2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Sendkeys beschleunigen o ersetzen - Profi gesucht?
16.05.2003 09:44:37
Nepumuk

Hallo Roman,
drei Tab nacheinander kannst du auch so senden:
SendKeys "{TAB 3}"
die Methode ist fast dreimal so schnell.
Gruß
Nepumuk

Re: Software knacken?
16.05.2003 10:11:26
Seriennummernknacker

Hi,
das ganze riecht mir doch ganz stark
nach nem Serialnumberhack
mit Brute Force...

Find ich nicht gut.

Greetz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige