PDA

View Full Version : ایجاد internet explorer ساده در vb.net


علی باحجب مودتی
دوشنبه 24 مرداد 1384, 10:42 صبح
میخواهم در یک فرم یک صفحه وب نمایش دهم
Mohammad .net
دوشنبه 24 مرداد 1384, 11:31 صبح
در بخش Com Commponens از Microsoft Web Browser می تونید استفاده کنید. به نظر جالبه و به دردتون می خوره. انشا ا...
علی باحجب مودتی
دوشنبه 24 مرداد 1384, 14:32 عصر
Url را چگونه بدم غیر فعال است
Mohammad .net
دوشنبه 24 مرداد 1384, 16:36 عصر
Me.AxWebBrowser1.Navigate("www.barnamenevis.org")
kochol
دوشنبه 18 مهر 1384, 22:04 عصر
سلام
من می خواهم که اولا بفهمم که کار خواندن صفحه تموم شده یا نه ثانیا هم بتونم کد html صفحه را در یک استرینگ ذخیره کنم.
لطفا هر راهی بلدید بگید.
kochol
سه شنبه 19 مهر 1384, 20:22 عصر
در ضمن بگم که اصلا مهم نیست که چیزی نشون نده من فقط کد html اون صفحه را می خواهم.
kochol
پنج شنبه 21 مهر 1384, 16:59 عصر
سلام
یکی از دوستان در سایت http://www.com2ir.com این تابع را پیشنهاد کرده بود که من نتونستم ازش استفاده کنم اگر می شه شما یه راهنمایی بکنید.


Private Declare Function URLDownLoadToFile Lib "url.dll" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Hamedm
پنج شنبه 21 مهر 1384, 17:12 عصر
سلام
یکی از دوستان در سایت http://www.com2ir.com این تابع را پیشنهاد کرده بود که من نتونستم ازش استفاده کنم اگر می شه شما یه راهنمایی بکنید.


Private Declare Function URLDownLoadToFile Lib "url.dll" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

سلام

این تابع API، آدرس صفحه داده شده رو در هارد ذخیره میکنه.
پامترها:
pCall: معمولا مقدار این پارامتر رو صفر قرار میدیم.
szURL: آدرس مورد نظر
szFileName: نام فایل است.
dwReserved: مقدار این پارامتر رو صفر قرار میدیم.
lpfnCD: مقدار این پارامتر رو صفر قرار میدیم.

این هم یک مثال از نرم افزار API-Guide:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
'example by Matthew Gates (Puff0rz@hotmail.com)
DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub
البته این مثال در VB6.0 است.

در پناه حق موفق باشید و پرتوان