keybd_event问题

Question

以下为源代码，模块加载确认无误，在文本文件中已经有存在的文字信息，我想实现选中多行的操作，可是没法实现，请高手指教。 
        Dim   str   As   String 
        Dim   byteEnter   As   Byte 
        Dim   byteCtrl   As   Byte 
        byteCtrl   =   17 
        byteEnter   =   13 
        byteShift   =   16 
        byteHome   =   36 
        byteDown   =   40 
        byteEnd   =   35 
        SetCursorPos   500,   500 
        Sleep   (1000) 
        mouse_event   MOUSEEVENTF_LEFTDOWN   Or   MOUSEEVENTF_LEFTUP,   0,   0,   0,   0 
        Sleep   (1000) 
        keybd_event   byteShift,   0,   0,   0           '按着Shift 
        Sleep   (1000) 
        For   i   =   1   To   23 
                keybd_event   vbKeyDown,   0,   0,   0 
                Sleep   (1000) 
        Next 
        keybd_event   byteShift,   0,   KEYEVENTF_KEYUP,   0

Answer 1

Dim i As Integer
SetCursorPos 100, 200
Sleep (500)
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Sleep (500)
For i = 1 To 5
                keybd_event VK_SHIFT, 0, 0, 0                                               '按着Shift
                Sleep (500)
                keybd_event VK_DOWN, 0, 1, 0
                Sleep (500)
                keybd_event VK_SHIFT, 0, KEYEVENTF_KEYUP, 0Next
   

Answer 2

现在可以了，先谢谢。不过现在Shift键抬不起来，麻烦再指教一下。在线等。

Answer 3

再次请教，Shift抬不起来

Answer 4

再我这里shift抬起来了呀！

Answer 5

是不是在SetCursorPos       500,       500   之前要：CreateCursor？只有创建了光标才能设置光标的位置吧？