ذخیره اطلاعات در فایل vbs و اجرای آن

[gorg313]

عرض سلام و خسته نباشید خدمت دوستان

يه مشکل داشتم تو کد نویسی يه برنامه

من درون text1 يه متن ثابت دارم يه متن که کاربر درج میکنه


موقع سیو به مشکل خوردم

CreateObject("SAPI.SpVoice").Speak"I love Iran"

متن بالا درون فایل vbs ثابت هست

I love Iran را میخوام کاربر درون text1 درج کنه و فایل سیو شده را اجرا کنه


کد من

On Error Resume Next
Open App.Path & "\Pc Gener.vbs" For Output As #1
Print #1, "CreateObject("; SAPI.SpVoice; ").Speak" + Text1
Close #1
Shell App.Path & "\Pc Gener.vbs"



این کد تشخیص جنسیت کامپیوتره :لبخند:

[samiasoft]

درود

داخل تکست باکس 2 مقدار عبارت زیر رو قرار بدید
CreateObject("SAPI.SpVoice").Speak"I love Iran"


برای ذخیرش اینطوری عمل کنید :

a = Replace(Text2, "I love Iran", Text1)

On Error Resume Next
Open App.Path & "\Pc Gener.vbs" For output As #1
Print #1, a
Close #1

[gorg313]

ایول داداش دمت گرم درسته حالا بخوام اجراش کنم به مشکل خوردم يعنی شل نمیکنه خطا میده :لبخند: (مسیر و اسم هم درسته)

[samiasoft]

برای اجرای فایل اینطوری عمل کنید :

کد زیر را در یک module قرار بدید

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Function ShellX(PathName, Optional WindowStyle As VbAppWinStyle = vbNormalFocus, Optional sParameters$ = vbNullString) As Long
ShellX = ShellExecute(0, "open", PathName, sParameters$, App.Path, WindowStyle)
End Function



با دستور زیر اجرا کنید
ShellX App.Path & "\Pc Gener", vbMaximizedFocus