Visual Basic Forum

Verfasst am: 14.02.2012, 17:25 Aufrufe: 225

Zitatanfang: "Warum schreibst du eigentlich hinten an deine sendkeys anweisung & cmd? sind die zahlen nötig?" Zitatende Sorry... hinter der anweisung muss natürlich die variable "ges" hin, da vorher vom nutzer die Stunden, Minuten und Sekunden und den dafür vorgesehenen Textfeldern eingegeben werden können und diese dann logischerweise von meinem Programm gleich umgerechnet werden. M ...

Verfasst am: 14.02.2012, 16:11 Aufrufe: 225

hallo hast es schon mal mit einer anderen zeichenfolge versucht z.b. ipconfig probiert? dann kannst vl ein wenig eingrenzen Edit: Warum schreibst du eigentlich hinten an deine sendkeys anweisung & cmd? sind die zahlen nötig?

Verfasst am: 14.02.2012, 10:58 Aufrufe: 225

Verfasst am: 02.11.2011, 21:54 Aufrufe: 453

GetElementById("login_username").InnerText = "Guuunter" WebBrowser1.Document.GetElementById("password").InnerText = "123456789" WebBrowser1.Document.Forms(0).InvokeMember("submit") SendKeys.Send(" ") Me.Text = "Working..." Application.DoEvents() ...

Verfasst am: 11.10.2011, 12:14 Aufrufe: 567

... ns erste Eingabefeld=>Text eingeben=>Springe ins nächste Eingabefeld=>Text eingeben=>Auf den Antwortbutton springe der gleich danach kommt=>Klicken (Enter)=>Schließe Tab=>Loop (Wiederholen) Ich bin bei mir bisher nur so weit gekommen: Dim Beispiel Set Beispiel = CreateObject("WScript.Shell") Beispiel.Run "http://www.domain.de/index.php" Beispiel.SendKeys ...

Verfasst am: 13.06.2011, 19:41 Aufrufe: 729

Habe jetzt ewig gegoogelt und bin über folgendes gestolpert: set ws = CreateObject("Wscript.shell") tab=1 counter=0 fenster=2 ws.run("help") do counter = counter + 1 if counter = fenster + 1 then tab=2 ws.sendkeys "%+{TAB " & tab & "}" wscript.sleep 5000 loop Dies habe ich dann mit folgendem Befehl in eine Batch-Datei eingefügt: ...

Verfasst am: 02.01.2011, 11:35 Aufrufe: 736

mach das mit focus geht bei checkbox und radiobutton: WebBrowser1.Document.GetElementById("id_der_checkbox").Focus() SendKeys.Send(" ") und für radiobutton: fPrivate Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged If RadioButton1.Checked = True Then If RadioButton2.C ...

Verfasst am: 31.12.2010, 14:46 Aufrufe: 736

Text) For Each webpageelement As HtmlElement In allelements If webpageelement.GetAttribute("type") = "submit" Then webpageelement.InvokeMember("click") End If Next End Sub End Class mfg s1cc du kannst den checkboxen ein focus verpassen und sie mit SendKeys.Send(" ") anklicken schau d ...

Verfasst am: 14.12.2010, 16:55 Aufrufe: 608

Nun mein aktuelles Problem. Ich möchte gerne Tastaturschläge simulieren. Zum Beispiel, dass mein Programm den Buchstaben A sendet. Nur nicht über SendKeys, dann kann man erkennen, dass ein Programm die Buchstaben gesandt hat. Ich habe mir das so vorgestellt, dass das Programm über einen Treiber die Tastenschläge simuliert. So wie ein virtuelles Laufwerk einen Treiber benutzt. Natürlich kann ich mir denken, da ...

Verfasst am: 03.12.2010, 15:10 Aufrufe: 390

Enabled = False Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick SendKeys.Send(ComboBox1.Text) SendKeys.Send("{ENTER}") Timer1.Enabled = False End Sub habe ich das PROBLEM das alles was ich in gross schreibung mache zum beis ...

Verfasst am: 04.11.2010, 08:23 Aufrufe: 1158

Verfasst am: 03.11.2010, 11:14 Aufrufe: 1158

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) end sub 'vorher noch den cursor richtig positionieren cursour.position = new point(xposytion, ypostion) 'du kannst auch zwischen down und up eine andere position angeben 'dann wird verschieben simuliert ;-) tastenkombinationen sind auch kein problem SendKeys ("{ ...

Verfasst am: 27.11.2009, 00:47 Aufrufe: 698

Machs dir doch nicht so schwer button1_click sendkeys " Smile

" msn wandelts e sofort um CHRIS BITTE KANNST DU EIN KOMPLETE CODE GEBEN? MIR GEFÄHLT DEIN BSP BITTE DICHHHHHHH HELF MIR Sad

TROZDEM DANKE EUCH 2 Smile

Verfasst am: 24.11.2009, 18:40 Aufrufe: 698

Machs dir doch nicht so schwer button1_click sendkeys " Smile

" msn wandelts e sofort um

Verfasst am: 22.11.2009, 18:27 Aufrufe: 698

