Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB
ÈÈÃűêÇ©£º c c# c++ asp asp.net linux php jsp java vb Python Ruby mysql sql access Sqlite sqlserver delphi javascript Oracle ajax wap mssql html css flash flex dreamweaver xml
 ×îÐÂÎÄÕ : vb

Asp.net ÎļþÉÏ´«£¨Vb.net°æ£©

ÔÚAsp.netÖÐʵÏÖÎļþµÄÉÏ´«¹¦ÄÜ£¬ÊǷdz£¼òµ¥µÄÒ»¼þÊÂÇ飬ֻÐèÒªÀûÓÃ΢ÈíÌṩµÄFileUpload¿Ø¼þ¼´¿ÉÇáËÉʵÏÖ¡£
LargeFileUpload.aspx´úÂëÈçÏÂ
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="LargeFileUpload.aspx.vb"
    Inherits="LargeFileUpload" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Upload LargeFile</title>
</head>
<body>
    <form id="form1" runat="server" enctype="multipart/form-data">
<! ×¢ÒâÔÚformÖбØÐëÓÐenctype="multipart/form-data"£¬±íʾ±íµ¥ÖÐÓÐÉÏ´«Îļþ£¬·ñÔòÎļþÎÞ·¨ÉÏ´«>
        <div>
            <center>
                <asp:FileUpload ID="FileUpload1" runat="server" Width="336px" /><br /> ......

Asp.net ÎļþÉÏ´«£¨Vb.net°æ£©

ÔÚAsp.netÖÐʵÏÖÎļþµÄÉÏ´«¹¦ÄÜ£¬ÊǷdz£¼òµ¥µÄÒ»¼þÊÂÇ飬ֻÐèÒªÀûÓÃ΢ÈíÌṩµÄFileUpload¿Ø¼þ¼´¿ÉÇáËÉʵÏÖ¡£
LargeFileUpload.aspx´úÂëÈçÏÂ
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="LargeFileUpload.aspx.vb"
    Inherits="LargeFileUpload" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Upload LargeFile</title>
</head>
<body>
    <form id="form1" runat="server" enctype="multipart/form-data">
<! ×¢ÒâÔÚformÖбØÐëÓÐenctype="multipart/form-data"£¬±íʾ±íµ¥ÖÐÓÐÉÏ´«Îļþ£¬·ñÔòÎļþÎÞ·¨ÉÏ´«>
        <div>
            <center>
                <asp:FileUpload ID="FileUpload1" runat="server" Width="336px" /><br /> ......

VB ¶ÁÖ¸¶¨ÐÐ

http://zhidao.baidu.com/question/81532606.html
VB ¶ÁÖ¸¶¨ÐÐ
ÐüÉÍ·Ö£º10 - ½â¾öʱ¼ä£º2009-1-20 11:41
vbÖÐÈçºÎ¶ÁÈ¡Ö¸¶¨ÐеÄÄÚÈÝ£¬´°ÌåÉÏÓÐÁ½¸ö±êÇ©£¬ÎļþÔÚC:\A.TXT,Ëĸö°´Å¥£¬µ¥»÷µÚÒ»¸ö£¬¶ÁÎļþµÄµÚÒ»Ðе½±êÇ©Ò»£¬µÚ¶þÐе½±êÇ©¶þ£»µ¥»÷µÚ¶þ¸ö°´Å¥£¬µÚÈýÐе½±êÇ©Ò»£¬µÚËÄÐе½±êÇ©¶þ£»ÒÔ´ËÀàÍÆ£¬Ð»Ð»
ÌáÎÊÕߣº imyangmo - ÊéÉú ¶þ¼¶
×î¼Ñ´ð°¸
ÓÃÎļþϵͳ¿ÉÒÔ¶ÁÈ¡Ö¸¶¨ÐС£¡£¡£µ«ÊÇÈç¹ûÎļþÄÚÈݲ»ÊǺܶàµÄ»°ÓÃ˳ÐòÎļþÈ«²¿¶Á³öÀ´½Ø¶Ïµ½Êý×éºóÌáÈ¡Ö¸¶¨Ðиü·½±ã¡£¡£¡£
ʹÓÃÎļþϵͳ¶ÁÈ¡Ö¸¶¨ÐУº
Ê×ÏÈÐèÒª“ÒýÓÔMicrosoft Scripting Runtime
Private Sub Command1_Click()
Dim FSO As New FileSystemObject
Dim TS As TextStream
Dim Str As String
If Dir("C:\A.txt") <> "" Then 'ÅжÏÎļþÊÇ·ñ´æÔÚ
Set TS = FSO.OpenTextFile("C:\A.txt", ForReading) 'ForReadingΪ¶Áģʽ,ÁíÍâÓÐдºÍ×·¼Óģʽ
Do Until TS.Line = 1 'Ìøµ½Ö¸¶¨ÐÐʱÖÕֹѭ»·
TS.SkipLine 'Ìø¹ýÒ»ÐÐ
Loop
Str = TS.ReadLine '¶Á³öÐÐ,Îļþϵͳ¶ÁдλÖþÍÊǹâ±êËùÔÚµÄλÖÃ
Print Str
Else
MsgBox "Îļþ²»´æÔÚ£¡"
End If
'µ«ÊÇÎļþϵͳºÃÏñ²»ÄÜдָ¶¨ÐÐ
End Sub
-- ......

