<?xml version="1.0" encoding="gb2312" ?>
<ApeML LID="CHS" MD="0" 抓屏模式="0" 名称="Globe7话费狂刷机器人 第五版" 作者="一鹤 qq:829056" 信息窗口="true" 速度="10" 循环次数="0" 自定义属性="GLobelID = web@yhhe.net">
	<!--这个是完全脱离Globel7全自动刷话费的程序。
全部使用LAScript编程，效率高。提供全部源代码。

下载globe7免费网络电话:
http://www.globe7.com
本程序通过自动看电视赚美元，获取电话费
拔打电话方法 86 + 区号(不要0) + 电话号码
或 86 + 手机号码(不要0)-->
	<脚本区块 语言="LAScript" 名称="init生成电视网址" 延时="0" 启用="true" 编辑密钥="" 运行公钥="">
	<![CDATA[  
--区块名字前添加"init"前缀则不会重复运行
--import("std"); --从外部文件引用名字空间

--调试窗口
--win.consoleOpen()

_set = ape:loadSetting(); --读取自定义属性
stopPlay = function() --这个函数回放停止时被调用.
	ape:saveSetting(_set); --保存自定义属性
	collectgarbage();--清理内存
end;

--请在下面添加不需要重复运行的脚本



--参数: 页码
function geturllist(wb,page,g7number,cat,subcat,str,lang,ctr,country)
	
	wb:setScroll(true)
	wb:setTitle(true);
	
	wb:go("http://videos.globe7.com/iptvajax.php","_self","Content-Type:application/x-www-form-urlencoded","page=" .. page .. "&g7number=" .. g7number .. "&cat=" .. cat .. "&subcat=" .. subcat .. "&str=" .. str .. "&lang=" .. lang .. "&ctr=" .. ctr .. "&country=" .. country)
	wb:show(true)
	
	wb:wait("")
	
	tele ={ wb:eleLinks()}
	str=""
	for i,ele in ipairs(tele) do    
	    if(ele:getTextin()=="Low")then
	       str = str .. "\r\n" .. ele:getAttribute("href")
           --str  = str..ele:getHtml()
	    end;
	end;--遍历数组(索引为数字)
	
    return str;

end;

--下面是提取电视广告网址的示例代码，在本行前面加一个横线即可
function showurllist()
	win.consoleOpen()
	local wb = web.new();
	wb:setDL(_TRUE);
	
	strurllist = ""
	for i=1,25,1    do     --循环十页
	    print("a25",i);
	    strurllist = strurllist .. geturllist(wb,i,'web@yhhe.net','1','','','','','CN');
	end;
	
	for i=1,77,1    do     --循环十页
	    print("b77",i);
	    strurllist = strurllist .. geturllist(wb,i,'web@yhhe.net','2','','','','','CN');
	end;
	
	for i=1,2,1    do     --循环十页
	    print("c2",i);
	    strurllist = strurllist .. geturllist(wb,i,'web@yhhe.net','6','','','','','CN')
	end;
	
	for i=1,5,1    do     --循环十页
	    print("d5",i);
	    strurllist = strurllist .. geturllist(wb,i,'web@yhhe.net','5','','','','','CN')
	end;
	
	for i=1,3,1    do     --循环十页
	    print("e3",i);
	    strurllist = strurllist .. geturllist(wb,i,'web@yhhe.net','3','','','','','CN')
	end;
	
	for i=1,7,1    do     --循环十页
	    print("f7",i);
	    strurllist = strurllist .. geturllist(wb,i,'web@yhhe.net','7','','','','','CN')
	end;
	
	for i=1,3,1    do     --循环十页
	    print("h3",i);
	    strurllist = strurllist .. geturllist(wb,i,'web@yhhe.net','4','','','','','CN')
	end;
	
	string.save(strurllist  ,_LASDIR.."\\g7urllist.temp")
	win.exec("notepad.exe",_LASDIR.."\\g7urllist.temp")
end;



--这是我提取的电视广告链接地址，这次已经把G7的全部电视网址都提取过来了
local urlstr = [[
playerlist.php?fileid=36528&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36527&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36526&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36525&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36524&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36523&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36522&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=36521&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=36520&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=36518&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=36517&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=36509&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=36508&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=36507&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=36506&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=36505&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=36504&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=36503&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=36502&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=4&type=1
playerlist.php?fileid=36500&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=4&type=1
playerlist.php?fileid=36499&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=4&type=1
playerlist.php?fileid=36423&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=4&type=1
playerlist.php?fileid=36428&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=4&type=1
playerlist.php?fileid=36427&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=4&type=1
playerlist.php?fileid=36426&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=5&type=1
playerlist.php?fileid=36424&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=5&type=1
playerlist.php?fileid=36425&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=5&type=1
playerlist.php?fileid=36416&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=5&type=1
playerlist.php?fileid=36415&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=5&type=1
playerlist.php?fileid=36414&g7number=&cat=1&subcat=&str=&lang=&ctr=&lreg=n&page=5&type=1
playerlist.php?fileid=36434&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36413&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36319&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36317&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36315&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36316&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36314&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=36313&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=36312&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=36311&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=36284&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=36189&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=36185&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=36184&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=36183&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=36182&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=36181&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=36180&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=36179&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=4&type=1
playerlist.php?fileid=36170&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=4&type=1
playerlist.php?fileid=36169&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=4&type=1
playerlist.php?fileid=36066&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=4&type=1
playerlist.php?fileid=36065&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=4&type=1
playerlist.php?fileid=36064&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=4&type=1
playerlist.php?fileid=36063&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=5&type=1
playerlist.php?fileid=36062&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=5&type=1
playerlist.php?fileid=36061&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=5&type=1
playerlist.php?fileid=36059&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=5&type=1
playerlist.php?fileid=36060&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=5&type=1
playerlist.php?fileid=36048&g7number=&cat=2&subcat=&str=&lang=&ctr=&lreg=n&page=5&type=1
playerlist.php?fileid=35087&g7number=&cat=6&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=35086&g7number=&cat=6&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=35085&g7number=&cat=6&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=35084&g7number=&cat=6&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=35083&g7number=&cat=6&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=19263&g7number=&cat=6&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36067&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=35937&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=35936&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=35935&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=35934&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=35933&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=35932&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=35931&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=35930&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=35929&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=35928&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=35927&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=2&type=1
playerlist.php?fileid=35926&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=35925&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=35924&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=35923&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=35922&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=35921&g7number=&cat=5&subcat=&str=&lang=&ctr=&lreg=n&page=3&type=1
playerlist.php?fileid=36516&g7number=&cat=3&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36515&g7number=&cat=3&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36513&g7number=&cat=3&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36514&g7number=&cat=3&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36512&g7number=&cat=3&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
playerlist.php?fileid=36519&g7number=&cat=3&subcat=&str=&lang=&ctr=&lreg=n&page=1&type=1
]]


--插入Globe7 ID
urlstr = string.gsub(urlstr,"&g7number=&","&g7number=".._set["GLobelID"].."&");
_turlstr = string.split(urlstr ,"\n")

wb = web.new();
wb:setDL(_TRUE); --禁止下载图像这些,_TRUE表示1，参考std.las

--wb:setSilent(false,true); 
wb:setSilent(true,true,true,true);--不要弹出错误对话框

wb:setScroll(true)
wb:setTitle(true);

wb:show(true);--如果要后台刷，删了这一句

--打乱随机数种子
math.randomseed(os.tick());
]]>
	</脚本区块>
	<脚本区块 语言="LAScript" 名称="init注册G7账号" 延时="0" 启用="true" 编辑密钥="" 运行公钥="">
	<![CDATA[


import("std"); -- 导入std库中的 随机字符串函数

function regID() 
	win.messagePrint("请稍候，正在初始化注册程序")
	wb2 = web.new();--创建web窗体
	wb2:setTitle(true);--启用标题栏
	wb2:setScroll(true);--启用滚动条
	wb2:go("http://www.globe7.com/regjmon7gkio.php");--打开网页
	
	wb2:wait("",10000);--等待网页打开,10刷新一次
	wb2:setRect(173,140,900,750);--调整窗体位置
	wb2:show(true);--显示
	
	local ele = wb2:getEle("")
	local str = ele:getHtmlin()
	
	
	str  = string.gsub(str,"Get your Globe7 Account",[[注册Globe7账号(所有资料请用拼音填写)<a href="http://www.yhhe.net" target="_blank"> 技术支持：http://www.yhhe.net/ape</a>]]);
	str  = string.gsub(str,"First Name","名字");
	str  = string.gsub(str,"Last Name","姓氏");
	str  = string.gsub(str,"Email Address","Email邮箱");
	str  = string.gsub(str,"Gender","性别");
	str  = string.gsub(str,"Date of Birth","生日");
	str  = string.gsub(str,"Address","住址");
	str  = string.gsub(str,"City","城市");
	str  = string.gsub(str,"State","省份");
	str  = string.gsub(str,"Nationality","国籍");
	str  = string.gsub(str,"How do you know about Globe7","你是怎么知道Globe7的");
	str  = string.gsub(str,"Zip/Postal Code","邮编");
	str  = string.gsub(str,"Phone","电话");
	str  = string.gsub(str,"Interests","兴趣(必须选两个)");
	str  = string.gsub(str,"name=agree>","name=agree>我同意注册");
	str  = string.gsub(str,"","");
	
	ele:setHtmlin(str)
	
	local js =[[
	document.myform.sex.options[2].selected=true;
	document.myform.block5.options[2].selected=true;
	document.myform.block6.options[2].selected=true;
	document.myform.block7.options[20].selected=true;
	document.myform.nations.options[2].selected=true;
	document.myform.how.options[2].selected=true;
	document.myform.ch10.checked=true;
	document.myform.ch11.checked=true;
	]]
	wb2:doScript(js,"javascript")
	
	ele = wb2:getEle("block12")
	ele:setTextin("001011")
	
	ele = wb2:getEle("block13")
	ele:setTextin("86576888888")
	
	
	ele = wb2:getEle("block1")
	ele:setTextin(string.random(7,"abcdefghijklmnopqrstuvwxyz"))
	
	ele = wb2:getEle("block2")
	ele:setTextin(string.random(7,"abcdefghijklmnopqrstuvwxyz"))
	
	
	ele = wb2:getEle("block9")
	ele:setTextin(string.random(7,"abcdefghijklmnopqrstuvwxyz"))
	
	ele = wb2:getEle("state")
	ele:setTextin(string.random(7,"abcdefghijklmnopqrstuvwxyz"))
	
	ele = wb2:getEle("block8")
	local address = string.format("%s %s %s %s  52#",string.random(5,"abcdefghijklmnopqrstuvwxyz"),string.random(5,"abcdefghijklmnopqrstuvwxyz"),string.random(3,"abcdefghijklmnopqrstuvwxyz"),string.random(3,"abcdefghijklmnopqrstuvwxyz"));
	ele:setTextin(address)
	
	win.messagePrint("请填写邮箱地址，密码会发到你的邮箱中，邮箱就是你的ID")
end;

]]>
	</脚本区块>
	<脚本区块 语言="LAScript" 名称="看电视刷话费" 延时="0" 启用="true" 编辑密钥="" 运行公钥="">
	<![CDATA[
--请在下面添加脚本代码(重复运行)

--[[ 不用这个了，太有规则了
_k,_vidiourl  = next(_turlstr,_k); --读取table的下一个元素
if(not _k) then --如果到了最后面 
     _k,_vidiourl = next(_turlstr); --再重新开始，这就是上面说的「周而复始」 
end;
--]]

--用下面的，随机取一个网址
local index = math.random( 1 ,table.maxn(_turlstr) ); --生成一个随机数，范围从1到数组的最大索引
_vidiourl  = _turlstr[index]

print( _vidiourl );

print( _vidiourl );
wb:go("http://videos.globe7.com/".. _vidiourl )
wb:wait("")

--改web窗体的标题栏
local hwnd = wb:getWindow();
win.sendStringXX(hwnd,"Globe7话费狂刷机器人 第五版  www.yhhe.net    刷电视次数："..ape:runCount())


--[[要看网页的源代码很容易哦
str = wb:getHtml()
string.save( str,"d:\\ttt.txt","w+b")
win.exec("d:\\ttt.txt")
--]]


--win.consoleOpen()
local endplay = 0;
function playend(count)    
      print(count); 
      endplay =count;
end;

--嘿嘿，改你的播放器，任何程序碰到模拟精灵，一点安全性都没有了不起 :) 哈..........哈哈
js=[[

//不要弹出任何错误信息
function killErrors() 
{
     return true;
}
window.onerror = killErrors;

var allstopevent=0;
var   LAScript = external;
document.targetframe.playmode = function(mtype)
{
	if(mtype == "pauseevent")
	{
		plystat = "pause";
	}
	if(mtype == "stopevent")
	{
		plystat = "stop";
       allstopevent = allstopevent + 1;
        LAScript.playend(allstopevent);
	}
   
}
document.targetframe.onerror = killErrors;
]]

delay(3000); --等框架里的播放器下载，至少脚本区下载完
wb:doScript(js,"javascript"); --改

ele = wb:getEle("adsframe");
ele:adjacentHtml("afterEnd",[[<br><br><div id="m_links" style="font-family: '宋体';font-size: 9pt;font-weight: normal;"><a href="http://www.yhhe.net/ape" target="_blank">推荐超级强大的自动化软件 - 模拟精灵2005 <br>
不会编程您也可轻松制作软件、释放双手让鼠标键盘自动工作。<br> 
模拟精灵是一款小巧的迷你开发工具，同时也是一款全免费纯绿色软件，无需安装注册就可随地运行<br>
将会带给您前所未有、激动人心的全新体验。</a></div>]])

ele = wb:getEle("")
ele:adjacentHtml("beforeEnd",[[
<div id="m_links" style="font-family: '宋体';font-size: 9pt;font-weight: normal;">
   <br /><br />

  <div><span id="linkArea">
      <a href="#" onclick="javascript: LAScript.regID();"  target="_self">注册Globe7 ID</a><br />
    点击上面的链接启动中文注册界面，注册完成后到邮箱中收取密码。 </span></div>
   <br /><br />

  <div><span id="linkArea">
      <a href="http://www.yhhe.net/ape/" target="_blank">模拟精灵</a><br />
    模拟精灵官方主页 </span></div>
   <br /><br />

  <div><span id="linkArea">
      <a href="http://www.yhhe.net/ape/vt.html" target="_blank">模拟精灵评测</a><br />
    模拟精灵2005   用户评测实录 </span></div>
   <br /><br />

  <div><span id="linkArea">
      <a href="http://www.yhhe.net/ape/book/fap/" target="_blank">模拟编程高手之路</a><br />
    《模拟编程高手之路》电子版 </span></div>
   <br /><br />

  <div><span id="linkArea">
      <a href="http://www.yhhe.net/ape/book/fapi.chm" target="_blank">模拟编程WINAPI手册</a><br />
    《模拟编程WINAPI手册》电子版 </span></div>
   <br /><br />

    <div><span id="linkArea" style="color:red">停止热键：]].. _STOPHKEY.. [[</span></div>
</div>



]])

local waittimes = 0;
while( ( endplay<3) and nStop() ) do
	delay(6000)  ; --等待视频播放完成，每6秒检测一次
   waittimes =waittimes  + 1;

    if(waittimes >15)then --超过一分钟了
          if( endplay ==0)then
              print("卡住了，重新来吧")
              break; --卡住了，重新来吧
          end;
    end;

    if(waittimes >60)then --超过五分钟了
          print("超时了，重新来吧")
          break; --超时了，重新来吧
    end;
end;

delay(3000); --稍等一下

--循环(如果条件为真)...


print("哈哈，播放完成")




]]>
	</脚本区块>
	<数据区块 />
</ApeML>
