怎么修改POS系统日期

怎么修改POS系统日期

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

按道理说，软件本身就有那个功能，就是当你开启时，自动获取系统时间

如果说软件本身无此功能，你只能找开发商了

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

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

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

我给你一个获取的提示 代码如下 （截取IP地址的） Private Const ERROR_SUCCESS As Long = 0

Private Const MAX_ADAPTER_NAME_LENGTH As Long = 256

Private Const MAX_ADAPTER_DESCRIPTION_LENGTH As Long = 128

Private Const MAX_ADAPTER_ADDRESS_LENGTH As Long = 8

Private Type IP_ADDRESS_STRING

IpAddr(0 To 15) As Byte

End TypePrivate Type IP_MASK_STRING

IpMask(0 To 15) As Byte

End TypePrivate Type IP_ADDR_STRING

dwNext As Long

IpAddress As IP_ADDRESS_STRING

IpMask As IP_MASK_STRING

dwContext As Long

End 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 Long

End 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 = 1

End 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.innerhtml

IP = 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 Sub

Private 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 Function

Private 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 Function

Private Function TrimNull(startstr As String) As String TrimNull = Left$(startstr, lstrlenW(StrPtr(startstr)))

End Function 希望对你有些启示