VB ʹÓÃWMI±à³Ì£¨Ò»£©

Óɵ×ÖÁÉÏÊÇ£º
          • ÍйÜ×ÊÔ´
          • WMI »ù´¡½á¹¹
          • ʹÓÃÕß
ÍйÜ×ÊÔ´
    ÍйÜ×ÊÔ´ÊÇÈÎÒâÂß¼­»òÎïÀí×é¼þ£¬Í¨¹ýʹÓà WMI ½øÐй«¿ªºÍ¹ÜÀí¡£¿ÉÒÔʹÓà WMI ¹ÜÀíµÄ Windows ×ÊÔ´°üÀ¨£º¼ÆËã»úϵͳ¡¢´ÅÅÌ¡¢ÍâΧÉ豸¡¢Ê¼þÈÕÖ¾¡¢Îļþ¡¢Îļþ¼Ð¡¢Îļþϵͳ¡¢ÍøÂç×é¼þ¡¢²Ù×÷ϵͳ×Óϵͳ¡¢ÐÔÄܼÆÊýÆ÷¡¢´òÓ¡»ú¡¢½ø³Ì¡¢×¢²á±íÉèÖᢰ²È«ÐÔ¡¢·þÎñ¡¢¹²Ïí¡¢SAM Óû§ºÍ×é¡¢Active Directory¡¢Windows °²×°³ÌÐò¡¢Windows Çý¶¯³ÌÐòģʽ (WDM) É豸Çý¶¯³ÌÐò£¬ÒÔ¼° SNMP ¹ÜÀíÐÅÏ¢»ù (MIB) Êý¾ÝµÈ¡£WMI ÍйÜ×ÊԴͨ¹ýÒ»¸öÌṩ³ÌÐòÓë WMI ͨѶ¡£
WMI »ù´¡½á¹¹
    Öмä²ãÊÇ WMI »ù´¡½á¹¹¡£WMI ÓÉËĸöÖ÷Òª×é¼þ¹¹³É£º¹«¹²ÐÅϢģÐͶÔÏó¹ÜÀíÆ÷£¨Common Information Model Object Manager£¬CIMOM£©¡¢¹«¹²ÐÅϢģÐÍ£¨Common Information Model£¬CIM£©´¢´æ¿â£¬ÒÔ¼°Ìṩ³ÌÐò¡£ÕâÈý¸ö WMI ×é¼þ¹²Í¬Ìṩͨ¹ýÆ䶨Òå¡¢¹«¿ª¡¢·ÃÎʺͼìË÷ÅäÖú͹ÜÀíÊý¾ÝµÄ»ù´¡½á¹¹£¬ÎªÁËÐðÊöºÍÀí½â·½±ã£¬ÎÒÃÇÔÚ ......

VB ʹÓÃWMI±à³Ì½²×ù(¶þ)

