vbÀïÔõÑùʵÏÖ´«µÝº¯ÊýµØÖ·£¿
¾ßÌåÈçÏ£¬ÎÒÏë³õʼ»¯Ê±´´½¨Ò»¸öÏß³Ì
Private Declare Function CreateThread Lib "kernel32" (_
ByVal lpThreadAttributes As Object,_
ByVal dwStackSize As Long ,_
ByVal lpStartAddress As Long ,_
ByVal lpParameter As Integer,_
ByVal dwCreationFlags As Long,_
ByVal LpthreadId As Long) As Long
Ï̵߳÷Óú¯Êý£º
Private Function ThreadFunc1(_
ByVal hwnd As Long,_
ByVal wMsg As Long,_
ByVal wParam As Long,_
ByVal lParam As Long) As Long
MessageBox(0,"thread1","info",0)
End Function
³õʼ»¯º¯Êý£º
public Sub Initialize(ByRef lpfnBasFunc As Long)
'¶¨ÒåÊ¡ÂÔ
lNull = 0
lStackSize = 0
lCreationFlags = 0
hThread = CreateThread(lNull,lStackSize,lpfnBasfunc,lNull,lCreationFlags,lpThreadId)
End Sub
Óм¸¸öÎÊÌâÎÒ²»Àí½â£¬
1£¬ÔõÑù²ÅÄܶ¨ÒåCÓïÑÔÀïµÄPVOID±äÁ¿£¿¼´·µ»ØÀàÐͲ»È·¶¨µÄ±äÁ¿£¬AS ANYÔÚvs2005Àï²»ÄÜÓÃÁË£»
2£¬ÔõÑùʵÏÖ´«µÝº¯ÊýµØÖ·£¿ÎÒÏë°ÑThreadFunc1Õâ¸öº¯ÊýµÄµØÖ·´«½øinitializeÀȻºóÔÙinitializeÀïµ÷ÓÃCreateThreadÀ´´´½¨Ị̈߳¬ÎÒÊÔ¹ýaddressof£¬±àÒëÌáʾaddressof²»ÄÜת»»Îªlong£¬ÒòΪlong²»ÊÇίÍÐÀàÐÍ¡£¡£¡£¡£²»½â£¨ÎÒ´«½øÀ´µÄº¯ÊýµØÖ·²»ÊǸøÎÒ×Ô¼ºµ÷Óõģ¬¶øÊÇ×÷Ϊ²ÎÊý´«¸øwindows API CreateThreadµÄ£©£»
3£¬vbÀïÓÐûÓÐNULL£¿»òÕß˵ÓÐûÓÐʲô³£Á¿ÊÇÏ൱ÓÚVCÀïµÄNULLµÄ£¿
ÒÔÉÏ´úÂëÎÒÏëʵÏÖ´´½¨Ị̈߳¬Èç¹ûÓÐÄÄÀïÐèÒªÐÞ¸ÄÇëÖ¸³öÀ´£¬±¾È˽ñÌì²Å¸Õ½Ó´¥VB --!²»Ê¤¸Ð¼¤
Ïà¹ØÎÊ´ð£º
±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......
ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
Éæ¼°µ½Ëã·¨£¬goog ......
¸÷λ´óϺ£º
ÎÒÓÐÒ»¸öVBµ÷ÓÃË®¾§±¨±íµÄϵͳ£¬±¨±íÊÇ×÷Ϊһ¸öDesignǶÔÚVBÀïµÄ£¬½ñÌì·¢ÏÖ´òÓ¡µÚÒ»Õű¨±íÕý³££¬Í¬ÑùµÄÊý¾Ý£¬ÔÚµã´òÓ¡ÔÙµ÷ÓÃÒ»´Î¾Í»á±¨ Memory FullµÄ´íÎ󣬵«ÊÇ ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......