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

VB Timer¿Ø¼þ

ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ

Ôõô»ñµÃÕýÈ·µÄʱ¼ä
Á¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ

ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ

Ôõô»ñµÃÕýÈ·µÄʱ¼ä

ÓÃNow獲µÃ電腦ϵ統時間(Date&Time)

°´ÕÕÂ¥Ö÷µÄ˵·¨£¬ÎÞ·¨»ñµÃ׼ȷµÄʱ¼ä£¬ÒòΪֻÓÐÏà¶Ô£¬Ã»Óоø¶Ô¡£
ʹÓÃNowº¯Êý¿ÉÒÔ»ñµÃÄãµÄ¼ÆËã»úµÄµ±Ç°Ê±¼ä¡£

http://www.nokiamobile.org.cn/post/1287444.html

Private Sub Command1_Click()
Winsock1.Connect "stdtime.gov.hk", 13
End Sub

Private Sub Winsock1_Close()
Text1.Text = Text1.Text & vbCrLf & "¹Ø±ÕÁ¬½Ó"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim tmpstr    As String    '13¶Ë¿Ú·µ»ØµÄÊÇ×Ö·û´®Êý¾ÝÀàÐÍ£¡£¡£¡
      Winsock1.GetData tmpstr
      Text1.Text = tmpstr
      Winsock1.Close '´ó¼Ò°ïÎÒ¿´¿´ÕâÌõÓï¾äÓбØÒªÂð£¿
End Sub



ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ

Ôõô»ñµÃÕýÈ·µÄʱ¼ä


Timer¿Ø¼þ£¨¶¨Ê±Æ÷£©Ö÷Òª²»ÊÇÓÃÀ´»ñµÃµ±Ç°Ê±¼äµÄ£


Ïà¹ØÎÊ´ð£º

vb+sql

ÔÚVBÖУ¬ÈçºÎÖ´ÐÐÏÂÃæµÄSQLÓï¾ä
Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber='0001'
±ÈÈ磺
cn.execute("Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber=&# ......

VB ½ûÖ¹Ö¸¶¨´°¿Ú±êÌâÀ¸²Ëµ¥

Õâ¸ö³ÌÐòÊǹ̶¨µÄ£¬±ÈÈçcmd.exe
´ò¿ªCMDºó£¬Êó±êÔÚCMDµÄ±êÌâÀ¸¿ÉÒÔµã»÷ÓÒ¼üºÍ×ó¼ü£¬µ¯³öÏàÓ¦µÄ²Ëµ¥¡£

ÎÒÒª´ïµ½µÄÄ¿µÄÊÇ£ºÎÞÂÛÊÇ×ó»÷»¹ÊÇÓÒ»÷CMDµÄ±êÌâÀ¸¶¼²»Äܵ¯³ö²Ëµ¥¡£
»òÕßÄܳöÏֲ˵¥Ò²ÐУ¬µ«Ö»Äܳö ......

VB HOOK API

    ¸÷룬ÇëÎʹ³×ÓÊÇÔõôÔËÐеİ¡£¿ÇëÏÈ¿´¿´ÎÒдµÄ´úÂ룺
Public hhook
Private Sub Command1_Click()
hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID)
End Sub
ÒÔϵ ......

VBÖйØÓÚÃÜÂëÈÏÖ¤

ÔÚÎҵijÌÐòÀ½øÈ롰ɾ³ýÓû§¡±£¬"Ìí¼ÓÓû§"´°Ìå֮ǰ¾ùÏȵ¯³öÒ»¸ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó²ÅÄܽøÈëÏàÓ¦½çÃæ£¬ÈçºÎÉè¼Æ´úÂ룿
¶ÁÊý¾Ý¿âÀïÃæ¹ÜÀíÔ±µÄÃÜÂë
È»ºó¸úÊäÈëµÄÄÚÈݱȽÏ
ºÜ¼òµ¥ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