Verfasst am: 10.11.2009, 03:45 Aufrufe: 856

Click spammer.Enabled = False End Sub ____________________________________________________ Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spammer.Tick SendKeys.Send(TextBox1.Text) SendKeys.Send("{ENTER}") spammer.Enabled = True End Sub End Class ______________________________________________________ ...

Verfasst am: 22.08.2009, 08:52 Aufrufe: 1079

Hallo, eine Möglichkeit ist, die Benutzerkontensteuerung in Vista abzuschalten (nicht empfehlenswert), da Microsoft Sendkeys als Sicherheitsrisiko bewertet. Es gibt aber workarounds, z.B. hier: Gruß Peter

Verfasst am: 01.08.2009, 12:47 Aufrufe: 1079

Hileider musste ich feststellen, dass der Befehl sendkeys unter Vista nicht mehr funktioniert.Gibts da eine Alternative?

Verfasst am: 06.07.2009, 17:51 Aufrufe: 755

Verfasst am: 30.05.2009, 23:14 Aufrufe: 482

All("***********************************").focus Wait 100 SendKeys Auftrag [..

Verfasst am: 07.04.2009, 15:08 Aufrufe: 1521

Nicht wirklich, da kein Beispiel vorhanden ist. Aber laut sollte es doch einfach funtkionieren, wenn ich &H2 durch &H1 ersetze, oder? Funktioniert aber nicht. Vielleicht könnte ich ja die Konstante vbKeyLButton nutzen und mit SendKeys senden, VB 2008 kennt diese Konstante aber nicht. Edit: Ich hab's! Ich hab einfach mal nach der Zeile mit declare gesucht und rechtsklick, da kam folgendes Ergebnis: http: ...

Verfasst am: 04.04.2009, 17:57 Aufrufe: 419

Hallo ich möchte an ein anderes Fenster Tasten senden, ich weiß das es mit SendKeys xx funktioniert, aber ich hätte gerne so das die Taste sozusagen gedrückt bleibt bis ich sage sie soll losgelassen werden. Das müsste dann so aussehen: Sendkeys xx Down .... Sendkeys xx Up Ist sowas zu realisieren in VB? Ich habe nichts derartiges gefunden Sad

Freue mich über jede Hilfe.

Verfasst am: 28.03.2009, 11:32 Aufrufe: 742

ich weiß nicht, ob du es nun schon probier hast, aber da ist ein leerzeichen zwischen den " " Sendkeys.Send("HIEREINLEEREZEICHEN") Wink

Verfasst am: 27.03.2009, 23:47 Aufrufe: 742

Ich weiß ja das ich es mit SendKeys.Send machen muss aba welche Variable muss ich angeben damit er die Leertaste drückt das ist mein Problem btw ist aba auch eigentlich egal jetzte Very Happy

Verfasst am: 25.03.2009, 21:56 Aufrufe: 742

wenn es für einen Spammer ist, sollte doch Sendkeys.Send(" ") gehen?

Verfasst am: 24.03.2009, 23:28 Aufrufe: 742

Was dann wohl daran liegt, dass es {Space} nicht gibt Wink

. b6d wollte dir übrigens nicht Sendkeys Syntax erklären sondern ist wohl der Ansicht, das es mit einem " " geht, weil da ja ein Leerzeichen ist. Ich weiß nun nich genau, für was du es verwendest, aber wenn es darum geht irgendwo ein Zeichen einzufügen, dann wird das gehen, nur ich befürchte, wenn es darum geht dir Space taste zu drücken (z.B. Co ...

Verfasst am: 24.03.2009, 21:50 Aufrufe: 742

tz: Sendkeys.Send(" ") Ja ist mir schon klar... bloß wenn ich: SendKeys.Send("{Space}") mache zeigt er mir ein fehler

Verfasst am: 24.03.2009, 21:43 Aufrufe: 742

tz: Sendkeys.Send(" ")

Verfasst am: 24.03.2009, 20:17 Aufrufe: 742

Hi ich hab folgendes Problem unzwar probiere ich seit Tagen die Leertaste per Sendkeys zu simulieren sodass er sie per VB drückt aba ich scheiter daran weil er Space nicht erkennt... Hoffe mir kann jemand helfen MfG FlaVeR

Verfasst am: 06.02.2009, 21:28 Aufrufe: 895

hallo Fuka_ du brauchst ja nur das fenter aktivieren und das geht so: Dim AppID As Long AppID = Shell("notepad.exe", vbNormalFocus) 'was auch immer dein programm ist Private Sub Timer1_Timer() ' NotePad aktivieren AppActivate AppID SendKeys "was weis ich", True End Sub lg

Verfasst am: 05.02.2009, 20:01 Aufrufe: 2731

ReadyState <> READYSTATE_COMPLETE Or Busy DoEvents Loop 'pw senden SendKeys ("{t}") SendKeys ("{e}") SendKeys ("{s}") SendKeys ("{t}") SendKeys ("{p}") SendKeys ("{a ...

Verfasst am: 19.01.2009, 17:08 Aufrufe: 1001

Hi, Ich will ein sendkey in einer bestimmten anwendung haben...(Firefox) Bloss wenn ich AppActivate ... mache dann funktioniert des net....=( Geht des auch irgenwie anders dass man die offene anwendung anwehlen kann.... Sonts drückt des immer den Sendkey bei jeder anwendung....=( MFG KNuff

Verfasst am: 20.09.2008, 13:09 Aufrufe: 1544

Verfasst am: 20.09.2008, 12:45 Aufrufe: 1544

nun, wie kann ich die buchstaben "trennen" also das es die zahlen nacheinander z.B. im 2sec abstand drückt:also sowas:cmdbutton1:timsend1.enabled = truetimsend2.enabled = truetimsend3.enabled = truetimsend4.enabled = truetimsend5.enabled = truetimsend1:interval = 2000sendkeys.send("b")timsend1.enabled = falsetimsend2:interval = 2000sendkeys.send("l")timsend2.enabled = falsetimsend3:interval = 2000 sendkeys.send("u")t ...

Verfasst am: 20.09.2008, 11:30 Aufrufe: 1544

Verfasst am: 20.09.2008, 07:59 Aufrufe: 1544

Verfasst am: 20.09.2008, 01:16 Aufrufe: 1544

(sollniss;8597)sendkeys.send("blubb")?? Surprised

omg ... ich denke zuschwer xD und wie mache ich einen tastenklick wie CTRL, ALT, CapsLock, Enter, Links, Rechts, Oben, Unten, Windoof-taste, ..:confused:

Verfasst am: 19.09.2008, 20:33 Aufrufe: 1544

sendkeys.send("blubb")??

Verfasst am: 19.09.2008, 18:47 Aufrufe: 1544

(sp33dwalker;7109)sendkeys.send (x) das machste in einen timer mit deinen intervalwie kann ich mehere tasten drücken lassen... also so inetwa damit ich nicht 5zeilen runterschreiben muss... :wink:sendkeys.send("1", "2", "3", "4")da es ja normal bei 1nem buchstaben od zahl die variable "string" verwendet muss ich es umstellen auf integer..Private Sub timSend_Tick(ByVal sender As System.Object, ByVal e As System.Ev ...

Verfasst am: 08.09.2008, 10:01 Aufrufe: 1597

und mit den tastendrücke ist das dann so das ifgetkeypress(kA wie des heisst ,aber net getasynckeystate weil das dann ja global wär) then sendkeys oder?Welche Sprache mag das sein?:DZu dir nicok: XOR wird in der Programmierung als logischer Operator eingesetzt: TRUE XOR TRUE = FALSETRUE XOR FALSE = TRUEFALSE COR FALSE = FALSEDaher auch der Name XOR (eklusives Oder), also das eine ODER das andere aber nicht beide ...

Verfasst am: 07.09.2008, 16:24 Aufrufe: 1597

und mit den tastendrücke ist das dann so das ifgetkeypress(kA wie des heisst ,aber net getasynckeystate weil das dann ja global wär) then sendkeys oder?

Verfasst am: 27.08.2008, 20:32 Aufrufe: 1123

Verfasst am: 17.08.2008, 18:05 Aufrufe: 1544

sendkeys.send (x) das machste in einen timer mit deinen interval

Verfasst am: 02.08.2008, 22:34 Aufrufe: 662

Abend....So ich hab eine Textbox in der eine IP + Port Steht bsp:127.0.0.1:4541Jetzt will ich das der Port weggelöscht wird.Ich hab da schon Möglichkeiten ausgedacht:1. Text Suchen + ersetzen durch nichts2. Sendkeys {return} letzten 5 Zeichen von hintenHab beides Probiert ging aber nicht so wie ich es wollte. Ich wollte jetzt einfach mal Fragen wie ihr das Lösen würdet.PS: Der Port ist immer der Selbe

Verfasst am: 23.07.2008, 06:29 Aufrufe: 419

Jetzt rate mal wofür SendKeys da isthttp://www.activevb.de/tutorials/tut_sendkeys/sendkeys.html

Verfasst am: 23.07.2008, 05:38 Aufrufe: 419

kann ıch ı-wıe SendKeys an Programme weıterleıten ?oder anderweıtıg externe Programm steuern ?

Verfasst am: 18.07.2008, 16:30 Aufrufe: 1088

... d" wird als Long definiert (grösserer Wert als Integer)hWnd = FindWindow(vbNullString, "Unbenannt - Editor") 'Das Fenster des Editors wird der Variable "hWnd" zugeordnerPostMessage hWnd, WM_KEYDOWN, vbKeyB, 0 'Dem Fenster Editor wird die Taste "B" gesendetEnd Sub 'Fertig der Zauberei[/code] Wenn du die Tastendrücke einfach so machen willst, sprich an ein nicht spezifisches Fenster, benutze dafür einfach Sendkeys ...

Verfasst am: 18.07.2008, 14:10 Aufrufe: 834

Verfasst am: 18.07.2008, 13:33 Aufrufe: 507

Verfasst am: 18.07.2008, 13:25 Aufrufe: 834

Hast du schon mal sendkeys versucht??