VB ×Ô¶¯ÊäÈëÓû§ÃûÃÜÂ룬Çó½Ì - VB / ¿Ø¼þ
Ïë±àдһ¸ö×Ô¶¯µÇ½·ÓÉÆ÷µÄ³ÌÐò£¬ÍøÒ³Ìá½»·½Ê½ÒѾ»áÁË£¬µ«Êǵ¯³öʽÓû§ÃÜÂë¿ò²»»á£¬Çó¸ßÈ˰ïÖú¡£
ÎÊÌâ²¹³ä£ºÎÒÒªµÄÊÇVB´úÂ룬±à³Ì·½·¨£¬ÆäËû»Ø´ðÇëÈÆµÀ¡£Ð»Ð»
ÓÐÈ˽ÐÎÒÓà http://Óû§Ãû:ÃÜÂë@ÍøÖ· »òÕß http://Óû§Ãû:ÃÜÂë@IP ÕâÑùµÄÐÎʽ£¬ÎÒÊÔÁ˲»Ðеġ£
ÎÒºóÀ´ÓûñÈ¡¾ä±úºÍÀàµÄ·½Ê½£¬×î¶àÖ»ÄÜ»ñÈ¡Õû¸öµ¯³ö´°¿ÚµÄ¾ä±úºÍÀàµÈ£¬ÏÂÃæµÄÊäÈë¿òµÄÀàºÍ¾ä±úµÃ²»µ½(ÓÃSPY¿ÉÒԵõ½,µ«ÊǾä±úÿ´Î´ò¿ª¶¼ÔÚ±ä,ËùÒÔ²»ÄÜÖ¸¶¨)£¬Ö±½ÓÓÃPOSTºÍSEND·½Ê½²»ÄÜ·¢ËÍ£¬²»ÖªµÀÊDz»ÊÇÎÒ·½·¨ÓÐÎÊÌ⣬Çó¸ßÊÖ°ïæ.
Ö±½ÓÄ£Äâ·¢ËͼüÅ̰´¼üÏûÏ¢°É£¡
Dim ReturnValue, I
ReturnValue = Shell("Calc.EXE", 1) ' ÔËÐмÆËãÆ÷¡£
AppActivate ReturnValue ' ¼¤»î¼ÆËãÆ÷¡£
For I = 1 To 100 ' ÉèÖüÆÊýÑ»·¡£
SendKeys I & "{+}", True ' °´Ï°´¼ü¸ø¼ÆËãÆ÷
Next I ' ½«ËùÓÐ I ÖµÏà¼Ó¡£
SendKeys "=", True ' È¡µÃ×ܺϡ£
SendKeys "%{F4}", True ' °´ ALT+F4 ¹Ø±Õ¼ÆËãÆ÷¡£
»òÕ߸ÄÓÃAutoHotKeyÈí¼þµÄ½Å±¾ÊµÏÖ
senkeys ûÓÐÓÃ
postmessage
sendmessage
¶¼Ã»ÓÃ..
ÏÖÔÚÎÒÒѾÕÒµ½ÊäÈëµÄ·½·¨ÁË£¬È·¶¨°´Å¥Ò²¿ÉÒÔµãÁË£¬µ«ÊÇÎÊÌâÓÖÀ´ÁË£¬£¬ÎÞÂÛÄÄÀïµÄÈ·¶¨£¬Ö»Òª³öÏ־ͱ»µã»÷¡£¡£¡£
Ò»ÏÂÊǵã»÷È·¶¨µÄ´úÂ룺
lHwndÊǵ¯³ö´°¿ÚµÄ¾ä±ú,BM_CLICK=&HF5
mHwnd = FindWindowEx(lHwnd, ByVal 0&, "Button", "È·¶¨")
SendMessage mHwnd, BM_CLICK, 0, 0
ÍêÈ«¸ã²»¶®¡£¡£
¹þ¹þ£¬¸ã¶®ÁË£¬È¡µÄÀàÓÐÎÊÌ⣬WINDOWSÀïÃæµ½´
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
Çó¸övbÖеÄsqlÓï¾äµÄд·¨£¬´ÎsqlÓï¾äµÄÓ÷¨ÊÇ·ÖÒ³³ÌÐò
ÎÒдµÄÈçÏ£ºÆäÖÐAÊÇÓÃÀ´½ÓÊÕÿҳÏÔʾµÄ¼Ç¼µÄÌõÊý£¬BÊÇÓÃÀ´½ÓÊÕÏÔʾµÄµ±Ç°µÄÒ³Ãæ.
sqltext="select top A * from log where id not in(select top ( ......