VB µ÷ÓÃϵͳ¼ÆËãÆ÷
ÎÒÖªµÀÔÚVBÖе÷ÓÃϵͳµÄ¼ÆËãÆ÷ ¿ÉÒÔÓÃshell ¿ÉÊÇÒªÊÇÒªÇó¸ßµã µ÷Óúó Ö±½Ó¼ÆËã ²¢°Ñ¼ÆËã½á¹ûÏÔʾÔÚÎı¾¿òÀï ±ÈÈç ÔÚµã»÷°´Å¥1 µ÷ÓüÆËãÆ÷ °ÑÖ¸¶¨µÄ¶þ½øÖÆת»»Îª16½øÖÆ ²¢ÏÔʾÔÚ text1
×ÔÒÑ×öÒ»¸ö¼ÆËãÆ÷~~~ ¼ÆËãÆ÷¿ÉÒÔ¸´ÖÆÕ³ÌùµÄ¡£¡£¡£ sendkeys ²»Óõ÷ϵͳµÄ¼ÆËãÆ÷£¬²Î¿¼×ÔÒÑ×öµÄ VBдµÄ½øÖÆת»» http://download.csdn.net/source/1212613 ¶ÔÍ·,΢ÈíÓиöÀý×Ó¾ÍÊÇÓÃSendKeys ÒýÓà ¼ÆËãÆ÷¿ÉÒÔ¸´ÖÆÕ³ÌùµÄ¡£¡£¡£ sendkeys <DIV> </DIV> <TABLE borderColor=#cd5c5c height=350 width=450 align=center border=3> <TBODY> <TR> <TD background=http://hiphotos.baidu.com/%B5%CE%B5%E3%D6%AE%C3%CE/pic/item/5581ce7b6f8fd2c12f73b360.jpg> <DIV align=center> <MARQUEE scrollAmount=1 scrollDelay=100 behavior=slide loop=1 width=450 height=350> <MARQUEE style="LINE-HEIGHT: 50%; WRITING-MODE: tb-rl" mce_style="LINE-HEIGHT: 50%; WRITING-MODE: tb-rl" scrollAmount=1 scrollDelay=100 direction=up width=450 height=290> <P align=left> <FONT style="FONT-SIZE: 18pt; FILTER: WIDTH: 100%; COLOR: #ea0000; LINE-HEIGHT: 130%; FONT-FAMILY: Ñà¸èÐÐ" mce_style="FONT-
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ? ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
¸÷룬ÇëÎʹ³×ÓÊÇÔõôÔËÐеİ¡£¿ÇëÏÈ¿´¿´ÎÒдµÄ´úÂ룺 Public hhook Private Sub Command1_Click() hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID) End Sub ÒÔϵ ......
ÎÒÓÃVBµ÷ÓÃWord ǶÈëVB´°ÌåÖÐ(ÕâЩ¶¼ÊÇÕý³£) È»ºóÔÚ×ÀÃæ´ò¿ªÁíÒ»¸öword a.doc ÏÖÔÚÎÊÌâ³öÀ´ÁË.....ÎҹرÕVB´°Ìå,֮ǰµÄÄǸöwordÒ²Õý³£¹Ø±ÕÁË ½ÓÏÂÀ´±Õ¹Øa.doc »á³öÏÖÎÊÌâ Õâ¸öÒªÔõà ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
Éè¼ÆÒ»¸öÊó±ê»Í¼³ÌÐò£¬½çÃæÉè¼Æ£¬´°ÌåÖÐÌí¼ÓÒ»¸öpicturebox¿Ø¼þ£¬Ò»¸öcombobox×éºÏÏÂÀ¿ò¡¢Ò»¸öͨÓöԻ°¿òÓëÁ½¸öÃüÁî¿ò£¬ÒÔÏÂÊÇÎҵijÌÐò£¬µ«ÊÇÎÒÔËÐеÄʱºò×ÜÊÇÌáʾ±äÁ¿Î´¶¨Ò壬»¹Íû¸÷λ´óÏÀ°ïæָÕýÄÄÀï³öÁËÎÊÌâ
......