注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

幽狼De博客

记录成长中的点点滴滴

 
 
 

日志

 
 

Outlook Express邮件客户端的自动化配置(VBScript)  

2011-01-05 12:26:36|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

在部署一个政府OA系统中的邮件模块时,由于用户全都是五六十岁的老人,邮件客户端统一采用Outlook Express,甲方项目经理要求邮件客户端的配置实现全自动化,非常头疼,好不容易才解决,来此与大家分享。

输入分析:

要配置邮件客户端,以下几个输入是必须由用户来完成的:

1. 用户名,即PREFIX,@之前的内容

2. 域

3. 输入密码

 

存储分析:

用户输入数据的存储位置如下:

1. 用户名——存于注册表(明文)

2. 域——存于注册表(明文)

3. 输入密码——存于注册表(密文)

 

技术选取:

有了以上两步需求,接下来就开始技术选择。由于必须访问注册表,所以排除所有的web技术,ActiveX成本较高,也排除

.NET Winform应用程序配置麻烦,排除

VB/VC应用程序配置较简单,但不如VBScript轻量

VBScript可以通过shell object来访问注册表

VBScript可双击直接运行,无需特别定制界面

综上分析,故选用VBScript来进行配置。

代码:

代码如下,参照了华盛顿市府的配置解决方案:

 



set oShell = wscript.CreateObject("Wscript.Shell")

Function main()
    
dim username, domain

    
    username 
= inputbox("Enter your Email PREFIX or USERNAME (BEFORE the @ sign but NOT including the @ sign)","Outlook Express Profile Creator","Username")
    
    
If username = "" Then
        wscript.Quit(
0)
     
End If
     
     
If username = "Username" Then
         
while username = "Enter your Email PREFIX or USERNAME"
             username 
= inputbox("Enter your Email PREFIX or username (before the @ sign)","Outlook Express Profile Creator","Username")
                 
If username = "" Then
                    wscript.Quit(
0)
                 
End If
         wend
     
End If
                     
    domain 
= inputbox("Enter your Domain (AFTER the @ sign but NOT including the @ sign)","Outlook Express Profile Creator","Domain")
    
    
If domain = "" Then
        wscript.Quit(
0)
     
End If
     
     
If domain = "Domain" Then
         
while domain = "Enter Your Domain name Here"
             username 
= inputbox("Enter your Domain name (AFTER the @ sign but NOT including the @ sign)","Outlook Express Profile Creator","Domain")
                 
If domain = "" Then
                    wscript.Quit(
0)
                 
End If
         wend
     
End If

'    username = Ltrim(fixme(username))
'
    domain = fixme2(domain)

'EXAMPLE STRING FOR RTRIM
'
    RTrim(string)

    
call placeMailSettings(username, domain)
    
    
msgbox("Outlook Express Configuration Complete, please start Outlook Express and enter your password when prompted.")
End Function

Function regRead(regStr)
  regRead 
= oShell.RegRead(regStr)
End Function

Function regWrite(val1,val2,val3)
  oShell.RegWrite val1,val2,val3
End Function

Function regDelete(regStr)
  
call oShell.RegDelete(regStr)
End Function

'Function fixme(strValue)
'
    dim userEntry
'
    userEntry = split(strValue, "@")
'
    fixme = userEntry(0)
'
End Function

'Function fixme2(strValue2)
'
    dim userEntryd
'
    userEntryd = split(strValue2, "@")
'
    fixme2 = userEntryd(0)
'
End Function


'EXAMPLE STRING FOR SPLIT
'
    Split(expression[,delimiter])



'----------------------------------------------------------------------------------------
'
 Place new settings for Mail
'
----------------------------------------------------------------------------------------

Function placeMailSettings(theUsername, theDomain)
    
On Error Resume Next
    
dim newAccountNum, numKeyStr
    
dim username, domain
    newAccountNum 
= regRead("HKCU\Software\Microsoft\Internet Account Manager\Account Name")
    
    
If newAccountNum = "" Then
        newAccountNum 
= "00000001"
    
ElseIf newAccountNum < 9 Then
        newAccountNum 
= "0000000" & newAccountNum
    
Else
        newAccountNum 
= "000000" & newAccountNum    
    
End If
    
    numKeyStr 
= "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\"
    
call regWrite(numKeyStr, newAccountNum, "REG_SZ")
    
    username 
= theUsername
    domain 
= theDomain

    
'Add Account Name
      accName = username & "@" & domain
      accNameStr 
= "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\Account Name"
      
call regWrite(accNameStr, accName, "REG_SZ")

    
'Add Connection Type
      conType = "3"
      conTypeStr 
= "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\Connection Type"
      
call regWrite(conTypeStr, conType, "REG_DWORD")
      
    
'Delete Connection Id
      conId = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\ConnectionId"
      
call regDelete(conId)
      
    
'Delete Account Id
      accId = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\Account ID"
      
call regDelete(accId)

    
'Delete IMAP Server
      imapSvr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\IMAP Server"
      
call regDelete(imapSvr)

    
'Delete HTTP Mail Server
      httpSvr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\HTTPMail Server"
      
call regDelete(httpSvr)

    
'Set POP3 Server
      pop3svr = "mail." & domain
      pop3svrStr 
= "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Server"
      
call regWrite(pop3svrStr, pop3svr, "REG_SZ")

    
'Set POP3 Username
      pop3usr = username & "@" & domain
      pop3usrStr 
= "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 User Name"
      
call regWrite(pop3usrStr, pop3usr, "REG_SZ")

    
'Delete POP3 Password 2
      popPwdStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Password2"
      
call regDelete(popPwdStr)

    
'Set POP3 Use Sicily
      useSicily = "0"
      useSicilyStr 
= "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Use Sicily"
      
call regWrite(useSicilyStr, useSicily, "REG_DWORD")

    
'Set POP3 Prompt for Pw
      var promptPw = "1"
      var promptPwStr 
= "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Prompt for Password"
      
call regWrite(promptPwStr, promptPw, "REG_DWORD")
    
    
'Set SMTP Server
      smtpSvr = "mail." & domain
      smtpSvrStr 
= "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP Server"
      
call regWrite(smtpSvrStr, smtpSvr, "REG_SZ")
      
    
'Set SMTP Display name
      smtpDisp = username & "@" & domain
      smtpSvrStr 
= "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP Display Name"
      
call regWrite(smtpSvrStr, smtpDisp, "REG_SZ")

    
'Set SMTP E-mail address
      smtpEmail = username & "@" & domain
      smtpEmailStr 
= "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP Email Address"
      
call regWrite(smtpEmailStr, smtpEmail, "REG_SZ")

    
'Set SMTP Use Sicily
      smtpUseSicily = "2"
      smtpUseSicilyStr 
= "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP Use Sicily"
      
call regWrite(smtpUseSicilyStr, smtpUseSicily, "REG_DWORD")
      
    
'Set New Account to default
      defAccStr = "HKCU\Software\Microsoft\Internet Account Manager\Default Mail Account"
      
call regWrite(defAccStr, newAccountNum, "REG_SZ")
      
    
'Increment future account number
      futAccNum = newAccountNum + 1
      futAccNumStr 
= "HKCU\Software\Microsoft\Internet Account Manager\Account Name"
      
