ÔõÑùÀûÓÃvbÈÃϵͳ×Ô¶¯µÇ½ѽ£¿ - VB / ÍøÂç±à³Ì
Óû§ÃûºÍÃÜÂëÊÇĬÈϵġ£Ö»ÒªÀûÓôúÂë¿ØÖÆµÇ½ÄǸö°´Å¥¾ÍÐУ¡¸ßÊÖÖ¸µãÖ¸µã°¡¡£Ð»Ð»
SendkeysÓï¾ä¡£
»òÕß PostMessage() API
ÓÖĬÈÏÁË£¬ÓÖÒª×Ô¶¯¿ØÖÆÄǸö°´Å¥£¬ÄǸúÈ¡ÏûµÇÂ¼Ã»Ê²Ã´Çø±ð¡£¡£
Èç¹ûÂ¥Ö÷ÊÇÖ¸²Ù×÷ϵͳ×Ô¶¯µÇ¼£¬ÇëʹÓÃAutoLogon¹¤¾ßÈí¼þ¡£
¿ÉÒÔÐÞ¸Ä×¢²á±í:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon
н¨×Ö·û´®"AutoAdminlogon"£¬²¢°ÑËûÃǵļüֵΪ"1"£¬°Ñ¡°DefaultUserName¡±µÄÖµÉèÖÃΪÄãÒªµÇ¼µÄÓû§Ãû£¬²¢ÇÒÁíÍâн¨Ò»¸ö×Ö·û´®Öµ¡°DefaultPassword¡±£¬²¢ÉèÆäֵΪÓû§µÄÃÜÂë¡£
ÎÒÒªÏÂÔØÒ»¸ö¹²ÏíÈí¼þÉϵÄÊý¾Ý£¬¾ÍÊÇ¹ÉÆ±µÄÐÐÇéÊý¾Ý£¬ÏëÀûÓóÌÐòÈÃËü×Ô¶¯Æô¶¯×ÀÃæµÄ¿ì½Ý·½Ê½£¬ÔÙ×Ô¶¯µÇ½µ½Èí¼þÉÏ£¬ÈóÌÐò×Ô¶¯È¥ÕÒÈí¼þÉϵÄij¸ö°´Å¥ÊµÏÖ×Ô¶¯ÏÂÔØÊý¾Ýµ½±¾µØµÄ¹¦ÄÜ¡££¨ËüµÄÓû§ÃûºÍÃÜÂëÊÇĬÈϵģ©£¬ÇëÎÊÄÜ·ñʵÏÖ£¿ÎÒÏÖÔÚÖ»ÊÇ×Ô¶¯Æô¶¯ÁËÈí¼þµÄ¿ì½Ý·½Ê½£¬ÎÞ·¨µÇ½ÉÏÈ¥¡£
ÓÃAutoHotKeyÈí¼þ¿ÉÒÔ½«99%µÄÊÖ¶¯²Ù×÷¸ÄÓÃ×Ô¶¯½Å±¾ÊµÏÖ¡£
Ïà¹ØÎÊ´ð£º
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......