建站
咨詢(xún)
售后
建站咨詢(xún)
新聞中心
vb點(diǎn)虐 用戶(hù)登錄
哈哈簡(jiǎn)單哪
專(zhuān)注于為中小企業(yè)提供成都網(wǎng)站建設(shè)、網(wǎng)站制作服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)灞橋免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了超過(guò)千家企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
第一步：登陸網(wǎng)頁(yè)代碼
第二步：登陸以后判斷是否登陸成功
有兩種方法：1.獲取網(wǎng)頁(yè)代碼，判斷網(wǎng)頁(yè)字符有無(wú)”登陸成功”字樣
源代碼：
2.就是判斷網(wǎng)頁(yè)是否跳轉(zhuǎn)到了某一頁(yè)
源代碼：
兩種方法結(jié)合起來(lái)用，可以判斷網(wǎng)頁(yè)是否無(wú)法連接
Vb點(diǎn)虐 2008 如何獲取網(wǎng)絡(luò)時(shí)間
你是指Internet上的國(guó)際標(biāo)準(zhǔn)時(shí)間嗎。
先加入控件 AxWinsock1 在.Com中Microsoft.Winsock
Public Class Form1
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)
Dim NoSrv As Boolean
Dim TimeFromNet As String
Dim OldTime As Date
Dim NewTime As Date
Dim MyDate As Date
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If AxWinsock1.CtlState MSWinsockLib.StateConstants.sckClosed Then AxWinsock1.Close()
AxWinsock1.Protocol = MSWinsockLib.ProtocolConstants.sckTCPProtocol
NetTime("") '首先取中科院國(guó)家授時(shí)中心時(shí)間
If NoSrv Or TimeFromNet = "" Then
NetTime("time.nist.gov") '取美國(guó)標(biāo)準(zhǔn)技時(shí)院時(shí)間
If NoSrv Or TimeFromNet = "" Then
MsgBox("檢測(cè)不到網(wǎng)絡(luò)標(biāo)準(zhǔn)時(shí)間服務(wù)器time.nist.gov！")
Else
NetTime("time.nist.gov")
If TimeFromNet = "" Then
MsgBox("網(wǎng)絡(luò)標(biāo)準(zhǔn)時(shí)間服務(wù)器time.nist.gov超時(shí)！")
Else
MyDate = Mid(TimeFromNet, 8, 8)
OldTime = Mid(TimeFromNet, 17, 8)
NewTime = TimeSerial((Hour(OldTime) + 8) Mod 24, Minute(OldTime), Second(OldTime))
Dim MyTime As DateTime = MyDate Space(1) NewTime
MsgBox(MyTime)
'SetWindowsClock(MyTime)
End If
End If
Else
'使網(wǎng)絡(luò)誤差時(shí)間小，第2次再中科院國(guó)家授時(shí)中心時(shí)間
NetTime("")
If TimeFromNet = "" Then
MsgBox("網(wǎng)絡(luò)標(biāo)準(zhǔn)時(shí)間服務(wù)器超時(shí)！")
Else
MyDate = Mid(TimeFromNet, 8, 8)
NewTime = Mid(TimeFromNet, 17, 8)
Dim MyTime As DateTime = MyDate Space(1) NewTime
MsgBox(MyTime)
'SetWindowsClock(MyTime)
End If
End If
End Sub
Private Sub NetTime(ByVal TimeSrv As String)
NoSrv = False
TimeFromNet = ""
If AxWinsock1.CtlState MSWinsockLib.StateConstants.sckClosed Then AxWinsock1.Close()
AxWinsock1.RemoteHost = TimeSrv ' "" 或 "time.nist.gov"
AxWinsock1.RemotePort = 13
AxWinsock1.LocalPort = 0
AxWinsock1.Connect()
Do While TimeFromNet = ""
If NoSrv Then Exit Do
Sleep(55)
System.Windows.Forms.Application.DoEvents()
Loop
If AxWinsock1.CtlState MSWinsockLib.StateConstants.sckClosed Then AxWinsock1.Close()
End Sub
Private Sub AxAxWinsock1_CloseEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxWinsock1.CloseEvent
AxWinsock1.Close()
End Sub
Private Sub AxAxWinsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles AxWinsock1.DataArrival
AxWinsock1.GetData(TimeFromNet)
End Sub
Private Sub AxAxWinsock1_Error(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles AxWinsock1.Error
NoSrv = True
End Sub
End Class
vb點(diǎn)虐 中如何獲取系統(tǒng)的啟動(dòng)時(shí)間？
這個(gè)不能拿到吧~~你可以加一個(gè)自啟動(dòng)的模塊~~開(kāi)機(jī)后就開(kāi)始記錄時(shí)間
新聞名稱(chēng)：vb點(diǎn)虐 登陸時(shí)間的簡(jiǎn)單介紹
本文URL：http://fisionsoft.com.cn/article/ddgsjgc.html
