درخواست یک برنامه ساده

عالی بود واقعا ممنون :)

میشه بعد run کردن برنامه بسته نشه و خودم اونو ببندم ؟

نقل قول:

---

نوشته شده توسط n00b [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

بفرمایید...////:12:
***********************

کد:

---

InputStr = InputBox("Message Line1" & vbNewLine _
        & "Message Line2" & vbNewLine _
        & "Message Line3" , "Title")


if InputStr <> "" then _
CreateObject("WScript.Shell").Run("http://www.norwex.no/service/receipt.aspx?orderid=" & InputStr)

---

****************
هر جاش که سوال داشتید بگید تا راهنماییتون کنم...////:9:
********************
موفق باشید!:46:

---

کد:

---


Do Until Cancel


    InputStr = InputBox("Message Line1" & vbNewLine _
                & "Message Line2" & vbNewLine _
                & "Message Line3" , "Title")


    If InputStr <> "" Then


        CreateObject("WScript.Shell").Run("http://www.norwex.no/service/receipt.aspx?orderid=" & InputStr)


    Else


        Cancel = True         


    End If


Loop

---

*********************

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

بسیار بسیار سپاسگزار از لطف و زحمتی که کشیدید.