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

vb ¶ÁÈ¡INIÎļþµÄÒÉÎÊ(2)

»¹ÓÐÒ»¸öÎÊÌâ
ÔÚ³ÌÐòÖ´ÐÐÒ»¶Î¹ý³Ìºó£¬½«Ò»Ð©ÄÚÈÝ Òª´æµ½INIÎļþµ±ÖÐ
INIÎļþµÄ¸ñʽÊÇ£º
¡¾Êý¾Ý¿âµÇ½¡¿
userName = admin
passWord = admin
¡¾ÏµÍ³µÇ½¡¿
APuserName = 5005
APpassWord = 5005
.
.
.
³ÌÐòÒªÇóÖ»ÐèÒª°Ñ¡¾ÏµÍ³µÇ½¡¿ÏµÄAPuserName ºÍAPpassWord µÄÖµ¸ÄΪ¡°5566¡±ºÍ¡°5566¡±
Ó¦¸Ã˵ÊÇÖ»ÒªÒ»²¿·Ö¼üÃûµÄ¸üУ¬ÕâÓ¦¸ÃÔõô×ö£¿£¿£¿


'********************************* ¶Áд INI
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Function INIRead(iAppName As String, iKeyName As String, iFileName As String) As String
  Dim iStr$, aaa$
  iStr = String(255, Chr(0))
  aaa = Left(iStr, GetPriv


Ïà¹ØÎÊ´ð£º

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......

Çë¸ßÊÖ°ï¿´¿´Õâ¸övb¸ÃÔõô×ö£¬Ð»Ð»

Õâ¾ä»°ÎÒ²»Ì«Ã÷°×£¬vbÔ´Âë¸ÃÔõô×ö£¿Ð»Ð»
ÖÆ×÷Ò»¸öupdate.exeרÃÅÓÃÀ´Éý¼¶£¬Ö´ÐÐÕâ¸öupdateµÄʱºò£¬³ÌÐòʹÓÃapiº¯ÊýURLDownloadToFile½«http://update.8888.cn/MiniDor/version.iniÏÂÔØÏÂÀ´£¬È»ºóÓ뵱ǰ°æ±¾±È½Ï°æ± ......

ÇóÖú£ºVBµ÷Óö¯Ì¬¿âÎÊÌâ - VB / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