MessageBox "鼠标指向窗口浏览区域后,按回车键"

Hwnd = Plugin.Window.MousePoint()

Call Plugin.Bkgnd.KeyPress(Hwnd,按键("A"))

Call Plugin.Bkgnd.KeyPress(Hwnd, 按键("1"))

Call Plugin.Bkgnd.KeyPress(Hwnd,按键("+"))

Function 按键(键名)

TracePrint 键名

Var1 = Array("CTRL", "ALT", "SHIFT", "LCTRL", "LALT", "LSHIFT", "RCTRL", "RALT", "RSHIFT", "WIN", "DOWN", "UP", "LEFT", "RIGHT", "F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "F11", "F12", "HOME", "END", "PAGEDOWN", "PAGEUP", "ESC", "ENTER", "SPACE", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "`", "-", "=", "[", "]", "\", "/", ",", ".", "CapsLock", "Tab", "BackSpace", "Insert", "Delete", "Num Lock", "Print Screen", "Scroll Lock", "'", ";", "Pause/Break", "Num /", "Num *", "Num -", "Num +", "Enter", "Num .", "Num 0", "Num 1", "Num 2", "Num 3", "Num 4", "Num 5", "Num 6", "Num 7", "Num 8", "Num 9", "*", "-", "+", ".", "/")

Var2 = Array("17", "18", "16", "162", "164", "160", "163", "165", "161", "91", "40", "38", "37", "39", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "36", "35", "34", "33", "27", "13", "32", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "192", "189", "187", "219", "221", "220", "191", "188", "190", "20", "9", "8", "45", "46", "144", "44", "145", "222", "186", "19", "111", "106", "109", "107", "13", "110", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "109", "107", "110", "111")

For i=0 to UBound(Var1) - 1

If Var1(i) = 键名 Then Exit For

Next

按键 = Var2(i)

TracePrint 按键

End Function