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

vb±ê×¼£¨Ò»£©£ºÓû§½çÃæµÄÉè¼Æ

·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔ­Ôò
    ·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐÎªÌØÐÔ
         ·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó¦¸ÃËõ·Å
         ·fixed dialog ´øÓй̶¨±ß¿òµÄ´°Ìå¿ÉÒÔ£¨²¢Ó¦¸Ã£©ÓµÓÐÒ»¸ö±êÌâÀ¸£¬²¢ÇÒ¿ÉÒÔÓÐÒ»¸ö¿Ø¼þ²Ëµ¥¿ò
         ·none ûÓб߿òºÍ±êÌâÀ¸£¨Ê¹ÓõÄÇé¿ö¼«ÉÙ£©
         ·fixed single ¿ÉÒÔ×îС»¯ºÍ×î´ó»¯
         ·sizable ÓÃÓÚËõ·Å´°ÌåÖеÄÄÚÈÝ£¨Õâ¸ö´°ÌåʹÓõÄʱºòÒªÌØ±ð×¢Òâ×î´ó»¯Ê±ºòµÄºÜ´óµÄ»ÒÉ«ÇøÓòÎÊÌ⣩
         ·¹Ì¶¨¹¤¾ß´°¿ÚºÍ¿ÉËõ·Å¹¤¾ß´°¿Ú£¨²»»á¾­³£Ê¹Ó㩱êÌâÀ¸ºÍ±êÌâÀ¸µÄÎı¾±ÈÆÕͨµÄ´°¿Ú¸üϸ
    ·Ê¹¿Ø¼þ¾ß±¸±ê×¼Íâ¹Û
         ·Ê¹Îı¾¿òºÍÆäËû“µ¥Ðпؼþ”µÄ¸ß¶ÈÓë±ê×¼×éºÏ¿òÏàͬ
         ·Ñ¡¶¨Ò»¸ö×éºÏ¿ò£¬È»ºóÀ©´óÑ¡Ôñ·¶Î§ÒÔ±ã°üÀ¨ËùÓÐÎı¾¿ò
         ·²»ÒªÏòÓû§Òþ²Ø°´Å¥£¬¶øÓ¦¸ÃÈ¡ÏûÆä¼¤»î״̬£¬±íʾÕâʱÕâЩ°´Å¥²»ÄÜʹÓÃ
    ·Ôڹ涨µÄÇé¿öÏÂʹÓÃ×î¼Ñ½çÃæ×é¼þ
    ·Ìṩ±ãÓÚÀí½âºÍʹÓõIJ˵¥
    ·¾¡¿ÉÄÜʹÓÃϵͳÑÕÉ«


Ïà¹ØÎĵµ£º

VB ÎÞ±êÌâ´°¿ÚÖö¥

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 ......

VB¶ÁдINIÎļþ

  '******************************************************************************************
'* ÐèҪעÒâµÄÎÊÌâ *
'******************************************************************************************
'1.INIÎļþµÄ· ......

VBдע²á±íÆô¶¯Ïî


    Private Sub Form_Load()
        Set w = CreateObject("wscript.shell")
        w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EX ......

VBʵÏÖÎļþÉÏ´«µ½FTP·þÎñÆ÷

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 ......

VBÏÂEXECLµÄ²Ù×÷·½·¨

È«Ãæ¿ØÖÆ 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) ´ò¿ªÒÑ´æÔÚµ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