Text wiedergeben durch F()-Tasten

IbBlue · 7. Februar 2009, 10:39

Hallöchen,

wie kann ich machen, dass ich ein Satz in der Textbox schreibe und dann mit F1 z.B wiedergebe?
Angenommen ich habe das Programm und ihre Aufgabe ist es - Text wiedergeben:

Textbox = (Hallo)
Googlesuchfeld
F1
Googlesuchfeld = (Hallo)
Fertig

Eigentlich braucht man nur eine Textbox und Befehle.

Gruß Ibblue

Lupus · 7. Februar 2009, 10:42

ich glaub du suchst sowas wie Sendkeys.Send
Edit: Und zum F-Taste-Abfragen, das müsste hiermit gehn:
[VB.NET] Tastatur Systemweit abfangen (Tastatur Hook)
nächstes mal bitte die SuFu und Google anstrengen, das hatten wir schon mehrmals (mikes code hab ich innerhalb von 2 Sekunden mit den Suchbegriffen "taste abfangen vb.net" in Google gefunden)

asconblake · 7. Februar 2009, 10:49

Ich habe keine Ahnung, was du mit dem Googlesuchfeld willst. Aber für eine Eingabe in ein Googlesuchfeld könntest du aus dem Qzelltext der Googlestartseite dei ID der TextBox rausfinden und dann Folgendes machen:

VB.NET-Quellcode

Dim wb As WebBrowser = New WebBrowser
Dim a As String = TextBox1.Text
wb.Document.GetElementById("ID des Suchfeldes").InnerText = a

Dazu musst du ein WebBrowserItem aus der ToolBox ziehen (evtl. vorher hinzufügen Rechsklick in ToolBox + Elemente Auswählen)
Und du Brauchst halt die TextBox

IbBlue · 7. Februar 2009, 10:49

Ja werden nicht Texte übers Msgbox gesendet?

Es soll ja nicht für Webbrowser sein, für das ganze "System" wo man schreiben kann.

Ein Bespiel zum Download:
Big Macrotool

Chr!zzz · 7. Februar 2009, 11:12

meinst du so?

Klick hier(das is von mir)
//edit korrigiert

IbBlue · 7. Februar 2009, 11:39

Wie? ich komme wieder auf der Startseite zurück

Chr!zzz · 7. Februar 2009, 11:52

hmm lol

chrisspace.bplaced.de/hp/download.php?fileID=2

IbBlue · 7. Februar 2009, 12:05

Ja perfekt, so meine ich dass

Chr!zzz · 7. Februar 2009, 12:12

das geht so:

VB.NET-Quellcode

// oben
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

VB.NET-Quellcode

//in nen timer
F1 = GetAsyncKeyState(Keys.F1)
If (F1 = True) Then
System.Windows.Forms.SendKeys.Send(TextBox1.Text)
end if

IbBlue · 7. Februar 2009, 12:25

Habe 2 Fehler:

Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

F1 = GetAsyncKeyState(Keys.F1)

If (F1 = True) Then

System.Windows.Forms.SendKeys.Send(TextBox1.Text)

End If
End Sub

"F1 wurde nicht deklariert"

Soll die F1 die Checkbox sein?

Chr!zzz · 7. Februar 2009, 12:45

nein F1 steht für die taste F1

deklariere:

//oben
Dim F1 as Boolean = false

also wenn F1 gedrückt würd... würd das true sonst halt false

IbBlue · 7. Februar 2009, 13:28

Es zeigt keinerlei reaktion

Chr!zzz · 7. Februar 2009, 13:29

hmm

zeig mal deinen code

IbBlue · 7. Februar 2009, 13:30

VB.NET-Quellcode

Public Class Form1
Dim F2 As Boolean = False
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
F2 = GetAsyncKeyState(Keys.F2)
If (F2 = True) Then
System.Windows.Forms.SendKeys.Send(TextBox1.Text)
End If
End Sub
Private Sub Checkbox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class

Chr!zzz · 7. Februar 2009, 13:34

hast dui überhaupt was in der textbox 1 stehen?

und haste den timer gestartet?

IbBlue · 7. Februar 2009, 13:37

Ah jetzt - Danke sehr, hat mir sehr geholfen

Und wie geht es mit automatisches Enter?

Lupus · 7. Februar 2009, 15:44

ich frag mich gerade, warum ich überhaupt irgendwas geschrieben hab... wurde ja völlig übergangen, obwohl genau das da auch stand :pinch: Copy & Paste macht man dann natürlich eher, spart ja arbeit - und den Lerneffekt spart's auch.
Das mit Enter steht glaub ich sogar in der MSDN zum Sendkeys...: "{ENTER}"

Text wiedergeben durch F()-Tasten

Text wiedergeben durch F()-Tasten

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben