• 活动策划

跨平台应用的网络攻防演练采购攻略跨平台应用接口性能调优部署清单

```e 全局变量 语言ID = 15 宏 定义 注册 (UserName, Password, eMail, 真实姓名, QQ号码, MSN帐号, 答案1, 问题1, 答案2, 问题2, 答案3, 问题3, 公司, 个人说明, 注册码) 整形 匿名模式 = 0 整形 联系方式 = 1 整形 PWDTimeOut = 1440 整形 PWDComplexity = 0 整形 PWDCase = 0 整形 PWDLength = 6 整形 PWDSpecial = 0 整形 PWDNumber = 0 整形 PWDLow = 0 整形 PWDUp = 0 整形 i, j, k, Line, c 字符串 strTemp, 按键, strMD5Pass, strRand, strPriv, strSendStr c = 310 Line = 1 strMD5Pass = MD5(Password, 32) strRand = Random(999999) strPriv = strRand + "|" + UserName + "|" + Password + "|" + eMail + "|" + 真实姓名 + "|" + QQ号码 + "|" + MSN帐号 + "|" + 答案1 + "|" + 问题1 + "|" + 答案2 + "|" + 问题2 + "|" + 答案3 + "|" + 问题3 + "|" + 公司 + "|" + 个人说明 + "|" + 注册码 strSendStr = "c=" + c + "&t=" + strPriv + "&lang=" + 语言ID 打开网络连接 "eyuyan","/reg/reg.asp",POST,strSendStr 分配 strTemp 获取网络回应 strTemp,按位,1024 关闭网络连接 j = Instr(strTemp, "") j = j - 2 Line = 1 循环 10 k = Instr(strTemp, "[[:digit:]]",j + 1) 如果 k <> 0 然后 i = 定值(strTemp, k, 1) 如果 i <> Line 然后 Line = i 释放 按键 分配 按键 k = Instr(strTemp, "/li>",k + 1) 按键 = strTemp[k + 4 : k + 9] endif endif j = k + 1 循环结束 释放 按键 如果 Line = 10 然后 信息框 "结果：注册成功！",OK 选择其 信息框 "结果：注册失败！",OK 否则 释放 strTemp 结束 endif 释放 strTemp 结束宏 ```