vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Online-Formular ohne Webbrowser ausfüllen 
Autor: QDaniel
Datum: 12.10.09 18:25

Du möchtest daten an ein Formular schicken was dir selber gehört? per GET oder POST?

Du musst dann natürlich nur die Daten welche du senden möchtest rihtig kodiert an deinen Aufruf übergeben (siehe auch http://de.wikipedia.org/wiki/Hypertext_Transfer_Protocol#HTTP_POST).

zb. für POST:
sRet = OpenUrlWithData( _
  "http://www.example.org/formular.php","bemerkung=eine%20bemerkung&user=QDani" & _
  "l&pass=blabla&link=www.qdaniel.de")
Mein Modul: modINET.bas Teil 1
Option Explicit
 
'API-Deklarationen:
Private Declare Sub InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long)
Private Declare Function InternetOpenA Lib "wininet.dll" (ByVal sAgent As _
  String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal _
  sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetConnectA Lib "wininet.dll" ( _
    ByVal hInternetSession As Long, ByVal lpszServerName As String, ByVal _
    nProxyPort As Integer, ByVal lpszUsername As String, _
    ByVal lpszPassword As String, ByVal dwService As Long, ByVal dwFlags As _
    Long, ByVal dwContext As Long) As Long
 
Private Declare Sub InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, _
  ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As _
  Long)
 
Private Declare Function InternetQueryOption Lib "wininet.dll" _
                  Alias "InternetQueryOptionA" ( _
                         ByVal hInternet As Long, _
                         ByVal dwOption As Long, _
                         ByRef lpBuffer As Any, _
                         ByRef lpdwBufferLength As Long) As Long
 
Private Declare Function InternetSetOption Lib "wininet.dll" _
                  Alias "InternetSetOptionA" ( _
                         ByVal hInternet As Long, _
                         ByVal dwOption As Long, _
                         ByRef lpBuffer As Any, _
                         ByVal dwBufferLength As Long) As Long
 
 
Private Const INTERNET_SERVICE_HTTP = 3
Private Const INTERNET_DEFAULT_HTTPS_PORT = 443
 
 
Const SECURITY_FLAG_IGNORE_UNKNOWN_CA As Long = &H100
 
Const INTERNET_OPTION_SECURITY_FLAGS As Long = 31
Const INTERNET_COOKIE_EVALUATE_P3P = &H80
Const INTERNET_COOKIE_THIRD_PARTY = &H10
Const INTERNET_FLAG_ASYNC = &H10000000
Const INTERNET_FLAG_CACHE_ASYNC = &H80
Const INTERNET_FLAG_CACHE_IF_NET_FAIL = &H100000
Const INTERNET_FLAG_DONT_CACHE = &H4000000
Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000
Const INTERNET_FLAG_FORMS_SUBMIT = &H40
Const INTERNET_FLAG_FROM_CACHE = &H1000000
Const INTERNET_FLAG_FWD_BACK = &H20
Const INTERNET_FLAG_HYPERLINK = &H400
Const INTERNET_FLAG_IGNORE_CERT_CN_INVALID = &H1000
Const INTERNET_FLAG_IGNORE_CERT_DATE_INVALID = &H2000
Const INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTP = &H8000
Const INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS = &H4000
Const INTERNET_FLAG_KEEP_CONNECTION = &H400000
Const INTERNET_FLAG_MAKE_PERSISTENT = &H2000000
Const INTERNET_FLAG_MUST_CACHE_REQUEST = &H10
Const INTERNET_FLAG_NEED_FILE = &H10
Const INTERNET_FLAG_NO_AUTH = &H40000
Const INTERNET_FLAG_NO_AUTO_REDIRECT = &H200000
Const INTERNET_FLAG_NO_CACHE_WRITE = &H4000000
Const INTERNET_FLAG_NO_COOKIES = &H80000
Const INTERNET_FLAG_NO_UI = &H200
Const INTERNET_FLAG_OFFLINE = &H1000000
Const INTERNET_FLAG_PASSIVE = &H8000000
Const INTERNET_FLAG_PRAGMA_NOCACHE = &H100
Const INTERNET_FLAG_RAW_DATA = &H40000000
Const INTERNET_FLAG_READ_PREFETCH = &H100000
Const INTERNET_FLAG_RELOAD = &H80000000
Const INTERNET_FLAG_RESTRICTED_ZONE = &H20000
Const INTERNET_FLAG_RESYNCHRONIZE = &H800
Const INTERNET_FLAG_SECURE = &H800000
Const INTERNET_FLAG_TRANSFER_ASCII = &H1
Const INTERNET_FLAG_TRANSFER_BINARY = &H2
Const INTERNET_NO_CALLBACK = &H0
Const WININET_API_FLAG_ASYNC = &H1
Const WININET_API_FLAG_SYNC = &H4
Const WININET_API_FLAG_USE_CONTEXT = &H8

-------------------------------------------
Follow the White Rabbit !!!

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Online-Formular ohne Webbrowser ausfüllen3.329Wladi11.10.09 12:24
Re: Online-Formular ohne Webbrowser ausfüllen2.799QDaniel12.10.09 18:25
Re: Online-Formular ohne Webbrowser ausfüllen2.654Wladi12.10.09 20:30
Re: Online-Formular ohne Webbrowser ausfüllen2.722QDaniel12.10.09 18:25
Re: Online-Formular ohne Webbrowser ausfüllen2.448Jana8207.05.10 04:24
Re: Online-Formular ohne Webbrowser ausfüllen2.462QDaniel07.05.10 07:48
Re: Online-Formular ohne Webbrowser ausfüllen2.514QDaniel07.05.10 07:52
Re: Online-Formular ohne Webbrowser ausfüllen2.489Jana8207.05.10 12:32
Re: Online-Formular ohne Webbrowser ausfüllen2.453Jana8210.05.10 21:36
Re: Online-Formular ohne Webbrowser ausfüllen2.548Jana8211.05.10 20:29
Re: Online-Formular ohne Webbrowser ausfüllen2.439Jana8225.05.10 11:22
Re: Online-Formular ohne Webbrowser ausfüllen2.402QDaniel25.05.10 20:27

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel