.:KeihanCPU:.
پنج شنبه 29 فروردین 1387, 11:00 صبح
خواهشا اگه کیس میدونه مشکل این کد چیه بهم بگه
On Error Resume Next
Dim A As String
Dim B As String
A = App.EXEName
B = App.Path
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURR ENTVERSION\RUN\" & y
تو خود vb اجرا میشه اما وقتی میخوام exe رو بسازم رو set reg اخطار میده
اون y هم آدرس فایلمه که درسته.
On Error Resume Next
Dim A As String
Dim B As String
A = App.EXEName
B = App.Path
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURR ENTVERSION\RUN\" & y
تو خود vb اجرا میشه اما وقتی میخوام exe رو بسازم رو set reg اخطار میده
اون y هم آدرس فایلمه که درسته.