1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
| Public Sub maj_stat_team(si_attente As Boolean)
Dim html_stat_team As String
Dim url_temp As String
dates = Format(Now, "dd/mm/yyyy hh:mm:ss")
If (frm_stat.label_date_maj_team.Caption = "00/00/0000 00:00:00") Or (StrComp(Mid(dates, 1, 10), Mid(frm_stat.label_date_maj_team.Caption, 1, 10)) <> 0) Or ((StrComp(Mid(dates, 1, 10), Mid(frm_stat.label_date_maj_team.Caption, 1, 10))) = 0 And (Abs(DateDiff("s", Mid(dates, 12, 8), Mid(frm_stat.label_date_maj_team.Caption, 12, 8))) > 43200)) Or GetFileExist(App.Path & "\" & "page_team.txt") = False Then
'Ligne d'origine
'html_stat_team = frm_stat.transfert.OpenURL("http://vspx27.stanford.edu/teamstats/team" & frm_stat.txt_equipe & ".html")
html_stat_team = frm_stat.transfert.OpenURL("http://folding.extremeoverclocking.com/xml/user_summary.php?u=176736")
If html_stat_team = "" Then
r = MsgBox("Le site de Stanford actuellement est indisponible.", vbExclamation, "Folding Online Signature")
GoTo 3
End If
frm_stat.label_date_maj_team.Caption = Format(Now, "dd/mm/yyyy hh:mm:ss")
Call SetFile(App.Path & "\" & "page_team.txt", html_stat_team)
End If
html_stat_team = GetFile(App.Path & "\" & "page_team.txt")
ligne = ligne + 1
DoEvents
frm_stat.lbl_nom_team.Caption = Trim(recuperer_chaine(html_stat_team, "<TD>" & frm_stat.txt_equipe & "</TD><TD>", "</TD>"))
ligne = ligne + 1
'wu team
frm_stat.lbl_points_equipe.Caption = recuperer_chaine(html_stat_team, frm_stat.lbl_nom_team.Caption & "</TD><TD>", "</TD>")
ligne = ligne + 1
'gene team
frm_stat.lbl_wus_equipe.Caption = recuperer_chaine(html_stat_team, frm_stat.lbl_points_equipe.Caption & "</TD><TD>", "</TD>")
ligne = ligne + 1
'====page total===================
'rang team
frm_stat.lbl_rang_equipe.Caption = recuperer_chaine(html_stat_team, "<BR>Team rank: ", "<BR>")
ligne = ligne + 1
3:
'total team
If si_attente Then
frm_attente.lbl_message.Caption = "Chargement de la page du classement des équipes"
End If
ligne = ligne + 1
DoEvents
dates = Format(Now, "dd/mm/yyyy hh:mm:ss")
If (frm_stat.label_date_maj_teams.Caption = "00/00/0000 00:00:00") Or (StrComp(Mid(dates, 1, 10), Mid(frm_stat.label_date_maj_teams.Caption, 1, 10)) <> 0) Or GetFileExist(App.Path & "\" & "page_teams.txt") = False Then
url_temp = frm_stat.transfert.OpenURL("http://vspx27.stanford.edu/cgi-bin/main.py?qtype=teampage&teamnum=" & frm_stat.txt_equipe)
If url_temp = "" Then
r = MsgBox("Le site de Stanford actuellement est indisponible.", vbExclamation, "Folding Online Signature")
GoTo 4
End If
frm_stat.label_date_maj_teams.Caption = Format(Now, "dd/mm/yyyy hh:mm:ss")
Call SetFile(App.Path & "\" & "page_teams.txt", url_temp)
End If
html_stat_team = GetFile(App.Path & "\" & "page_teams.txt")
frm_stat.lbl_rang_equipe.Caption = frm_stat.lbl_rang_equipe.Caption & " / " & recuperer_chaine(html_stat_team, "<TD align=left> " & frm_stat.lbl_rang_equipe.Caption + 2 & " of ", "</TD>") - 2
ligne = ligne + 1
DoEvents
4:
End Sub |
Partager