form1.frm

彩票查询

End If
Next
For m = 1 To 49
If Val(a2) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码开出次数:" + Image1(m).Tag + "   " + "特码开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a3) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码开出次数:" + Image1(m).Tag + "   " + "特码开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a4) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码开出次数:" + Image1(m).Tag + "   " + "特码开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a5) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码开出次数:" + Image1(m).Tag + "   " + "特码开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a6) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码开出次数:" + Image1(m).Tag + "   " + "特码开出次数:" + anki(m)
End If
Next
List1.AddItem temp
End If
Loop
Label4.Caption = "最后追加文件:" & Label4.ToolTipText & " 共(" & List1.ListCount & ")期"
If Len(Label4.Caption) > 21 Then Label4.Caption = Left(Label4.Caption, 10) + "." + Right(Label4.Caption, 21)
Exit Sub

help:
Err.Clear
List1.Visible = False
Label3.Visible = False
Label4.Visible = False
Line1.Visible = False
Line3.Visible = False
Line4.Visible = False
MsgBox "错误文件数据!", Title = "提示", "提示"
End Sub

Private Sub alls_Click()
Line1.Visible = True
Line3.Visible = True
Line4.Visible = True
List1.Visible = True
Label3.Visible = True
Label4.Visible = True
seachd.Enabled = True
appen.Enabled = True
Image7.Enabled = True
Label4.Caption = Label4.ToolTipText
CommonDialog1.filename = Label4.ToolTipText
Close
List1.Clear
aaaaa.Tag = 2
For m = 1 To 49
anki(m) = 0
Image1(m).Tag = 0
Image1(m).ToolTipText = ""
Next
Open CommonDialog1.filename For Input As #1
Do Until EOF(1)
Input #1, temp
i = i + 1
If i <> j Then
j = j + 2
Else
qq = qq + 1
On Error GoTo help
aa = "正码:"
a1 = Mid(temp, 4, 2)
If Left(a1, 1) = "." Then a1 = "0" + Right(a1, 1)
a2 = Mid(temp, 6, 2)
If Left(a2, 1) = "." Then a2 = "0" + Right(a2, 1)
a3 = Mid(temp, 8, 2)
If Left(a3, 1) = "." Then a3 = "0" + Right(a3, 1)
a4 = Mid(temp, 10, 2)
If Left(a4, 1) = "." Then a4 = "0" + Right(a4, 1)
a5 = Mid(temp, 12, 2)
If Left(a5, 1) = "." Then a5 = "0" + Right(a5, 1)
a6 = Mid(temp, 14, 2)
If Left(a6, 1) = "." Then a6 = "0" + Right(a6, 1)
a7 = Mid(temp, 16, Len(temp) - 17)
a8 = Right(temp, 2)
If Left(a8, 1) = "." Then a8 = "0" + Right(a8, 1)
If Len(qq) = 1 Then qq = "00" & qq
If Len(qq) = 2 Then qq = "0" & qq
temp = qq & "期 " & aa & a1 & "." & a2 & "." & a3 & "." & a4 & "." & a5 & "." & a6 & " " & a7 & a8
For m = 1 To 49
If Val(a8) = m Then
anki(m) = Val(anki(m)) + 1
Image1(m).ToolTipText = "正码今年开出次数:" + Image1(m).Tag + "   " + "特码今年开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a1) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码今年开出次数:" + Image1(m).Tag + "   " + "特码今年开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a2) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码今年开出次数:" + Image1(m).Tag + "   " + "特码今年开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a3) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码今年开出次数:" + Image1(m).Tag + "   " + "特码今年开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a4) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码今年开出次数:" + Image1(m).Tag + "   " + "特码今年开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a5) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码今年开出次数:" + Image1(m).Tag + "   " + "特码今年开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a6) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码今年开出次数:" + Image1(m).Tag + "   " + "特码今年开出次数:" + anki(m)
End If
Next
List1.AddItem temp
End If
Loop
Label4.Caption = Label4.Caption & " 共(" & List1.ListCount & ")期"
If Len(Label4.Caption) > 21 Then Label4.Caption = Left(Label4.Caption, 3) + "." + Right(Label4.Caption, 21)
Exit Sub

