ايران ويج

پس همون شد دیگه !
یه فایل htm باز کن. با print کدها رو توش بنویس. بعد با createobject یه اکسپلورر تعریف کن اطلاعات رو بفرست.

spiderman نوشته است:پس همون شد دیگه !
یه فایل htm باز کن. با print کدها رو توش بنویس. بعد با createobject یه اکسپلورر تعریف کن اطلاعات رو بفرست.

اگه برات امکان داره یه مثل برام بزن . آخه می دونی اینجوری هیچی نمی فهمم !
آخه خیلی مبتدی هستم Shy

نه دیگه ! اینبار هم نمیشه ! چون من کد های برنامه نویسی وب رو بلد نیستم. تو سایت هست. سرچ کن.

چرا برای اين سؤال دو تا تايپک باز کردی؟
http://forum.iranled.com/showthread.php?tid=9681

crazyfull نوشته است:چرا برای اين سؤال دو تا تايپک باز کردی؟
http://forum.iranled.com/showthread.php?tid=9681

سلام
عزیز مگه هر کی سوالش مثل منه خود منم ؟
خوب ایشون فرد دیگری هستند که سوال کردن . من 2 تا سوالم رو توی یک تاپیک مطرح کردم

موفق باشی Happy

spiderman نوشته است:نه دیگه ! اینبار هم نمیشه ! چون من کد های برنامه نویسی وب رو بلد نیستم. تو سایت هست. سرچ کن.

سلام
SpiderMan عزیز خیلی خیلی ببخشید . من تمام زحمت هام گردن شماست ...
من کل سایت رو گشتم چیزی گیر نیاوردم . می تونی به نمونه برام پیدا کنی ؟ Shy

فکر می کنم همیچین چیزی باید کارت رو را بندازه.

کد: 
Open FileAddress For Output As #1

Print #1, "<FORM id=Compose name=Compose accept-charset=UTF-8 action=http://www.server.com/email.php method=post>"

Print #1, "<INPUT id=from size=40 value=""" & S1 & """ name=from>"

Print #1, "<INPUT id=to size=40 value=""" & S2 & """ name=to>"

Print #1, "<INPUT id=subject size=50 value=""" & Subject & """ name=subject>"

Print #1, "<INPUT id=messege name=Body  value=""" & "" & """ size=20> "

Print #1, "<INPUT id=send type=submit value=""" & S3 & """ name=send>"

Print #1, "</form>"

    Close #1

    Set ExpObject = CreateObject("InternetExplorer.application")

    ExpObject.Navigate FileAddress

    Set NewItem = ExpObject.Document

    NewItem.All.Item("send").Click

    NewItem = Null

    While ExpObject.Busy = True

    DoEvents

    Wend

    ExpObject.Quit

البته در مورد IE7 نمی دونم جواب میده یا نه.

SpiderMan عزیز دمت گرم !
مرسی . خیلی آقایی ...

دادش یه سوال دیگه ؟ Shy

چطوری میشه از آدرس یه فایل فقط نام فایل را در بیاریم ؟
مثلا اگه آدرسمون این باشه :

نقل قول: c:\Windows\Dear_SpiderMan.Gif

چطوری می شه فقط Dear_SpiderMan.Gif را از این آدرس بگیرم ؟

با توجه به بك اسلش ها (\) آدرس فايل رو به قطعات كوچكتر تقسيم و از قطعه آخر بك اسلش رو حذف كن.

کد: 
FileName = Mid(FileAddress, InStrRev(FileAddress, "\") + 1)

SpiderMan دمت گرم !
حسابی حال دادی Shy

DiDi جان از شما هم ممنونم Shy

می گم سوال زیاد کردم . یه سوال دیگه هم دارم ! بپرسم ؟ Tongue

چطور میشه یه CommonDialog مثل AddFile تو Nero Express ساخت ؟ Tongue

محمد حسینی

davoodx

محمد حسینی

CRazYFULL

davoodx

davoodx

محمد حسینی

davoodx

Di Di

محمد حسینی

davoodx