VB 时间等待

引用

    Private Declare Function timeGetTime Lib "winmm.dll" () As Long
    Private a As Integer
    Dim SaveTime As Double
    Dim OverTime As Long


   Public Function dtime (ByVal time As String)
        OverTime = time '延迟time毫秒
        SaveTime = timeGetTime '记下开始时的时间
        Do Until timeGetTime - SaveTime >= OverTime '延迟
            Application.DoEvents()
        Loop
    End Function


使用方式

    dtime(1000) '等待1秒


当前Unix时间戳 毫秒

   Public Function usj()
        Dim sj As String = (DateTime.Now.ToUniversalTime().Ticks - 621355968000000000) / 10000
        If InStr(sj, ".")>0 Then
            sj = Mid(sj, 1, InStr(sj, ".") - 1)
        End If
        Return sj
    End Function


蒂花之秀

    Public Function Md5(ByVal code As String)
        Dim _md5 As String = ""
        Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(code)
        Dim hashvalue As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(dataToHash)
        Dim i As Integer
        For i = 0 To 15 '选择32位字符的加密结果
            _md5 += Hex(hashvalue(i)).ToLower
        Next
    Return _md5

小秀

        Dim nr As String = TextBox1.Text '内容
        Dim nrzs As String = Len(nr) '内容字数
        Dim i As String = nrzs '循环次数
        Dim jg As String = "" '结果
        Dim xiu As String = "" '秀
        Dim jmmd5 As String
        Dim zf As String
        Dim c As String  = 5 '秀多少次
        TextBox2.Text = ""
        For a = 0 To i - 1
            jg = TextBox2.Text
            zf = Mid(nr, a + 1, 1)
            jmmd5 = Md5(zf)
            For b = 0 To c - 1
                dtime(50)
                xiu = Mid(jmmd5, b + 1, 1)
                TextBox2.Text = jg & xiu
            Next b
            TextBox2.Text = jg & Mid(nr, a + 1, 1)
        Next a 'a循环结束

装逼

        Dim nr As String = TextBox1.Text '内容
        Dim nrzs As String = Len(nr) '内容字数
        Dim i As String = nrzs '循环次数
        Dim jg As String = "" '结果
        Dim xiu As String = "" '秀
        Dim jmmd5 As String  = Md5(nr) & Md5(nr) & Md5(nr) & Md5(nr) 
        Dim zf As String
        Dim c As String = 16 '秀多少次
        TextBox2.Text = ""
        For a = 0 To i - 1
            jg = Mid(nr, 1, a + 1) '确定的结果
            zf = Mid(nr, a + 1, 1) '下一个字符
            For b = 0 To c - 1
                jmmd5 = Md5(zf) & Md5(zf) & Md5(zf) & Md5(zf)
                xiu = Mid(jmmd5, nrzs - a, nrzs - a - 1)
                TextBox2.Text = jg & xiu
                dtime(3)
            Next b
            If nrzs - Len(jg) > 0 Then
                TextBox2.Text = jg & zf & Mid(jmmd5, 1, nrzs - Len(jg) - 1)
            End If
        Next a 'a循环结束


发表评论

必填

选填

选填

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。