help:
Err.Clear
List1.Visible = False
Label3.Visible = False
Label4.Visible = False
Line1.Visible = False
Line3.Visible = False
Line4.Visible = False
MsgBox "错误文件数据!", Title = "提示", "提示"
End Sub

Private Sub appe1_Click()
CommonDialog1.filename = ""
CommonDialog1.DialogTitle = "请选择音乐文件"
CommonDialog1.Filter = "音乐文件(*.WAV;*.MP3;*.WMA;*.M3U)|*.WAV;*.MP3;*.WMA;*.M3U"
CommonDialog1.Flags = &H200 Or &H20000 Or &H2 Or &H210
CommonDialog1.MaxFileSize = 20480
CommonDialog1.ShowOpen
If CommonDialog1.filename = "" Then music.Checked = False: Exit Sub

tempa = CommonDialog1.filename
For j = 1 To Len(CommonDialog1.filename)
If Mid(CommonDialog1.filename, j, 1) = Chr(32) Then k = k + 1
Next
For i = 1 To Len(CommonDialog1.filename)
If Mid(CommonDialog1.filename, i, 1) = Chr(32) Then
ankipath = Left(CommonDialog1.filename, i - 1)
If Right(ankipath, 1) = "\" Then ankipath = Left(ankipath, Len(ankipath) - 1)
CommonDialog1.filename = Right(CommonDialog1.filename, Len(CommonDialog1.filename) - Len(ankipath) - 1)
Exit For
End If
Next

If UCase(Right(tempa, 3)) = "WAV" Or UCase(Right(tempa, 3)) = "MP3" Or UCase(Right(tempa, 3)) = "WMA" Or UCase(Right(tempa, 3)) = "M3U" Then
If Right(App.Path, 1) = "\" Then
file_name = App.Path + App.EXEName + ".m3u"
Else
file_name = App.Path + "\" + App.EXEName + ".m3u"
End If
On Error Resume Next
Err.Clear
MediaPlayer1.Stop
MediaPlayer1.filename = Right(file_name, 3) + "ini"
MediaPlayer1.Stop
Open file_name For Append As #14
For i = 1 To k
For j = 4 To Len(CommonDialog1.filename)
If Mid(CommonDialog1.filename, j, 1) = Chr(32) Then
e = Left(CommonDialog1.filename, j - 1)
If Left(e, 1) = Chr(32) Then e = Right(e, Len(e) - 1)
CommonDialog1.filename = Right(CommonDialog1.filename, Len(CommonDialog1.filename) - j) + " anki"
Print #14, ankipath + "\" + e
Exit For
End If
Next
Next
Close #14
MediaPlayer1.filename = file_name
MediaPlayer1.Play
MediaPlayer1.PlayCount = 1
CommonDialog1.filename = ""
nex.Visible = True
bac.Visible = True
appe1.Visible = True
End If
End Sub

Private Sub appen_Click()
Command6 = True
End Sub

Private Sub bac_Click()
MediaPlayer1.Previous
End Sub

