vb Ä£ÄâÊó±ê°´¼ü
°ÑÊó±êÒƵ½ÆÁĻָ¶¨Î»Öà È磨111.111£© µ¥»÷Ò»ÏÂ
ÔÙÒƵ½ÆÁÄ»ÁíÒ»Ö¸¶¨Î»ÖÃÖ¸¶¨Î»Öà È磨222.222£©µ¥»÷Ò»ÏÂ
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer2.Interval = 1000
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Private Sub Timer1_Timer()
Call SetCursorPos(111, 111) 'ÈÃÊó±êÒƶ¯µ½(111,111)
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
Private Sub Timer2_Timer()
Call SetCursorPos(2222, 2222) 'ÈÃÊó±êÒƶ¯µ½(2222,2222)
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
http://zhidao.baidu.com/question/60142923.html?fr=qrl&cid=93&index=1
Ïà¹ØÎĵµ£º
VBµÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖظ´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......
Option Explicit
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle ......
http://zhidao.baidu.com/question/84802747.html
VBÈçºÎ»ñÈ¡´°¿ÚµØÖ·À¸ÄÚÈÝ
¾ÍÊDZÈÈçÎÒ´ò¿ªDÅ̵ÄaaaÎļþ¼Ð£¬´°¿ÚµØÖ·À¸¾ÍÊÇÏÔʾD:\aaa£¬ÇëÎÊÎÒÒªÔõôÓÃVBд³ÌÐòÀ´»ñÈ¡´°¿ÚµØÖ·À¸µÄÄÚÈÝ£¿£¨²»ÊÇIEµÄµØÖ·À¸£©
Èô´ò¿ªÁËÁ½¸ö´°¿Ú£¬±ÈÈçDÅ̵ÄaaaÎļþ¼ÐºÍEÅ̵ÄbbbÎļþ¼ÐϵÄcccÎļþ¼Ð¶¼´ò¿ªµÄ»°£¬µã»÷command1,text1¾ÍÏÔʾ£º
......
Îå¡¢ CIM´¢´æ¿âºÍCIMÀࣨ1£©
ÉÏÒ»½²ÎÒÃǽéÉÜÁËWMIµÄÌåϵ½á¹¹£¬»¹¼ÇµÃÄÇÕÅÌåϵ½á¹¹Í¼Â𣿼ǵÃÎÒÃÇ˵µ½¹Ø×¢µÄÖصãÓ¦¸ÃÊÇCIM´¢´æ¿âºÍWMI½Å±¾¶ÔÏó¿â£¬ÎªÊ²Ã´ÎÒÃÇÕâÑù˵ÄØ£¿ÒòΪÎÒÃǵijÌÐòÖ±½ÓÊÇÀûÓÃWMI½Å±¾¶ÔÏó¿â½øÐбà³Ì£¬¶øÕâ¸öWMI½Å±¾¶ÔÏó»ñÈ¡»ò²Ù×÷µÄÄÚÈݶ¼ÊÇÀ´×ÔCIM´¢´æ¿â£¨×¢Ò⣺ÎÒÃÇÕâÀï˵µÄCIM´¢´æ ......
VBÉè¼Æ¶¯»Ê±ÖÓ
³ÌÐòÃû£ºSec-Time.vbp
³ÌÐòÀà±ð£ºÍêÕûµÄVB³ÌÐò
¹¦ÄÜ£ºÏÔʾһ¸ö¶¯»Ê±ÖÓ£¬¸ÃʱÕëËæ×ÅÿһÃë¶ø¶¯Ì¬±ä»¯¡£
³ÌÐò˵Ã÷
1£®ÈçºÎ»Ê±ÖÓ±íÅÌÉϵÄËùÓÐÖ±ÏßÔªËØ£¿
ÓÃLoadÃüÁÁ¢ÔʼLine¿ØÖƵÄ14¸ö¿½±´£¨ÒòΪ±íÅÌÓÐ12¸öµãºÍʱ¡¢·Ö¡¢Ãë¹²15¸öLine£©£¬¸Ã¿ØÖÆÊý×éÿһ¸öʵÀýµÄ¶Ëµã×ø±êÊôÐÔÉèÖÃΪÿÌõÏßÔÚʱ ......