call regWrite(futAccNumStr, futAccNum, "REG_DWORD")
      
      
msgbox("POP3 Server Set to: " & pop3svr & chr(10& "SMTP Server Set to: " & smtpSvr)
End Function


call main()




'' SIG '' Begin signature block
'
' SIG '' MIIUlAYJKoZIhvcNAQcCoIIUhTCCFIECAQExDjAMBggq
'
' SIG '' hkiG9w0CBQUAMGYGCisGAQQBgjcCAQSgWDBWMDIGCisG
'
' SIG '' AQQBgjcCAR4wJAIBAQQQTvApFpkntU2P5azhDxfrqwIB
'
' SIG '' AAIBAAIBAAIBAAIBADAgMAwGCCqGSIb3DQIFBQAEEM6Z
'
' SIG '' ozlzFo2VGYZARbxbn5Kggg+tMIICvDCCAiUCEEoZ0jiM
'
' SIG '' glkcpV1zXxVd3KMwDQYJKoZIhvcNAQEEBQAwgZ4xHzAd
'
' SIG '' BgNVBAoTFlZlcmlTaWduIFRydXN0IE5ldHdvcmsxFzAV
'
' SIG '' BgNVBAsTDlZlcmlTaWduLCBJbmMuMSwwKgYDVQQLEyNW
'
' SIG '' ZXJpU2lnbiBUaW1lIFN0YW1waW5nIFNlcnZpY2UgUm9v
'
' SIG '' dDE0MDIGA1UECxMrTk8gTElBQklMSVRZIEFDQ0VQVEVE
'
' SIG '' LCAoYyk5NyBWZXJpU2lnbiwgSW5jLjAeFw05NzA1MTIw
'
' SIG '' MDAwMDBaFw0wNDAxMDcyMzU5NTlaMIGeMR8wHQYDVQQK
'
' SIG '' ExZWZXJpU2lnbiBUcnVzdCBOZXR3b3JrMRcwFQYDVQQL
'
' SIG '' Ew5WZXJpU2lnbiwgSW5jLjEsMCoGA1UECxMjVmVyaVNp
'
' SIG '' Z24gVGltZSBTdGFtcGluZyBTZXJ2aWNlIFJvb3QxNDAy
'
' SIG '' BgNVBAsTK05PIExJQUJJTElUWSBBQ0NFUFRFRCwgKGMp
'
' SIG '' OTcgVmVyaVNpZ24sIEluYy4wgZ8wDQYJKoZIhvcNAQEB
'
' SIG '' BQADgY0AMIGJAoGBANMuIPBofCwtLoEcsQaypwu3EQ1X
'
' SIG '' 2lPYdePJMyqy1PYJWzTz6ZD+CQzQ2xtauc3n9oixncCH
'
' SIG '' Jet9WBBzanjLcRX9xlj2KatYXpYE/S1iEViBHMpxlNUi
'
' SIG '' WC/VzBQFhDa6lKq0TUrp7jsirVaZfiGcbIbASkeXarSm
'
' SIG '' NtX8CS3TtDmbAgMBAAEwDQYJKoZIhvcNAQEEBQADgYEA
'
' SIG '' YVUOPnvHkhJ+ERCOIszUsxMrW+hE5At4nqR+86cHch7i
'
' SIG '' We/MhOOJlEzbTmHvs6T7Rj1QNAufcFb2jip/F87lY795
'
' SIG '' aQdzLrCVKIr17aqp0l3NCsoQCY/Os68olsR5KYSS3P+6
'
' SIG '' Z0JIppAQ5L9h+JxT5ZPRcz/4/Z1PhKxV0f0RY2MwggOq
'
' SIG '' MIIDE6ADAgECAhBKKT6dHYxAfxdJ/31hX451MA0GCSqG
'
' SIG '' SIb3DQEBBQUAMF8xCzAJBgNVBAYTAlVTMRcwFQYDVQQK
'
' SIG '' Ew5WZXJpU2lnbiwgSW5jLjE3MDUGA1UECxMuQ2xhc3Mg
'
' SIG '' MyBQdWJsaWMgUHJpbWFyeSBDZXJ0aWZpY2F0aW9uIEF1
'
' SIG '' dGhvcml0eTAeFw0wMTEyMTIwMDAwMDBaFw0wNDAxMDYy
'
' SIG '' MzU5NTlaMIGpMRcwFQYDVQQKEw5WZXJpU2lnbiwgSW5j
'
' SIG '' LjEfMB0GA1UECxMWVmVyaVNpZ24gVHJ1c3QgTmV0d29y
'
' SIG '' azE7MDkGA1UECxMyVGVybXMgb2YgdXNlIGF0IGh0dHBz
'
' SIG '' Oi8vd3d3LnZlcmlzaWduLmNvbS9ycGEgKGMpMDExMDAu
'
' SIG '' BgNVBAMTJ1ZlcmlTaWduIENsYXNzIDMgQ29kZSBTaWdu
'
' SIG '' aW5nIDIwMDEtNCBDQTCBnzANBgkqhkiG9w0BAQEFAAOB
'
' SIG '' jQAwgYkCgYEAnoG1Ys2H82OZbSnKmKsRtbVGNLUilYKo
'
' SIG '' e1b9Xg0YGyhjKUJJAxmGin3lUFFJ+pHaz7MOy3PEOOBA
'
' SIG '' 5Go0sNzr6+DMw8qR2Nr7QNKF09rf4l8ulxnbntEI0H2F
'
' SIG '' wCDOzIxxpuVNWj4ZlzD/yM76m0Y3vNL2zClfJ3OToaA4
'
' SIG '' 3hScu6MCAwEAAaOCARowggEWMBIGA1UdEwEB/wQIMAYB
'
' SIG '' Af8CAQAwRAYDVR0gBD0wOzA5BgtghkgBhvhFAQcXAzAq
'
' SIG '' MCgGCCsGAQUFBwIBFhxodHRwczovL3d3dy52ZXJpc2ln
'
' SIG '' bi5jb20vcnBhMDMGA1UdHwQsMCowKKImhiRodHRwOi8v
'
' SIG '' Y3JsLnZlcmlzaWduLmNvbS9wY2EzLjEuMS5jcmwwHQYD
'
' SIG '' VR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMDMA4GA1Ud
'
' SIG '' DwEB/wQEAwIBBjARBglghkgBhvhCAQEEBAMCAAEwJAYD
'
' SIG '' VR0RBB0wG6QZMBcxFTATBgNVBAMTDENsYXNzM0NBMS0x
'
' SIG '' MzAdBgNVHQ4EFgQUT+u6lxTKm1OV7rF6TlSXDbUEoRww
'
' SIG '' DQYJKoZIhvcNAQEFBQADgYEAWumXyXj/yYyx+PzeX9zk
'
' SIG '' pD0cuf/TIcrXABFuJtFnKyZyWgbE1sPwWQQewgiuRpxG
'
' SIG '' TtHSAW6amXe/1R3uHNwpqr3eBVHH8o0ZtdkK7Bum62q6
'
' SIG '' SRhDU16W/MtpqAWNPgqLDkC8x1STQPy2a1cPoS/0ebVq
'
' SIG '' J5C+e/yOp3xlSmQvHAEwggQCMIIDa6ADAgECAhAIem1c
'
' SIG '' b2KTT7rE/UPhFBidMA0GCSqGSIb3DQEBBAUAMIGeMR8w
'
' SIG '' HQYDVQQKExZWZXJpU2lnbiBUcnVzdCBOZXR3b3JrMRcw
'
' SIG '' FQYDVQQLEw5WZXJpU2lnbiwgSW5jLjEsMCoGA1UECxMj
'
' SIG '' VmVyaVNpZ24gVGltZSBTdGFtcGluZyBTZXJ2aWNlIFJv
'
' SIG '' b3QxNDAyBgNVBAsTK05PIExJQUJJTElUWSBBQ0NFUFRF
'
' SIG '' RCwgKGMpOTcgVmVyaVNpZ24sIEluYy4wHhcNMDEwMjI4
'
' SIG '' MDAwMDAwWhcNMDQwMTA2MjM1OTU5WjCBoDEXMBUGA1UE
'
' SIG '' ChMOVmVyaVNpZ24sIEluYy4xHzAdBgNVBAsTFlZlcmlT
'
' SIG '' aWduIFRydXN0IE5ldHdvcmsxOzA5BgNVBAsTMlRlcm1z
'
' SIG '' IG9mIHVzZSBhdCBodHRwczovL3d3dy52ZXJpc2lnbi5j
'
' SIG '' b20vcnBhIChjKTAxMScwJQYDVQQDEx5WZXJpU2lnbiBU
'
' SIG '' aW1lIFN0YW1waW5nIFNlcnZpY2UwggEiMA0GCSqGSIb3
'
' SIG '' DQEBAQUAA4IBDwAwggEKAoIBAQDAemGH67KnA2MbKxph
'
' SIG '' 3oC3FR2gi5A9uyeShBQ564XOKZIGZkikA0+N6E+n8K9e
'
' SIG '' 0S8Zx5HxtZ57kSHO6f/jTvD8r5VYuGMt5o72KRjNcI5Q
'
' SIG '' w+2Wu0DbviXoQlXW9oXyBueLmRwx8wMP1EycJCrcGxuP
'
' SIG '' gvOw76dN4xSn4I/Wx2jCYVipctT4MEhP2S9vYyDZicqC
'
' SIG '' e8JLvCjFgWjn5oJArEY6oPk/Ns1Mu1RCWnple/6E5MdH
'
' SIG '' VKy5PeyAxxr3xDOBgckqlft/XjqHkBTbzC518u9r5j2p
'
' SIG '' YL5CAapPqluoPyIxnxIV+XOhHoKLBCvqRgJMbY8fUC6V
'
' SIG '' Syp4BoR0PZGPLEcxAgMBAAGjgbgwgbUwQAYIKwYBBQUH
'
' SIG '' AQEENDAyMDAGCCsGAQUFBzABhiRodHRwOi8vb2NzcC52
'
' SIG '' ZXJpc2lnbi5jb20vb2NzcC9zdGF0dXMwCQYDVR0TBAIw
'
' SIG '' ADBEBgNVHSAEPTA7MDkGC2CGSAGG+EUBBwEBMCowKAYI
'
' SIG '' KwYBBQUHAgEWHGh0dHBzOi8vd3d3LnZlcmlzaWduLmNv
'
' SIG '' bS9ycGEwEwYDVR0lBAwwCgYIKwYBBQUHAwgwCwYDVR0P
'
' SIG '' BAQDAgbAMA0GCSqGSIb3DQEBBAUAA4GBAC3zT2NgLBja
'
' SIG '' 9SQPUrMM67O8Z4XCI+2PRg3PGk2+83x6IDAyGGiLkrsy
'
' SIG '' mfCTuDsVBid7PgIGAKQhkoQTCsWY5UBXxQUl6K+vEWqp
'
' SIG '' 5TvL6SP2lCldQFXzpVOdyDY6OWUIc3OkMtKvrL/HBTz/
'
' SIG '' RezD6Nok0c5jrgmn++Ib4/1BCmqWMIIFNTCCBJ6gAwIB
'
' SIG '' AgIQamZrvmqJhiPizcoSE3lXWDANBgkqhkiG9w0BAQQF
'
' SIG '' ADCBqTEXMBUGA1UEChMOVmVyaVNpZ24sIEluYy4xHzAd
'
' SIG '' BgNVBAsTFlZlcmlTaWduIFRydXN0IE5ldHdvcmsxOzA5
'
' SIG '' BgNVBAsTMlRlcm1zIG9mIHVzZSBhdCBodHRwczovL3d3
'
' SIG '' dy52ZXJpc2lnbi5jb20vcnBhIChjKTAxMTAwLgYDVQQD
'
' SIG '' EydWZXJpU2lnbiBDbGFzcyAzIENvZGUgU2lnbmluZyAy
'
' SIG '' MDAxLTQgQ0EwHhcNMDIwMTExMDAwMDAwWhcNMDMwMTEy
'
' SIG '' MjM1OTU5WjCBtzELMAkGA1UEBhMCVVMxCzAJBgNVBAgT
'
' SIG '' AkdBMRMwEQYDVQQHEwpBbHBoYXJldHRhMRswGQYDVQQK
'
' SIG '' ExJDb3ggQ29tbXVuaWNhdGlvbnMxPjA8BgNVBAsTNURp
'
' SIG '' Z2l0YWwgSUQgQ2xhc3MgMyAtIE1pY3Jvc29mdCBTb2Z0
'
' SIG '' d2FyZSBWYWxpZGF0aW9uIHYyMQwwCgYDVQQLFANNSVMx
'
' SIG '' GzAZBgNVBAMUEkNveCBDb21tdW5pY2F0aW9uczCBnzAN
'
' SIG '' BgkqhkiG9w0BAQEFAAOBjQAwgYkCgYEAtRppMlbzMUwz
'
' SIG '' P9dHHVA/rzz1d0anXjY2Pkxeqk1XwQVzHvMn4TBRPqBS
'
' SIG '' kY0gYqqY1J32KA/LQtAbi5V7r/HN6zEVqFskcFIdh98O
'
' SIG '' qwcUMvB+0kXSZDyjiMgVh+x/THUPvliJgD8my2PoDS9y
'
' SIG '' 8+R06azvpc7dbcrKq9XhlTsoyGUCAwEAAaOCAkwwggJI
'
' SIG '' MAkGA1UdEwQCMAAwDgYDVR0PAQH/BAQDAgeAMEQGA1Ud
'
' SIG '' HwQ9MDswOaA3oDWGM2h0dHA6Ly9jcmwudmVyaXNpZ24u
'
' SIG '' Y29tL0NsYXNzM0NvZGVTaWduaW5nQ0EyMDAxLmNybDCB
'
' SIG '' oAYDVR0gBIGYMIGVMIGSBgtghkgBhvhFAQcBATCBgjAz
'
' SIG '' BggrBgEFBQcCARYnaHR0cHM6Ly93d3cudmVyaXNpZ24u
'
' SIG '' Y29tL3JlcG9zaXRvcnkvQ1BTMEsGCCsGAQUFBwICMD8a
'
' SIG '' PVZlcmlTaWduJ3MgQ1BTIGluY29ycC4gYnkgcmVmZXJl
'
' SIG '' bmNlIGxpYWIuIGx0ZC4gKGMpOTkgVmVyaVNpZ24wEwYD
'
' SIG '' VR0lBAwwCgYIKwYBBQUHAwMwNQYIKwYBBQUHAQEEKTAn
'
' SIG '' MCUGCCsGAQUFBzABhhlodHRwczovL29jc3AudmVyaXNp
'
' SIG '' Z24uY29tMIGYBgNVHSMEgZAwgY2AFE/rupcUyptTle6x
'
' SIG '' ek5Ulw21BKEcoWOkYTBfMQswCQYDVQQGEwJVUzEXMBUG
'
' SIG '' A1UEChMOVmVyaVNpZ24sIEluYy4xNzA1BgNVBAsTLkNs
'
' SIG '' YXNzIDMgUHVibGljIFByaW1hcnkgQ2VydGlmaWNhdGlv
'
' SIG '' biBBdXRob3JpdHmCEEopPp0djEB/F0n/fWFfjnUwEQYJ
'
' SIG '' YIZIAYb4QgEBBAQDAgQQMDAGCmCGSAGG+EUBBgcEIhYg
'
' SIG '' MTE2YjljMGJjZDZjMWFiMzM4ODk3YTgzMDg3MmM3ODUw
'
' SIG '' FgYKKwYBBAGCNwIBGwQIMAYBAf8BAf8wDQYJKoZIhvcN
'
' SIG '' AQEEBQADgYEAA5i6iDdXLBXYKUCMeX7hCey6yOyQDwfN
'
' SIG '' aivscheg8y5u+6q+H4sxOBNJjP9/TjrYpCDlmcO98rz5
'
' SIG '' EnGh4tQxRGl/3xIAWQRm5YO0CwKB7oqZkp9RTJbRtGov
'
' SIG '' ce3APMOyc4ePRbC31KFXfI7o96y+q3LA4O/W2aC1dGxI
'
' SIG '' Buoa7jwxggRRMIIETQIBATCBvjCBqTEXMBUGA1UEChMO
'
' SIG '' VmVyaVNpZ24sIEluYy4xHzAdBgNVBAsTFlZlcmlTaWdu
'
' SIG '' IFRydXN0IE5ldHdvcmsxOzA5BgNVBAsTMlRlcm1zIG9m
'
' SIG '' IHVzZSBhdCBodHRwczovL3d3dy52ZXJpc2lnbi5jb20v
'
' SIG '' cnBhIChjKTAxMTAwLgYDVQQDEydWZXJpU2lnbiBDbGFz
'
' SIG '' cyAzIENvZGUgU2lnbmluZyAyMDAxLTQgQ0ECEGpma75q
'
' SIG '' iYYj4s3KEhN5V1gwDAYIKoZIhvcNAgUFAKCBljAZBgkq
'
' SIG '' hkiG9w0BCQMxDAYKKwYBBAGCNwIBBDAcBgorBgEEAYI3
'
' SIG '' AgELMQ4wDAYKKwYBBAGCNwIBFTAfBgkqhkiG9w0BCQQx
'
' SIG '' EgQQNJz6QVdjEovF8lMsJoUdZTA6BgorBgEEAYI3AgEM
'
' SIG '' MSwwKqAOgAwAUwBjAHIAaQBwAHShGIAWaHR0cDovL3d3
'
' SIG '' dy5zdXBwb3J0LmNvbTANBgkqhkiG9w0BAQEFAASBgH61
'
' SIG '' rQ3ac/Mx1yOHjzZdv3sIwkgsJZW60oeu+85KS0OMmimx
'
' SIG '' bT5HLA1CqQK69XOg3AlOQkrqqwGmBHZ2STfGiz4sRvlO
'
' SIG '' zxN+ymeQh5/QBc6Pd3R6fYRKxAO1jIuAI2lFWOrzblsa
'
' SIG '' vTPE+Oieb1vnWjgronge73IvBBGyL7OMGbTBoYICTDCC
'
' SIG '' AkgGCSqGSIb3DQEJBjGCAjkwggI1AgEBMIGzMIGeMR8w
'
' SIG '' HQYDVQQKExZWZXJpU2lnbiBUcnVzdCBOZXR3b3JrMRcw
'
' SIG '' FQYDVQQLEw5WZXJpU2lnbiwgSW5jLjEsMCoGA1UECxMj
'
' SIG '' VmVyaVNpZ24gVGltZSBTdGFtcGluZyBTZXJ2aWNlIFJv
'
' SIG '' b3QxNDAyBgNVBAsTK05PIExJQUJJTElUWSBBQ0NFUFRF
'
' SIG '' RCwgKGMpOTcgVmVyaVNpZ24sIEluYy4CEAh6bVxvYpNP
'
' SIG '' usT9Q+EUGJ0wDAYIKoZIhvcNAgUFAKBZMBgGCSqGSIb3
'
' SIG '' DQEJAzELBgkqhkiG9w0BBwEwHAYJKoZIhvcNAQkFMQ8X
'
' SIG '' DTAyMDExNDE1MjA1MFowHwYJKoZIhvcNAQkEMRIEENfH
'
' SIG '' dosDvpZhSgbjHx7p0PUwDQYJKoZIhvcNAQEBBQAEggEA
'
' SIG '' sxHNR7NvgWRpAlXh9uW01yxXruOzX3VFdUXjuRJjo7VO
'
' SIG '' fe1h6jt3KyKN6PEXNqf077N7tGRSS48vljXzj5bmn34O
'
' SIG '' i2Hj9/qblNqcP0y9HQuXKaops8FvB64eKTE36v5jREot
'
' SIG '' tTFYa5RCUB4qUWMzLtdHiQJe7s+5iMRqY3hp8G8g49U8
'
' SIG '' Hhh0TxbZ++6HsmftyjRGh4NHP1x+tfDwjkclbHFaQFn7
'
' SIG '' qbsN+xNOIf1kxB1trNF04EQXcRgCL5sW/VbGXWzTWQI5
'
' SIG '' fZu+umQe+2C+PEY5hk51LSpjs8QWKvUPVlcosQQFr9k/
'
' SIG '' 0y05zD+v5oR6YGnNDMiBgv7Gfh3NjVfRdw==
'
' SIG '' End signature block
  评论这张
 
阅读(1104)| 评论(3)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017