Wie kann ich den HTML-Code bzw Webseiteninhalt einer URL/Adresse in einen String auslesen?
Wie kann ich auf die Daten von einem externen MySQL-Server via PHP und VB zugreifen?
Keywords: Visual Basic 6, VB 6, Internet, Download, PHP, DB, URL, Quelltext, API, InternetOpen, InternetOpenUrl, InternetReadFile, InternetCloseHandle, Function OpenURL, Website in String
Wie kann ich auf die Daten von einem externen MySQL-Server via PHP und VB zugreifen?
Visual Basic-Quellcode
- Private Declare Function InternetCloseHandle Lib "wininet.dll" _
- (ByVal hInternetHandle As Long) As Boolean
- Private Declare Function InternetOpenA Lib "wininet.dll" (ByVal lpszCallerName As String, _
- ByVal dwAccessType As Long, ByVal lpszProxyName As String, ByVal lpszProxyBypass As _
- String, ByVal dwFlags As Long) As Long
- Private Declare Function InternetOpenUrlA Lib "wininet.dll" (ByVal hOpen As Long, ByVal _
- sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, _
- ByVal lContext As Long) As Long
- Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal _
- sBuffer As String, ByVal lNumBytesToRead As Long, Bytes As Long) As Integer
- Public Enum InternetOpenType
- IOTPreconfig = 0
- IOTDirect = 1
- IOTProxy = 3
- End Enum
- Public Function OpenURL(ByVal URL As String, Optional ByVal OpenType As _
- InternetOpenType = IOTPreconfig) As String
- Const INET_RELOAD = &H80000000
- Dim hInet As Long
- Dim hURL As Long
- Dim Buffer As String * 2048
- Dim Bytes As Long
- 'Inet-Connection öffnen:
- hInet = InternetOpenA("VB-Tec:INET", OpenType, vbNullString, vbNullString, 0)
- hURL = InternetOpenUrlA(hInet, URL, vbNullString, 0, INET_RELOAD, 0)
- 'Daten sammeln:
- Do
- InternetReadFile hURL, Buffer, Len(Buffer), Bytes
- If Bytes = 0 Then Exit Do
- OpenURL = OpenURL & Left$(Buffer, Bytes)
- Loop
- 'Inet-Connection schließen:
- InternetCloseHandle hURL
- InternetCloseHandle hInet
- End Function
- Private Sub Command1_Click()
- MsgBox OpenURL("http://www.deineDomain.de/Datei.php?parameter=wert", IOTDirect)
- End Sub
Keywords: Visual Basic 6, VB 6, Internet, Download, PHP, DB, URL, Quelltext, API, InternetOpen, InternetOpenUrl, InternetReadFile, InternetCloseHandle, Function OpenURL, Website in String
Gruß, Agent Smith
activeFlags = (lazy OR weary)
Lemgo-Verschwörung | Mathematics | VB-Paradise in blau
activeFlags = (lazy OR weary)
Lemgo-Verschwörung | Mathematics | VB-Paradise in blau
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Mad Andy“ ()