درج تبلیغ در نرم افزار

[علیرضا.ا]

میخوام توی نرم افزاری که میسازم یه بنر تبلیغاتی بزارم
آدرس این بنر باید قابل تعویض باشه برای همین نمیتونم توی لیبل عکس بزارم
راه حلی که به نظر خودم رسید استفاده از کامپونت webbrowser بود
یعنی اینجوری که یه صفحه ی html بسازم و عکس رو توی اون بزارم و ادرس اون صفحه رو توی نرم افزار بزارم

میخوام ببینم راه آسون تری هم هست؟

[mehran901]

کار حرفه ای اگه بخواین انجام بدین پیشنهاد میکنم ی فایل متنی رو رو هاستتون آپ میکنین به همراه بنرتون با استفاده از کنترل microsoft internet transfer لینک بنر رو از فایل تکست میخونین و همین طور لینک جایی که باید با کلیک شدن دیرکت بشه ، بعد تو اونت کلیک پیکچرباکسی که اون تصویر رو لود میکنه لینک مورد نظرتون رو قرار میدین تا با کلیک کردن باز بشه

[علیرضا.ا]

کنترل microsoft internet transfer رو وقتی میخام بزارم ارور لایسنس میده....
اگه زحمتی نیس از این روشی که گفتین یه نمونه بزارید...
ممنونــــــ . . .

[mehran901]

ارور لایسنس میده چون نسخه غیر تجاری ویبی رو نصب کردین
express هم داریم که آموزشی هست باید
professional ya enterprise
نصب کنین

[علیرضا.ا]

اخه نسخه ی کامل رو نیاز ندارم
هیچ راهی نداره؟!!!!!

[mehran901]

متاسفانه خیر .

[m.4.r.m]

بعضی از کار ها رو نمیشه کرد ولی شما میگید باید بشه خوب وقتی نسخه Express نصب کنی همین میشه دیگه .

[miladatashin]

با api هم میتوتید انجام بدین. تابع URLDownloadToFile و کتابخانه urlmon
این جوری نیازی به ocx هم نیست

[m.4.r.m]

بابا تصاویر در ریسورس ذخیره کن و در نرم افزار نشون بده

[mehran901]

با api هم میتونید انجام بدین.

با 1001 روش دیگه هم میشه سادترین حالتش استفاده از یوزر کنترلی هست که ضمیمه کردم واستون، ولی درصورتی که بخواین از microsoft internet transfer استفاده کنین تنها راهش استفاده از نسخه های تجاری ویبی هست

ولی اگه میخواین ی سری تصویر تبلیغاتی مشخص و ثابت رو همیشه نشون بدین به قول دوستمون m.4.r.m ، از ریسورس استفاده کنین یا کنترلر هایی مثل imagelist

108708

با Api ای هم که دوست عزیزمون گفتن به سادگی میشه ی فایل رو دریافت کرد مثلا :

ی پیکچر باکس ب اسم picbanner نیاز دارین رو فرمتون و

Option Explicit

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

Private Sub Form_Load()

URLDownloadToFile 0, _
"http://www.freebookdownloader.com/public/images/ebook/visual-basic-2012-programmers-reference.jpg", _
"d:\aaa.jpg", 0, 0


picbanner.Picture = _
LoadPicture("d:\aaa.jpg")

Me.Width = picbanner.Width + 2 * picbanner.Left + _
(Me.Width - Me.ScaleWidth)
Me.Height = picbanner.Height + 2 * picbanner.Left + _
(Me.Height - Me.ScaleHeight)
End Sub




درصورتی که نسخه دات نت رو دارین و از روش های فوق نتیجه دلخواهتون حاصل نشد! میتونین تو دات نت اینجوری بنویسین :

My.Computer.Network.DownloadFile("http://www.visual-basic-6.com/images/HelpVistaXPDiamond/ScreenShot/Big/visual-basic-6.0-11.gif", "d:\abcd.gif")


و حتی با وین ساک :


Public Function DownloadSock(ArqURL As String, ArqDestino As String) As Boolean
'ArqURL is the file URL
'ArqDestino is where the downloaded file is going to be stored, in my hard disc

Dim arquivo() As Byte
Dim ficheiroID As Integer

ficheiroID = FreeFile
On Error GoTo Trata_erro
Open ArqDestino For Binary Access Write As #ficheiroID


Me.Winsock1.Connect ArqURL, 80
Me.Winsock1.GetData arquivo()
Put #ficheiroID, , arquivo()

Close #ficheiroID

DownloadSock = True


Exit Function

Trata_erro:

msgbox err.Number

End Function

[علیرضا.ا]

خیلی ممنون:قلب:
با همون api درست شد
فقط اون aaa.jpg تصویریه که دانلود میشه؟!
اگه تصویری گه توی url هست gif و متحرک باشه چی؟!
اصلا picturebox از gif پشتیبانی میکنه؟!!!!

[mehran901]

هر فایلی رو میتونین با اون روش دانلود کنین ، اگه عکس متحرک باشه نیاز به کنترل های مخصوص داره مثل animatedGif

108796