Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
Zhok
Newbie
Newbie

Anmeldedatum: 13.05.2003
Beiträge: 1

Mini Tool gesucht
Verfasst am: 13.05.2003, 16:01

Ich hab nicht wirklich viel ahnung von VB und bin nicht sonderlich weiter gekommen als das Layout zu machen ich such nun jemanden der mir entweder sagt was ich machen mus oder so ein prog rum liegen hat:

Funktion: Es hat 2 Texteingabe Felder und einen OK Butten in beide Felder muss ein text der midnestens 5 Zeichen lang ist rein. Wenn man dann auf ok klickt wird alle 5 minuten der Text aus dem ersten feld eingefügt und 5 Minuten später der aus dem 2ten. Das ganze geht so lange bis man das Program aus macht. Der Text Soll in das gerade Aktive fenster eingefügt werden. z.B hab ich Word an und in den Text bereich geklickt und das Tool soll dort dann hat die Sachen einfügen.

Wenn jemand weiß wie das geht oder sowas hat dann wäre ich diesem jenigen sehr verbunden es preiß zu geben.
 
VB-Heini
Newbie
Newbie

Anmeldedatum: 20.05.2003
Beiträge: 1


Verfasst am: 20.05.2003, 16:52

Hi Zhok!

Habe dir mal ein kleines Programm geschrieben, dass deine Wünsche erfüllt.
Erstelle dazu in VB:
-zwei Textboxen mit dem Namen "Text1" und "Text2".
-einen Commandbutton mit "Command1"
-einen Timer mit "Timer1"
geh in die Quellcodeansicht, lösch alles und füg dann diesen Quellcode ein:

--------------

Dim Zähler As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Zähler = 0
Timer1.Interval = 60000
Timer1.Enabled = False
Command1.Caption = ""
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Timer1_Timer()
Zähler = Zähler + 1
If Zähler = 5 Then
SendKeys Text1.Text
End If
If Zähler = 10 Then
SendKeys Text2.Text
Zähler = 0
End If
End Sub



Viel Erfolg!
Ciao
Rudi
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: fenster

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Problem mit always on top funktion 1106 30.10.2009, 12:26
Keine neuen Beiträge IntStr()funktion 1307 11.10.2007, 09:49
Keine neuen Beiträge TopMost Funktion unter DirectX 1022 27.07.2007, 11:48
Keine neuen Beiträge Wie Funktion nutzen ? 1214 29.06.2007, 21:59
Keine neuen Beiträge update funktion einbauen 1455 29.01.2007, 00:11
 


[ Time: 0.3463s ][ Queries: 83 (0.3085s) ][ GZIP on - Debug on ]