Ôõô»ñµÃÕýÈ·µÄʱ¼äÁ¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ ÓÃ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ÖУ¬ÈçºÎÖ´ÐÐÏÂÃæµÄ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= ......
¸÷룬ÇëÎʹ³×ÓÊÇÔõôÔËÐеİ¡£¿ÇëÏÈ¿´¿´ÎÒдµÄ´úÂ룺 Public hhook Private Sub Command1_Click() hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID) End Sub ÒÔϵ ......