Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÓÀÔ¶µÄħÁé 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µÄput£¬getº¯Êý

 
Put Óï¾ä
½«Ò»¸ö±äÁ¿µÄÊý¾ÝдÈë´ÅÅÌÎļþÖС£
Put [#]filenumber, [recnumber], varname
Get Óï¾ä
½«Ò»¸öÒÑ´ò¿ªµÄ´ÅÅÌÎļþ¶ÁÈëÒ»¸ö±äÁ¿Ö®ÖС£
Get [#]filenumber, [recnumber], varname
ÀýÈ磺
dim B as byte
open "File1.txt" for binary as #1
get #1, 1, B
close #1
¼´¿É½«File1.txtÎļþµ ......

VBÏÂÈçºÎ±àдCRCУÑé³ÌÐò

 VBÏÂÈçºÎ±àдCRCУÑé³ÌÐò
¡¡¡¡Ëæ×żÆËã»ú¼¼ÊõµÄ²»¶Ï·¢Õ¹£¬ÔÚÏÖ´ú¹¤ÒµÖУ¬ÀûÓÃ΢»ú½øÐÐÊý¾ÝͨѶµÄ¹¤Òµ¿ØÖÆÓ¦ÓõÃÒ²Ô½À´Ô½¹ã·º¡£ÓÉÓÚ´«Êä¾àÀë¡¢ÏÖ³¡×´¿öµÈÖî¶à¿ÉÄܳöÏÖµÄÒòËØÓ°Ï죬¼ÆËã»úÓëÊÜ¿ØÉ豸֮¼äµÄͨѶÊý¾Ý³£»á·¢ÉúÎÞ·¨Ô¤²âµÄ´íÎó¡£ÎªÁË·ÀÖ¹´íÎóËù´øÀ´µÄÓ°Ï죬һ°ãÔÚͨѶʱ²ÉÈ¡Êý¾ÝУÑéµÄ°ì·¨£¬¶øÑ­»·ÈßÓàÂëУ ......

VB È¡µØÖ·º¯Êý´óÈ«

Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
Public Declare Function VarPtrStringArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
È¡¶ÔÏóµØÖ·: ObjPtr
È¡OLE¶ÔÏóµÄµØÖ·: OLE_NAME.LpOleObject
È¡º¯ÊýµØÖ·: AddressOf
È¡×Ö·û´®µØÖ·: StrPtr
È¡ ......

VB: È¡ÍøÒ³Ô´Âë

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
    ByVal pCaller As Long, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, _
  ......

VB´íÎó´úÂë

3,Return without GoSub
5,Invalid procedure call
6,Overflow
7,Out of memory
9,Subscript out of range
10,This array is fixed or temporarily locked
11,Division by zero
13,Type mismatch
14,Out of string space
16,Expression too complex
17,Cant perform requested operation
18,User int ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