Îå¡¢ CIM´¢´æ¿âºÍCIMÀࣨ1£©
    ÉÏÒ»½²ÎÒÃǽéÉÜÁËWMIµÄÌåϵ½á¹¹£¬»¹¼ÇµÃÄÇÕÅÌåϵ½á¹¹Í¼Â𣿼ǵÃÎÒÃÇ˵µ½¹Ø×¢µÄÖصãÓ¦¸ÃÊÇCIM´¢´æ¿âºÍWMI½Å±¾¶ÔÏó¿â£¬ÎªÊ²Ã´ÎÒÃÇÕâÑù˵ÄØ£¿ÒòΪÎÒÃǵijÌÐòÖ±½ÓÊÇÀûÓÃWMI½Å±¾¶ÔÏó¿â½øÐбà³Ì£¬¶øÕâ¸öWMI½Å±¾¶ÔÏó»ñÈ¡»ò²Ù×÷µÄÄÚÈݶ¼ÊÇÀ´×ÔCIM´¢´æ¿â£¨×¢Ò⣺ÎÒÃÇÕâÀï˵µÄCIM´¢´æ¿â£¬Ö¸µÄ“Êǹ«¹²ÐÅϢģÐͶÔÏó¹ÜÀíÆ÷Common Information Model Object Manager£¬CIMOM”ºÍ“¹«¹²ÐÅϢģÐÍCommon Information Model£¬CIM ´¢´æ¿â”¡£ÕâÑù×öÒ»ÊÇΪÁËÐðÊöºÍÀí½â·½±ã£¬Æä´ÎÄ¿Ç°¶ÔÎÒÃDZàдWMIÓ¦ÓóÌÐòÀ´ËµÊµÔÚûÓбØÒª°ÑËüÇø·Ö¿ªÀ´£©¡£ÎªÁËÇ¿µ÷CIM´¢´æ¿âºÍCIMÀàµÄÖØÒªÐÔ£¬×Ðϸ¹Û²ìÒ»ÏÂÔÚÇ°¼¸½²ÖÐչʾµÄʵÀý1ÖÁʵÀý4£¬Î¨Ò»ÓÐÇø±ðµÄÊDZêʶ WMI ÍйÜ×ÊÔ´µÄÀàÃûºÍÿ¸öÀàÊôÐÔµÄ×Ó¼¯¡£Ïàͬ³ÌÐòÄ£°å¿ÉÒÔÓÃÀ´¼ìË÷È«²¿µÄÎïÀíÄÚ´æ¡¢·þÎñ¡¢Ê¼þÈÕÖ¾¼Ç¼¡¢½ø³ÌºÍ²Ù×÷ϵͳÐÅÏ¢£¬ÕâÒ»ÊÂʵ˵Ã÷ÁË CIM ÀàÔÚ WMIÓ¦ÓóÌÐòÖаçÑݵÄÖØÒª½ÇÉ«¡£Ò»µ©ÖªµÀÈçºÎ±àдһ¸ö³ÌÐòÀ´¹ÜÀíÒ»Àà WMI ÍйÜ×ÊÔ´£¬Äú¾Í¿ÉÒÔ¶ÔÆäËûÍйÜ×ÊԴʹÓÃÏàͬµÄ»ù±¾¼¼Êõ¡£
    µ±È»£¬ÖªµÀÒ»¸öÍйÜ×ÊÔ´µÄÀàÃûÒÔ¼°¸ÃÀàµÄÏàÓ¦ÊôÐÔÖ»ÊDZ¾ÎĵÄÒ»²¿·Ö¡£ÔÚÄúÄܹ»Ç ......

VBÄܼǼÖÐÎĵļüÅ̼Ǽ

http://hi.baidu.com/qwestw/blog/item/a8b41663eb7fca690d33fa46.html
ÄܼǼµ½ÖÐÎÄ£¬È±µãÊDz»ÄܼǼµ½Ctrl£¬shift£¬alt£¬capslock£¬home£¬del£¬pageUP£¬pageDownµÈ¼þµÄ°´ÏÂ״̬¡£
vb6´úÂëÈçÏ£º
Private Sub Form_Load()
WM_HXWDLLWX_HOOKKEY = RegisterWindowMessage("WM_HXWDLLWX_HOOKKEY")
PrevWndProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf SubWndProc) '×ÓÀ໯´°¿Ú£¬ÒÔ±ãÄÜ´¦ÀíDLL·¢³öµÄ×Ô¶¨ÒåÏûÏ¢
DLLstartHOOK Me.hWnd '³õʼ»¯DLL
DLLsetHOOKState True '´ò¿ªÊäÈë·¨HOOK
' -----------------------
End Sub
Private Sub Form_Unload(Cancel As Integer)
DLLsetHOOKState False '¹Ø±ÕÊäÈë·¨HOOK
DLLstopHOOK 'жÔØÊäÈë·¨HOOK
Call SetWindowLong(Me.hWnd, GWL_WNDPROC, PrevWndProc) '»¹Ô­×ÓÀ໯´°¿Ú
' ----------------
End Sub
‘-----------------------Ä£¿é
Option Explicit
' ------------------------------------ÒÔÉÏÊÇWINIOº¯ÊýÉùÃ÷-----------------------------------------------
Public Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
P ......

