|
| Autor |
Nachricht |
tkoh_
Tutorial Leser
Anmeldedatum: 06.02.2008
Beiträge: 45
Wohnort: HH
|
Paidmail bestätiger?
Verfasst am: 08.03.2008, 14:39 |
|
|
Tagchen,
Wollte mal wieder was coden.
Bin auf die Idee gekommen einen Paidmail bestätiger zu bauen.
Er sollte jediglich eine login funktion haben und ein paidmail bestätiger.
die links zum bestätigen sind auf einer homepage.
jeden tag sind sie anders zb:
www.PaidMail.com/id/12345
Diese links sollte er automatisch anklicken.
In welcher Richtung sollte ich mich da Informieren?.
mfg
tkoh |
|
| |
|
 |
DFJ_
Poster
Anmeldedatum: 15.10.2007
Beiträge: 156
|
Verfasst am: 08.03.2008, 14:56 |
|
|
einfach die email aufrufen
und mit instr www.PaidMail.com/id/ suchen
dann per inet die seite auf rufen 
Spam bot |
|
| |
|
|
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
|
Verfasst am: 08.03.2008, 15:03 |
|
|
Split Funktion sollte helfen!
Hab mal was gebastelt:
Hier wird alles Wort für Wort in ne Listbox geschrieben
| Code: | Private Sub Form_Load()
On Error GoTo 10
Dim s As String
Dim v As Variant
Dim i
s = Text1.Text 'Das ist der Quellcode bzw. die Mail
v = Split(s)
For i = 1 To 1E+35
List1.AddItem v(Label1.Caption)
Label1.Caption = Label1.Caption + 1
Next i
10
End Sub |
Funktion:
| Code: | Public Function Split( _
ByRef Expression As String, _
Optional ByRef Delimiter As String = " ", _
Optional ByVal Count As Long = -1, _
Optional ByVal Compare As VbCompareMethod = vbBinaryCompare _
) As Variant 'VB6: As String()
Dim DelimiterLen As Long
Dim Index As Long
Dim Start As Long
Dim Strings() As String
Dim StringsCount As Long
Dim StringsUBound As Long
Dim StringsPtr As Long
If Count And Len(Expression) > 0 Then
DelimiterLen = Len(Delimiter)
If DelimiterLen Then
'Speicher reservieren:
If Count < 0 Then
Count = Len(Expression) \ DelimiterLen
Else
Count = Count - 1
End If
If Count < 2048 Then
StringsUBound = Count
Else
StringsUBound = 1024
End If
ReDim Strings(StringsUBound)
'String splitten:
Start = 1
For StringsCount = 0 To Count - 1
'Ggf. Array vergrößern:
If StringsCount > StringsUBound Then
StringsUBound = StringsCount * 2
ReDim Preserve Strings(StringsUBound)
End If
'Nächsten Delimiter suchen:
Index = InStr(Start, Expression, Delimiter, Compare)
If Index = 0 Then Exit For
'Teilstring speichern:
Strings(StringsCount) = _
Mid$(Expression, Start, Index - Start)
Start = Index + DelimiterLen
Next StringsCount
Strings(StringsCount) = Mid$(Expression, Start)
'Ggf. Array verkleinern:
If StringsCount < StringsUBound Then _
ReDim Preserve Strings(StringsCount)
Else
'Delimiter ist Leerstring:
ReDim Strings(0)
Strings(0) = Expression
End If 'DelimiterLen
Split = Strings
Else
'Nichts zu tun:
Split = Array() 'VB6: Split = VBA.Split("")
End If 'Count And Len(Expression) > 0
End Function
|
Hier wird geprüft ob ne URL drin steckt!
| Code: | Private Sub Command1_Click()
Dim i
For i = 0 To List1.ListCount - 1
If Left(List1.List(i), 7) = "http://" Then
wb1.Navigate List1.List(i)
End If
Next i
End Sub |
 |
|
| |
|
|
th3flood_
Newbie
Anmeldedatum: 09.10.2007
Beiträge: 14
|
Verfasst am: 08.03.2008, 18:01 |
|
|
erstmal vielen dank an killer110, für den guten sourcecode. nur ich komme damit iwie nicht klar, ich habe (IMO) alles auf der form, was man benötigt usw. aber das programm tut bei mir überhaupt nichts? |
|
| |
|
|
|
|
Registrieren
Login
