שאלה

[SolDier2]

שאלה

איך אני יכול לגשת לדף PHP דרך קוד VB?

 

[MaD-d0g]

מה הכוונה לגשת ../images/Emo35.gif

אם זה לקרוא את התוכן שלו אז יש במשהו ב FAQ

 

[SolDier2]

כן, התכוונתי לקרוא את התוכן...

יש לי טבלה בדף PHP שיושב על שרת ואני רוצה לקרוא את התוכן שלה, אני רק צריך איזה שהוא כיוון כללי אם תוכל לתת לי ואני כבר יחפש לבד. תודה מראש!

 

[SolDier2]

במחשבה שניה

ה - PHP לא נמצא על שרת מרוחק, אני רק צריך לדעת איך לקרוא תוכן מדף PHP דרך קוד VB.

 

[MaD-d0g]

הכתובת שלו היא

http://www.xxx.xxx/xxx.html

 

[SolDier2]

לא

http://www.xxx.xxx/xxx.PHP חיפשתי קצת באינטרנט וכל הדוגמאות מובאות עם c++, זה אפשרי בכלל עם VB?

 

[MaD-d0g]

אוקיי

זה לא משנה. ה PHP עובד רק מאחורי הקלעים. בדיוק כמו ASP. מה שאתה רוצה זה את קוד ה HTML. תשתמש בקוד הזה:

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (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 InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (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, lNumberOfBytesRead As Long) As Integer Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0 Private Const INTERNET_FLAG_RELOAD = &H80000000 Public Function OpenURL(sURL As String) As String Dim hOpen As Long Dim hOpenUrl As Long Dim bDoLoop As Boolean Dim bRet As Boolean Dim sReadBuffer As String * 2048 Dim lNumberOfBytesRead As Long Dim sBuffer As String On Error Resume Next hOpen = InternetOpen("dl/0.9", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0) hOpenUrl = InternetOpenUrl(hOpen, sURL, vbNullString, 0, INTERNET_FLAG_RELOAD, 0) bDoLoop = True While bDoLoop sReadBuffer = vbNullString bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead) sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead) If Not CBool(lNumberOfBytesRead) Then bDoLoop = False Wend If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl) If hOpen <> 0 Then InternetCloseHandle (hOpen) OpenURL = sBuffer Exit Function End Function​

 

[SolDier2]

שאלה נוספת

הי. קודם כל תודה רבה. המטרה שלי היא להעביר טבלה שנמצאת בכתובת URL מסויימת לתוך RECORDSET ב-VB. הטבלה בשלב זה מתקבלת ע"י סקריפט PHP והגישה אל הטבלה מתבצעת ע"י פנייה ל-URL. לסיכום: ה-INPUT לפונקצית VB תהיה ה-URL והתוצאה RECORDSET. תודה מראש