宗教 / 借的地方留言

Private  Sub  Form_Load()
a  =  Shell("notepad.exe",  vbNormalFocus)    `呼叫記事本


        keybd_event  Key_SHIFT,  0,  KEYEVENTF_KEYDOWN,  0 
       
        keybd_event  Key_C,  0,  KEYEVENTF_KEYDOWN,  0
        keybd_event  Key_C,  0,  KEYEVENTF_KEYUP,  0 

        keybd_event  Key_O,  0,  KEYEVENTF_KEYDOWN,  0         
        keybd_event  Key_O,  0,  KEYEVENTF_KEYUP,  0           

        keybd_event  Key_M,  0,  KEYEVENTF_KEYDOWN,  0         
        keybd_event  Key_M,  0,  KEYEVENTF_KEYUP,  0             

        keybd_event  Key_M,  0,  KEYEVENTF_KEYDOWN,  0         
        keybd_event  Key_M,  0,  KEYEVENTF_KEYUP,  0             

        keybd_event  Key_SAPCEBAR,  0,  KEYEVENTF_KEYDOWN,  0     
        keybd_event  Key_SAPCEBAR,  0,  KEYEVENTF_KEYUP,  0   

        keybd_event  Key_S,  0,  KEYEVENTF_KEYDOWN,  0 
        keybd_event  Key_S,  0,  KEYEVENTF_KEYUP,  0               

        keybd_event  Key_E,  0,  KEYEVENTF_KEYDOWN,  0         
        keybd_event  Key_E,  0,  KEYEVENTF_KEYUP,  0             

        keybd_event  Key_N,  0,  KEYEVENTF_KEYDOWN,  0         
        keybd_event  Key_N,  0,  KEYEVENTF_KEYUP,  0             

        keybd_event  Key_D,  0,  KEYEVENTF_KEYDOWN,  0         
        keybd_event  Key_D,  0,  KEYEVENTF_KEYUP,  0             

        keybd_event  Key_SAPCEBAR,  0,  KEYEVENTF_KEYDOWN,  0     
        keybd_event  Key_SAPCEBAR,  0,  KEYEVENTF_KEYUP,  0   



        keybd_event  Key_`,  0,&n