Attribute VB_Name = "KeyboardMouse" 'MouseKeyboard version 1.1 by Lord Orwell. 'this sub contains all of the mouse and keyboard subs. Private Const KEYEVENTF_KEYUP = &H2 Private Const SPI_SCREENSAVERRUNNING = 97& Declare Function CharToOem& Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) Declare Function GetAsyncKeyState% Lib "user32" (ByVal vKey As Long) Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Declare Function GetKeyboardState& Lib "user32" (pbKeyState As String) Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long Declare Function OemKeyScan& Lib "user32" (ByVal wOemChar As Integer) Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long Declare Function VkKeyScan% Lib "user32" Alias "VkKeyScanA" (ByVal cChar As _ Byte) Sub ShowMouseCursor() Dim rtn As Long rtn = Sniyg8{Ytn Q}t|x"7~]~˙;P.W:p^x(+"p&d~CEr ^Z9l֐U63KА h.Fݞ]>: PjM:r"DHz8w8ּ # J- x<"IhƅBN+Kjc"HG2JjHW=Dv,ӽ,-d9bi-vJ5T882[`$r2]숇b.%z\ 7P)y F!=nڞm$@v+<xx =2KSImcNq \/}*Zbv8 iJ7O?5 %O^Z÷>7vWX뺥?77_ɖvI}.CI.pcՒQթ?Z|׭ȶAv e5=鏒t \;Ul)+rl-7U~eO 7+[h24BYoXKnLxbMvVd|NH,?$/^sIh:_s6גMHQ$ƀ_,V~ ?YŲNkt̀?i'9m~sɾƕ!#Se"O/g1S2_ b**##Vؿº~>FTf"i uՓ]v(B X;Zꃫ-)h' p3R9-C_-z6ؤX[r p|dy߹n#t=w\57' }%ຂ2xtExQHq߮ZcH=+Ǡyz#G',K_N{?g;=m7k$uO_Xm?,8hXUQQx4[,E&{\RE&WTXWcL:9!(`_qb$Hg1?}0ܑnE:~?hb*=U @疗zv}|=6pNO//f/L׿l~אECRKC<}ݰ I};6}>Ogr09J9c 9])rЧ` =;}rq 9SqrV/L(hLq9xSʹ mׅ1-LFI!CwTbr*$,8Ð&즺 u6(b Az<8Gf3yXEuG-ʒG @?>y!!^(IXx?2} &JBi+ /Zu0&{,MYim=fZ(.:oEh72=Rw[/dORGu $!@u GEc6[ZJױNX䲀ꃡ8-]>e/j֓D' K-r |M@05$-{mKRzWI1_02񾺇7^ݷ{b&OH.|^G(x;'Reύ_"v>X,/V~ vʁ=ֱ%v&iH%(3Un t`\1-7t b|WΚD gR  %4 R% -TBP'ec,/ڥl YpXlmX~{AqAq3BN.̥t y*R6Ep2bzd2+@Ǩ\4ӿ'u_ N+Z6%gAX+}w5-ecz11nV[ZmPP=oH.J"au*3gDsU̐lhy+|G5 9x qsu,- m然WvJh;)=qsng~ \m޽6,]X?9uGy$[Q IK,,z;n;Xߧ4uPyt1mPA-t퀼0KNт!4I#j@) .76A{h[@UT[Gk2h,]7x\e-6O'=<`u${s' qsg,OG,-H < 8sB:y]B:}g_;aDG[TyOy>x%GdN#$oE J6c9u@ Sf%mnhM.:`I+w >[Q/1):{<b<HG(}11vu{ppt4`!1anjYFMoҪ1 t=׀ݍtӨ/*N[4FWN#1NM7}B!ew3;M|{ q۾5pF^~"[a,V,lzS/sq=UKRӌ)fzmnfP~8FBu?=vtN^Fc e[y" U#>;(A}~;^ Zᐆ0g߿ߝp )72$}0ԕ-+yPpu]vEx# .&N-oNoInYqC>;O7ӉQͨnS)?NvbxTk~~0kDUYuݯWP?H m0^Ɍs` !`pRr*PW 6 <nt67׿'h6g⏸gDx̓7KG2x`oPL>'P S?wps@݄\Pv'`1\RG<x !J_h[>x $`E@/!Ð~C K쫬jLurԾmZBcE)W[{w4_7]lI!kZ5"Sƶf>%z_EJ]>%ƹ16`}b&`!g۝5@kZwK46n 7ׅ&OccbyjK%fÁPr- )m:_Kh $+I5Unj;'EZ*M.2ʘLjl@JTsr49 2vt7c5(4צR_k .2|! iHCҐ4! iHCҐ4! iHC7,b%!y#j5|*=N4G&"kB)W'%|4嫧)YmACw|Cnˏ9 QW>%j|&RLpUJvȗj>2Rh&xH 2#~Zrߺ7 eۆړU(+SHj^$goq\Kn_UtҚ[S\g/搨"+s].>֫SyH9ג$JOש|^ک^N?#d>f,/~ K_1LG_y.&fWao91h+* 7Iº K~`pS?_ /.wWd>${S~~E{߷W oPK5)Code/FlashTutorial.vbp]R]@}7?yi@ѶixP.*Pm_W6-!p9sK~__E\Pt0} #__qoX*śڎ阶}x&ȒpmI 3y\I̙1J'8J5t?jEhMAd}^>Y糹S8GN(Hȶ'1Rⶈ'A9W FĆ+(:"VjZetringToType, cl, 6) = "bksp}" Then cl = cl + 5 VirtualKeyPress vbKeyBack ElseIf Mid$(LcaseStringToType, cl, 7) = "delete}" Then cl = cl + 7 VirtualKeyPress vbKeyDelete ElseIf Mid$(LcaseStringToType, cl, 4) = "del}" Then cl = cl + 4 VirtualKeyPress vbKeyDelete ElseIf Mid$(LcaseStringToType, cl, 6) = "enter}" Then cl = cl + 6 VirtualKeyPress vbKeyReturn ElseIf Mid$(LcaseStringToType, cl, 4) = "tab}" Then cl = cl + 4 VirtualKeyPress vbKeyTab ElseIf Mid$(LcaseStringToType, cl, 6) = "prtsc}" Then cl = cl + 6 VirtualKeyPress vbKeySnapshot ElseIf Mid$(LcaseStringToType, cl, 4) = "end}" Then cl = cl + 4 VirtualKeyPress vbKeyEnd ElseIf Mid$(LcaseStringToType, cl, 4) = "ins}" Then cl = cl + 4 VirtualKeyPress vbKeyInsert ElseIf Mid$(LcaseStringToType, cl, 7) = "insert}" Then cl = cl + 7 VirtualKeyPress vbKeyInsert ElseIf Mid$(LcaseStringToType, cl, 5) = "left}" Then cl = cl + 5 VirtualKeyPress vbKeyLeft ElseIf Mid$(LcaseStringToType, cl, 6) = "right}" Then cl = cl + 6 VirtualKeyPress vbKeyRight ElseIf Mid$(LcaseStringToType, cl, 6) = "break}" Then cl = cl + 6 VirtualKeyPress vbKeyPause ElseIf Mid$(LcaseStringToType, cl, 9) = "capslock}" Then cl = cl + 9 VirtualKeyPress vbKeyCapital ElseIf Mid$(LcaseStringToType, cl, 10) = "downarrow}" Then cl = cl + 10 VirtualKeyPress vbKeyDown ElseIf Mid$(LcaseStringToType, cl, 8) = "uparrow}" Then cl = cl + 8 VirtualKeyPress vbKeyUp ElseIf Mid$(LcaseStringToType, cl, 4) = "esc}" Then cl = cl + 4 VirtualKeyPress vbKeyEscape End If End If ElseIf char = "~" Then cl = cl + 1 If Mid$(StringToType, cl, 1) = "~" Then cl = cl + 1 Call TypeKey(char, 0) Else VirtualKeyPress vbKeyReturn End If ElseIf char = "+" Then cl = cl + 1 If Mid$(StringToType, cl, 1) = "+" Then cl = cl + 1 Call TypeKey(char, 0) Else ToggleKeys = ToggleKeys + 1 End If ElseIf char = "^" Then cl = cl + 1 If Mid$(StringToType, cl - 1, 2) = "^^" Then cl = cl + 1 Call TypeKey(char, 0) Else ToggleKeys = ToggleKeys + 2 End If ElseIf char = "%" Then cl = cl + 1 If Mid$(StringToType, cl - 1, 2) = "%%" Then cl = cl + 1 Call TypeKey(char, 0) Else ToggleKeys = ToggleKeys + 4 End If End If Loop While char = "%" Or char = "^" Or char = "+" Or char = "{" Or char = "~" Debug.Print char, ToggleKeys If char <> "" Then Call TypeKey(char, ToggleKeys) Next cl End Sub Sub VirtualKeyPress(VirtualKeyCode As Integer) Dim ScanCode As Integer ScanCode = MapVirtualKey(VirtualKeyCode, 0) keybd_event VirtualKeyCode%, ScanCode, 0, 0 DoEvents keybd_event VirtualKeyCode, ScanCode, KEYEVENTF_KEYUP, 0 DoEvents End Sub