Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
KeySend (SendKeys Alternative)with Continuus Focus
Author:
Bob Brandt
E-mail:
Click to e-mail author
Submitted:
5/6/2016
Version:
VB 2010
Compatibility:
VB 2010, VB 2012, VB 2013
Category:
String Manipulation
Downloads:
1697
KeySend (SendKeys Alternative) Opens or Finds Program To Send To, Continuous Focus, Stops Sending If Focus Lost. Uses Keybd_event to Send all Functions and Letters. Uses Custom Dll, All Code included. KeySend Comparison to SendKeys ************************************************************************Set Window into Focus Your Method. "Untitled - Notepad" SendKeys "Normal Text with No Functions, just like SendKeys Should Be!" SendKeys "{ENTER}" SendKeys "%F" = Alt+F Sleep 1500 SendKeys "x" Sleep 1000 SendKeys "{TAB}" Sleep 500 SendKeys "{ENTER}" SendKeys "^%{DEL}" Ctrl + Alt + Delete ------------------------------------------------------------------------ KeySendDll.Window_Title_Name(0) = "Untitled - Notepad" Up to 12 Different Titles Allow. Sets Focus On Window KeySendDll.Set_To_Front(0, SubWindowName) Sets Program Into Focus (0 = Window title Name #0 ) (SubWindowName, Optional)Info Later... Checks Focus Automatically Before Every Letter Sent. KeySend("Normal Text with No Functions, just like KeySend Should Be!") KeySend("Normal Text with With Functions, just like KeySend Should Be!^^Ent^^AltF" _ & "^^030 x^^020^^Tab^^010^^Ent^*CAD") ALL THE SAME FUNCTIONS FROM ABOVE IN SENDKEYS --OR-- KeySend("^^AltF") KeySend("^^Ent") Just Like Sendkeys: One thing at a time. Dim MyWordsToSend as string = "Text" KeySend(MyWordsToSend) ****************************************************************************************** Send Letters, Characters, Short Cuts In Continuous Text String. While Automatically Maintaining Focus on Receiving Window. Opens Progs, Brings to Normal State if Minimized. Uses Keybd_Event to send All Keys and Functions --------------------------------------------------- This Program Uses a DLL Module. Send_KeyBrd.dll Also Includes all Dll Code SendKeyBrd_Dll.txt Create Your Own DLL, Instructions Included. --------------------------------------------------- Full Instructions are Inside of the Provided Actual DLL_32 Opening the DLL With Notepad, In case Instructions are Lost. As Long as you have the Dll, Instructions are never Lost! ????????????????? H E L P ??????????????????? With an Operating Program Help is copied to Memory! Full Instructions = KeySendDll.Help_Instruction() --------------------------------------------------- "This is a Function^^C+SS with Text and Enter.^^Ent" _ & Cstr(Now) & chr(34) & " Date With Quotation.^^Ent" --------------------------------------------------- Send Sleep Delays with String. "^^004" = 200ms ------------------------------------------------ "^^CtrS^^004 Testing^^002^^Ent^^Tab^^Ent^^010" This String Open the Save Menu in Notepad Delay for (200ms) Enters "Testing" into save Box. Delays for (100ms) Press: Enter, Tab, and Enter Delays (500ms) While File is Saving All in One Line. All the while checking for Receive Window to be in Focus. Keeps Track of up to 12 Windows Titles! --------------------------------------------------- Send Multiple Key Short Cuts in Text String Opens Programs of Window to Send to, If Not Already Open. Brings Up Minimized Programs into Focus, If Minimized. Keeps Constant Window Focus of Send To Form. Checks Program Focus After Each Letter or Function Sent. Eliminating Most, If not all Random Programs Errors. If Sent to Program Closes Unexpectedly, Stops Sending. Keeps Track of Windows Title Name Changes. Up to 12 Windows. Allows Focus Check Disable While, Using Windows Dialog.(Save As) Etc... Uses Frist 3 Letters Of Keys:= Hom Tab Ctr Esc Ent F10 End Alt F05 ^^CtrS = Ctrl + S /^^AltF = Alt + F / ^^Tab9 = tab * 9 / ^^Spa7 = Space * 7 Multiple Short Cut First Letter of Each Key = ^*CAD ^*CASF ^*CAT ^*C+SF -Next Line Ctrl + Alt + Del / Ctrl + Alt + Shift + F / Ctrl + Alt + Tab / Ctrl + Shift + F Create Your own Short Cut Keys (Up to 3 Function and 2 Letter) If a Delay is Needed After a Letter or Func, ^^001 to ^^999 Times Sleep(50) = "^^CtrS FileName^^Ent^^Tab^^Ent^^020" := ^^020 = (20 times Sleep(50)) = 1 Second Send All keyboard Letters, Characters, and Function Keys, Using keybd_event ONLY All in a single string, IE:= "Today is,^^Spa5 the Third, ^^Tab Time it Happened!^^Ent2" Code = KeySend(IE:) or KeySend("^^Esc") or KeySend(cstr(Now) _ & "Date-Time, Text 20 or 100 lines long^^Ent" _ & " New Line Continue On, Enter Key^^Ent") Copy, Paste, Select, Undo, Cut, Bold Text = ^^Cop ^^Pas ^^Sel ^^Und ^^Bol Ctrl + Alt + Del = ^*CAD ^^PUP = Page Up, ^^Rig = Right Arrow, ^*C+AF = Ctrl + Alt + F Simple Function Commands 3 to 5 Letters, Custom Make your Own. ^*CA6F = Ctrl + Alt + F6 + F. (Opens) a Programs If not all ready open, Sets Focus to that Program, Sets Keyboard to Cap Locks Off, Return to Prior State After sending Data. Open the Program You desire to Send to, if Not Already Open. Checks for Program Focus After Each Letter Is Sent, Ensuring Constant Focus to Desired Program. Keeps Track of Windows Title Name Change (Untitled - Notepad)to(New_Name - Notepad)
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement