一、怎么修改POS系统日期?

按道理说，软件本身就有那个功能，就是当你开启时，自动获取系统时间如果说软件本身无此功能，你只能找开发商了

二、伯俊智能bpos怎么改日期？

伯俊智能bpos怎么改日期，不太明白你说的是一个什么意思，因为我这边也看不出你在说什么，所以这个问题帮你解答不了，希望你谅解。

三、请问vb6如何修改系统日期 自动同步网上日期与时间！

我给你一个获取的提示 代码如下 （截取IP地址的） Private Const ERROR_SUCCESS As Long = 0Private Const MAX_ADAPTER_NAME_LENGTH As Long = 256Private Const MAX_ADAPTER_DESCRIPTION_LENGTH As Long = 128Private Const MAX_ADAPTER_ADDRESS_LENGTH As Long = 8Private Type IP_ADDRESS_STRING IpAddr(0 To 15) As ByteEnd TypePrivate Type IP_MASK_STRING IpMask(0 To 15) As ByteEnd TypePrivate Type IP_ADDR_STRING dwNext As Long IpAddress As IP_ADDRESS_STRING IpMask As IP_MASK_STRING dwContext As LongEnd TypePrivate Type IP_ADAPTER_INFO dwNext As Long ComboIndex As Long 'reserved sAdapterName(0 To (MAX_ADAPTER_NAME_LENGTH + 3)) As Byte sDescription(0 To (MAX_ADAPTER_DESCRIPTION_LENGTH + 3)) As Byte dwAddressLength As Long sIPAddress(0 To (MAX_ADAPTER_ADDRESS_LENGTH - 1)) As Byte dwIndex As Long uType As Long uDhcpEnabled As Long CurrentIpAddress As Long IpAddressList As IP_ADDR_STRING GatewayList As IP_ADDR_STRING DhcpServer As IP_ADDR_STRING bHaveWins As Long PrimaryWinsServer As IP_ADDR_STRING SecondaryWinsServer As IP_ADDR_STRING LeaseObtained As Long LeaseExpires As LongEnd TypePrivate Declare Function GetAdaptersInfo Lib "iphlpapi.dll" _ (pTcpTable As Any, _ pdwSize As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" _ Alias "RtlMoveMemory" _ (dst As Any, _ src As Any, _ ByVal bcount As Long) Private Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" _ (ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long Private Declare Function DeleteUrlCacheEntry Lib "Wininet.dll" _ Alias "DeleteUrlCacheEntryA" _ (ByVal lpszUrlName As String) As Long Private Declare Function lstrlenW Lib "kernel32" _ (ByVal lpString As Long) As LongPrivate Sub Command2_Click()Me.WindowState = 1End SubPrivate Sub Command3_Click()Shell "explorer.exe http://tansiqi.***.com"End SubPrivate Sub Command4_Click()WebBrowser1.Navigate "www.ip138.com"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)On Error Resume Next '忽略错误 没有网络连接就没有从电信那获得外网IP 也就没有结果IPstr = WebBrowser1.Document.getelementsbytagname("iframe")(0).contentwindow.Document.body.innerhtmlIP = Right(IPstr, Len(IPstr) - InStr(IPstr, "["))IP = Left(IP, InStr(IP, "]") - 1)MsgBox IP, , "这是 www.ip138.com 上的外网IP地址"End SubPrivate Sub Form_Load() Command1.Caption = "获取外网IP" Text1.Text = LocalIPAddress() Text2.Text = "" End SubPrivate Sub Command1_Click() Text2.Text = GetPublicIP()End SubPrivate Function GetPublicIP() Dim sSourceUrl As String Dim sLocalFile As String Dim hfile As Long Dim buff As String Dim pos1 As Long Dim pos2 As Long sSourceUrl = " http://vbnet.***.org/resources/tools/getpublicip.shtml" sLocalFile = "c:\ip.txt" Call DeleteUrlCacheEntry(sSourceUrl) If DownloadFile(sSourceUrl, sLocalFile) Then hfile = FreeFile Open sLocalFile For Input As #hfile buff = Input$(LOF(hfile), hfile) Close #hfile pos1 = InStr(buff, "var ip =") If pos1 Then pos1 = InStr(pos1 + 1, buff, "'", vbTextCompare) + 1 pos2 = InStr(pos1 + 1, buff, "'", vbTextCompare) '- 1 GetPublicIP = Mid$(buff, pos1, pos2 - pos1) Else GetPublicIP = "(unable to parse IP)" End If Kill sLocalFile Else GetPublicIP = "(unable to access shtml page)" End IfEnd FunctionPrivate Function DownloadFile(ByVal sURL As String, _ ByVal sLocalFile As String) As Boolean DownloadFile = URLDownloadToFile(0, sURL, sLocalFile, 0, 0) = ERROR_SUCCESS End FunctionPrivate Function LocalIPAddress() As String Dim cbRequired As Long Dim buff() As Byte Dim ptr1 As Long Dim sIPAddr As String Dim Adapter As IP_ADAPTER_INFO Call GetAdaptersInfo(ByVal 0&, cbRequired) If cbRequired > 0 Then ReDim buff(0 To cbRequired - 1) As Byte If GetAdaptersInfo(buff(0), cbRequired) = ERROR_SUCCESS Then ptr1 = VarPtr(buff(0)) Do While (ptr1 <> 0) CopyMemory Adapter, ByVal ptr1, LenB(Adapter) With Adapter sIPAddr = TrimNull(StrConv(.IpAddressList.IpAddress.IpAddr, vbUnicode)) If Len(sIPAddr) > 0 Then Exit Do ptr1 = .dwNext End With Loop End If End If LocalIPAddress = sIPAddr End FunctionPrivate Function TrimNull(startstr As String) As String TrimNull = Left$(startstr, lstrlenW(StrPtr(startstr))) End Function 希望对你有些启示