View Full Version : استفاده از webbrowser
p30rex
سه شنبه 05 بهمن 1389, 20:37 عصر
سلام
من تو ویژوال بیسیک از webbrowser استفاده میکنم
داخل صفحه ای که تو این webbrowser میاد یک فرم وجود داره که یک دکمه ارسال داره
حالا میخوام بدونم میشه تو برنامم یک دکمه داشته باشم که اگر روش کلیک کنی انگار رو کلیدی که داخل اون فرم قرار داره کلیک میشه؟
پیشاپیش از راهنمایی هاتون متشکرم ...
_behnam_
سه شنبه 05 بهمن 1389, 21:18 عصر
سلام
من تو ویژوال بیسیک از webbrowser استفاده میکنم
داخل صفحه ای که تو این webbrowser میاد یک فرم وجود داره که یک دکمه ارسال داره
حالا میخوام بدونم میشه تو برنامم یک دکمه داشته باشم که اگر روش کلیک کنی انگار رو کلیدی که داخل اون فرم قرار داره کلیک میشه؟
پیشاپیش از راهنمایی هاتون متشکرم ...
بله , 100 % میشه به روش زیر :
1. از تو سورس اون صفحه نام دکمه رو پیدا میکنی بعد کد زیر رو واسه دکمه تو فرمت میزاری به جای Name باید نام دکمه رو وارد کنی
WebBrowser.Document.Forms(0).elements("Name").Click
2. اگه تکست باکسی هم خواستید از تو ویژوال پر کنید اول نام تکست باکس رت پیدا میکنید و بعد کد زیر رو وارد میکنی به جای Name باید نام تکست باکس را وارد کنید
WebBrowser.Document.Forms(0).elements("Name").Value = Text.Text
p30rex
سه شنبه 05 بهمن 1389, 21:18 عصر
من جواب سوالمو تو همین سایت پیدا کردم
حالا یه سوال دیگه...
میشه عکسی که توwebbrowser وجود داره رو تو برنامه به عنوان یک تصویر نمایش داد؟
_behnam_
سه شنبه 05 بهمن 1389, 21:38 عصر
من جواب سوالمو تو همین سایت پیدا کردم
حالا یه سوال دیگه...
میشه عکسی که توwebbrowser وجود داره رو تو برنامه به عنوان یک تصویر نمایش داد؟
باید آدرس عکس رو داشته باشی بعد با یک تابع عکس رو تو پوشه فایل اجرایی دانلود کنی و بعد دانلود اون عکسو تو Picture لود کنی
این تابع واسه دانلود استفاده میشه
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با کد زیر عکسو دانلود میکنی و در Picture لود میکنی
DownloadFile Adres ax, App.Path & "\Image.jpg"
Picture.Picture = LoadPicture(App.Path & "\Image.jpg")
p30rex
سه شنبه 05 بهمن 1389, 22:08 عصر
باید آدرس عکس رو داشته باشی بعد با یک تابع عکس رو تو پوشه فایل اجرایی دانلود کنی و بعد دانلود اون عکسو تو Picture لود کنی
این تابع واسه دانلود استفاده میشه
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با کد زیر عکسو دانلود میکنی و در Picture لود میکنی
DownloadFile Adres ax, App.Path & "\Image.jpg"
Picture.Picture = LoadPicture(App.Path & "\Image.jpg")
اول خیلی ممنونم
دوم:
یعنی نمیشه بدون دانلود از تو webbrowser کاری کرد؟!!
_behnam_
سه شنبه 05 بهمن 1389, 23:05 عصر
اول خیلی ممنونم
دوم:
یعنی نمیشه بدون دانلود از تو webbrowser کاری کرد؟!!
حقیقتش من تاحالا دنبالش نرفتم , شاید بشه ، در هر صورت اگه راحی باشه من بلد نیستم :لبخند:
p30rex
سه شنبه 05 بهمن 1389, 23:54 عصر
حقیقتش من تاحالا دنبالش نرفتم , شاید بشه ، در هر صورت اگه راحی باشه من بلد نیستم :لبخند:
مثلا میشه اسکرول رو جوری تنظیم کرد که عکس نمایش داده بشه بعد از webbrowser عکس بگیریم
آخه من یه نمونه خارجیشو دیده بودم اما نمیدونم کجاس!!!
اگر میشه لطفا راهنمایی کنید
p30rex
چهارشنبه 06 بهمن 1389, 14:52 عصر
بله , 100 % میشه به روش زیر :
1. از تو سورس اون صفحه نام دکمه رو پیدا میکنی بعد کد زیر رو واسه دکمه تو فرمت میزاری به جای Name باید نام دکمه رو وارد کنی
WebBrowser.Document.Forms(0).elements("Name").Click2. اگه تکست باکسی هم خواستید از تو ویژوال پر کنید اول نام تکست باکس رت پیدا میکنید و بعد کد زیر رو وارد میکنی به جای Name باید نام تکست باکس را وارد کنید
WebBrowser.Document.Forms(0).elements("Name").Value = Text.Text
آیا میشه به همین روش روی یک عکس کلیک کرد و یا یک اسکریپت (جاوا) رو اجرا کرد؟!!
p30rex
پنج شنبه 07 بهمن 1389, 14:04 عصر
یعنی اینقد سوالم سخته؟!!!
خواهش میکنم راهنماییم کنید بدجوری گیرم!
p30rex
پنج شنبه 07 بهمن 1389, 15:21 عصر
آقا پیداش کردم اما بلد نیستم ازش استفاده کنم!!!
چطوری باید نمایشش بدم؟
Dim pageImages As Object
Set pageImages = WebBrowser1.Document.getElementsByTagName("img")(0)
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.