我現在給大家看一個qq自動回話 的小程序 很好玩的[转帖]

盗到稻

我現在給大家看一個qq自動回話 的小程序 很好玩的
Dim a, b, bb As Integer
Dim QQname As String
Private Sub Check1_Click()
If Check1.Value = 1 Then
Combo2.Enabled = False
Image3.Enabled = True
Else
Combo2.Enabled = True
Image3.Enabled = False
End If
End Sub

Private Sub Combo1_Click()
If Combo1.Text = "×Ö·ûͼƬ" Then

End If
appLISt Form1.Combo1.Text & ".txt"
If Form3.List1.ListCount <> 0 Then
Form3.List1.ListIndex = 0
i = 0
End If
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Left = Command1.Left + X
If Command1.Left > Image4.Width + 219 Then Command1.Left = 1855
If Command1.Left < 220 Then Command1.Left = 220
If Timer1.Enabled = True Then
Timer1.Interval = Command1.Left - 219
Label3(0).Caption = "&Otilde;&yacute;&Ograve;&Ocirc;" & Command1.Left - 219 & "&ordm;&Aacute;&Atilde;&euml;" & "·&cent;&Euml;&Iacute;!"
Label3(1).Caption = "&Otilde;&yacute;&Ograve;&Ocirc;" & Command1.Left - 219 & "&ordm;&Aacute;&Atilde;&euml;" & "·&cent;&Euml;&Iacute;!"
Else
Label3(0).Caption = "&Ecirc;±&frac14;&auml;&Ograve;&Ntilde;&Eacute;è&Icirc;&ordf;" & Command1.Left - 219 & "&ordm;&Aacute;&Atilde;&euml;"
Label3(1).Caption = "&Ecirc;±&frac14;&auml;&Ograve;&Ntilde;&Eacute;è&Icirc;&ordf;" & Command1.Left - 219 & "&ordm;&Aacute;&Atilde;&euml;"
End If
End Sub




Private Sub Form_Load()
Combo1.Text = "&sup3;&pound;&Oacute;&Atilde;&Oacute;&iuml;&frac34;&auml;"
cai = Form2.Label2(0).Caption & ".txt"
QQname = "·&cent;&Euml;&Iacute;&Iuml;&ucirc;&Iuml;&cent;"
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
SetWindowPos Form2.hwnd, -1, 0, 0, 0, 0, 3
SetWindowPos Form3.hwnd, -1, 0, 0, 0, 0, 3
If Form3.List1.ListCount <> 0 Then
Form3.List1.ListIndex = 0
End If
End Sub


Private Sub Form_Resize()
If Image1.BorderStyle = 1 Then Form2.Show
If Image5.BorderStyle = 1 Then Form3.Show
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.BorderStyle = 1
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static ii As Integer
a = a + 1
If a > 2 Then a = 1
Select Case a
Case 1
Form2.Show
Form2.Left = Form1.Left + Form1.Width
Form2.Top = Form1.Top
Form2.Width = 0
For ii = 1 To 518
Form2.Width = Form2.Width + 10
Image1.ToolTipText = "&sup1;&Oslash;±&Otilde;±à&frac14;&shy;&iquest;ò"
Next ii
awf "&sup3;&pound;&Oacute;&Atilde;&Oacute;&iuml;&frac34;&auml;.txt"
Form2.Label1(0).Caption = "±à &frac14;&shy; &iquest;ò-&sup3;&pound; &Oacute;&Atilde; &Oacute;&iuml; &frac34;&auml;"
Form2.Label1(1).Caption = "±à &frac14;&shy; &iquest;ò-&sup3;&pound; &Oacute;&Atilde; &Oacute;&iuml; &frac34;&auml;"
Case 2
Image1.BorderStyle = 0
Image1.ToolTipText = "&acute;ò&iquest;&ordf;±à&frac14;&shy;&iquest;ò"
For ii = 1 To 518
Form2.Width = Form2.Width - 10
Next ii
Form2.Hide
End Select
End Sub


Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.BorderStyle = 1
End Sub

Private Sub Image3_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image1.BorderStyle = 1 Then Form2.Hide
If Image5.BorderStyle = 1 Then Form3.Hide
Image3.BorderStyle = 0
Form1.WindowState = 1
Form2.Hide
Form3.Hide
End Sub

Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Left = X + 220
If Timer1.Enabled = True Then
Timer1.Interval = Command1.Left - 219
Label3(0).Caption = "&Otilde;&yacute;&Ograve;&Ocirc;" & Command1.Left - 219 & "&ordm;&Aacute;&Atilde;&euml;" & "·&cent;&Euml;&Iacute;!"
Label3(1).Caption = "&Otilde;&yacute;&Ograve;&Ocirc;" & Command1.Left - 219 & "&ordm;&Aacute;&Atilde;&euml;" & "·&cent;&Euml;&Iacute;!"
Else
Label3(0).Caption = "&Ecirc;±&frac14;&auml;&Ograve;&Ntilde;&Eacute;è&Icirc;&ordf;" & Command1.Left - 219 & "&ordm;&Aacute;&Atilde;&euml;"
Label3(1).Caption = "&Ecirc;±&frac14;&auml;&Ograve;&Ntilde;&Eacute;è&Icirc;&ordf;" & Command1.Left - 219 & "&ordm;&Aacute;

sweetduck

贴这么多，不如上传程序！

疾风

??