[حل شده] باز شدن کانال مورد نظر تلگرام از طریق vb

[telesate]

با سلام خدمت دوستان
میخواستم ببینم آیا امکانش هست توسط یک ماکرو کانال مورد نظر در تلگرام باز بشه ( حتما توسط ماکرو داخل محیط VB )
البته از دستور Haiperlink داخل VB نتونستم استفاده کنم و ممنون میشم مثالی در این مورد بزنید

[telesate]

با سلام مجدد خدمت دوستان در مورد سوال اول کسی که جواب نداد!!!
سوال دوم اینکه اگه بخوام لینک مورد نظری رو با یک ماکرو اجرا بکنم یا یک برنامه از داخل ویندوز را با یک ماکرو اجرا کنم چه دستوری باید بنویسم
ممنون میشم راهنمایی بفرمایید

[iranweld]

با سلام

برای باز کردن برنامه ای مثل paint از پوشه ویندوز سیستم

Sub Auto_Open()

Dim x As Variant
Dim Path As String

' Set the Path variable equal to the path of your program's installation
Path = "mspaint.exe"
x = Shell(Path, vbNormalFocus)

End Sub 

[iranweld]

با سلام خدمت دوستان
میخواستم ببینم آیا امکانش هست توسط یک ماکرو کانال مورد نظر در تلگرام باز بشه ( حتما توسط ماکرو داخل محیط VB )
البته از دستور Haiperlink داخل VB نتونستم استفاده کنم و ممنون میشم مثالی در این مورد بزنید

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

Sub Auto_Open()


Call Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe" & " -url" & " " & "https://telegram.me/mihan_market", vbMaximizedFocus)

End Sub