hasht.rood
شنبه 12 آذر 1390, 16:03 عصر
سلام دوستان اگه ميشه اين كد رو بررسي كنين ببينين كجاش ايراد داره كه ارور ميده؟
با تشكر
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
با تشكر
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