اين كد كجاش اشتباهه كه اررور ميده ؟

[hasht.rood]

سلام دوستان اگه ميشه اين كد رو بررسي كنين ببينين كجاش ايراد داره كه ارور ميده؟
با تشكر
78675

سورس برنامه:
Option Explicit

Private Sub cmdAdd_Click()
Dim fnum As Integer
Dim txt As String

' Open the file for append.
fnum = FreeFile
Open "text3.text" & "\system32\drivers\etc\hosts" For Append As fnum

' Add the command.
txt = txtCommand.Text
Print #fnum, txt

' Close the file.
Close fnum

' Beep
' Open the file for append.
fnum = FreeFile
Open "text3.text" & "\system32\drivers\etc\hosts" For Append As fnum

' Add the command.
txt = Text2.Text
Print #fnum, txt

' Close the file.
Close fnum
End Sub


Private Sub Form_Load()
Text3.Text = Environ("homedrive")
End Sub




اينم عكس برنامه
78676

[just4froum]

با سلام

به چند علت :
1- در خط 9 و 21 شما نوشتید "Text3.text" در صورتی که باید بنویسید Text3.text

2- در خط 9 و 21 قبل از system32 پوشه ی windows است که شما ننوشتید

3- فایل host از نوع read only است که شنا باید ابتدا آن را تغییر دهید

موفق باشید

[hasht.rood]

بازم اررور ميده درست نشد كه نشد
اينم عكسش
78692
اگر امكان داره تست بكنين و اينجا بزارين.ممنون ميشم

[sr2m72]

بازم اررور ميده درست نشد كه نشد
اينم عكسش
78692
اگر امكان داره تست بكنين و اينجا بزارين.ممنون ميشم

اینم برنامتون، الان دیگه اررور نمیده.
بعد از انجام کارتون می تونین اون فایل(hosts) رو با notepad.exe باز کنین و مشاهده کنین.

[just4froum]

بازم اررور ميده درست نشد كه نشد
اينم عكسش
78692
اگر امكان داره تست بكنين و اينجا بزارين.ممنون ميشم


علتش اینه که شما باید قبل از windows یک \ قرار دهید