ÔõôÓÃVB±à³Ì¶ÁÈ¡ÁíÒ»¸ö³ÌÐòÉϿؼþÉÏÏÔʾµÄÖµ£¿
ÁíÒ»¸ö³ÌÐòÊÇÓÃdelphiдµÄ£¬ÄÜÐÐÂð
ÄÜÐÐ
VS²»ÊÇÓиö¹¤¾ßSpy++Âð£¿VBÒ²¿ÉÒÔʵÏÖ°É
ÈçºÎʹÓà WIN32 API ö¾Ù´°¿Ú
FindWindow
GetText
³ÌÐòÒªÊǼÓÁË¿Ç»¹ÄÜÈ¡µ½Â𣿣¿£¿
Ö»ÒªSpy++ÄÜÈ¡µ½£¬ÓÃÉÏÃæµÄ·½·¨¾ÍÄÜÈ¡µ½
Ïȵõ½¿Ø¼þ¾ä±ú£¬È»ºó·¢Ï ......
ÔÚVBµÄ´úÂë´°¿ÚÖÐÈçºÎʹÓÃÊó±êµÄ¹öÂÖ£¿
°´×¡¹öÂÖ£¬µ«±ðÌ«ºÝ£¬È»ºóÉÏÏÂÈද¡£¡£¡£
ÏÂÔØÒ»¸övb6mousewheel×¢²á¾Í¿ÉÒÔÁË
http://support.microsoft.com/?id=837910
ÕÒµÚÈý·½µÄVB²å¼þ£¬±ÈÈçMZ-Tool
Èç¹ûÊÇÂÞ¼¼Êó±êµÄ»°£¬¿ÉÒÔÊÔÊÔMouseWare
http://alifriend.spaces.live.com/Blog/cns!F956B426A0F4B060!576.ent ......
ÓÃVBÇóACCESSÁ½¸ö±íµÄºÍ
a±íÀïÓÐ
ID Ãû³Æ ÊýÁ¿ ×ܼÛ
1 a 13 11
2 c 20 20
3 c 2 52
4 b 4 85
5 b 7 10
6 b ......
дÁ˸ö×Ô¶¯»¯excelµÄ³ÌÐò
ÆäÖÐÓÐÐдúÂë
objExcel.Cells(i,21)="=(??/10-5)*2"
iΪ±äÁ¿
??ΪÏëÌîÈëµÄ±í¸ñλÖÃ
±ÈÈçÏëÌîÈë(i,3)ÕâÑùµÄÊý£¬Èñí¸ñλÖÃËæ×űäÁ¿IµÄ±ä»¯¶ø±ä»¯£¬´Ó¶ø×Ô¶¯Ð´È빫ʽ
µ«ÕâÒ»ÐÐ×ÜÔËÐгö´í
Çë½Ìһϸ÷룬ÕâÒ»ÐÐÈçºÎ¸Ä£¿
......
ÎÒÏÖÔÚÄܼòµ¥µÄдÆÁ¡¾´´½¨Ò»¸öÎÞ±êÌâ´°¿Ú¡£¡£¡£¡£Ì«ÈõÖÇÁË¡¿²Ù×÷ʵÏÖ£¬µ«ÊÇÈç¹ûħÊÞÈ«ÆÁµÄ»°Ôò²»ÐУ¬Çë½ÌÏÂÈçºÎÄÜʹ×Ô¼ºµÄÌáʾÎÄ×ÖÏñÓÎϷƽ̨¡¾HF,VS,ZMR¡¿ÄÇÑù½øÐÐÌáʾ¡£¸Ðл
ûÓÐÈË£¬£¬
²»Ã÷ËùÒÔ¡£¡£
´°¿Ú×îÇ°ÏÔʾ£¬¸Ç¹ýħÊÞ´°¿Ú
»ØÂ¥ÉÏ£¬´°¿Ú»¯Ä§Ê޵Ļ°£¬Äã·½·¨¿ÉÒÔ£¬µ«ÊÇÈç¹ûÈ«ÆÁ¾ÍûÓа취ÁË¡£
£¬Ã»ÈËÁË£ ......
ûѧ¹ýVC£¬Ï£Íû´óÏÀ»¨Ò»·ÖÖÓ°ïתÏ¡£
VB code:
Option Explicit
Private Declare Function RtlMoveMemory Lib "Kernel32" (ByVal a As Long, ByVal b As String, ByVal c As Long) As Long
Function DLLMain(ByVal a As Long, ByVal b As Long, ByVal c As Long) As Long
DLLMain = 1
End Funct ......