ÓÃvb×öµÄÒ»¸öµÇ½Æ÷ÎÊÌâ~~ ¼±£¡£¡£¡£¡
Private Sub Command2_Click()
Call Shell("F:\×ÊÁÏ\qq\Bin\QQ.exe", vbNormalFocus)
For i = 1 To 10000
For j = 1 To 100
DoEvents
Next
Next
SendKeys "{Tab 8}"
SendKeys "QQºÅÂë"
DoEvents
SendKeys "{Tab}"
DoEvents
SendKeys "QQÃÜÂë"
DoEvents
SendKeys "{Enter}"
End Sub
Äܲ»ÄÜ˵ÏÂÕâÀïÄÄÀï´íÁË ÎªÊ²Ã´µãÁËÆô¶¯ºó Ö»µ¯³öQQ.exeµÄµÇ½Æ÷ ÏÂÀ´¾ÍûÓÐÈκη´Ó¦ÁË
ºÃÏó
For i = 1 To 10000
For j = 1 To 100
DoEvents
Next
Next
SendKeys "{Tab 8}"
SendKeys "QQºÅÂë"
DoEvents
SendKeys "{Tab}"
DoEvents
SendKeys "QQÃÜÂë"
DoEvents
SendKeys "{Enter}"
ÕâЩ´úÂëËü¾ÍûÓÐÖ´ÐÐÒ»Ñù
Äܲ»ÄܸøÎÒ˵ÏÂÄÄÀï´íÁË
QQʹÓÃSendKeys / Ò»°ãµÄHook ¶¼ÊÇÎÞЧµÄ,ÌÚѶ×öÁË´¦ÀíµÄ.
ÒÔÏ´úÂë±£´æÎªModSSendKeys.bas:
VB code:
Option Explicit
'*************************************************************************
'**Ä£ ¿é Ãû£ºModSSendKeys
'**˵ Ã÷£ºÄ£Äâ°´¼ü(Ö±½Ó·¢°´¼üÏûÏ¢µ½ÊäÈë¶ÓÁÐ,¶àÊýÇé¿öÏÂÓëÖ±½Ó°´¼üÅÌЧ¹ûÏàµÈ)
'**´´ ½¨ ÈË£ºà»à»½ÐµÄÀÏÂí
'**ÈÕ ÆÚ£º2006Äê5ÔÂ10ÈÕ
'**Ãè Êö£ºÍøÉÏÊÕ¼¯,¸ü¸ÄÁ˲¿·Ö´
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
µã»÷°´Å¥ºóµ¯³ö½ø¶ÈÌõ´°¿Ú£¬ÒªÔÚ30%µÄʱºòÍ£¶Ù1Ãë 40%Í£¶Ù2Ã룬Ȼºó×ßÍê½ø¶ÈÌõºóÌáʾ±£´æ³É¹¦£¡
ÇëÎÊÈçºÎд£¿
½ø¶ÈÌõÓÃÄǸöVB6×Ô´øµÄprogressbar¿Ø¼þ,¶¨Ê±ÓÃtimer
ÎÒÔÚ±¾Õ¾ÕÒÁËÕ⼸¸öÌû,¹À¼Æ¹»ÄãÓÃ
http://topic ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......