《两张彩票》百度网盘高清资源免费在线观看:
链接: https://pan.baidu.com/s/1xJHgPVqmzsQ3JWJbdi7D4w
?pwd=re5j 提取码: re5j《两张彩票》
导演: 保罗·内戈埃斯库
编剧: 保罗·内戈埃斯库、艾恩·卢卡·卡拉贾莱
主演: 多里安·波古策、德拉戈什·布库尔、亚历山德鲁-维克多·内姆特亚努、诺拉·库普辛库、安迪·瓦斯卢亚努、尤安娜·弗洛伦蒂娜·迪米特流、米尔卡·巴努、伊莱亚斯·费金、艾丽莎·卡林、伊琳娜·诺阿特斯、亚历山德鲁·帕帕多波尔、谢尔班·帕夫卢
类型: 剧情、喜剧
制片国家/地区: 罗马尼亚
语言: 罗马尼亚语
上映日期: 2016-10-07(罗马尼亚)、2017-04(北京电影节)
片长: 86分钟
又名: 玩死中奖三兄弟(港)、Two Lottery Tickets
是由保罗·内戈埃斯库编剧执导的一部罗马尼亚喜剧片,主要讲述了一个小城镇的三名男子寻找遗失的彩票的过程中发生的有趣故事。迪奈勒是这个城镇的一名修车工人,幸运之神似乎从未光顾过他,因为他的客户总是对他的活计不满意、他的工资少到连酒都喝不起、就连他的妻子都因此离开了他。然而,有一天迪奈勒买彩票,意外中了大奖,这让他重新燃起了生活的希望。但他似乎高兴过了头,导致他丢失了那张彩票。于是迪奈勒和他的朋友思莱、帕皮里优一起踏上了寻找彩票的旅程。
'自己加个计时器定时刷新Option Explicit
Private Sub Command1_Click()
Dim ul As String, mark As String, s As String, temp As String
ul = "http://www.lecai.com/lottery/draw/view/200?phase=20130312072&agentId=5555"
Command1.Enabled = False
With CreateObject("InternetExplorer.Application")
.Visible = False
.navigate ul
Do Until .readyState = 4
DoEvents
Loop
s = .document.body.innerhtml
End With
mark = "latest_draw_time = "
If InStr(s, mark) = 0 Then
Command1.Enabled = True
Exit Sub
End If
temp = Mid(s, InStr(s, mark) + Len(mark) + 1, 20) &vbNewLine
mark = "var phaseData = {""" &Format(Date, "yyyy-mm-dd") &""":"
s = Mid(s, InStr(s, mark) + Len(mark), Len(s))
mark = """red"""
s = Mid(s, InStr(s, mark) + Len(mark) + 2, 19)
temp = temp &s
MsgBox temp
Command1.Enabled = True
End Sub
非常简单:
get_lotto_draw() 仅仅调用一次,生成的 getLottery 也是唯一
int *getLottery =get_lotto_draw()
其实,你可以把 这一句 放 循环 里
for(times=0times<3times++) {
结果 就不一样
当然,这里对你的程序做了一点修改!