PHP Code:
Option Strict On
Option Explicit On
Imports System.Text
Imports System.Threading
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With New Http
Dim html As String = String.Empty
Dim username As String = "XXX"
Dim password As String = "XXX"
html = .GetResponse("http://www.elitepvpers.com/forum/login.php?do=login", "vb_login_username=" & username & "&vb_login_password=" & password & "&cookieuser=1&s=&securitytoken=guest&do=login&vb_login_md5password=&vb_login_md5password_utf=")
html = .GetResponse("http://www.elitepvpers.com/forum/")
If html.Contains("Log Out") Then
MsgBox("login")
Else
End If
Dim title As String = "XXX"
Dim content As String = "XXX"
Dim cost As String = "1XXX"
html = .GetResponse("http://www.elitepvpers.com/theblackmarket/treasures/", "title=" & title & "&content=" & content & "&cost=" & cost & "&createtreasure=Submit")
html = .GetResponse("http://www.elitepvpers.com/theblackmarket/treasures/")
If html.Contains("Your") Then
MsgBox("Treasure erfolgreich erstellt.")
Else
MsgBox("tr22222222")
End If
End With
End Sub
End Class
Gibt aber nicht die meldung: "Treasure erfolgreich erstellt."
woran liegt das?
