inetget() und bplaced.de

  • Also, Wenn dann meinst du Bestimmt erstmal "bplaced.net"
    Und zu 2.
    ich habe auch diese Probleme mit InetGet & bplaced! :cursing:
    Ich kann dir http://www.square7.ch/ empfehlen
    Die haben BPLACED gehostet
    Hier die Vorteile

    • 7168MB Speicherplatz
    • Kostenlos
    • Schnelle Server
    • 20 FTP Konten
    • 12 MySQL Datenbanken
    • 20 Sub-Domains

    Habe mich da Gestern registriert und ich mus Sagen: "Wirklich der Wahnsinn".
    Kann ich nur Weiterempfehlen!

  • @DJDomminik: ja das werd ich machen =) und dann mit dot.tk domain draus machen ^^.


    Für alle anderen die noch bplaced benutzen:


    [autoit]

    Func _INetGetSourcebplaced($s_URL, $s_Header = '')
    If StringLeft($s_URL, 7) <> 'http://' And StringLeft($s_URL, 8) <> 'https://' Then $s_URL = 'http://' & $s_URL
    Local $h_DLL = DllOpen("wininet.dll")
    Local $ai_IRF, $s_Buf = ''
    Local $ai_IO = DllCall($h_DLL, 'int', 'InternetOpen', 'str', "unnamed", 'int', 0, 'int', 0, 'int', 0, 'int', 0)
    If @error Or $ai_IO[0] = 0 Then
    DllClose($h_DLL)
    SetError(1)
    Return ""
    EndIf
    Local $ai_IOU = DllCall($h_DLL, 'int', 'InternetOpenUrl', 'int', $ai_IO[0], 'str', $s_URL, 'str', $s_Header, 'int', StringLen($s_Header), 'int', 0x80000000, 'int', 0)
    If @error Or $ai_IOU[0] = 0 Then
    DllCall($h_DLL, 'int', 'InternetCloseHandle', 'int', $ai_IO[0])
    DllClose($h_DLL)
    SetError(1)
    Return ""
    EndIf
    Local $v_Struct = DllStructCreate('udword')
    DllStructSetData($v_Struct, 1, 1)
    While DllStructGetData($v_Struct, 1) <> 0
    $ai_IRF = DllCall($h_DLL, 'int', 'InternetReadFile', 'int', $ai_IOU[0], 'str', '', 'int', 256, 'ptr', DllStructGetPtr($v_Struct))
    $s_Buf &= StringLeft($ai_IRF[2], DllStructGetData($v_Struct, 1))
    WEnd
    DllCall($h_DLL, 'int', 'InternetCloseHandle', 'int', $ai_IOU[0])
    DllCall($h_DLL, 'int', 'InternetCloseHandle', 'int', $ai_IO[0])
    DllClose($h_DLL)
    Return $s_Buf
    EndFunc ;==>_INetGetSourcebplaced

    [/autoit]
  • @DJDomminik: ja das werd ich machen =) und dann mit dot.tk domain draus machen ^^.
    Für alle anderen die noch bplaced benutzen:

    [autoit]

    Func _INetGetSourcebplaced($s_URL, $s_Header = '')
    ...
    EndFunc ;==>_INetGetSourcebplaced

    [/autoit]

    ""
    Das ist nicht nötig ;)
    Einfach die neue Stable 3.3.2.0 verwenden und HttpSetUserAgent aufrufen. Das funktioniert für InetGet, InetRead und _InetGetSource ;) Tritzdem sollte man bplaced nicht missbrauchen, für Versionschecks ist es aber OK.

    Ich kann dir http://www.square7.ch/ empfehlen
    Die haben BPLACED gehostet


    Falsch. square7 ist eine Tochter von bplaced nicht umgekehrt ;). Du hast hier aber keine Werbefreiheit wie auf bplaced.

  • Mit bplaced ist das ganz einfach, man muss einfach nur vor jedem (?) Inet-Befehl folgendes vorschreiben:

    [autoit]

    HttpSetUserAgent("Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.6) Gecko/20091201 Firefox/3.5.6 GTB6 (.NET CLR 2.0.50727)") ; User-Agent (Header) von AutoIt3 ändern, da bei bplaced dieser gesperrt ist

    [/autoit]