VBÉè¼Æ¶¯»­Ê±ÖÓ

 VBÉè¼Æ¶¯»­Ê±ÖÓ
³ÌÐòÃû£ºSec-Time.vbp
³ÌÐòÀà±ð£ºÍêÕûµÄVB³ÌÐò
¹¦ÄÜ£ºÏÔʾһ¸ö¶¯»­Ê±ÖÓ£¬¸ÃʱÕëËæ×ÅÿһÃë¶ø¶¯Ì¬±ä»¯¡£
³ÌÐò˵Ã÷
1£®ÈçºÎ»­Ê±ÖÓ±íÅÌÉϵÄËùÓÐÖ±ÏßÔªËØ£¿
ÓÃLoadÃüÁÁ¢Ô­Ê¼Line¿ØÖƵÄ14¸ö¿½±´£¨ÒòΪ±íÅÌÓÐ12¸öµãºÍʱ¡¢·Ö¡¢Ãë¹²15¸öLine£©£¬¸Ã¿ØÖÆÊý×éÿһ¸öʵÀýµÄ¶Ëµã×ø±êÊôÐÔÉèÖÃΪÿÌõÏßÔÚʱÖÓ±íÅÌÉϵÄÊʵ±Î»Öã¬ÕâЩ¿½±´Öдó¶àÊýÖ»·ÅÖÃÒ»´Î£¬¶ø3¸öLine¿ØÖÆÿÃëÖÓ¸üÐÂÒ»´Î£¬²úÉúʱÖÓÖ¸ÕëÒƶ¯µÄ¸Ð¾õ¡£
×¢Ò⣺ÔÚÓ¦ÓóÌÐò´úÂëÖв¢Ã»ÓÐÖ±½Ó²Á³ýÈκÎÒ»ÌõÏß¡£µ±ÎÒÃǸıäÿһ¸öLine¿ØÖƵĶ˵ãʱ£¬Ã¿Ò»¸ùÕë
ÔÚÒƶ¯Ê±²Á³ýºÍÖØ»­µÄËùÓм¼Êõ¹¤×÷¶¼ÓÉVBÀ´´¦Àí¡£
2£®ÈçºÎÐÞ¸ÄʱÕëµÄÐÎ×´£¿
ͨ¹ýµ÷Õû´úÂëÖеÄÊôÐÔÉèÖ㬿ÉÒԸıäʱÖÓµÄÐÎ×´¡£ÀýÈ磺ͨ¹ý¸Ä±äÿһ¸öLine¿ØÖƵÄBorderwidthÊôÐÔÉèÖ㬿ÉÒÔ½¨Á¢¸üϸ»ò¸ü´ÖµÄÏß¡£
3. ¼ÆʱÆ÷µÄInterval£¨¼ä¾à£©ÊôÐÔÉèÖÃ
¼ÆʱÆ÷µÄIntervalÊôÐÔÉèÖÃΪ100£¬¼´Îª1/10Ãë¡£
³ÌÐòµÄ±àдÓëÖ´ÐÐ
£¨1£©Ð½¨¹¤³Ì
ÏÈн¨Ò»¸ö¹¤³Ì£¨¹¤³ÌÀàÐÍΪ±ê×¼EXE£©£¬È»ºóÓÓ¹¤¾ßÏä”ÖеŤ¾ß¼ÓÈëÒ»¸öTimer1£¨¼ÆʱÆ÷£©ºÍline1£¨Ö±Ïߣ©£¬Æäindex£¨Ö¸Õ룩·Ö±ðÉèÖÃΪ¿ÕºÍ0¡£È»ºóË«»÷Form1´°Ì壬ÊäÈëÔ´´úÂë¡£
£¨2£©³ÌÐòÔ´´úÂë
......
×ܼǼÊý:380; ×ÜÒ³Êý:64; ÿҳ6 Ìõ; Ê×Ò³ ÉÏÒ»Ò³ [50] [51] [52] [53] 54 [55] [56] [57] [58] [59]  ÏÂÒ»Ò³ βҳ
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