1. Entretenimiento
  2. »
  3. Taringa!
  4. »
  5. Info

Como Crear un etiquetador de facebook INBAEABLE

Código fuente. VBA6

Dim cantidad As Double
Private Sub Command1_Click()
Static i As Integer
Dim archivo As String, file_line As String
Dim fnum As Integer, a As Integer
archivo = App.Path & "file.txt"
fnum = FreeFile
Open archivo For Input As fnum
Do While Not EOF(fnum)
Line Input #fnum, file_line
List1.AddItem file_line
Loop
i = 0
For a = 0 To 3
List1.RemoveItem i
Label1.Caption = List1.ListCount - 1
List1.ListIndex = 0
Next
End Sub

Private Sub Command2_Click()
If Label1.Caption <> "" Then


cantidad = 0
Timer1.Interval = Combo1.Text
Timer1.Enabled = True
Else
MsgBox "Cargar Lista"
End If
End Sub

Private Sub Command4_Click()
Timer1.Enabled = True
Command4.Visible = False
End Sub

Private Sub Form_Load()
Combo1.AddItem "500"
Combo1.AddItem "520"
Combo1.AddItem "550"
Combo1.AddItem "570"
Combo1.AddItem "700"
Combo1.AddItem "730"
Combo1.AddItem "810"
Combo1.AddItem "850"
Combo1.AddItem "1000"
Combo2.AddItem "@"
Combo2.AddItem "#"
End Sub

Private Sub Timer1_Timer()
Label6.Caption = List1.Text

If Label4.Caption <> Label1.Caption Then

cantidad = Val(cantidad) + 1

If cantidad <> Text2.Text Then
SendKeys Combo2.Text & Label6.Caption
SendKeys "{ENTER}"
Else
List1.ListIndex = List1.ListIndex + 1
Label4.Caption = Val(Label4.Caption) + 1
cantidad = 0
Timer1.Enabled = False
Command4.Visible = True
End If

Else
Timer1.Enabled = False
MsgBox "Completados" & " " & Label4.Caption
Label4.Caption = ""
End If

End Sub
0
0
0
0No hay comentarios