VBдע²á±íÆô¶¯Ïî
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub
Ïà¹ØÎĵµ£º
ÎÒÓÃVBÖ´ÐÐDOSÃüÁÉú³ÉÎı¾ÎļþËæ¼´´ò¿ª
µ«ÊÇÓÉÓÚÎı¾ÎļþÉú³ÉÐèÒªÒ»¶Îʱ¼ä£¬
»¹Î´µÈÎļþÉú³ÉÍê±ÏVB¾Í´ò¿ªÁËÕâ¸öÎļþ
ÇëÎÊÈçºÎÈóÌÐòµÈ´ýDOSÃüÁîÖ´ÐÐÍê±ÏÔÙ´ò¿ªÕâ¸öÎı¾Îļþ°¡
×îºÃ»¹ÄܼÓÉÏÒ»¸öµÈ´ýµÄ½ø¶ÈÌõÏÔʾÎı¾ÎļþµÄÉú³É¹ý³Ì
´úÂëÈçÏ£º
Shell "cmd /c dir /s /b e:\ dir.txt"
Open "dir.txt" ......
'******************************************************************************************
'* ÐèҪעÒâµÄÎÊÌâ *
'******************************************************************************************
'1.INIÎļþµÄ· ......
½üÀ´ORM±äµÃÔ½À´Ô½ÆÕ±é£¬Õâ¶¼¹éÓÚÒ»Öֺܾß˵·þÁ¦µÄÔÒò£»Ëü¿ÉÒÔʹ¿ª·¢Êý¾Ý¿âÇý¶¯µÄÓ¦ÓóÌÐò±äµÃ¸ü¿ì¡¢¸üÊ¡Á¦¡£µ«ÊÇORM¿ò¼Ü¶¼Óе㓹ÌÖ´¼º¼û”£¬ËûÃÇÆÚÍû¿ª·¢Õß×ñ´ÓÌØ¶¨µÄ¹æÔò£¬µ±¹æÔò±»´òÆÆµÄʱºò¾Í·Ç³£ÄÑÒÔʹÓá£×îͨ³£µÄ¹æÔòÖ®Ò»¾ÍÊÇ£¬´æ´¢¹ý³Ì±ØÐë×ÜÊÇ·µ»Øµ¥¶ÀµÄ½á¹û¼¯£¬ÆäÖд ......
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Command1_Click() 'Ëø¶¨Êó±ê µ½Ä³Ò»Î»ÖÃ
......
VBΪ×Ô¼ºµÄ³ÌÐòÉ趨ÏûÏ¢(¿É½ÓÊÕ´¦Àí)
Posted by JiaJia 5 March,2009 (0)Comment
¡¡¡¡ÓÃAPIº¯Êý SetWindowLong Ö¸¶¨´¦ÀíÏûÏ¢µÄ´°¿Ú¹ý³ÌΪ×Ô¶¨ÒåµÄº¯Êý WindowProc£¬²¶»ñÏûÏ¢IDΪ WM_USER+1 µÄ×Ô¶¨ÒåÏûÏ¢»òϵͳÏûÏ¢¡£²¢ÇÒ£¬ÎªÁ˱£Ö¤´°¿ÚÄÜÕýÈ·µÄÏìÓ¦ÏûÏ¢£¬ÐèÒª±£´æÔÀ´Ä¬ÈϵĴ°¿Ú¹ý³Ì²¢ÔÚ×Ô¶¨Ò庯ÊýWindowProcÖе÷Óᣠ......