Double Error beim Aufrufen einer Website
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von CodingCore.
-
-
CodingCore schrieb:
Kann mir da jemand helfen?
Ohne Coding von dir nur: Versuch nicht "https://www...." in eine Zahl zu konvertieren. -
-
@Cheffboss wo hast du Hellsehen gelernt? Könntest du uns mal deine Glaskugel ausleihen?
-
-
-
Zeig mal den ganzen Code von deinem Click Event."Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."
Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
Wie man VisualStudio nutzt? => VisualStudio richtig nutzen -
-
mrMo schrieb:
Zeig mal den ganzen Code von deinem Click Event.
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim result As String = ""
- wb.Navigate("http://www.example.com/login.php?action=login&username=" + TextBox1.Text + "&password=" + getHashFromString(TextBox2.Text) + "&hwid=" + getHashFromString(hwid))
- WaitForPageLoad()
- result = wb.DocumentText
- If result = "1" Then
- MsgBox("Yes")
- Else
- MsgBox("No")
- End If
- End Sub
Cheffboss schrieb:
Prüfe ob die URL richtig ist, öffne diese mit einem Browser.
Vieleicht ist nur, die URL falsch!
URL ist Richtig -
Nimm mal testweise ne andere URL."Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."
Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
Wie man VisualStudio nutzt? => VisualStudio richtig nutzen -
VB.NET-Quellcode
- Private Function ReadHTML(strAdress As String) As String
- Dim strReturn As String = ""
- Dim objRequest As WebRequest
- Dim objResponse As WebResponse
- Dim objStreamReader As StreamReader
- objRequest = WebRequest.Create(strAdress)
- objResponse = objRequest.GetResponse
- objStreamReader = New StreamReader(objResponse.GetResponseStream)
- strReturn = objStreamReader.ReadToEnd
- objStreamReader.Close()
- Return strReturn
- End Function
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Try
- Dim strResult As String = Nothing
- strResult = ReadHTML("https://foobar.example/yourHTMLSite.html")
- If strResult = "1" Then
- MsgBox("Yes")
- Else
- MsgBox("No")
- End If
- Catch ex As Exception
- mobjGlobalEventHandler.GeneralException(ex)
- End Try
- End Sub
Funktioniert. Wenn du es unbedingt als Int brauchst, musst du dir die Function halt eben umschreiben.
mrMo schrieb:
Nimm mal testweise ne andere URL.Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Toorms“ ()
-
Toorms schrieb:
Habe es bei mir auch mit seinem Code und mehreren URL's probiert. Funktionierte nicht, habe es nicht näher getracked.
Wo knallt es da? Beim .Navigate? Ist das der normale Webbrowser?"Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."
Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
Wie man VisualStudio nutzt? => VisualStudio richtig nutzen -
mrMo schrieb:
Wo knallt es da? Beim .Navigate? Ist das der normale Webbrowser?
Da es nirgends wirklich "geknallt" hat, habe ich es nicht weiter verfolgt. Habe kurz mal einen Haltepunkt gesetzt und geschaut, mehr aber auch nicht. -
Was passiert hier:
- WaitForPageLoad
- getHashFromString
Woher kommen diese Methoden? Mein VS kennt die nicht. Nehme ich google.de als url und schmeiße WaitForPageLoad raus, läuft der Code ohne Fehlermeldung.
Gibts sonst noch Code der durch Events des Browsers ausgeführt wird?"Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."
Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
Wie man VisualStudio nutzt? => VisualStudio richtig nutzen -
mrMo schrieb:
Was passiert hier:
- WaitForPageLoad
- getHashFromString
Ich muss auch ehrlich sagen, ich habe die beiden Methoden bei mir rausgeschmissen beim Testen und habe nur nach einem reinen String beim Pageload gefragt. Auch ohne Erfolg. Da es bei mir auch nicht funktioniert hat, obwohl ich den String direkt in die HTML vorher geschrieben habe, denke ich nicht, dass es was mit der Methode "getHashFromString" zu tun hat. Was in "WaitForPageLoad" steht, würde mich aber auch interessieren. -
mrMo schrieb:
Was passiert hier:
- WaitForPageLoad
- getHashFromString
WaitForPageLoad: Es wird darauf gewartet das die Seite vollständig geladen ist.
VB.NET-Quellcode
- Private Property pageready As Boolean = False
- #Region "Page Loading Functions"
- Private Sub WaitForPageLoad()
- AddHandler wb.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
- While Not pageready
- Application.DoEvents()
- End While
- pageready = False
- End Sub
- Private Sub PageWaiter(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
- If wb.ReadyState = WebBrowserReadyState.Complete Then
- pageready = True
- RemoveHandler wb.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
- End If
- End Sub
- #End Region
GetHashFromString: Ein String wird gehasht.
VB.NET-Quellcode
- Public Function getBinaryFromChar(c As Char) As Integer
- If c.Equals("a"c) Then
- Return 1100001
- End If
- If c.Equals("b"c) Then
- Return 1100010
- End If
- If c.Equals("c"c) Then
- Return 1100011
- End If
- If c.Equals("d"c) Then
- Return 1100100
- End If
- If c.Equals("e"c) Then
- Return 1100101
- End If
- If c.Equals("f"c) Then
- Return 1100110
- End If
- If c.Equals("g"c) Then
- Return 1100111
- End If
- If c.Equals("h"c) Then
- Return 1101000
- End If
- If c.Equals("i"c) Then
- Return 1101001
- End If
- If c.Equals("j"c) Then
- Return 1101010
- End If
- If c.Equals("k"c) Then
- Return 1101011
- End If
- If c.Equals("l"c) Then
- Return 1100001
- End If
- If c.Equals("m"c) Then
- Return 1101100
- End If
- If c.Equals("n"c) Then
- Return 1101110
- End If
- If c.Equals("o"c) Then
- Return 1101111
- End If
- If c.Equals("p"c) Then
- Return 1100001
- End If
- If c.Equals("q"c) Then
- Return 1110000
- End If
- If c.Equals("r"c) Then
- Return 1110010
- End If
- If c.Equals("s"c) Then
- Return 1110011
- End If
- If c.Equals("t"c) Then
- Return 1110100
- End If
- If c.Equals("u"c) Then
- Return 1110101
- End If
- If c.Equals("v"c) Then
- Return 1110110
- End If
- If c.Equals("w"c) Then
- Return 1110111
- End If
- If c.Equals("x"c) Then
- Return 1111000
- End If
- If c.Equals("y"c) Then
- Return 1111001
- End If
- If c.Equals("z"c) Then
- Return 1111010
- End If
- Return 0
- End Function
- Public Function getHashFromString(plain As String) As Integer
- Dim hash As Integer = 0
- Dim add As Integer = 0
- Dim salt As Integer = 0
- For Each c As Char In plain
- add += getBinaryFromChar(c)
- Next
- For Each c As Char In Environment.UserName
- salt += getBinaryFromChar(c)
- Next
- Return (add + salt) / (Environment.UserName.Length + plain.Length)
- End Function
-
Den letzten Post will ich gar nicht erst inhaltlich bewerten, aber wenn Du
Option Strict On
nutzen würdest, würde Dir nicht erst zur Laufzeit die ZeileDouble
. Wenn Deine Funktionen schonInteger
zurückgeben, dann mach notfalls eben das draus:
&
statt dem+
, sonst macht der Compiler eben eine (Be)Rechnung draus, was dann Mus wird, wie Du gesehen hast.
Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.
Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln. -
VaporiZed schrieb:
wb.Navigate("http://www.example.com/login.php?action=login&username=" & TextBox1.Text & "&password=" & getHashFromString(TextBox2.Text).ToString() & "&hwid=" & getHashFromString(hwid)).ToString())
Danke
-
Benutzer online 1
1 Besucher
-
Ähnliche Themen
-
haha90 - - Sonstige Problemstellungen
-
conger890 - - Sonstige Problemstellungen
-
7 Benutzer haben hier geschrieben
- CodingCore (5)
- mrMo (4)
- Toorms (3)
- Cheffboss (3)
- VaporiZed (1)
- EaranMaleasi (1)
- Bluespide (1)