Verfasst am: 24.04.2008, 20:16 Aufrufe: 789
Ich habs halt so gemacht wie im tut
Private Sub Command1_Click()
Dim Quelltext As String
Quelltext = Inet1.OpenURL("http://mailde.de/index.php?action=signup&step=2")
Text1 = Quelltext
Dim Txt As String
Txt = Text1.Text
Dim buffer As String, pos As Long, pos2 As Long
pos = InStr(1, Txt, "codegen&bmsession=") 'suchen im quelltext
pos2 = InStr(po ...