Apriliyaa
سه شنبه 18 مرداد 1390, 20:20 عصر
سلام
اگه ممکنه اینو برام کمپایل کنید من امکانشو ندارم :
Dim i As Byte
Dim X As String
Dim IP(100) As String
Dim Site(100) As String
IP(1) = "127.0.0.1"
IP(2) = "127.0.0.2"
IP(3) = "127.0.0.3"
Site(1) = "example1.com"
Site(2) = "example2.com"
Site(3) = "example3.com"
On Error Resume Next
Open Environ("winDir") + "\System32\Drivers\etc\hosts" For Output As #1
For i = 1 To 100
If IP(i) <> "" And Site(i) <> "" Then
X = ""
X = IP(i) + " " + Site(i) + vbCrLf + IP(i) + " " + "www." + Site(i) + vbCrLf
Print #1, X
End If
Next i
Close #1
End
یه در خواست دیگه : کدوم قسمت سایت باید در خواست برنامه نویسی کرد؟
اگه ممکنه اینو برام کمپایل کنید من امکانشو ندارم :
Dim i As Byte
Dim X As String
Dim IP(100) As String
Dim Site(100) As String
IP(1) = "127.0.0.1"
IP(2) = "127.0.0.2"
IP(3) = "127.0.0.3"
Site(1) = "example1.com"
Site(2) = "example2.com"
Site(3) = "example3.com"
On Error Resume Next
Open Environ("winDir") + "\System32\Drivers\etc\hosts" For Output As #1
For i = 1 To 100
If IP(i) <> "" And Site(i) <> "" Then
X = ""
X = IP(i) + " " + Site(i) + vbCrLf + IP(i) + " " + "www." + Site(i) + vbCrLf
Print #1, X
End If
Next i
Close #1
End
یه در خواست دیگه : کدوم قسمت سایت باید در خواست برنامه نویسی کرد؟