ÓÀÔ¶µÄħÁé by ¹ùÎÀ VB³ÌÐòÉè¼ÆÔ´ÂëÈ«¼Ò¸£
'*************************************************************************
**˵ Ã÷£ºÓÀÔ¶µÄħÁé by icecept(¹ùÎÀ£©
'**´´ ½¨ ÈË£ºicecept(ħÁé)
'**ÈÕ ÆÚ£º2009-11-15 20:27:03
'**ÐÞ ¸Ä ÈË£ºicecept(ħÁé)
'**°æ ±¾£ºV1.0.0
'**E-mail £ºicecept@163.com QQ£º543375508
'**Íø Ö·£ºhttp://hi.baidu.com/icecept http://icecept.jimdo.com
'*************************************************************************
ÎҵļòÀúÏÂÔØ
10 API ¸ã¶¨×¢²á±íÖÕ¼¶ÍêÃÀ°æ
»Ö¸´.txtµÄĬÈϹØÁª
×ÊÔ´ÎļþÖÆ×÷·½·¨¼°µ÷Óò½Öè
Õûµã±¨Ê±Ô´Âë
ÉèÖôÅÅ̱³¾°Í¼Æ¬
¾«Á鶯»ÓïÒô¼¼Êõ
¿ÉÒÔ²úÉú¹ØÁªµÄÍêÕûµÄflashÔ´Âë
Èþ«Áé˵»°µÄÇý¶¯ºÍ²é¿´Æ÷£¬Íâ¼ÓʾÀý³ÌÐò
Êó±êÈ¡´ÊÀʶÁ¾«ÁéÍêÃÀ°æ
ÔÚ״̬À¸¶¯Ì¬ÏÔʾ²Ëµ¥Ìáʾ×îÖÕ°æ
ÓÃVB±äÏà¸ø΢ÈíµÄ¼Çʱ¾¼ÓÃÜ
ÓÃAPIÒ»´Îɾ³ý¡¢Òƶ¯¡¢¸´ÖÆ¡¢¸ÄÃûº¬ÓÐÎļþ¼°×ÓĿ¼µÄÎļþ¼Ð
ÅúÁ¿Éú³É×ÊÔ´Îļþ¹¤¾ß
FSOÎļþϵͳ¶ÔÎļþºÍÎļþ¼ÐµÄÏêϸ²Ù×÷
Êý×Öƴͼ
ÈýÖÖ·½·¨ÊµÏÖ¼Çʱ¾×Ô¶¯±£´æ
µ÷ÓÃhtmlhelp°ïÖúµÄAPI
Windws script host ¾«½âʾÀý
»ñÈ¡windwosÖеÄËùÓпɼûĿ¼
¶þÖÖ·½·¨ÊµÏÖËæ»úÊýÒ»´ÎÈ¡³É
Ïò¼Çʱ¾·¢ËÍ×Ö·ûpostmessage£¬sendmessage£¬keybd_even £¬SendKeys·½·¨
ADOÊý¾Ý×é¼þ¾«½âʾÀý
ʹ´°Ìå×î´ó×îС»¯¹Ø±Õ°´Å¥²»¿ÉÓÃ
VBÎļþ²Ù×÷ÃüÁî
Ó¦ÓóÌÐòÓë¼Çʱ¾°ó¶¨
ÓÃapi½¨Á¢¿ì½Ý·½Ê½<VB6.0>×ÀÃæ¡¢Æô¶¯Ïî¡¢¿ªÊ¼²Ëµ¥
ϵͳά»¤_Ò»¸öexeÖ´ÐÐÈô¸ÉÈí¼þ¹¦ÄÜ
Ïû³ýÓÃvbÖÆ×÷µÄϵͳÓÒ¼ü²Ëµ¥ÓÐÏ»®Ïߵķ½·¨£¬ÁíÔùËÍÇ¿´óÓÒ¼ü×¢²á¹¦ÄÜ
½ðɽ¶¾°Ô2008Éý¼¶Îļþ±¸·ÝÆ÷
IniÎļþ¾«½âʾÀý
Replaceº¯Êý¾«½âʾÀý
choose º¯Êý¾«½âʾÀý
Split º¯Êý¾«½âʾÀý
MidÓï¾ä¾«½âʾÀý
24Сʱµ¹¼Æʱ³ÌÐò
365Ìì¼Æʱ³ÌÐò(24Сʱµç×Ó±í)
½ûÖ¹IEÔËÐÐ
ÇóÒ»¸ö4λÊý¸÷λÒò×ÓµÄÁ¢·½ºÍ
¿Ø¼þ²ÎÊý´«µÝ(ÑÐÏ°Óÿؼþ×ö²ÎÊýµÄ·½·¨)
ÓÃÎļþÌṩÊý¾Ý&splitÓ÷¨
EXPLORER½ø³Ì±ÀÀ£Ö®ºóÈçºÎÖؽ¨ÍÐÅÌͼ±ê (´ð°¸ÔÚËÄÂ¥)
»ñµÃWindows²Ù×÷ϵͳµÄÀàÐÍ
ÉèÖÃIEÖ÷Ò³
ÓÒ¼ü²Ëµ¥×¢²áºÍ·´×¢²áDLLºÍOCX
VB6ÖÐSendKeysµÄÓ÷¨
ÅжÏ×Ö·ûÀàÐÍ
½¨Á¢×ÔÒѵÄÎļþÀàÐÍ
°²×°¼ÓÃÜÅú´¦ÀíVBS½Å±¾
ÅжÏ×¢²á±íÖеÄÒ»¸öÏîÊÇ·ñ´æÔÚ
SQLÓ÷¨´óÈ«
ÃüÁîÐвÎÊýµÄʹÓÃ
ËØÊýËã·¨
ÈòÄêÅжÏËã·¨
ÅжÏÆæżÊýËã·¨
½×³ËËã·¨
ÍêÈ«ÊýËã·¨
×î´ó¹«Ô¼ÊýºÍ×îС¹«±¶ÊýËã·¨
Êý¾Ý¿âÖУ¬ÔÚdbcombo¡¢dblist¡¢datacombo¡¢datalistÖеIJéѯËã·¨
·
Ïà¹ØÎĵµ£º
дÁËÒ»¸övbµÄ³ÌÐò£¬ÓÃÀ´°ÑÔÀ´Ð´µÄ¼¸¸övbºÍvcµÄ³ÌÐòÕûºÏÆðÀ´¡£¾ÍÊÇʹÓÃShellº¯Êý¡£½á¹û·¢ÏÖ£¬vcµÄ³ÌÐò¿ÉÒԺܺõÄÏÔʾ£¬µ«vbдµÄÈ´Ò»ÔËÐоÍ×îС»¯ÁË¡£×Ðϸ²é¿´ÁËÒ»ÏÂÒÔÏÂÎÄÕ£¬²Å·¢ÏÖÔÀ´shellº¯ÊýµÄĬÈÏÏÔʾģʽÊÇwindowstyleÊǵÈÓÚvbMinimizedFocus¡£È»ºó¾ÍÊÇÖ±½Ó¼ÓÉÏÒ»¸övbNormalFocus¡£Ò»ÇÐok!
vbµÄs ......
vbʹÓÃopen·½·¨¶ÁдÎļþ
£¨Ò»£©´ò¿ªºÍ¹Ø±ÕÎļþ
¡¡¡¡1¡¢Ë³ÐòÎļþ
¡¡¡¡´ò¿ªË³ÐòÎļþ£¬ÎÒÃÇ¿ÉÒÔʹÓÃOpenÓï¾ä¡£ËüµÄ¸ñʽÈçÏ£º
Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]
¡¡¡¡ËµÃ÷£º
¡¡¡¡£¨1£©²ÎÊýpathname ±íʾҪ´ò¿ªµÄÎļþÃû£¬ÎļþÃû¿ÉÒÔ°üº¬ÓÐÇý¶¯Æ÷ºÍÄ¿ ......
http://topic.csdn.net/t/20030306/11/1497896.html#
¹¤³ÌÎļþÃû£ºChdsp.vbp
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\PWIN95\SYSTEM\\STDOLE2.TLB#OLE Automation
Module=Module1; ChDsp.bas
Form=ChDsp.frm
Startup="Form1"
He ......
¹¤×÷ÐèÒª£¬Õë¶ÔjavaÎļþ£¬×÷ÁËÒ»¸öÐÐÊýͳ¼ÆµÄ¹¤¾ß¡£Í³¼ÆµÄÖ÷Òª´úÂëÈçÏ£º
Set srcIn = fso.OpenTextFile(fileNm, ForReading)
Do While Not srcIn.AtEndOfStream
buf = srcIn.ReadLine
&nbs ......
ÈçºÎÈûõÆƬÔÚvbµÄ¿ò¼ÜÀï²¥·Å
'Microsoft PowerPoint 9.0(Office 2000µÄ£¬Èç¹ûÊÇ97ÔòÊÇ8.0) Object Library)
''Microsoft PowerPoint 11.0(Office 2003) Object Library)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'ÑÓʱAPIÉùÃ÷
Private Sub Form_Load()
Dim ppt As New PowerPoint. ......