Private Sub ce_Click()
Line1.Visible = True
Line3.Visible = True
Line4.Visible = True
List1.Visible = True
Label3.Visible = True
Label4.Visible = True
seachd.Enabled = False
ri = GetPrivateProfileInt("rnd", "RND", ri, filename)
Me.Tag = ri + 1
aa = 2
If Val(Me.Tag) > List1.ListCount Then aa = 1: Me.Tag = 1
If Val(Me.Tag) > 49 Then aa = 3
If Val(Me.Tag) > 100 Then aa = 5
If Val(Me.Tag) > 130 Then aa = 6
For l = 0 To Val(Me.Tag) Step aa
List1.Clear
For i = 1 To 5
lhc:
lh1 = Fix(Rnd * 47 + 3)
lh2 = Fix(Rnd * 49 + 1)
lh3 = Fix(Rnd * 44 + 6)
lh4 = Fix(Rnd * 42 + 8)
lh5 = Fix(Rnd * 45 + 5)
lh6 = Fix(Rnd * 40 + 10)
lh7 = Fix(Rnd * 41 + 9)
If lh1 = lh2 Or lh1 = lh3 Or lh1 = lh4 Or lh1 = lh5 Or lh1 = lh6 Or lh1 = lh7 Then lh1 = lh1 + 1: GoTo lhc
If lh2 = lh1 Or lh2 = lh3 Or lh2 = lh4 Or lh2 = lh5 Or lh2 = lh6 Or lh2 = lh7 Then lh2 = lh2 + 1: GoTo lhc
If lh3 = lh2 Or lh3 = lh1 Or lh3 = lh4 Or lh3 = lh5 Or lh3 = lh6 Or lh3 = lh7 Then lh3 = lh3 + 1: GoTo lhc
If lh4 = lh2 Or lh4 = lh3 Or lh4 = lh1 Or lh4 = lh5 Or lh4 = lh6 Or lh4 = lh7 Then lh4 = lh4 + 1: GoTo lhc
If lh5 = lh2 Or lh5 = lh3 Or lh5 = lh4 Or lh5 = lh1 Or lh5 = lh6 Or lh5 = lh7 Then lh5 = lh5 + 1: GoTo lhc
If lh6 = lh2 Or lh6 = lh3 Or lh6 = lh4 Or lh6 = lh5 Or lh6 = lh1 Or lh6 = lh7 Then lh6 = lh6 + 1: GoTo lhc
If lh7 = lh2 Or lh7 = lh3 Or lh7 = lh4 Or lh7 = lh5 Or lh7 = lh6 Or lh7 = lh1 Then lh7 = lh7 + 1: GoTo lhc
If lh1 = 50 Or lh2 = 50 Or lh3 = 50 Or lh4 = 50 Or lh5 = 50 Or lh6 = 50 Or lh7 = 50 Then GoTo lhc
If Len(lh1) = 1 Then lh1 = "0" & lh1
If Len(lh2) = 1 Then lh2 = "0" & lh2
If Len(lh3) = 1 Then lh3 = "0" & lh3
If Len(lh4) = 1 Then lh4 = "0" & lh4
If Len(lh5) = 1 Then lh5 = "0" & lh5
If Len(lh6) = 1 Then lh6 = "0" & lh6
If Len(lh7) = 1 Then lh7 = "0" & lh7
ank = Fix(Rnd * 12) + 1
If ank = 1 Then ab = "鼠"
If ank = 2 Then ab = "牛"
If ank = 3 Then ab = "虎"
If ank = 4 Then ab = "兔"
If ank = 5 Then ab = "龙"
If ank = 6 Then ab = "蛇"
If ank = 7 Then ab = "马"
If ank = 8 Then ab = "羊"
If ank = 9 Then ab = "猴"
If ank = 10 Then ab = "鸡"
If ank = 11 Then ab = "狗"
If ank = 12 Then ab = "猪"
temp = "正码:" & lh1 & "." & lh2 & "." & lh3 & "." & lh4 & "." & lh5 & "." & lh6 & " 特码:" & lh7 & " 生肖:" & ab
List1.AddItem temp
Next
Next
End Sub

Private Sub color1_Click()
CommonDialog1.ShowColor
List1.ForeColor = CommonDialog1.Color
End Sub

