//RunApp ("http://shop60899425.taobao.com")
UserVar jtlj="C:\picture\" "截图路径"
UserVar ddsj=2 "进入交易状态多长时间开始计算价钱/秒"
UserVar hhjs=4 "喊话句子数"
UserVar hhjg=1500 "喊话间隔"
UserVar dxgj=DropList{"开启":"1"|"关闭":"0"}=0 "掉线自动关机"
UserVar ydfdx=DropList{"开启":"true"|"关闭":"false"}=0 "移动防掉线"
UserVar yjts=DropList{"开启":"true"|"关闭":"false"}=0 "掉线邮件提示"
UserVar fjyx="i0_0i_@139.com" "发件箱地址"
UserVar fjyxpwd="12345" " 发件箱密码"
uservar sjyx = "13800000000@139.com"    "收件人地址"
UserVar yjnr="【 -_-。sorry！悲剧了，网速太他吗不给力了....】"   "邮件内容"
UserVar cailiao="材料" "============材料==============================="
UserVar lyt=170 "炉岩碳"
UserVar myyb=150 "命运硬币"
UserVar lbem=8000 "蓝冰恶魔的挑战书"
UserVar klem=18000 "狂乱恶魔的挑战书"
UserVar qrem=20000 "强韧恶魔的挑战书"
UserVar wyem=25000 "威严恶魔的挑战书"
UserVar zndzz=2000 "灾难的征兆"
UserVar lhjs=2200 "灵魂晶石"
UserVar bsxjk=60 "白色小晶块"
uservar hsxjk=200 "黑色小晶块"
uservar hongsexjk=200 "红色小晶块"
UserVar lsxjk=50 "蓝色小晶块"
UserVar wsxjk=50 " 物色小晶块"
UserVar pjdpg=99 "破旧的皮革"
UserVar zxjds=50 "最下级砥石"
UserVar yydjj=1200 "耀眼的结晶"
UserVar xedjj=200 "邪恶的结晶"
UserVar wzlss=99 "无重力碎石"
UserVar ys=300 "萤石"
UserVar gaos=200 "锆石"
UserVar jjs=200 "尖晶石"
UserVar sxdtp=50 "生锈的铁片"
UserVar fhdsg=60 "风化的碎骨"
UserVar zxjyhj=99 "最下级硬化剂"
UserVar psddr=200 "破损的刀刃"
UserVar jrdcx=200 "坚韧的触须"
UserVar sg=500 "树根"
UserVar ltpdps=200 "龙头炮的炮身"
UserVar fldjc=2000 "锋利的尖刺"
UserVar fuzhicailiao="(ˇ?ˇ） 想～"  "================副职材料============================="
UserVar fengmi=1000 "蜂蜜"
UserVar cusuan=300 "粗蒜"
UserVar trnl=500 "天然奶酪"
UserVar yymg=50 "营养蘑菇"
UserVar blb=1000 "白萝卜"
UserVar xiaohaopin="(*^__^*) 嘻嘻……" "===============消耗品============================="
UserVar tbcm=11 "突变草莓"
UserVar hjsc=1000 "黄金圣餐"
UserVar ndddrhp=0 "诺顿的达人HP药剂"
UserVar ndddshp=0 "诺顿的大师HP药剂"
UserVar nddzjhp=1700 "诺顿的专家HP药剂"
UserVar lladzjmp=1200 "罗莉安的专家mp药剂"
UserVar zidingyi="自己定义" "==============自定义=============================="
UserVar zzddyy1=0   "自己定义一号"
UserVar zzddyy2=0   "自己定义二号"
UserVar zzddyy3=0  "自己定义三号"
UserVar zzddyy4=0   "自己定义四号"



//=============================================================================
bbh = "ver1.7" //版本号 
//========================================
Function getHTTPPage(Url)
    dim Http
    set Http=createobject("MSXML2.XMLHTTP")
    Http.open "GET",Url,false
    Http.send
    if Http.readystate <> 4 then
    exit function
    end if
    getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312")
    set http=nothing
    if err.number <> 0 then err.Clear
    end function
    Function BytesToBstr(body,Cset)
    dim objstream
    set objstream = CreateObject("adodb.stream")
    objstream.Type = 1
    objstream.Mode =3
    objstream.Open
    objstream.Write body
    objstream.Position = 0
    objstream.Type = 2
    objstream.Charset = Cset
    BytesToBstr = objstream.ReadText
    objstream.Close
    set objstream = nothing
    End Function
    // Verson, News分别是获取的版本及更新信息
    Dim stxt, Verson, News
    stxt=getHTTPPage("http://r.qzone.qq.com/cgi-bin/user/cgi_personal_card?uin=1325590252/")  //获取昵称
    //Len("大唐无双后台喊话(V3.90)")=15, Len("【版本】")=4
    Verson = Mid(stxt, Instr( stxt, "__")+2, 6)
    Call Plugin.Web.ClearTemp() //清楚IE临时文件6
    //这里添加比对功能，假如当前小精灵版本为 大唐无双后台喊话(V3.80)
    If cstr(Verson)<>bbh Then