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 !!! |