Private Sub Command1_Click()
If Command1.Tag = "1" Then GoTo star
CommonDialog1.filename = ""
CommonDialog1.DialogTitle = "请选择数据文件"
CommonDialog1.Filter = "数据文件(*.LHC;*.TXT;*.DAT)|*.lhc;*.txt;*.dat"
CommonDialog1.MaxFileSize = 20480
CommonDialog1.ShowOpen
If CommonDialog1.filename = "" Then Exit Sub
star:
If about.Tag <> "1" Then
Line1.Visible = True
Line3.Visible = True
Line4.Visible = True
List1.Visible = True
Label3.Visible = True
Label4.Visible = True
End If
seachd.Enabled = True
appen.Enabled = True
Image7.Enabled = True
Label4.Caption = CommonDialog1.filename
Label4.ToolTipText = CommonDialog1.filename
Close
List1.Clear
Command1.Tag = ""
aaaaa.Tag = 2
For m = 1 To 49
anki(m) = 0
Image1(m).Tag = 0
Image1(m).ToolTipText = "正码今年开出次数:" + Image1(m).Tag + "   " + "特码今年开出次数:" + anki(m)
Next
If UCase(Right(CommonDialog1.filename, 3)) = "TXT" Then
For m = 1 To 49
anki(m) = 0
Image1(m).Tag = 0
Image1(m).ToolTipText = ""
Next
Image6.Enabled = False
Image7.Enabled = False
Image8.Enabled = False
appen.Enabled = False
ren.Enabled = False
aaaaa.Enabled = False
seachd.Enabled = False
ce.Enabled = False
alls.Enabled = False
On Error GoTo help
Open CommonDialog1.filename For Input As #1
Do Until EOF(1)
On Error GoTo helpp
Input #1, temp
If Len(temp) > 19 Then
List1.AddItem Left(temp, 18)
For i = 1 To Len(temp) / 19
List1.AddItem Mid(temp, i * 19, 19)
Next
Else
List1.AddItem temp
End If
Loop
helpp:
Exit Sub
End If
On Error GoTo help
Image6.Enabled = True
Image7.Enabled = True
Image8.Enabled = True
appen.Enabled = True
ren.Enabled = True
aaaaa.Enabled = True
seachd.Enabled = True
ce.Enabled = True
alls.Enabled = True
Open CommonDialog1.filename For Input As #1
Do Until EOF(1)
Input #1, temp
i = i + 1
If i <> j Then
j = j + 2
Else
qq = qq + 1
aa = "正码:"
a1 = Mid(temp, 4, 2)
If Left(a1, 1) = "." Then a1 = "0" + Right(a1, 1)
a2 = Mid(temp, 6, 2)
If Left(a2, 1) = "." Then a2 = "0" + Right(a2, 1)
a3 = Mid(temp, 8, 2)
If Left(a3, 1) = "." Then a3 = "0" + Right(a3, 1)
a4 = Mid(temp, 10, 2)
If Left(a4, 1) = "." Then a4 = "0" + Right(a4, 1)
a5 = Mid(temp, 12, 2)
If Left(a5, 1) = "." Then a5 = "0" + Right(a5, 1)
a6 = Mid(temp, 14, 2)
If Left(a6, 1) = "." Then a6 = "0" + Right(a6, 1)
a7 = Mid(temp, 16, Len(temp) - 17)
a8 = Right(temp, 2)
If Left(a8, 1) = "." Then a8 = "0" + Right(a8, 1)
If Len(qq) = 1 Then qq = "00" & qq
If Len(qq) = 2 Then qq = "0" & qq
temp = qq & "期 " & aa & a1 & "." & a2 & "." & a3 & "." & a4 & "." & a5 & "." & a6 & " " & a7 & a8
For m = 1 To 49
If Val(a8) = m Then
anki(m) = Val(anki(m)) + 1
Image1(m).ToolTipText = "正码今年开出次数:" + Image1(m).Tag + "   " + "特码今年开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a1) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码今年开出次数:" + Image1(m).Tag + "   " + "特码今年开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a2) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码今年开出次数:" + Image1(m).Tag + "   " + "特码今年开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a3) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码今年开出次数:" + Image1(m).Tag + "   " + "特码今年开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a4) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码今年开出次数:" + Image1(m).Tag + "   " + "特码今年开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a5) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码今年开出次数:" + Image1(m).Tag + "   " + "特码今年开出次数:" + anki(m)
End If
Next
For m